Hallo Namensvetter,
dass mit dem Bildlisteneditor habe ich auch schon rausgefunden, aber das ist nicht mein Problem.
Ich lese ein Icon aus einer Datei aus, in meinem Beispiel eine .exe es könnte aud eine .pas Datei sein, die müsste dann in meinem FTP Client auch anders dargestellt werden. Dieses habe ich mit
Code: Alles auswählen
GetFileIcon('C:\Programme\lazarus\source\ftp4\project1.exe', true)
hier der Quelltext dazu
Code: Alles auswählen
uses
... ShellAPI
...
function GetFileIcon(const FileName: string; const FileMustExist: Boolean): TIcon;
var
FI: TSHFileInfo;
Attributes: DWORD;
Flags: Word;
begin
if FileMustExist then
begin
Attributes := 0;
Flags := SHGFI_ICON or SHGFI_LARGEICON;
end
else
begin
Attributes := faAnyFile ;//FILE_ATTRIBUTE_NORMAL;
Flags := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_LARGEICON;
end;
if SHGetFileInfo(PChar(FileName), Attributes, FI, SizeOf(FI), Flags) <> 0 then
begin
result := TIcon.Create;
Result.Handle := FI.hIcon;
end;
end;
zurück bekomme ich auch das Icon, kann dieses jedoch nicht an meine ImageList zu Laufzeit anhängen.
Das Icon in der Form wird angezeigt, s. oben
habe dann dieses probiert,
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
BMP :TBitmap;
i:integer;
begin
//funktioniert
form1.Icon:=GetFileIcon('C:\Programme\lazarus\source\ftp4\project1.exe', true);
// geht nicht, bringt -1 zurück
imagelist1.AddIcon(GetFileIcon('C:\Programme\lazarus\source\ftp4\project1.exe', true))
//Dieses funktioniert auch
Bmp := TBitmap.Create;
Bmp.LoadFromFile('C:\Programme\lazarus\source\div_Beitraege\icon.bmp');
Bmp.Transparent := True;
Bmp.TransparentMode := tmAuto;
imageList1.Add(Bmp , Bmp); //(Bmp , Bmp.TransParentColor);
i:=imagelist1.Add(Bmp , Bmp);
listview1.Items.Item[0].Caption:='Test mit Icon';
listview1.Items.Item[0].ImageIndex:=i;
end;
Beim Versuch das erst einmal in eine Datei zu scheiben, "ich könnte ja evtl. ein Verzeichnis durchsuchen, ob eine entsprechende Datei vorhanden ist, wenn ja, dann lade den entsprechenden index...)
Auber auch das funktioniert nicht.
Habe es hiermit versucht:
Code: Alles auswählen
GetFileIcon('C:\Programme\lazarus\source\ftp4\project1.exe', true).SaveToFile('C:\Programme\lazarus\source\div_Beitraege\ralph.ico');
Die Datei wird zwar erstellt, habe diese versucht zu öffnen, mit Fehlermeldungen.
Beim öffnen mit einem editor steht volgendes drin s. Anhang in HEX:
Fehler sind wie Berge, man steht auf dem Gipfel seiner eigenen und redet über die der anderen.
Kann mir hier jemand helfen, und mir sagen, wo ich nachschauen kann?
mit folgendem Erfolg
Verein
Links
