Forum: Multimedia
Delphi
by Luckie,
16. Mär 2009
Aber wenn ich als Typ ICON angebe, würde ich eigentlich erwarten, dass das Format kompatibel ist.
Forum: Multimedia
Delphi
by Luckie,
16. Mär 2009
Also so schwer kann das doch nicht sein:
procedure TForm4.Button1Click(Sender: TObject);
var
ResourceStream: TResourceStream;
Icon: TIcon;
begin
ResourceStream := TResourceStream.CreateFromID(HInstance, <Deine Icon ID>, 'Icon');
try
Icon := TIcon.Create;
try
Forum: Multimedia
Delphi
by Luckie,
15. Mär 2009
Lade das Icon mit einem TResourcenStream und von da mit LoadFromResource.
Forum: Multimedia
Delphi
by Luckie,
15. Mär 2009
Ich glaube TIcon hat auch eine Methode LoadFromResource.
Forum: Multimedia
Delphi
by Luckie,
15. Mär 2009
Wie gesagt mit DrawIcon wird es transparent. Warum es mit DrawIconEx nicht transparent wird, weiß ich im Moment auch nicht.
PS: Die Dinger heißen Icon und nicht Ico.
Forum: Multimedia
Delphi
by Luckie,
15. Mär 2009
Wo ist das Problem:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
Path: String;
begin
Path := ExtractFilePath(ParamStr(0)) + 'Moebius.ico';
Icon := TIcon.Create;
try
Icon.LoadFromFile(Path);