16x16 Icons verzogen?

[Aya]

Zitat von silent:

ich mache das mit nem Resource-Hacker

und dieser resourceHacker wird wohl dein Icon falsch aus der DLL Extrahieren..

[Aya]

Ach halt... mir fällt gerade ein das die Höhe der Icons in der *.ico datei immer *2 gespeichert wird... also man muß sie Manuell durch 2 Teilen!

Lad dein Icon mal in ein TIcon und kopiere dieses TIcon dann auf dein TImage.. dann sollte es klappen.

Au'revoir,
Aya~

[Pseudemys Nelsoni]

hi, danke für die tips. nein auch hierbei wird es verzerrt angezeigt ~~

[Aya]

Hi,

dann versuch es mal mit der API Funktion ExtractIcon.

Delphi-Quellcode:

uses
  [...] ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ico: TIcon;
begin
  Ico:=TIcon.Create;
  Ico.Handle:=ExtractIcon(0,'C:\server.ico',0);
  Image1.Canvas.Draw(0,0,Ico);
  Ico.Free;
end;

Au'revoir,
Aya~

[Pseudemys Nelsoni]

hallo aya, das funktioniert nur leiderwird der teil der transparent sein sollte weiss

[Pseudemys Nelsoni]

so ich ha die shell32 icons jetzt aus dem netz gezogen, die funzen einwandfrei mit der timage komponente. Danke nochmal Aya das du dir die mühe mit dem code gemacht hast