Flackern beim Neuzeichnen der Komponente

[daschaos]

Hi!

Ich hab eine Komponente von TGraphicControl abgeleitet und möchte gerne meinen Zeichenvorgang ohne Flackern haben. Das Problem ist, dass TGraphicControl kein DoubleBuffered anbietet. Klar, die Form, also der Parent bietet mir das, das darf ich aber nich benutzen. Prinzipiell ist es ja kein Problem, dass dann quasi von Hand zu machen, dachte ich :(. Lege mir also immer ein global deklartiertes Bitmap am Anfang meiner Zeichenroutine an, dass ich jeweils mit der Größe meines zu zeichnenden Objekts initialisiere und auf dessen Canvas ich dann zeichnen lasse und am Ende über Canvas.Draw das Bitmap auf mein Canvas der Komponente zeichnen zu lassen. Funktioniert nur leider nich. Ich sehe zwar Teile davon, aber manches ist weiß überblendet. Meine Zeichneroutine ist vom Prinzip her folgendermaßen aufgebaut:

Delphi-Quellcode:

procedure PaintRect(ARect: TRect);
begin
  Bmp := TBitmap.Create;
  Bmp.Height := ARect.BottomRight.Y - ARect.TopLeft.Y;
  Bmp.Width := ARect.BottomRight.X - ARect.TopLeft.X;
  ...
  DrawOuterRect(ARect);
  Bmp.Free;
end;

procedure DrawOuterRect(ARect: TRect);
begin
  ...
  Bmp.Canvas.Rectangle(ARect);
  if(...) then
    DrawInnerRect(ARect)
  else
    DisplayRectProperties(ARect);  
end;

procedure DrawInnerRect(ARect: TRect);
begin
  ...
  Bmp.Canvas.Rectangle(ARect);
  DisplayRectProperties(ARect);
end;

procedure DisplayRectProperties(ARect: TRect);
begin
  
  ...
  Canvas.Draw(ARect.TopLeft.X, ARect.TopLeft.Y, Bmp);
end;

Jetzt hab ich einfach jedes Vorkommen von Self.Canvas halt durch Bmp.Canvas ersetzt und eigentlich gehofft, es würde jetzt funktionieren.

Hab ich einen Denkfehler drin oder irgendwas übersehen, vergessen was ich noch machen müsste?

[oki]

DoubleBuffered auf True!

Gruß oki

[Edit] Sorry, Titel gelesen, schnelle Antwort geschrieben, daneben gegriffen. Lesen kommt doch immer besser. Gruß oki [/Edit]

[DeddyH]

Und wenn Du statt von TGraphicControl von TCustomControl ableitest? Dann hättest Du auch DoubleBuffered zur Verfügung.

[daschaos]

Ich glaub mein Chef mag das nicht, also er hätte halt gerne, dass ich das so von Hand probiere und es wurmt mich ja jetzt auch, dass es nich läuft :).
Mir ist gerade aufgefallen, dass ich ja alles zeichnen lassen will bevor ich aufs normale Canvas zeichne, ist ja auch der Sinn der Sache :wall: . Also lege ich das Bitmap im Konstruktor meiner Komponente an, weil sonst zeichnet er ja immer nur das eine Objekt anstatt alle. Aber jetzt sehe ich garnichts mehr :(. Hab einfach das Bmp.Create, Bmp.Free in den Konstruktor/Destruktor verschoben und die Größe des Bitmaps im Konstruktor auf die Größe meiner Komponente gesetzt.

[Muetze1]

Zitat:

Zitat von daschaos

Hab einfach das Bmp.Create, Bmp.Free in den Konstruktor/Destruktor verschoben und die Größe des Bitmaps im Konstruktor auf die Größe meiner Komponente gesetzt.

1. Ich hoffe dort steht TBitmap.Create und nicht Bmp.Create
2. Die Grösse der Komponente wird nach dem Konstruktor verändert durch Laden der Eigenschaft aus dem Formular. Entweder überschreibst du z.B. SetBounds um die Bitmapgrösse zu setzen oder du machst dies einfach im Paint als eine der ersten Handlungen.

[DeddyH]

Bist Du Dir sicher, dass das so stimmt?

Zitat:

Zitat von daschaos

Delphi-Quellcode:

Bmp.Canvas.Rectangle(ARect);

Du müsstest IMHO auf der Bitmap bei 0,0 mit dem Zeichnen beginnen und die Bitmap dann an den gewünschten Koordinaten auf den Canvas der Kompo pinseln.

[Muetze1]

... du kannst lokal beim Zeichnen das Rechteck auf eine lokale Variable legen um dann diese auf 0, 0 zu biegen (OffsetRect(DeinRect, -DeinRect.Left, -DeinRect.Top);). Dann kannst du die restlichen Zeichenfunktionen zu lassen und ihm einfach nur die lokale TRect geben.

Auch geht dieses

Delphi-Quellcode:

Canvas.Draw(ARect.TopLeft.X, ARect.TopLeft.Y, Bmp);

lesbarer:

Delphi-Quellcode:

Canvas.Draw(ARect.Left, ARect.Top, Bmp);

[daschaos]

Erstmal, ja ich hab Bmp := TBitmap.Create gemacht, wollte mich beim Schreiben nur beeilen :). Und ich hab jetzt die Größe im Paint Event gesetzt, jetzt macht er es schon fast richtig. Danke schonmal!!!! Juhu. Aber er hat jetzt noch einen weißen Rahmen, denke ja mal von der Bitmap, komisch...

[daschaos]

Ich hab noch ein Property, bei dem man den Margin einstellen kann. Also muss ich ja das so deklarieren: Canvas.Draw(0+Margin,0+Margin,Bmp) und Bmp.Height := ClientHeight - Margin und Bmp.Width := ClientWidth - Margin.
Beim Zeichnen wird aber nur die Differenz links oben an den Rändern dem Margin-Wert entsprechend verkleinert oder vergrößert, unten macht er garnichts. Warum?

[Muetze1]

Zitat:

Zitat von daschaos

Ich hab noch ein Property, bei dem man den Margin einstellen kann. Also muss ich ja das so deklarieren: Canvas.Draw(0+Margin,0+Margin,Bmp) und Bmp.Height := ClientHeight - Margin und Bmp.Width := ClientWidth - Margin.
Beim Zeichnen wird aber nur die Differenz links oben an den Rändern dem Margin-Wert entsprechend verkleinert oder vergrößert, unten macht er garnichts. Warum?

1. 0+x -> da kannste die 0 einfach weglassen mit dem +
2. Zu deiner Frage: Dein Margin soll doch links und rechts wirken, also muss du bei der Breite des Bitmap zweimal Margin abziehen. Gleiches bei der Höhe: Oben und unten, also 2x margin.