TPaintbox - seltsames Verhalten (Laz 3.2)

[PeterS]

Hallo,

manchmal wenn man was von Grund auf ausprobieren möchte,
stößt man auf merkwürdige "Dinge".

Ich hatte ganz simpel eine TPaintbox auf eine Form gepackt,
und eine weitere, die nicht automatisch erzeugt wird.
Jetzt verhält sich das ganze aber arg merkwürdig:

Nur wenn ich mit der Maus über den Button gehe, erscheinen die farbigen Quadrate.
Vergrößere oder verkleinere ich mit der Maus die Form, verschwinden sie wieder.
Wenn ich den Code zu TImage aktiviere, verhält sich das ganze wieder anders.

Code: Alles auswählen

procedure TForm1.FormPaint(Sender: TObject);
begin
  ...
  //Image1.Canvas.Brush.Style:= bsSolid;
  //Image1.Canvas.Brush.Color:= clBlue;
  //Image1.Canvas.FillRect( 0, 0, Image1.Canvas.Width, Image1.Canvas.Height);
end;

Was ist das bloß ? Oder mache ich was grundlegendes falsch ?

Screenshot (638).png (6.97 KiB) 3143 mal betrachtet

[fliegermichl]

Das zeichnen der Paintbox sollte in dem Event OnPaint der Paintbox erfolgen.
Dafür kannst du im Event OnPaint einfach FormPaint auswählen und im FormCreate CustomBox.OnPaint := @FormPaint hinzufügen.

[PeterS]

Das zeichnen der Paintbox sollte in dem Event OnPaint der Paintbox erfolgen.

Danke !

Screenshot (639).png (4.84 KiB) 3098 mal betrachtet

Ich habe jetzt (weil's intern passieren soll) das zeichnen in die CustomBox Unit gepackt. Siehe Anhang.
Die Anwendung muss garnicht in meine CustomBox zeichnen können, die CustomBox soll sich nur selber zeichen.

Dafür kannst du im Event OnPaint einfach FormPaint auswählen
und im FormCreate CustomBox.OnPaint := @FormPaint hinzufügen.

Meinst Du das so ?

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  ..
  CustomBox.OnPaint:= @FormPaint
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  //
end;

[wp_xyz]

Im Anhang eine funktionierende Version deines Projekts, mit vielen Kommentaren. Natürlich weiß ich nicht im Detail, warum da ein unbenutzes Bitmap in deiner abgeleiteten Paintbox-Klasse ist. Daher kann mein Code für dich nützlich sein - oder auch nicht...

[wp_xyz]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  ..
  CustomBox.OnPaint:= @FormPaint
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  //
end;

Kapier' ich nicht... Warum ruft CustomBox.OnPaint das OnPaint des Formulars auf, in dem überhaupt nichts passiert? Bitte versuche, jeden deiner Schritte zu verstehen.

[PeterS]

Kapier' ich nicht... Warum ruft CustomBox.OnPaint das OnPaint des Formulars auf, in dem überhaupt nichts passiert? Bitte versuche, jeden deiner Schritte zu verstehen.

Dieser Kommentar war für @fliegermichl
Weil ich seine Anmerkung nicht verstanden hatte.

Natürlich passiert da (noch?) nix im OnPaint des Formulars.
Ist ja erstmal nur roher leerer Code ..

[PeterS]

Im Anhang eine funktionierende Version deines Projekts, mit vielen Kommentaren. Natürlich weiß ich nicht im Detail, warum da ein unbenutzes Bitmap in deiner abgeleiteten Paintbox-Klasse ist. Daher kann mein Code für dich nützlich sein - oder auch nicht...

=>

Code: Alles auswählen

// Warum soll das vom Formular gezeichnet werden, wenn die Paintboxen das doch
// selbst können? 

Ich bin gerade dabei, einen uralten Delphi-Quellcode einer Komponente zu übersetzen.
Und die zeichnete halt (noch) nicht, unter Lazarus. Daher hatte ich dieses Test-Projekt erstellt.
Damit nicht Tonnen von unnötigem Code einem die Sicht versperren.

Das "unbenutze Bitmap" wird - wenn dann hineingezeichnet wurde/wird - per BitBlit()
resp. per Canvas.Draw() auf den Canvas von TPaintBox kopiert.

Und das klappt jetzt auch, hier in meiner Uralt-Komponente - puh !

[PeterS]

Code: Alles auswählen

CustomBox.Free;   // Unnötig, da die CustomBox mit Owner = self erzeugt wurde.

Jep - da bin ich wieder drauf reingefallen.
Alte Gewohnheit, selbsterzeugtes TObject am Ende auch wieder "zu Fuß" zerstören.

Jetzt fällt es mir auch wieder ein, daß das - mit Owner = self erzeugt - sich brav selbst zerstört
wenn das Programm sich beendet.