![]() |
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!! |
Re: Control eigenes BorderColor verwenden
ein eigenes Control ableiten und Paint bzw. DoPaint überschreiben
|
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