PaintBox zeichnet trotz Invalidate/Update nicht

[DeddyH]

Für PaintBox.Invalidate braucht man kein Handle, das kennt die Komponente ja schon selbst

[EWeiss]

Zitat von DeddyH:

Für PaintBox.Invalidate braucht man kein Handle, das kennt die Komponente ja schon selbst

Kenne jetzt die zusammenhänge nicht kein Code.
Mitunter ist es zwingend notwendig das Invalidate auf der Mainform auszuführen
da Paintbox ein Kind der Mainform ist muss diese Automatisch mit neuzeichnen oder?

gruss

[DeddyH]

Nein, TPaintbox empfängt als Nachkomme von TGraphicControl eigene WM_PAINT-Botschaften.

[edit] Post galt Emil, roter Kasten hatte mal wieder Pause. [/edit]

[EWeiss]

Zitat von DeddyH:

Nein, TPaintbox empfängt als Nachkomme von TGraphicControl eigene WM_PAINT-Botschaften.

[edit] Post galt Emil, roter Kasten hatte mal wieder Pause. [/edit]

Ok Danke

OT:
Jup so ein Edit Flag wäre nicht schlecht ..
Anstelle von Geändert von ...

gruss

[MacGuyver]

Mahlzeit,

ich habe das gerade noch einmal durchgespielt:
Invalidate auf der Form bringt nichts.
Ich habe ein Repaint ausgeführt, auch nichts.
Wie weiter oben schon beschrieben habe ich onPaint mal direkt aufgerufen, auch nichts.

Die Daten, die ich zeichne, ändern sich im Programmverlauf. Ich werde da mal nur eine Zeitausgabe einbauen und sehen, wo es hakt.

Ich pflücke das Ding heute Abend auseinander. Mal sehen, was ich aus meinem Code verbannen muss, damit das funktioniert.

Im Normalfall sollte ein Invalidate doch reichen, oder?

Schönen Dank schon mal für eure Unterstützung.

[DeddyH]

Ich habe gerade ein kleines Testprogramm geschrieben, das funktioniert wie erwartet.

Delphi-Quellcode:

unit PaintTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TfrmTest = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FPaintBox: TPaintBox;
    FTimer: TTimer;
    FColor: TColor;
    procedure DoOnPaint(Sender: TObject);
    procedure DoOnTimer(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  frmTest: TfrmTest;

implementation

{$R *.dfm}

{ TfrmTest }

function RandomColor: TColor;
begin
  Result := RGB(Random($ff), Random($ff), Random($ff));
end;

procedure TfrmTest.DoOnPaint(Sender: TObject);
begin
  FPaintBox.Canvas.Brush.Color := FColor;
  FPaintBox.Canvas.FillRect(Rect(0, 0, FPaintBox.Width, FPaintBox.Height));
end;

procedure TfrmTest.DoOnTimer(Sender: TObject);
begin
  FColor := RandomColor;
  FPaintBox.Invalidate;
end;

procedure TfrmTest.FormCreate(Sender: TObject);
begin
  FTimer := TTimer.Create(self);
  FTimer.OnTimer := DoOnTimer;
  FPaintBox := TPaintBox.Create(self);
  FPaintBox.Parent := self;
  FPaintBox.Align := alClient;
  FPaintBox.OnPaint := DoOnPaint;
  FColor := RandomColor;
end;

initialization
  Randomize;

end.

[MacGuyver]

N'abend,

so, ich habe alles rausgeschnissen, bis fast nichts mehr da ist. Nun habe ich oben links in der Ecke eine Uhrzeit, die läuft nur, wenn ich die Größe des Fensters veränder oder anders das onPaint erzwinge. Ich habe da Debugausgaben eingebaut, da sieht man schön, dass das Invalidate nichts bringt.