Tegne ikon til tray inde i Delphi

Har du lavet koden til at "tray-tingen", så skal du vel "bare" lave en TIcon også tegne på dens canvas, som med en TBitmap

/Martin

Ja, alt til MinimizeToTray er lavet... Jeg skal bare ha' fremstillet det ikon med en mulighed for at tegne på Canvas... Der findes bare ikke en canvas under TIcon-typen! :(

Så skal du nok omkring API'et, Kig på 

CreateIconIndirect();

/Martin

Hmmm... Den skal bruge en record der ser således ud:

_ICONINFO = packed record
  fIcon: BOOL;
  xHotspot: DWORD;
  yHotspot: DWORD;
  hbmMask: HBITMAP;
  hbmColor: HBITMAP;
end;

Men hvad de forskellige variabler, og hvilke skal jeg bruge?

En HBITMAP er bare en LongWord...

HBitmap kan du finde på en TBitmap jeg mener det er Handle men det kan du se i hjælpen, også er det bare at komme igang med er lege/forsøge ( try, try and try again :-) ), Hotspot kan du vist nok sætte til 0,0 i første omgang.

/Martin

Har fundet lidt i hjælpen, men svar gerne hvis du har noget! :)

Jeg har ikke prøvet at tegne Icon'er, så dit bud er lige så godt som mit

Hehe... Okay... Så lærer vi jo begge noget! ;)

Hvad er den store forskel egentlig på CreateIconIndirect og CreateIcon... Er det ikke bedre/lettere at bruger CreateIcon?

Jo det kunne godt se sådan ud :)

Okay... Nu har jeg følgende:

type
  TMap = array [1..16, 1..16] of Byte;
var
  Davs: _ICONINFO;
  Map: ^TMap;
begin
  Icon.Handle := CreateIcon(HInstance, 16, 16, 1, 8, Map, Map);
end;

Så skal jeg bare kunne tegne i mit Map, men hvordan? Det ville nok være RET meget bedre med et rent billede, men ved ikke helt hvilken datatype jeg skal bruge uden at få en masse overflødigt med...

Jeg er forresten ikke helt sikker på parameterne, men den laver da et ikon... Godt nok et mærkeligt et, men stadig et ikon! :)

ARGH!!! Hadder pointere... Har aldrig haft brug for dem før nu... Nå, men det ser altså underligt ud det jeg få frem... Nogle ideer?

Ignorer forresten lige den der Davs-variabel... Det var tidligere kode... ;)

procedure TForm1.Button1Click(Sender: TObject);
VAR
  S : _ICONINFO;
  B : TBitMap;
  I : TIcon;
begin
  B := TBitMap.Create;
  //B.Canvas.TextOut(1,1,'X');
  B.Canvas.Brush.Color := clRed;
  B.Canvas.FillRect(B.Canvas.ClipRect);

  S.fIcon := TRUE;
  S.xHotspot := 0;
  S.yHotspot := 0;
  S.hbmMask := B.Handle;
  S.hbmColor := B.Handle;

  I := TIcon.Create;
  I.Handle := CreateIconIndirect(S);
  if I.Handle = Null then ShowMessage('Fejl');
  Image1.Picture.Icon.Assign(I);
  Image1.Refresh;
end;

Viser ikke en skid, men kommer heller ikke med en "Fejl"

Hmmm... Mit var i hvert fald ikke ret godt... Jeg tror aldrig jeg har set så mange fejl!!! :/

Er du forresten sikker på at hbmMask og hbmColor skal ha' den samme handle?

Det er i hvert fald hvad jeg ser som det eneste der kan være galt...

Hmm... Jeg så lige noget...

Hvis du skriver

  Image1.Picture.Icon.Assign(Icon);

Så skulle den sætte formens ikon ind på image1, men der sker ikke noget! :/

Du kan prøve at lave To bitmap's.

Sorry... Jeg roder rundt i forskellige events...

Nu er jeg med igen! ;)

Dit virker, der kommer bare ikke noget endnu!

Yes... Jeg tror jeg har fundet noget... Læser lige i gennem! ;)

http://www.dts.nl/support/helpdesk/delphi/300/d222200282.htm

Okay... Jeg har fundet noget der virker, så skal det bare videre udvilkes, men det jeg skulle bruge virker nu! Tusind tak for hjælpen, og tak for i aften! ;)