Treeview CustumDrawItem

[dot]

Hallo Delphigemeinde,
ich bin neu hier und würde gerne eine Frage stellen, gefunden habe ich leider nichts brauchbares dazu.

ich möchte in meinem Treeview die Klammern eines Items Blau zeichnen, aber nur die Klammern und den Text darin ( wie im bild )

der unterstehende Code hilft mir nicht da er den Kompletten text färbt

************************************************** *********************
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Text = 'Meineaufgaben (430)' then
begin
TreeView1.Canvas.Font.Assign(TreeView1.Font);
TreeView1.Canvas.Font.Color := clBlue;
TreeView1.Canvas.Font.Style := TreeView1.Font.Style + [fsBold];
end;
DefaultDraw := True;
end;
************************************************** *********************

wäre sehr danke für die hilfe

dot

[Muetze1]

Wenn du die Schriftfarbe auf blau setzt - woher soll er denn nun wissen das du ab einer bestimmten Stelle noch eine andere Farbe haben willst?

Du musst somit die TextAusgabe selber machen: teile den String, setze schwarz, gebe ersten Teil aus, setze blau, gebe anderen Teil aus...

[dot]

danke für die theoretische info.
leider kriege ich genau das nicht hin, mir ist schon klar das ich mit clblue komplett alles einfärbe aber wie weise ich sowas überhaupt einem teil meines strings zu

[Muetze1]

Na du musst den Text selber auf den Canvas malen. Siehe TCanvas.TextOut() oder DrawText().

[dot]

...aber das ich kein trec im customdrawitem habe ist es schwierig beim TExtout die richtige positionen zu erreichen?

[DeddyH]

Ich poste mal das Beispiel aus der Delphi 7 Hilfe:

Zitat:

Das folgende Beispiel zeigt, wie die Ereignisbehandlungsroutine OnCustomDrawItem Einträge und Linien des Baumdiagramms zeichnet, nachdem die Ereignisbehandlungsroutine OnCustomDraw den Hintergrund ausgefüllt hat.

Delphi-Quellcode:

procedure TCustomDrawForm.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  with TV.Canvas do
  begin
    // Wenn DefaultDraw True ist, können die Schrifteigenschaften des Knotens
    // geändert werden. Bei DefaultDraw = True zeichnet Windows die
    // Schaltflächen und ignoriert unsere Schrifthintergrundfarben.
    // Stattdessen wird die Eigenschaft Color von TreeView verwendet.

    if cdsSelected in State then
    begin
      Font.Assign(SelectedFontDialog.Font);
      Brush.Color := SelBkgColorDialog.Color;
    end;
    DefaultDraw := FDefaultDrawItem;
    // Bei DefaultDraw = False müssen Sie alle Einträge selbst zeichen,
    // einschließlich Schaltflächen, Linien, Grafiken und Text.

    if not DefaultDraw then

    begin
      // Auswahlrechteck zeichnen
      if cdsSelected in State then
      begin
        NodeRect := Node.DisplayRect(True);
        FillRect(NodeRect);
      end;

      NodeRect := Node.DisplayRect(False);

      if None1.Checked then

      // Kein Bitmap, daher in der Hintergrundfarbe zeichnen
      begin
        Brush.Color := BkgColorDialog.Color;
        Brush.Style := FBrushStyle;
        FillRect(NodeRect)
      end
      else
        // Nicht über das Hintergrund-Bitmap zeichnen

        Brush.Style := bsClear;

      NodeRect.Left := NodeRect.Left + (Node.Level * TV.Indent);

      // NodeRect.Left entspricht jetzt dem linken Teil der erweiterten Schaltfläche

      DrawButton(NodeRect, Node);

      NodeRect.Left := NodeRect.Left + TV.Indent + FButtonSize;

      // NodeRect.Left ist jetzt der linke Teil der Grafik

      DrawImage(NodeRect, Node.ImageIndex);

      NodeRect.Left := NodeRect.Left + ImageList.Width;

      // Nun kann der Text endlich ausgegeben werden

      TextOut(NodeRect.Left, NodeRect.Top, Node.Text);

    end;
  end;
end;

Man beachte das Node.DisplayRect

[s-off]

Hallo,

probier es mal mit TTreeNode.DisplayRect

Edit: *hmpf*