[gelöst!] Probleme mit Paintbox

[Michl]

Hallo liebe Lazarus-Helfer,

folgendes Problem:

Ich habe 2 Formen, mit einem Button (Form2.Showmodal) rufe ich die 2. Form auf, in der sich eine Paintbox befindet.

Code: Alles auswählen

TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.showmodal;
end;

Bei dem Ereignis Formpaint zeichne ich ein weißes Quadrat (form2.PaintBox1.Canvas.FillRect(50,50,100,100); )

Code: Alles auswählen

TForm2 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2;
 
implementation
 
{ TForm2 }
 
procedure TForm2.FormPaint(Sender: TObject);
begin
  form2.PaintBox1.Canvas.FillRect(50,50,100,100);
end;

Schließe ich nun die 2. Form, wird beim nächsten Aufruf dieser, das weiße Quadrat mal gezeichnet und mal nicht. Woran kann das liegen?!

Danke für Eure Hilfe!

Michl

[corpsman]

Ist der Fehler damit auch ?

Code: Alles auswählen

TForm2 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2;
 
implementation
 
{ TForm2 }
 
procedure TForm2.FormPaint(Sender: TObject);
begin
form2.PaintBox1.Canvas.brush.color := clwhite;
form2.PaintBox1.Canvas.brush.style := bssolid;
form2.PaintBox1.Canvas.pen.color := clblack;
  form2.PaintBox1.Canvas.Rectangle(50,50,100,100);
end;

[Michl]

Habe den Code entsprechend ausprobiert.
Ergebnis unverändert.
Beim nächsten Öffnen der Form2 wird mal gezeichnet und mal nicht.

Ich bin auch auf andere Weise auf das Problem gestoßen:
Um mir eine Statistik grafisch darzustellen, hatte ich mir eine zusätzliche Form gebaut, auf der ich die in der HauptUnit errechneten Ergebnisse grafisch darstelle.
Dies funktionierte auch wunderbar, als ich zur Darstellung der Form >Form2.show< gewählt hatte (sämtliche Zeichenoperationen funktionieren damit einwandfrei, auch nach mehrmaligen Anzeigen und Schließen).
Jetzt wollte ich diese Anzeige aber in einer anderem Aufruf nutzen, um Parameter zu- und abzuwählen, daher der Zugriff auf >Form2.showmodal<.

Um den Fehler einzugrenzen, habe ich den Code vereinfacht, um den Fehler einzugrenzen. Bin aber leider im Forum bzw. Netz nicht auf einen hilfreichen Hinweis für mein Problem gestoßen

Es kommt mir so vor, als hätte ich einfach vergessen irgend ein Wert zurückzusetzen, der bei Showmodal erzeugt wird und bei Show nicht?!

[Hitman]

Du reagierst auch im falschen Event. Du lässt die PaintBox zeichen, wenn das Formular gezeichnet werden soll. Das ist in (wie du auch merkst) nicht unerheblich vielen Fällen nicht das selbe. Z.B. wird der Bereich, in dem das Quadrat ist, von der PaintBox abgedeckt, daher wird bei "invalidate" dieses Bereichs sicherlich kein FormPaint ausgelöst ... es hat sich ja nur die PaintBox "verändert".

Ergo: PaintBox.OnPaint nutzen, nicht Form.OnPaint! Dann geht's auch.

[Michl]

Hallo Hitman,

DAS WAR ES!!! So einfach ist das! Vielen, vielen Dank!

Hab mir gestern wegen so einem kleinen Denkfehler die halbe Nacht um die Ohren geschlagen