I am trying to get a 2nd image into another cell/column in VT.
I have the following created and seems to be working, but when I shrink the column,
the image is getting into the other column
so i must be doing something wrong.
Also I would like to have in 1 of the colums a Combobox in a cell. how do I do that?
thank so much
procedure Tdsmainform.mytreeAfterCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
X, Y, i: Integer;
xx : trect;
ResName : string;
Png : Tpngimage;
data : pertreedata;
fnumber : string;
xx:= mytree.Header.Columns.GetRect ;
X := xx.Left + TVirtualStringTree(Sender).Margin;
Y := xx.Top + ((xx.bottom-xx.top) div 2) + 2;
ResName := 'FLAGS' + fnumber;
Png := tpngimage.create;
Res := TResourceStream.Create(hInstance,ResName,RT_RCDATA);
TargetCanvas.draw(X, Y, png);