Canvas löschen und Componente komplett neu zeichnen...

[Ares]

Hallo!

Eine ergänzende Frag zu meinem Button-Problem, dass ich vor ca. 1h gepostet habe:

Nochmal kurz worum es geht:
Eine eigene Button-Komponente die mit PNG-Bildern für das Design arbeitet, also jeweils ein Bild für "Normal", Over, Down und Disabled. In Paint() wird je nach Status das passende PNG-Bild ausgewählt und gezeichnet. Dabei ist mir nun folgendes Problem aufgefallen:

Das Programm startet und der Button wird mit dem "Normal" Bild gezeichnet. Gehe ich nun mit der Maus über den Button wird das "Over" Bild gezeichnet. Diese wird jedoch über das "Normal" Bild gezeichnet, das "Normal" Bild wird vorher nicht gelöscht.

Ich verwende PNG-Bilder da diese ganz einfach Transparenz ermöglichen. Wenn ich nun aber als "Normal" Bild einen Transparenzverlauf (Schwarz -> Transparent) von oben nach, und als "Over" Bild den gleichen Verlauf von unten nach oben verwende, ist es ein Problem, dass das Bild beim neuzeichnen nicht gelöscht wird. Der "Over" Verlauf wird dann über den "Normal" Verlauf gezeichnet, ohne dass dieser zuvor gelöscht wird. Im Ergebnis überlagern sich die Verläufe also...

Warum wird die Componente nicht gelöscht und komplett neu gezeichnet, wenn ich mit Maus darüber fahre? Um dies zu erreichen habe ich folgendes verwendet:

Delphi-Quellcode:

procedure TMyPNGButton.CMMouseEnter(var Message: TMessage);
begin
  fMouseOverControl := True;
  Repaint; // Invalidate;
end;

{Mouse has left the control}
procedure TMyPNGButton.CMMouseLeave(var Message: TMessage);
begin
  fMouseOverControl := False;
  Repaint; // Invalidate;
end;

Durch Repaint oder Invalidate sollte doch eigentlich alles gelöscht und neugezeichnet werden, oder? Dies funktioniert aber leider nicht.

Besten Dank
Ares

[DeddyH]

Wie sieht denn die Paint-Methode aus?

[Ares]

Die Paint Methode habe ich unten eingefügt. MemoyBitmap soll verwendet werden um ohne Flackern zu zeichnen. Hiermit gibt es aber noch Probleme (siehe mein anderer Beitrag), daher habe ich dass alles rausgenommen.

Delphi-Quellcode:

procedure TMyPNGButton.Paint;
var
  FTransColor : TColor;
  FImageList  : TImageList;
  sourceRect, destRect: TRect;
  tempGlyph, memoryBitmap: TBitmap;
  Offset: TPoint;

  ButtonImage: TPNGObject;
  ImageSize: TSize;
begin
  // Transparenzfarbe des Glyph festlegen
  FTransColor := FGlyph.Canvas.Pixels[0, FGlyph.Height - 1];

  // Memory-Bitmap um ohne Flackern zu zeichnen...
  //memoryBitmap := TBitmap.Create;
  try
    //memoryBitmap.Height := ClientRect.Bottom;
    //memoryBitmap.Width  := ClientRect.Right;
    {memoryBitmap.}Canvas.Brush.Style := bsClear;
    {memoryBitmap.}Canvas.Font.Assign(Self.Font);

    // Button Image auswählen und Zeichnen
    case FState of
      bsUp: begin
        if FMouseInControl then begin
          if (FImageOver.Empty=false) then
            ButtonImage := FImageOver
          else
            ButtonImage := FImageNormal;
        end else begin
          ButtonImage := FImageNormal;
        end;
      end;
      bsDown, bsExclusive: begin
        if (FImageDown.Empty=false) then
          ButtonImage := FImageDown
        else
          ButtonImage := FImageNormal;
      end;
      bsDisabled: begin
        if (FImageDisabled.Empty=false) then
          ButtonImage := FImageDisabled
        else
          ButtonImage := FImageNormal;
      end;
    end;

    {memoryBitmap.}Canvas.Draw(0, 0, ButtonImage);

    // Glyph zeichnen
    if not FGlyph.Empty then
      (...)
    end;

    // DrawText
    {memoryBitmap.}Canvas.Brush.Style := bsClear;
    DrawText({memoryBitmap.}Canvas.Handle, PChar(Caption), Length(Caption), TextBounds, DT_CENTER or DT_VCENTER or DT_SINGLELINE);

    // Memoy-Bitmap ausgeben
    //canvas.CopyRect(ClientRect, memoryBitmap.canvas, ClientRect);
  finally
    //memoryBitmap.free; 
  end;
end;

[DeddyH]

Und wenn Du erst den Hintergrund übermalst (Canvas.FillRect), bevor Du das Bitmap zeichnest?

[Ares]

Das ginge natürlich, ich nur nicht Womit genau ich denn den Hintergrund übermalen soll...? Wenn ich den Hintergrund einfarbig fülle ist zwar der vorherige Hintergrund weg ("Over" Verlauf") aber dafür funktioniert dann auch die Transparenz nicht mehr. Statt dem Hintergrund unter dem Button scheint dann der gefüllte Hintergrund durch...

[DeddyH]

Die Lösung ist bestimmt so einfach, dass ich gerade nicht darauf komme, aber ich mache mir mal ein paar Gedanken dazu.

[Ares]

Besten Dank! Ich bin für jede Hilfe dankbar!!

[shmia]

Man müsste eine WM_PAINT Message an das darunterliegende Control senden.
Und zwar mit SendMessage (nicht mit PostMessage), damit die Reihenfolge passt.

[Muetze1]

Oder einfach vorher den Hintergrund mit InvalidateRect() als ungültig markieren. Damit malt sich der Parent und danach wirst du dann eh aufgerufen. Somit: InvalidateRect aufrufen beim CM_MouseEnter und CM_MouseLeave

[Ares]

Hallo!

Trotz eurer Tipps ist es mir leider nicht gelungen den Button korrekt neuzeichnen zu lassen. Ich habe das Ganze einfach mal beigefügt, dann könnt Ihr euch direkt anschauen worum es geht.

Einmal ein Bild, auf dem der Button mit besagtem Verlauf zu sehen ist. Im linken Teil ist das Programm gerade gestartet, und im rechten Teil ist die Maus über dem Button. Man sieht, dass der Verlauf nicht korrekt dargestellt wird, und das auch die Schrift fetter geworden ist.


Hat noch jemand eine Idee, was ich ändern kann?