Deutsches Lazarusforum

Ich muss mich Endschuldigen!

An alle die ein ähnliches Problem haben:onpaint ist die Lösung, aber seid nicht so dumm wie ich und nehmt das Ereignis von dem Element und nicht von der Form!

Tut mir Leid. Vielleicht konnte ich wenigstens jemand anderen helfen!

Thread kann geschlossen werden.

Danke ...

Das Problem ist das meine tpaintbox da teilweise noch keine Höhe bzw. Breite zugewiesen bekonnen hat.Was sicherlich noch von Bedeutung ist, das ich die hauptform beim öffnen maximiere. Die Paintboxgröße ist abhängig von der Formgröße. Mit einem kleineren Versuch hat es bei mir auch geklappt ...

Onpaint legt aber schon los wenn die paintbox usw noch nicht vollständig geladen ist!

Was ist eigentlich der Unterschied zwischen:

-Button1.Click;
-Button1Click(Sender);

?

Hatte beide Varianten probiert aber nichts hat geholfen!

So die zwei versprochenen Prozeduren.

Der restliche Quelltext ist weniger interesant für mein Problem!

Wiegesagt zum Schluss hatte ich die Prozedur in einem Buttonclick ausgeführt.

PS: wenn ich nicht so schnell Lösungen probieren kann und nicht gleich antworte dann habe ich keine Zeit gefunden ...

procedure TForm_main.Form_main_create(Sender: TObject);
begin
//ALGEMEINE PARAMETER BEI START ERSTELLEN!!!
cadbox.Canvas.Pen.Width:=1;
//cadbox.Color:=clblack;
cad_rand:=30;
decimalseparator:='.';
//CAD TEMP ERSTELLEN
cad_temp:=Tstringlist.Create;
cad_temp.Add('ViewMitte');
cad_temp.Add ...

procedure TForm_main.CAD_Refresh;
var
linie, linie2:string;
farbe:string;
zaehler, zaehler2, point:integer;
Abmass_x, abmass_y, faktor_x, faktor_y:real;
X_draw_mm_1, X_draw_mm_2, Y_draw_mm_1, Y_draw_mm_2:real;
X_draw_pix_1, X_draw_pix_2, Y_draw_pix_1, Y_draw_pix_2:integer;
Xneu, Yneu:real ...

Hallo und erstmal Danke für die viele Hilfe!!!

Also den Tipp mit der eignen Prozedur habe ich versucht, aber wieder wird nichts gezeichnet.

Onpaint wird immer aufgeführt wenn sich das gesamte "Bild" der Form ändert, bzw. Allgemein der Desktop.
Ich habe am Anfang meiner "Zeichnen" Prozedur eine ...

Hallo,
ich habe vor ca.1 Jahr angefangen lazarus zu lernen!
Hatte hauptsächlich nur mit Tstinglist gearbeitet.
Nun entwerfen ich ein CAD cam Programm für 2d Brennzuschnitte. Nun mein Problem. Im oncreat meiner Hauptform erstelle ich eine "leere" CAD Datei (tstringlist). Indieser sind aber schon ...