Hallo,
Ich habe das im Forum gefunden und es klappt, kann mir aber jemand jede Zeile erklären was sie bewirkt??
Delphi-Quellcode:
var
r: TRect;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Brush.Style := bsClear;
Canvas.TextOut(200,200 + (10),'text');
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
Und beim Ausdrucken ist ein schwarzes kastel gedruckt worden wie bekomme ich das weg?
Danke,
Ferby