danke für den zipp aber das versuche ich nicht =)
zu meinem problem mit den icons die verschwunden sind und nur auftauchen wenn ich scrolle: siehe screenshot.
der rot markierte kasten ist ein screenshot genau dann wann ich schnell scrolle.
P.S.: und warum die CheckBox in column 1 ist und nicht in 0 weiß ich auch nicht =/
daten in treeview bringen:
Delphi-Quellcode:
var
TreeData: TTreeData;
// ...
VST.NodeDataSize := SizeOf(TTreeData);
TreeData.a:= sl.Strings[i];
TreeData.b:= IntToStr(getFileSizeA(TreeData.sFileName));
TreeData.c:= DateTimeToStr(getFileLastModified(TreeData.sFileName));
TreeData.d:= '=>';
TreeData.e:= sl.Strings[i];
TreeData.f:= '';
TreeData.g:= '';
TreeData.bUpdated := False;
AddVSTStructure(VST, TreeData);
// ...
function AddVSTStructure(aVST: TVirtualStringTree; aRecord: TTreeData): PVirtualNode;
var
Data: PTreeData;
begin
Result := aVST.AddChild(nil);
Result.CheckType := ctCheckBox;
Result.CheckState := csCheckedNormal;
Data := aVST.GetNodeData(Result);
aVST.ValidateNode(Result, False);
Data^ := aRecord;
end;