Hallo Gemeinde,
ich habe gerade den Vorteil dieser Funktion entdeckt aber weiß nicht so richtig wie ich sie korrekt anwenden muss.
Information habe ich dafür selbst noch nicht viele gefunden. Emba und meine Hilfe zucken mit Achseln.
Hier ist ein Wrapper den ich geschustert habe:
Delphi-Quellcode:
uses
ShlObj;
...
function PickIconDialog( IconHandle: HWND; var Filename: string; var IconIndex: Integer ): Boolean;
var
tmp : String;
idx: Integer;
begin
Result := False;
tmp := Filename;
idx := IconIndex;
if ( PickIconDlg( IconHandle, PWideChar( tmp ), 1023, idx ) <> 0 ) then
begin
Filename := String( tmp );
IconIndex := idx;
Result := True;
end;
end;
und so in etwa rufe ich das ganze auf:
Delphi-Quellcode:
procedure TfrmMain.btnGetIconClick(Sender: TObject);
var
IconFile:
String;
IconIndex: LongInt;
begin
IconFile := '
';
IconIndex := 0;
try
IconIndex := StrToInt( edIconIndex.Text );
except
IconIndex := 0;
end;
if ( PickIconDialog(
Handle, IconFile, IconIndex ) = True )
then
begin
edIconLocation.Text := IconFile;
try
edIconIndex.Text := IntToStr( IconIndex );
except
edIconIndex.Text := '
0';
end;
Image1.Picture.Icon.Handle := ExtractIcon( hInstance, PWideChar( IconFile ), Cardinal( IconIndex ) );
end;
end;
In theory klappt es, praktisch erhalte ich auch tatsächlich immer den korrekten Namen plus Index.
Aber anscheinend ist mir dennoch da ein Fehler passiert.
Hier meine Fehl-Erscheinungen:
Edit Felder die vor dem Aufruf keinen Inhalt besaßen, haben nach dem Aufruf unsichtbar den Wert von "IconFile" gespeichert.
Manchmal wird mir im Edit Feld für Wert IconFile nichts angezeigt (Wert ist auch dort unsichtbar)
Frage, kennt sich jemand mit dieser Funktion aus und weiß wie sie ordentlich bedient wird?
Frage, hat Delphi eventuell solch einen praktischen Dialog bereits on-board und ich weiß davon nichts?
Vielen Dank fürs Lesen!