TrayIcon zur Laufzeit "ändern", geht nicht ..

[corpsman]

Hallo Zusammen,
ich bastle gerade an einem kleinen Programm, bei welchem ich unter Linux Mint Mate zur Laufzeit das Trayicon Image anpassen will. Das Quellbild möchte ich aus einer entsprechenden ImageListe laden.

Also habe ich in das Popup menü meines Trayicons entsprechend angepasst und mir folgenden Code zusammen gegoogelt:

Code: Alles auswählen

Procedure TForm1.MenuItem6Click(Sender: TObject);
Var
  b: TBitmap;
  index, i: integer;
Begin
  MenuItem6.Checked := Not MenuItem6.Checked;
  b := TBitmap.Create;
  b.Width := ImageList1.Width;
  b.Height := ImageList1.Height;
  If MenuItem6.Checked Then Begin
    index := ILDND; // Bild DND
    // Wenn irgend ein Chat eine Ungelesene Nachricht hat, passen wir das Icon entsprechend an ..
    For i := 0 To High(fParticipants) Do Begin
      If fParticipants[i].nm Then Begin
        index := ILDNDCHats;   // Bild DND mit aktiven Chats
        break;
      End;
    End;
  End
  Else Begin
    index := ILChats;  // Default Bild
  End;
  b.canvas.Brush.Color := clWhite;
  b.canvas.Rectangle(-1, -1, 17, 17);
  b.TransparentColor := clWhite;
  b.Transparent := true;
  ImageList1.Draw(b.Canvas, 0, 0, index);
  TrayIcon1.Icon.Assign(b);
  TrayIcon1.InternalUpdate; // -- Das hier macht überhaupt keinen Unterschied
  TrayIcon1.Show;
  b.free;
End;  

Das Komische ist, wenn ich mehrfach auf das Icon Clicke wechselt er schon manchmal das Icon, aber eben nicht immer und definitiv nicht zuverlässig, und wenn dann immer ohne das die Transparents funktioniert :\.

Habt ihr noch Tipps ?

[corpsman]

Was richtig strange ist, wenn ich nen Haltepunkt in den Code mache und dann einfach wieder F9 Drücke, dann scheint es jedes mal zu gehen. Wird wohl irgend ein gesamt "invalidate" sein ...

[fliegermichl]

Vielleicht TrayIcon.Invalidate?

[corpsman]

*g* das war mein erster Versuch, aber das gibt es bei TTrayicon nicht und das laut google angegebene TTrayIcon.InternalUpdate macht gar nichts ..

By the way hab das nun mal auch unter Windows getestet, da funktioniert es alles wie es soll, ..

Dann muss ich wohl mal raus bekommen wie man da nen Bugreport einkippt ..

[af0815]

Ich gehe davon aus, das du beim Trayicon voll im Widgetset bist. Das macht die Sache nicht einfacher, auch für den Bugreport.

Man könnte nur versuchen die LCL mit Debuginfos zu bauen und auch schauen ob es da irgendeine Meldung auf der Konsole gibt. Kann ja sein, das das aktuelle Widgetset irgendwas nicht unterstützt, da ist es unter Linux leider etwas bunter.

[theo]

Ich gehe davon aus, das du beim Trayicon voll im Widgetset bist.

Ich denke es ist noch schlimmer!
Du bist beim Desktop Environment. Hier wohl Mate.
Man kann wohl von Glück sagen, wenn das überhaupt x-platform ein bisschen funktioniert.
z.B. "starting with GNOME 3.26, the developers removed the system tray functionality from the desktop environment."

Solche Dinge umschiffe ich meistens großräumig.