Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Salomon,
24. Aug 2002
Der Thread war mir bekannt, ich habe ihn nur nicht bis zum Ende verfolgt. Ich habe jetzt eine Lösung gefunden:
function GetAssociatedIcon(const AExtension: string; ASmall: Boolean): HIcon;
var
Info: TSHFileInfo;
Flags: Cardinal;
begin
if ASmall then
Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Salomon,
24. Aug 2002
Hallo,
ich habe ein paar Probleme in eine Listview Icons einzubinden. Siehe Code:
with ListView do
begin
ListItem := ListView.Items.Add;
Listitem.Caption := 'joo';
ListItem.ImageIndex := //wie kann ich hier die imagelist angeben?;
end;
end;