Hi,
also: siehe überschrift.
aber ich möchte, dass die icons in der externen datei zu einem dateityp zugeordnet werden. also sowas in der externen datei mit imagelist.
Delphi-Quellcode:
procedure TFenster.GetImageIndex(Sender: TObject; Item: TListItem);
function FileExt(
const FileName:
String):
String;
var i: Integer;
begin
i := LastDelimiter('
.'+PathDelim+DriveDelim, FileName);
if (i > 0)
and (FileName[i] = '
.')
then
RESULT := Copy(FileName, i+1, MaxInt)
else RESULT := '
';
end;
var e:
String;
begin
e := LOWERCASE(FileExt(Item.Caption));
if (e='
exe')
or (e='
msi')
or (e='
bat')
or (e='
com')
then
Item.ImageIndex := 6
else if (e='
bmp')
or (e='
jpg')
or (e='
jpeg')
or (e='
gif')
or (e='
png')
or (e='
ico')
or (e='
tiff')
then
Item.ImageIndex := 7
else if (e='
htm')
or (e='
html')
or (e='
xml')
then
Item.ImageIndex := 8
else if (e='
txt')
or (e='
ini')
or (e='
inf')
or (e='
log')
or (e='
css')
then
Item.ImageIndex := 9
//usw.....
else Item.ImageIndex := 20
end;
und noch was: kann man den oben aufgeführten code vielleicht vereinfachen?
PS: ich habe schon diverse
dll-tutorials (z.B. von luckie) gelesen und nix gefunden!!
