Nur kleinstes Icon im TNA

[silentAMD]

hi,
in meine anwendung kann man in die/das systray minimieren, nur lädt mein prog immer nur das große symbol ein (habe in der resource ein icon mit den größen: 48x48,32x32 und 16x16). ich möchte aber (dass es besser aussieht) das kleinste das am besten in den bereich passt in der taskleiste anzeigen.

PLEASE HELP!!!

mfg

[Robert Marquardt]

Da bin ich auch am gruebeln.
Ich habe ein 16x16 Icon eingebunden, aber das wird dummerweise erst auf 32x23 aufgeblasen und dann wieder runtergerechnet.

[scp]

Am besten dürfte da LoadImage funktionieren:

Delphi-Quellcode:

  TheIco := LoadImage(hInstance, 'MAINICON', IMAGE_ICON   , 16, 16, LR_DEFAULTCOLOR);

Hier kann man gewünschte Höhe und Breite angeben und er holt sich das passende Icon, anstatt hin- und herzuquetschen (falls vorhanden, sonst wird natürlich doch gequetscht).

[silentAMD]

@Robert Marquardt: genau das wundert mich auch... ich habe auch den eindruck... :gruebel:

@scp: sorry aber das funzt nicht... :cry:


PLEASE HELP!!!

[nailor]

sieht cool aus - aber ich war vorgewart

verbinden und so klappt, runterladen auch. von der funktionalität alles in ordnung. allerdings erst beim zeiten mal. bei ersten mal hatte ich eine access violation. wollte einen screenshot machen, habs aber aus versehen wegeklickt. beim zweiten mal gings dann aber ohne AV.

[Luckie]

Zitat:

Zitat von nailor

sieht cool aus - aber ich war vorgewart

verbinden und so klappt, runterladen auch. von der funktionalität alles in ordnung. allerdings erst beim zeiten mal. bei ersten mal hatte ich eine access violation. wollte einen screenshot machen, habs aber aus versehen wegeklickt. beim zweiten mal gings dann aber ohne AV.

Ich habe 5. Southern Comfort intus. Und wie viele du? Müssen etwas mehr sein oder du verträgst weniger. Was war denn das für ein wirres Posting? Hat das irgendwas mit dem TNA Icon zu tun? :gruebel:

[nailor]

sorry. bitte diesen, deinen und meinen ersten post löschen. der gehörte zu nem anderen topic.

[Luckie]

Nö. Das bleibt jetzt hier stehen. *hicks* :drunken:

[nailor]

gut. hab ich halt drei posts mehr und alle leute verwirrt. mir solls recht sein.

[Robert Marquardt]

Zitat:

Zitat von Luckie

Ich habe 5. Southern Comfort intus.

Sofort erschiessen den Kerl ;-)
Ist ja ekelhaft. Single Malt und nichts anderes.

[scp]

[OT]
Respekt und das ohne Tippfehler. :-D
[/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 :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:

bitte helft mir!!!! :dp: :freak:

[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!!! :dp: :thumb:

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.