Hallo,
Hoe krijg ik, net zoals bij Dex2, een getal in mijn trayicon???
Alvast bedankt!
Hallo,
Hoe krijg ik, net zoals bij Dex2, een getal in mijn trayicon???
Alvast bedankt!
De source van Dex is toch open?
Why is it that every time I think I'm holding all the cards, it turns out we're playing chess?
Download Re-Depend, onmisbaar als je met packages build
ja, ik probeer het ook te ontcijferen, maar echt makkelijk is het niet
Geleend uit Dex:
Mbv Drawtext wordt dus het getal in de bitmap geschreven.Code:procedure TfrmMain.UpdateTrayIcon(Count: Integer); var bmpTemp: TBitmap; sCount: String; rText: TRect; begin bmpTemp := TBitmap.Create(); bmpTemp.Assign(FTrayImage); // Draw post count with bmpTemp.Canvas do begin Font.Name := 'Tahoma'; Font.Size := 7; Font.Color := clBlack; rText := Rect(1, 1, bmpTemp.Width, bmpTemp.Height); Str(Count, sCount); SetBkMode(Handle, TRANSPARENT); DrawText(Handle, PChar(sCount), Length(sCount), rText, DT_VCENTER or DT_CENTER or DT_SINGLELINE); end; DestroyIcon(FTrayIcon.hIcon); FTrayIcon.hIcon := BitmapToIcon(bmpTemp); Shell_NotifyIcon(NIM_MODIFY, @FTrayIcon); end;
Mvg
maar dit kent hij niet:
FTrayImage
Dat is waarschijnlijk een variable van het type TIcon
!
FTrayImage is de TBitmap met het vlaggetje, hieroverheen wordt (inderdaad met DrawText) het aantal geschreven, en BitmapToIcon is dan verantwoordelijk voor het omzetten van de TBitmap naar een icon handle die gebruikt kan worden als tray icon . Om 't verhaal compleet te maken: variabelen die met een F beginnen staan gedeclareerd bovenaan bij het form onder de 'private' sectie...
Qui custodiet ipsos custodes
ok, het is nu duidelijk, dank je!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks