TreeView: Item komplett markieren?

[Pseudemys Nelsoni]

Moin,

ich habe eine Frage und zwar, wie kann ich ein Item eines treeviews komplett, d.h nicht nur die schrift selektieren?

So wie da: http://www.nnscript.com/40teaser/new6/new5.png

?

[tigerman33]

Kann es im Moment nicht abchecken, aber hat TTreeView nicht wie TListView die Möglichkeit, mit OwnerDraw selbst das Zeichnen der Einträge zu übernehmen?
Dann könntest du ja über den Canvas des TreeViews einfach ein FillRect machen. :coder:

[Pseudemys Nelsoni]

Moin,

ne hat sie nicht, ich hab sowas mit Zeichnen noch nie gemacht :oops: . Hoffe jemand kann mir erklären wie idch da mit Canvas(?) male

[xaromz]

Hallo,

OnCustomDrawItem scheint mir der richtige Ansatz zu sein.

Gruß
xaromz

[Sharky]

Das Problem wird sicher sein das dann auch das "Stateimage [+]" überzeichnet wird. (zummindest ist es bei mir so).

[xaromz]

Hallo,

also hiermit gehts:

Delphi-Quellcode:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  NodeRect := Node.DisplayRect(False);
  if cdsSelected in State then
    Sender.Canvas.Brush.Color := clLime
  else
    Sender.Canvas.Brush.Color := TTreeView(Sender).Color;

  Sender.Canvas.FillRect(NodeRect);

  DefaultDraw := True;
end;

Das einzige Problem: Sobald man auf das Handle des Canvas zugreift (z. B. über FillRect) wird die Schrift verstellt :gruebel: , aber nur bei nicht markierten Nodes. Keine Ahnung warum oder wie man das verhindert. Siehe dazu das Bild.

Gruß
xaromz

[Sharky]

Hai xaromz,

so hatte ich es auch versucht. Dabei ist aber das wie im Anhang rausgekommen. (Bild2 und Bild3).

Darum habe ich es etwas "koplizierter" gemacht. Es sieht dann so aus wie Bild1.

Edit: Habe das Projekt vergessen :oops:

[Pseudemys Nelsoni]

Moin,

danke euch Zwei. Ich würde gerne das Beispiel von xaromz verwenden (weil keine Extragrafiken), nur stört mich das mit dem Font schon, ich wollte Tahoma? <g> Kann man das irgendwie noch hinkriegen?

[xaromz]

Hallo,

was das mit dem Font soll weiss ich leider auch nicht. Ich tippe auf nen Bug.

@Sharky: Die Unterschiede gibt's wohl, weil ich Delphi 7 verwende und Du Delphi 2005.

Gruß
xaromz

[Pseudemys Nelsoni]

