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!