TreeView CustomDrawItem - Windows 7 Themes

[NickelM]

Hallo zusammen,

Ich versuche gerade mit CustomDrawItem den ItemText zu zentrieren. Den Text zeichnen ist ja nicht das Problem. Wenn ich DefaultDraw auf False setzte, ist das "autozeichnen" des Rahmens eines selektierten Items weg. Nun hab ich versucht mit ThemesService, Details := ThemeServices.GetElementDetails(ttItemSelected); den Rahmen wieder zuzeichnen, aber da bekomm ich einen ganz anderen Rahmen. Mit TreeView1.Canvas.FillRect(NodeRect); fülle ich es ja nur mit der Farbe. Dass kann ja nicht stimmen, da es eine Art Farbverlauf bzw. Areo-Style ist (vermute ich zumindest mal ).

Der Aktuelle Code ist:

Delphi-Quellcode:

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
var DesignText : String;
    PosBegin,PosEnd : Integer;
    CSpacer : Boolean;
    NodeRect : TRect;
    TextS : String;
    Details : TThemedElementDetails;
begin
 if Stage = cdPrePaint then
 begin
  PosBegin := Pos('[',Node.Text);
  if PosBegin > 0 then
  begin
    PosEnd := PosEx(']',Node.Text,PosBegin);
    DesignText := LowerCase(Copy(Node.Text,PosBegin+1,PosEnd-PosBegin-1));
    CSpacer := Pos('cspacer',DesignText) > 0;
    if cspacer then
    begin
      DefaultDraw := False;
      TextS := Copy(Node.Text,PosEnd+1,Length(Node.Text));
      NodeRect := Node.DisplayRect(False);
      TreeView1.Canvas.FillRect(NodeRect); //Dafür müsste ich was anderes nehmen, nur was?
      DrawText(TreeView1.Canvas.Handle,
      PChar(TextS),Length(TextS),NodeRect,DT_CENTER or DT_VCENTER);
    end;
  end
  else DefaultDraw := True;
 end
 else
 DefaultDraw := True;
end;

Wie zeichne ich diesen Rahmen? Im Anhang ein Bild mit normal Item und CostomDrawItem von mir, zum Verständnis was ich machen möchte.
Habe auch DrawEdge versucht auch kein Erfolg.

Gruß
NickelM

[himitsu]

Delphi-Quellcode:

    Details := StyleServices.GetElementDetails(State);
    StyleServices.DrawElement(Canvas.Handle, Details, R);

Tipp (da du ja die VCL-Quellcodes hast) :

Strg+Linksklick auf TThemedElementDetails
und in der Unit nach TThemedElementDetails suchen und schauen, ob es was zum Zeichnen gibt (z.B. Funktionen mit "Draw" im Namen, welche sowas als Parameter annehmen)

altenativ:
Strg+Shift+F => in Verzeichnissen suchen => Filter: *.pas;*.dfm;*.dpr => Verzeichnis: C:\Program Files (x86)\Embarcadero => Unterverzeichnisse durchsuchen
Du hast ein "TThemedElementDetails" und willst wissen, was man damit macht.
und dann abgucken, bei dem was du findest

[NickelM]

Naja, MSDN hab ich schon auch durchgeschaut, hab nicht das richtige gefunden.
Nochmal zum verständnis:
Mit welchem Befehl "emuliere" bzw. zeichne ich den Rahmen für einen selected TreeView Item. Das gleiche wie beim Windows 7 Startmenü links in der Liste, wenn ihr über die Items geht. Genau das suche ich. Nur wenn ich, wie schon erwähnt, den "angeblichen" Item-Theme(nämlich ttItemSelected, die anderen machen kein Unterschied) auswähle, bekomm ich nur von dem Control den Rahmen, nicht vom Item. Unter XP ist das einfach, da es nur einfarbig ist. Bei Windows 7 hat halt das TreeView diesen Style. Und ich weis halt nicht wie ich daran komme. Genau dies möchte ich gerne wissen, ob jemand das schonmal gemacht hat und hinbekommen hat.

Gruß NickelM

[Gollum]

Hallo,

was passiert, wenn Du in den PaintOptions folgendes hinzufügst?

Delphi-Quellcode:

 
  [toThemeAware,toUseBlendedImages,toUseBlendedSelection]

[NickelM]

Dies scheint aber nur bei VirtualTreeView möglich zusein. Zumindest in meiner Delphi Version ist dies nicht verfügbar. Ich schaue mir mal den Code von VirtualTreeView an, weil ich möchte ungern wegen sowas diese Komponente einbinden.

[himitsu]

Selbst Embarcadero weiß inzwischen wie super die TTreeView funktioniert
und nutztn für die IDE selber auch den VirtualTreeView.
http://www.delphipraxis.net/166309-m...ml#post1160829

Nja, die VTV ist vielleicht etwas schwerer bediehnbar, aber dafür kann die auch eine Menge.