Cavas.Clear

[Mathias]

Ich habe nacktes Fenster mit einem Button.

Klicke ich einmal auf den Button, bleibt das Fenster unverändert grau, so wie erwartet.
Klickt man zwei oder mehr mal wir das Fenster weiss.
Vergrössert ich es anschliessend, wird es wieder grau.

Ändere ich Color, z.B. auf rot, egal ob über FormCreate oder im Objectinspector, dann bleibt das Fenster immer rot, egal wie viel ich klicke.

Ist dies ein Bug ?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Clear;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//  color:=$ff;
end;     

[theo]

Auf den Canvas sollte man nur im OnPaint Ereignis zugreifen.

[Mathias]

Im OnPaint bleibt das Fenster weiss.

Code: Alles auswählen

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

[theo]

Ich kapier nicht, was du erreichen willst.

[Mathias]

Ich wollte etwas probieren und dann bin ich auf diesen Effekt gestossen.

[theo]

Ich wollte etwas probieren und dann bin ich auf diesen Effekt gestossen.

Welcher Effekt?
Kannst du nicht sagen, was du erwartest und warum und was dann effektiv passiert, was nicht deiner Erwartung entspricht?

Ich verstehe dich nicht. Du sagst: "Im OnPaint bleibt das Fenster weiss."
Ja, und jetzt? Was soll es denn dMn werden?

[Mathias]

Ja, und jetzt? Was soll es denn dMn werden?

Grau bleiben, so wie es im Formular-Designer ist.

[m.fuchs]

Dann solltest du kein Canvas.Clear aufrufen.

[Socke]

Ja, und jetzt? Was soll es denn dMn werden?

Grau bleiben, so wie es im Formular-Designer ist.

In der Regel sollte man keine Annahmen über den bisherigen Status des Canvas (inklusive Brush und Pen) machen.
Daher: Farbe setzen.

Code: Alles auswählen

  Canvas.Brush.Color := Self.Color;
  Canvas.Clear;

[m.fuchs]

Die Frage nach der Sinnhaftigkeit stellt sich allerdings. Warum sollte man das überhaupt tun?

[theo]

Die Frage nach der Sinnhaftigkeit stellt sich allerdings. Warum sollte man das überhaupt tun?

Wieso nicht?
Bevor man neu zeichnet (OnPaint) kann man doch den Canvas löschen.
Ich hatte Canvas.Clear zwar nicht auf dem Radar. Ich mache immer Canvas.FillRect(...), kommt aber auf das selbe raus.

[m.fuchs]

Ist das notwendig? Wenn ein OnPaint ausgelöst wird, sollte doch alles wieder gelöscht sein.

[theo]

Ist das notwendig? Wenn ein OnPaint ausgelöst wird, sollte doch alles wieder gelöscht sein.

Ja, kann sein. Ich weiss auch nicht mehr, in welchem Szenario ich das gemacht habe. Vllt fällt es mir morgen ein.

[Warfley]

Canvas.Clear überschreibt alles mit der Brush Color, daher weiß. Bei Resize wird die Form/Control neu gezeichnet, was dazu führt dass deine zeichnung wieder überschrieben wird, daher sollte man im OnPaint ereignis zeichnen, um auf den ReDraw Call der Anwendung "abzufangen".

Warum es 2 versuche Braucht zum Clearen weiß ich auch nicht, ich habs mit einem Bitmap getestet, hat auch 2 Clear aufrufe benötigt keine Ahnung warum

PS: Beispiel Bitmaps zeichnen, die werden sonst nicht gelöscht

[theo]

Ist das notwendig? Wenn ein OnPaint ausgelöst wird, sollte doch alles wieder gelöscht sein.

Ja, kann sein. Ich weiss auch nicht mehr, in welchem Szenario ich das gemacht habe. Vllt fällt es mir morgen ein.

Jetzt weiß ich wieder, wie ich drauf komme.
Ich zeichne normalerweise erst auf ein Buffer Bitmap und dieses muss man natürlich überpinseln.
Beim direkt auf einen Control Canvas zeichnen ist das afaik nicht nötig.