Ähm ... ich weiß, es ist Freitag Abend, aber was hat das
Printer.Canvas da im Source zu suchen?
Drucken? Dann solltest du evtl. auch ein Printer-Dokument starten, oder nicht?
Delphi-Quellcode:
if not (f2) then
begin
printer.BeginDoc;
printer.Canvas.Font.Size := 12;
for c2 := 0 to memo1.lines.count -1 do
Begin
printer.canvas.textout( 0, c2 * printer.Canvas.TextHeight( Memo1.Lines[c2] ) , Memo1.Lines[c2]);
End;
printer.EndDoc;
end;
Zitat von
Tumm:
... inerhalb der Fehöer-Prozedur macht er plötzlich einen Sprung im Source ...
Ahja, welche Fehlerprocdure?
Wo springt er ab und springt er hin?
nicht etwa evtl. hier?
if Assigned(compo) then
wenn ja, das kriegst du selbst raus
P.S. Formatiere deinen Source mal vernüftig. Was soll denn da durchsehen !?