Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Control eigenes BorderColor verwenden (https://www.delphipraxis.net/100467-control-eigenes-bordercolor-verwenden.html)

Metal_Snake2 28. Sep 2007 20:07


Control eigenes BorderColor verwenden
 
Hi,


wie kann ich mein eigenes Bordercolor für ein control setzen? Dabei möchte ich nicht den ganzen Systemcolor wert umändern,
sondern nur für das eine control meinen eigenen farbwert setzen.

kann mir da einer weiterhelfen?

Ich muss sicherlich einpaar nachrichten abfangen? Beispiel- code wäre optimal.


danke im voraus!!

cruiser 28. Sep 2007 20:43

Re: Control eigenes BorderColor verwenden
 
ein eigenes Control ableiten und Paint bzw. DoPaint überschreiben

Metal_Snake2 28. Sep 2007 20:59

Re: Control eigenes BorderColor verwenden
 
ich glaub das wäre zuviel aktion?? Ich müßte dan doch EINIGES selber zeichnen??

wie siehts den damit aus:

Delphi-Quellcode:

TVirtualStringTree1 = class(TVirtualStringTree)
private
 fSysColor: COLORREF;
protected
 procedure WM_XXXXXXXXXXXXXXXXX(var msg: TMessage); message WM_XXXXXXXXXXXXXXXXX;

end;

procedure TVirtualStringTree1 .WM_XXXXXXXXXXXXXXXXX(var msg: TMessage)
var
 ToBeSet: Integer;
 NewColor: COLORREF;
begin
 inherited;
 fSysColor := GetSysColor(COLOR_HIGHLIGHT);
 ToBeSet = COLOR_HIGHLIGHT;
 // set the highlight color to be RED
 NewColor := RGB(255,0,0);
 SetSysColor(1, ToBeSet, NewColor);
end;

Wie heißt die nachricht die ich abfangen muss?? "WM_BORDER" gibts leider nicht!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:25 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