[gelöst] Lazarus: StringGrid drucken

[Kralle]

Moin,

Zitat von BadenPower:

Du musst die "Windows" in die Uses-klausel aufnehmen.

Dann meint Lazarus

Zitat:

unit1.pas(183,24) Error: Incompatible type for arg no. 1: Got "TSearchRec", expected "LongWord"

Und zwar hier :   FindClose (FindRecord);

[DeddyH]

Ah, sag das doch gleich. Qualifizier das mal mit
SysUtils.FindClose(FindRecord); [edit] Oder Windows vor SysUtils einbinden, sollte auch funktionieren. [/edit]

[Kralle]

Moin,

Zitat von DeddyH:

Ah, sag das doch gleich. Qualifizier das mal mit
SysUtils.FindClose(FindRecord); [edit] Oder Windows vor SysUtils einbinden, sollte auch funktionieren. [/edit]

Habe ich gemacht. Jetzt hängt es wieder beim Drucken:
   TR := Rect(X1,

Zitat:

unit1.pas(252,18) Fatal: Syntax error, ")" expected but "," found

[DeddyH]

Die Rect-Funktion steht IIRC in Types.pas, also wieder voll qualifizieren: Types.Rect.

[BadenPower]

Was steht in unit1.pas in der Zeile 252 ?


Die Druckfunktion von swiss funktioniert einwandfrei. Habe ich hier gerade mit Lazarus getestet.

[Kralle]

Zitat von BadenPower:

Was steht in unit1.pas in der Zeile 252 ?

 Y2 := 450;

Zitat von BadenPower:

Die Druckfunktion von swiss funktioniert einwandfrei. Habe ich hier gerade mit Lazarus getestet.

In welchem Kontext? Mal eben Ein Grid platziert und das ausgedruckt?

Gruß heiko

[BadenPower]

Zitat von Kralle:

In welchem Kontext? Mal eben Ein Grid platziert und das ausgedruckt?

Yupp.


Schmeiss bitte einmal Deine gesamte Unit hoch.

[Kralle]

Irgendwie scheinen die Druck und die Suchfunktionen nicht sauber zu sein, so das man sie nicht einfach einbinden kann.

@ DeddyH: Jetzt bekomme ich keine Syntax-fehler aber wieder den "SIGSEGV"