TTreeView.CustomDraw

[LoZe]

Hast du es im OnAdvancedCustomDrawItem Ereignis drin?

[LoZe]

Delphi-Quellcode:

procedure TForm3.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
var
  Tree:TTreeView;
  BG:TRect;
  TR:TRect;
  Box:TRect;
  txt:String;
begin
  Tree:= Sender as TTreeView;
  BG:= Node.DisplayRect(true);
  TR:= Rect(BG.Left + BG.Height + 4, BG.Top,BG.Right,BG.Bottom);
  Box:= Rect(BG.Left,bg.Top,BG.Left + BG.Height,bg.Bottom);

  Txt:= Node.Text;

  with Tree.Canvas do
  begin
    if cdsSelected in State then
    begin
      Brush.Color:= clHighlight;
      Font.Color:= clHighlightText;
    end
    else
    begin
      Brush.Color:= clWindow;
      Font.Color:= clWindowText;
    end;
    // Nur Zeichnen wenn Eintrag Erkannt!!!
    if (pos('1',Txt) = 1) or (pos('2',Txt) = 1) then
    begin


      FillRect(BG);
      TextRect(TR,Txt,[tfVerticalCenter,tfSingleLine]);

      if pos('1',Txt) = 1 then
      begin
          Brush.Color:= clRed;
          FillRect(Box);
      end;
      if pos('2',Txt) = 1 then
      begin
          Brush.Color:= clLime;
          FillRect(Box);
      end;
    end;
  end;

end;

[swestner]

Hallo,

mit obiger Routine sieht es bei mir jetzt aus wie im Screenshot.

Das rote und das grüne Quadrat liegen hinter dem Symbol aus der ImageList, der Text wird am Ende abgeschnitten und am Ende der Zeile sind rote und grüne Balken...

Stefan

[Uwe Raabe]

Ist es denn erforderlich, dass die optionalen Grafiken zwischen Bild und Text unterschiedliche Größe haben müssen? Andernfalls könnte man vielleicht noch mit dem StateIndex des Eintrags etwas machen - ganz ohne OwnerDraw. Damit kann ein weiteres Icon angezeigt werden, allerdings nur vor dem anderen. Durch geschickte Zuordnung der Images lässt sich das aber ausgleichen (x ist der Index des normalen Icons, y der des optionalen):

• kein zusätzliches Icon: ImageIndex =x, StateIndex := -1
• zusätzliches Icon: StateImage=x, ImageIndex=y

Die Images müssen dann in derselben ImageList vorliegen und diese muss sowohl dem Images- als auch dem StateImage-Property des TreeView zugewiesen werden.

[swestner]

Das mit dem StateIndex wäre grundsätzlich auch möglich. Ein zweites Icon vor dem eigentlichen Tree-Icon wäre kein Problem. Es muß nicht unbedingt der rote und grüne Kasten nach dem Icon sein.

Ich kann auch zwei Images machen rot und grün und diese dann vor dem eigentlichen Icon anzeigen.

Wie würde sowas dann realisiert werden?

[Uwe Raabe]

Hier ein Bespiel. Das grüne und das rote Rechteck sind mit in der ImageList und diese ist auch beim TreeView als StateImages angelegt. Über den StateIndex der einzelnen Nodes wird das entsprechende Image ausgewählt.