Hi,
<br>
<br>D5E inkl. UpdatePack1 und Quick Report 3.0.X
<br>
<br>ich suche eine Möglichkeit einen Text gedreht auszudrucken. Alle Komponenten die ich bis jetzt im Netz gefunden habe waren maximal für Delphi 3 zu gebrauchen.
<br>Wenn es nun wirklich keine Komponente gibt, die So etwas leistet wie kann man das dann selber realisieren?
<br>
<br>In meiner Not habe ich einfach mal einen Test gemacht:
<pre>
Das soll nur ein kleiner Test sein, um zu sehen, ob man überhaupt den Bericht von Hand manipulieren kann.
procedure TrptMain.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
rptMain.Canvas.Font.size := 30;
rptMain.Canvas.Font.Name := 'Arial';
rptMain.Canvas.TextOut(10,20,'Test');
rptMain.Canvas.Ellipse(200,300,400,700);
end;
</pre>
<br>
<br>So geht es aber anscheinend nicht.
<br>
<br>mfg
<br>PS
<br>
<br>D5E inkl. UpdatePack1 und Quick Report 3.0.X
<br>
<br>ich suche eine Möglichkeit einen Text gedreht auszudrucken. Alle Komponenten die ich bis jetzt im Netz gefunden habe waren maximal für Delphi 3 zu gebrauchen.
<br>Wenn es nun wirklich keine Komponente gibt, die So etwas leistet wie kann man das dann selber realisieren?
<br>
<br>In meiner Not habe ich einfach mal einen Test gemacht:
<pre>
Das soll nur ein kleiner Test sein, um zu sehen, ob man überhaupt den Bericht von Hand manipulieren kann.
procedure TrptMain.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
rptMain.Canvas.Font.size := 30;
rptMain.Canvas.Font.Name := 'Arial';
rptMain.Canvas.TextOut(10,20,'Test');
rptMain.Canvas.Ellipse(200,300,400,700);
end;
</pre>
<br>
<br>So geht es aber anscheinend nicht.
<br>
<br>mfg
<br>PS
Comment