Hm, das ist ja doof :( Borland halt....

[Flocke]

Zitat:

Zitat von Pseudemys Nelsoni

Moin,

danke euch Zwei. Ich würde gerne das Beispiel von xaromz verwenden (weil keine Extragrafiken), nur stört mich das mit dem Font schon, ich wollte Tahoma? <g> Kann man das irgendwie noch hinkriegen?

Probier mal vor der Ausgabe (in OnCustomDrawItem) (aus dem Kopf, nicht ausprobiert)

Delphi-Quellcode:

Sender.Canvas.Font.Assign(Sender.Font);

[Pseudemys Nelsoni]

Moin Flocke,

soweit bin ich (Dank der anderen Leute) schon gewesen, aber die Schriftart aendert sich gleichzeitig mit :(

[Pseudemys Nelsoni]

*schieb*

[Flocke]

Das FillRect stört die VCL gar nicht, es werden Veränderungen am Brush und am Font protokolliert.

Probier mal die markierte Zeile einzufügen (ungetestet, wär allerdings ein ziemlich dreckiger Trick...)

Delphi-Quellcode:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  NodeRect := Node.DisplayRect(False);

  Sender.Canvas.Brush.OnChange := nil; //<--- HIER

  if cdsSelected in State then
    Sender.Canvas.Brush.Color := clLime
  else
    Sender.Canvas.Brush.Color := TTreeView(Sender).Color;

  Sender.Canvas.FillRect(NodeRect);

  DefaultDraw := True;
end;

Alternativ zeichne den Hintergrund mit dem Windows-API (ebenfalls ungetestet):

Delphi-Quellcode:

var
  hbr: THandle;
begin
  ...
  if cdsSelected in State then
    hbr := Windows.CreateSolidBrush(ColorToRGB(clLime));
  else
    hbr := Windows.CreateSolidBrush(ColorToRGB(TTreeView(Sender).Color));
  if hbr = 0 then
    RaiseLastWin32Error;
  try
    Windows.FillRect(Canvas.Handle, NodeRect, hbr);
  finally
    Windows.DeleteObject(hbr);
  end;
  ...
end;

[tigerman33]

Ich hatte ein ganz ähnliches (naja eigentlich das gleiche Problem mit einem TListView, das ich in CustomDrawItem zeichnete. Das löste sich ganz urplötzlich in Wohlgefallen auf als ich statt CustomDrawItem AdvancedCustomDrawItem benutzte.

Zitat:

Zitat von xaromz

Ich tippe auf nen Bug.

Ich auch. :wall:

[Pseudemys Nelsoni]

Moin Flocke,

ich habe beide Beispiele ausprobiert (Danke dafür übrigens ;)).

Ohne die Beispiele hat sich das ganze so verhalten: Die Schrift der Items war falsch(fett usw) bis auf das aktuelle markierte Item - das war richtig dargstellt bis es die Markierung verliert.

Nach Beispiel1 war es so, das die Items alle Fett waren - auch das markierte.

Nach Beispiel2 waren auch alle Fett und der grüne Hintergrund für das Item war wieder im Standardblau :(

Ich werd auch nicht so schlau draus WO genau da der Bug ist :\


@Tigerman: Das Problem beim TreeView ist, das bei "OnAdvanedDrawItem" die Grafiken nicht gezeichnet werden, bzw mein Hintergrund überdeckt die :(. das "[+]" der Bäume fehlt dann z.B

[Flocke]

Zitat:

Zitat von Pseudemys Nelsoni

@Tigerman: Das Problem beim TreeView ist, das bei "OnAdvanedDrawItem" die Grafiken nicht gezeichnet werden, bzw mein Hintergrund überdeckt die :(. das "[+]" der Bäume fehlt dann z.B

Du musst bei OnAdvancedDrawItem natürlich den zusätzlichen Parameter auswerten und nicht immer zeichnen!

[Pseudemys Nelsoni]

Moin Flocke,

ich habe es so probiert:

Delphi-Quellcode:

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  with TreeView1.Canvas do
  begin
    if cdsSelected in State then
    begin
      Brush.Color := clBlack;
      Font.Color := clWhite;
    end else
    begin
      Brush.Color := clWhite;
      Font.Color := clBlack;
    end;
    FillRect(Node.DisplayRect(false));
  end;
  Stage := cdPrePaint;
  PaintImages := True;
  DefaultDraw := True;
end;

Die [+] sowie die Beschriftung der Items sind nicht zu sehen, nur die schwarze Markierung auf weiss ist dort.

Ist hier etwas falsch?

[Flocke]

Du darfst an Stage nichts zuweisen sondern musst es auswerten!

Delphi-Quellcode:

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if Stage = cdPrePaint then
    with TreeView1.Canvas do
    begin
      if cdsSelected in State then
      begin
        Brush.Color := clBlack;
        Font.Color := clWhite;
      end else
      begin
        Brush.Color := clWhite;
        Font.Color := clBlack;
      end;
      FillRect(Node.DisplayRect(false));
    end;

  // Bei den beiden bin ich mir nicht sicher, ob sie noch in das erste IF gehören
  PaintImages := True;
  DefaultDraw := True;
end;

[Pseudemys Nelsoni]

Ahhhhh, es klappt!!! Hab gar nicht gesehen das "Stage" _kein_ var-parameter ist :oops:

Danke @tigerman für die Idee mit diesem Event

Danke @Flocke für die intensive Hilfe :)

Eine letzt Frage dazu nurnoch und zwar, wieso sieht es ohne XP-Manifest so aus:

http://www.pixelbytes.net/nm.JPG

und mit so wie es soll:

http://www.pixelbytes.net/m.JPG

?

Dann sehen Win2kuser usw es nicht richtig oder?

[alzaimar]

TTreeView ist nur ein Wrapper für die MS-Komponente, insofern sollte der Bug eher in Redmond zu suchen sein, oder?

[Sharky]

Hai,

eines verstehe ich nicht.... was ist denn an der Lösung von mir so falsch?

Die geht doch ohne Problem. Interesant wäre jetzt nur noch dir Frage ob man die notwendigen Grafiken ([+] [-] I-) aus dem OS bekommen kann?

[Pseudemys Nelsoni]

Moin Sharky,

an deinem Beispiel war nichts falsch ;)

Aber ich hätte die Grafiken +/- auch lieber vom OS (ka wo die liegen), da ich sie nicht extra beipacken wollte ;)

Btw:

http://www.pixelbytes.net/hmm.JPG

Wie kriege ich die gestrichelte Linie um "Pseudemys" weg? Das nervt natürlich :(

[Pseudemys Nelsoni]

*sh33b*