Nur kleinstes Icon im TNA

[scp]

[OT]
Respekt und das ohne Tippfehler.
[/OT]

@silent
Was meinst du mit "geht nicht"? Lädt er das Icon nicht?

[silentAMD]

@scp: irgendwie lädt mein prog das bild nicht, nach einer 2. variation minimiert es wieder in die taskleiste statt ins systray und auf win 2000 bekomme ich nur so fehler á la "Das System kann die angegebene Datei nicht finden" oder "Der angegebene Resourcentyp wurde nicht in der Image-Datei gefunden." aber ich bezweifle dass die fehler was mit dem TNA zu tun haben...

[silentAMD]

hi,
ich verzweifle

bitte helft mir!!!!

[scp]

So, habs jetzt mal mit dem CoolTrayIcon getestet, hier das Ergebnis:

Delphi-Quellcode:

implementation

{$R *.dfm}
{$R D:\SOURCE\Delphi32\IMG\aol9\aol9.res}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoolTrayIcon1.Icon.Handle := LoadImage(hInstance, 'AOL_ICON', IMAGE_ICON   , 16, 16, LR_DEFAULTCOLOR);
end;

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
  CoolTrayIcon1.ShowMainForm;
  CoolTrayIcon1.IconVisible := false;
end;

end.

Also diesen Code ins OnCreate des Form bzw. OnClick des TrayIcon und im OI die Eigenschaft MinimizeToTray auf true.
Die hinzugefügte .res-Datei enthält das Icon, welches mehrere Grössen und Auflösungen bereithält (16x16, 32x32 usw.). "AOL_ICON" ist in dem Fall der Name der Icon-Gruppe.

[silentAMD]

vielen dank für die antworten!!!

aber es klappt immer noch nicht... scheint ein bug in delphi zu sein...


mfg


ingo

[Matze]

Und wenn du bei Form1.Icon (Mainform) ein Icon hineinstellst, das sowieso als 16 x 16 angezeigt wird. Wird das normalerweise auch genommen. Bei mir hat's immer geklappt.