Bitte um erklärung für drucker Befehle

[ferby]

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

[perle]

Canvas.FrameRect(r);

ist fürs zeichnen des rechtecks verantwortlich.

[ferby]

Hallo,

danke, jetzt konnte ich mir schon einige Befehle erklären nur weiß ich noch nicht für was:
bei

Canvas.TextOut(200,200 + (10),'text'); die Zahlen 200,200 und 10 da sind????

und was diese Zeile bewirkt:

Canvas.Brush.Style := bsClear; ferby

[Sharky]

Hai ferby,

schaue doch einfach mal in die Hilfe zu TextOut

[ferby]

hi,

kapier alles

danke,

ferby