![]() |
Canvas löschen und Componente komplett neu zeichnen...
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:
Durch Repaint oder Invalidate sollte doch eigentlich alles gelöscht und neugezeichnet werden, oder? Dies funktioniert aber leider nicht.
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; Besten Dank Ares |
Re: Canvas löschen und Componente komplett neu zeichnen...
Wie sieht denn die Paint-Methode aus?
|
Re: Canvas löschen und Componente komplett neu zeichnen...
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; |
Re: Canvas löschen und Componente komplett neu zeichnen...
Und wenn Du erst den Hintergrund übermalst (Canvas.FillRect), bevor Du das Bitmap zeichnest?
|
Re: Canvas löschen und Componente komplett neu zeichnen...
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...
|
Re: Canvas löschen und Componente komplett neu zeichnen...
Die Lösung ist bestimmt so einfach, dass ich gerade nicht darauf komme, aber ich mache mir mal ein paar Gedanken dazu.
|
Re: Canvas löschen und Componente komplett neu zeichnen...
Besten Dank! Ich bin für jede Hilfe dankbar!!
|
Re: Canvas löschen und Componente komplett neu zeichnen...
Man müsste eine WM_PAINT Message an das darunterliegende Control senden.
Und zwar mit SendMessage (nicht mit PostMessage), damit die Reihenfolge passt. |
Re: Canvas löschen und Componente komplett neu zeichnen...
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
|
Re: Canvas löschen und Componente komplett neu zeichnen...
Liste der Anhänge anzeigen (Anzahl: 2)
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? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz