Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
20. Mär 2018
Für TreeView mit verschiedenen Bildern habe ich so etwas mir mal gebastelt.
Garantiert viel zu alt, stammt glaube ich noch aus Delphi 5/6/7 (?) Zeiten.
Procedure CreateImages;
var
SysIL: HImageList;
SFI: TSHFileInfo;
begin
MyTreeView.Images := TImageList.Create(Self);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
20. Mär 2018
Vielleicht kann die dieser Abschnitt aus meinen Code helfen, arbeitet mit ListView, der liest ein Verzeichniss ein und gibt es mit icons und mini-Info aus.
Leider weder optimiert, noch gut anzuschauen, zumindest macht es das was ich vorhatte.
procedure GetFiles(const hLV: HWND; Path, Mask: String);
var
finddata : TWin32FindData;
hFile : cardinal;
Loop : dword;
lvi :...