TTrayIcon mit overlay nummer bereits verfügbar?

[Der schöne Günther]

Leicht off topic: Sind typische Icons da rechts unten nicht sowieso so klein dass man ein Zahlen-Overlay nicht vernünftig entziffern könnte? Alles was ich da unten rechts kenne stellt etwas "neues" mit einem roten Punkt dar, verzichtet aber darauf, da noch weitere Informationen unterzubringen.

PS: https://devblogs.microsoft.com/oldne...10-00/?p=42583

[KodeZwerg]

Zitat von HolgerX:

Hmm..

Bei D6 hatte ich das noch selber gemacht, deshalb meine Frage zum TTrayIcon von Emba:

Dies hat doch eine Property 'Icon', schon mal versucht ein selbst erstelltes Icon mit Overlay diesem zuzuweisen?
Ohne ImageList?

@holger, genau das tat ich, aber mein code (morgen zeig ich) versaut mehr das ergebnis anstelle das da was gutes rauskommt.

Zitat von Der schöne Günther:

Leicht off topic: Sind typische Icons da rechts unten nicht sowieso so klein dass man ein Zahlen-Overlay nicht vernünftig entziffern könnte? Alles was ich da unten rechts kenne stellt etwas "neues" mit einem roten Punkt dar, verzichtet aber darauf, da noch weitere Informationen unterzubringen.

PS: https://devblogs.microsoft.com/oldne...10-00/?p=42583

@günther ......hmmmm.... jo das ginge tatsächlich und vereinfacht alles enorm... der wunsch nach nummer bleibt dennoch erstmal vorhanden.... der gedanke an sich gefällt mir dennoch (wenn nichts klappt wirds so gemacht) guter tipp von Dir !

[KodeZwerg]

Hab was gebastelt was den Anschein hat zu funktionieren.
Das ganze basiert auf einer Projekt JEDI Methode.
Damit ist auch das 15 Bilder Overlay Limit gesprengt.

Im Anhang kleines Binary plus kompl. Source.

Zur Veranschaulichung hier der Haupt-Quelltext.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Picture.Icon := TrayIcon1.Icon;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  TrayIcon1.Visible := (Sender as TCheckBox).Checked;
end;

function OverlayIcon(var Icon: HICON; Overlay: HICON; Large: Boolean): Boolean;
// source aus JclShell.pas datei!!!
var
  Source, Dest: HIMAGELIST;
  Width, Height: Integer;
begin
  Result := False;
  if Large then
  begin
    Width := GetSystemMetrics(SM_CXICON);
    Height := GetSystemMetrics(SM_CYICON);
    Source := ImageList_Create(Width, Height, ILC_MASK or ILC_COLOR32, 1, 0);
  end
  else
  begin
    Width := GetSystemMetrics(SM_CXSMICON);
    Height := GetSystemMetrics(SM_CYSMICON);
    Source := ImageList_Create(Width, Height, ILC_MASK or ILC_COLOR32, 1, 0);
  end;
  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;
  OverlayIcon(Ico, Image2.Picture.Icon.Handle, False);
  Image3.Picture.Icon.Handle := Ico;
  TrayIcon1.Icon.Handle := Ico;
  TrayIcon1.SetDefaultIcon;
end;

end.

[Codehunter]

Also ich hab sowas ähnliches vor vielen Jahren auch mal gemacht. Zwar nicht mit Zahlen sondern mit Symbolen aber ist ja egal. Dabei habe ich die Icons in der ImageList zur Laufzeit selbst generiert. Erst in einem TBitmap (Canvas) gezeichnet und dann dynamisch zur ImageList hinzugefügt. Leider finde ich das Projekt nicht mehr...

Bei Windows 10 gibt es auch noch etwas neues neben der TNA (früher mal "DNU" genannt ^^), wo der Button vom Benachrichtigungscenter eingebettet ist. Zwischen Uhr und Aeropeek-Button. Würde mich mal interessieren, ob man da auch eigene Anwendungen rein bekommt. Also nicht ins Benachrichtigungscenter sondern in diesen Buttonbereich der Taskleiste. Weil da gehen größere Symbole, nicht nur 16x16.