VirtualTreeView und icons

[Wishmaster]

Hi.

ist es möglich in der virtual-treeview icons zu zeichnen ohne die "TImageList" zu verwenden?
ich habe eine große DB und jeder eintrag in der DB hat seinen eigenen icon.
die der benutzer ändern/löschen oder neue hinzufügen kann;

zurzeit lade ich eine externe Datei mit ~300 Icons in die "TImageList" und in der DB wird nur der index zum icon Gespeichert. was sehr limitiertend ist.



thx.

[Whookie]

Kenne mich mit VTV nicht wirklich aus, aber du kannst doch zur Laufzeit immer neue Images zu einer ImageList hinzufügen und dann ist es egal wann und von wo das eigentliche Icon her kommt...

[Wishmaster]

du hast recht, das problem ist allerdings das die ImageList kann nur eine limitierte anzahl von icons halten
wenn ich mich korrekt erinnere sind das ~500 Icons.


ps. ich habe auch nicht so viel erfahrung mit der VTV! so wenn jemand eine code schnipsel hat, ich wäre euch dankbar.

[nuclearping]

Du kannst in den OnAfterCellPaint und OnBeforeCellPaint selbst Inhalte über den Parameter TargetCanvas in die Zelle(n) zeichnen.

Statt einer TImageList kannst du zB eine TList nehmen, da die Icons als TBitmaps ablegen und dann über einen der genannten Events selbst zeichnen, je nachdem, "wann" du das Icon haben willst.

[Wishmaster]

wie schon gesagt ich habe auch nicht so viel erfahrung mit der VTV.
und korrigiere mich wenn ich falsch liege
aber ist es nicht sinnvoll/möglich die icons direkt in den Node Record abzuspeichern, genau wie den text.
ich denke dann braucht man auch keine listen für die icons.

Delphi-Quellcode:

  PRNodeData = ^TRNodeData;
  TRNodeData = record
   ID : Int64; // pointer
   Title : Widestring;
   Value : Widestring;
   Hiden : Boolean;
   Image : TBitmap; // icon
  end;

ich denke mein problem ist mehr das ich nicht genau weiß wie ich das zeichnen
soll. ich meine den text nach rechts verschieben und vor dem Text die box für das icon zeichnen soll.
ich verstehe die theorie dahinter. nur die umsetzung ins praktische, da hakt es noch.

ich glaube ich brauche ein Red Bull

[Perlsau]

Hab ich zwar noch nie versucht, kann mir aber gut vorstellen, daß dann das Handling des VirtualTreeViews um etliches langsamer wird, weil ja bei jedem Zugriff auf NodeData zusätzlich das Bitmap kopiert werden muß. Mit TImageList müssen die Bitmaps dagegen nur einmal kopiert werden, nämlich zwischen BeginUpdate und EndUpdate.

Auch hatte ich noch nie einen Fall, der es nötig machte, mehr als 500 Bitmaps bzw. Icons in einem VTV einzusetzen.

[Wishmaster]

OK! ich habe es geschaft (Nach dem Red Bull ) so ich hatte recht mit der idee die icon direkt in den NodeRecord zu schreiben!
so jetzt ist der limit nur der arbeitsschpeicher.

so this is my solution! Have fun with it.

Delphi-Quellcode:

type
  PRNodeData = ^TRNodeData;
  TRNodeData = record
   ID : Int64; // pointer
   Title : Widestring;
   Value : Widestring;
   Hiden : Boolean;
   Image : TBitmap; // icon
  end; 

procedure TMain_form.RecordTreeBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
 Data : PNodeData;
 R : TRect;
begin
  if Assigned(Node)then
   begin
     Data:= FolderTree.GetNodeData(Node);
    if Data^.Colored then
     begin
      case Column  of
       0 :
        begin
         TargetCanvas.Brush.Color :=  $00FFFAF4;
         TargetCanvas.FillRect(CellRect);

        // Draw Icon Test

         R.Left:=   ContentRect.Left-16;
         R.Top:=    ContentRect.Top -1;
         R.Right:=  ContentRect.Bottom + R.Left;
         R.Bottom:= ContentRect.Bottom -1;

         //TargetCanvas.Brush.Color:= clred;
         TargetCanvas.FillRect(R);

         TargetCanvas.Draw(R.Left, 0, Data^.Image); // Icon

        end;
       1 :
        begin
         (* Draw Gradient *)
         GradientFillHorizontal(TargetCanvas, CellRect, $00FFFAF4, clWhite, 100)
        end;
       2 :
        begin
         // comment todo
        end;
      end;


     end;
   end;
end;

ganz vergessen zu sagen, ich benutze eine leere TImageList um den text nach rechts zu bewegen




in meinem test lade ich die icons direkt von der festplatte
später wird das direkt von der DB/Stream geladen!

Delphi-Quellcode:

 Data:= RecordTree.GetNodeData(Parent);
 ...
 Data^.Image:= TBitmap.Create; 
 Data^.Image.LoadFromFile('c:\...\...\folder_open.bmp'); 
 Data^.Image.Transparent := True;
 Data^.Image.TransparentMode := tmAuto;

nochmal danke an alle.