TCoolTrayIcon Overlay-Icon

[KodeZwerg]

Wenn es Dir nur darum geht ein icon auf ein anderes zu malen, für sowas hatte ich mir mal was geschrieben.
(Icon wird zu Bitmap, Bitmap mit Grafik verschmelzen und dann zurück in ein Icon.)

Wenn es Dir um die gleiche Funktionalität wie es in der TaskBar angeboten wird, Overlay Buttons, Preview, JumpList usw, da musst Du wohl selbst Hand anlegen. Mir ist bis jetzt noch nichts in dieser Richtung bekannt.

[DieDolly]

Zitat:

(Icon wird zu Bitmap, Bitmap mit Grafik verschmelzen und dann zurück in ein Icon.)

Damit könnte ich etwas basteln. Kannst du den Code teilen?

[KodeZwerg]

Klar teile ich den Code, bissl Geduld bitte, muss da echt viel suchen

Was mir noch eingefallen ist, Mouse Events.
Beim MouseEnter ein mini Borderless Formular übers Icon darstellen lassen mit Inhalt "was auch immer Du brauchst um happy zu sein".

Lass es Dir mal durch den Kopf gehen da ich noch nicht weiß was zu zu bezwecken versuchst.

So ich buddel mal in meinen Archiven weiter.

Bis bald

[DieDolly]

Zitat:

Lass es Dir mal durch den Kopf gehen da ich noch nicht weiß was zu zu bezwecken versuchst.

Einfach nur ein kleines Bildchen in irgendeiner der vier Ecken über das eigentliche Icon
So wie es die TTaskBar macht.

[KodeZwerg]

Ich finde nicht das gewollte aber bei der Schatzsuche bin auf diesen Code gestolpert.

Viel Spaß beim testen.

Delphi-Quellcode:

// uses* Windows, Forms, Controls, Classes, Graphics, StdCtrls, ExtCtrls, CommCtrl;

function MergeIcons(var Icon: HICON; Overlay: HICON): Boolean;
var
  Source, Dest: HIMAGELIST;
  Width, Height: Integer;
begin
  Result := False;
  Width := GetSystemMetrics(SM_CXSMICON);
  Height := GetSystemMetrics(SM_CYSMICON);
  Source := ImageList_Create(Width, Height, ILC_MASK or ILC_COLOR32, 1, 0);
  if Source <> 0 then
    begin
      if (ImageList_AddIcon(Source, Icon) <> -1) and (ImageList_AddIcon(Source, Overlay) <> -1) then
      begin
        Dest := HIMAGELIST(ImageList_Merge(Source, 0, Source, 1, 0, 0));
        if Dest <> 0 then
          begin
            DestroyIcon(Icon);
            Icon := ImageList_ExtractIcon(0, Dest, 0);
            ImageList_Destroy(Dest);
            Result := True;
          end;
      end;
      ImageList_Destroy(Source);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ico: HICON;
begin
  Ico := TrayIcon1.Icon.Handle; // hole original icon
  MergeIcons(Ico, Image1.Picture.Icon.Handle); // verschmelze es mit einem anderen icon
  TrayIcon1.Icon.Handle := Ico; // nutze das neue icon
end;

Ps: Icon Größe sollte identisch sein.

Pps: Das zweite Icon so gestalten das welche Ecke auch immer Deinen Wunsch entspricht.
Ich nutzte das um einen Roten oder Grünen Punkt raufzukleben.

[DieDolly]

Kannst du mir eventuell noch bei diesem Problem helfen? Ich habe das Icon nur als TIcon vorliegen, aber brauche wohl ein HIcon:
Ok egal, ich bin doof!
Ich habe vergessen das Icon zu erzeugen

[KodeZwerg]

Ein HICON ist nichts weiter als das Handle vom Icon, egal ob über Image oder TIcon.

Natürlich sollte es bereits erzeugt sein :-p