Niestandardowe losowanie wybranego elementu TTreeView

Question

Próbuję emulować menu widoku drzewa lewego okna Outlook dla mojej aplikacji. Używam CustomDraw, ponieważ chcę tylko zmienić niektóre proste właściwości czcionki i tła.

Oto, czego chcę:

Jednak zawsze dotrzesz domyślny wybrany rysunek zarówno dla wybranych i gorących monitorowanych węzłów. Nie mam Windows 7 lub XP, aby zobaczyć, czy jest to normalne zachowanie, czy jest to coś związanego z moim systemem operacyjnym (Windows 8).

Oto co mi chodzi:

Oto mój kod:

procedure TMainForm.TreeView1CustomDrawItem(Sender: TCustomTreeView; 
    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
    if Node.Level = 1 then 
    Sender.Canvas.Font.Size := Sender.Canvas.Font.Size + 2; 

    if cdsHot in State then 
    Sender.Canvas.Brush.Color := $00F7E6CD 
    else if (cdsSelected in State) or (cdsFocused in State) or 
    (cdsChecked in State) then 
    Sender.Canvas.Brush.Color := $00F2F2F2 
    else 
    Sender.Canvas.Brush.Color := $00DEDEDE; 
    DefaultDraw := true; 
end; 

Jak mogę narysować innego koloru tła dla wybranych i gorących przedmiotów?

Answer 1

Spróbuj wykonać następujące czynności:

type 
    TTreeView = class(Vcl.ComCtrls.TTreeView) 
    protected 
    procedure CreateWnd; override; 
    end; 


uses uxtheme; 

procedure TTreeView.CreateWnd; 
begin 
    inherited; 
    SetWindowTheme(Handle, nil , nil); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 

    TreeView1.Font.Name := 'Segoe UI'; 
    TreeView1.HotTrack := True; 
    TreeView1.Font.Size := TreeView1.Font.Size + 1; 
    TreeView1.Color := $00DEDEDE; 

end; 

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; 
    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 

    if cdsFocused in State then begin 
    Sender.Canvas.Brush.Color := $00F2F2F2; 
    Sender.Canvas.Font.Color := clblack; 
    Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold]; 
    end else if cdsHot in State then 
    Sender.Canvas.Brush.Color := $00F7E6CD 
    else 
    Sender.Canvas.Brush.Color := $00DEDEDE; 

end; 

---

Objaśnienie:

Dokumentacja Microsoft na ten temat jest bardzo rozmyte, co mogę z całą pewnością powiedzieć, że ilekroć akcja (Wybór, śledzenie na gorąco, deselekcja itp. ...) jest wykonywany na elemencie (węźle), konkretna wiadomość jest wysyłana, ta wiadomość zawiera stan węzła za pośrednictwem flagi parametrów, która na samym końcu wewnętrznie decyduje o tym, jak element powinien być aktualizowany wizualnie w oparciu o bieżący motyw systemu Windows.

Jest to prawdopodobna przyczyna, dla której wyłączenie kompozycji składnika TreeView powoduje usunięcie domyślnego motywu prostokąta zaznaczenia &. Dokumentacja dla Control state flags wspiera tę teorię w częściowej.