paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Make TrayIcon more configurable based on libraries and features provided by a distro. Issue #40629, patch by dbannon.

Browse Source
This commit is contained in:
Juha 2023-12-03 17:49:20 +02:00
parent 40421d987a
commit 425372ee74
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk2/gtk2wsfactory.pas
View File

@ -464,11 +464,17 @@ end;
function RegisterCustomTrayIcon: Boolean; alias : 'WSRegisterCustomTrayIcon';
begin
if UnityAppIndicatorInit then
RegisterWSComponent(TCustomTrayIcon, TUnityWSCustomTrayIcon)
else
RegisterWSComponent(TCustomTrayIcon, TGtk2WSCustomTrayIcon);
Result := True;
case UnityWSCtrls.GlobalUseAppInd of
UseAppIndAuto : if UnityAppIndicatorInit then
RegisterWSComponent(TCustomTrayIcon, TUnityWSCustomTrayIcon)
else
RegisterWSComponent(TCustomTrayIcon, TGtk2WSCustomTrayIcon);
UseAppIndYes : if UnityAppIndicatorInit then
RegisterWSComponent(TCustomTrayIcon, TUnityWSCustomTrayIcon)
else Result := false;
UseAppIndNo : RegisterWSComponent(TCustomTrayIcon, TGtk2WSCustomTrayIcon);
end;
end;
//ExtDlgs

8
lcl/interfaces/gtk2/unitywsctrls.pas
View File

@ -71,10 +71,16 @@ type
class function GetPosition(const {%H-}ATrayIcon: TCustomTrayIcon): TPoint; override;
end;
{ UnityAppIndicatorInit returns true if an AppIndicator library can be loaded }
type TUseAppIndInstruction = (UseAppIndYes, UseAppIndNo, UseAppIndAuto);
{ UnityAppIndicatorInit returns true if an AppIndicator library can be loaded }
function UnityAppIndicatorInit: Boolean;
var
// A Global used in RegisterCustomTrayIcon() and possibly set in higher level
// code to predetermine the SysTray model to use.
GlobalUseAppInd : TUseAppIndInstruction = UseAppIndAuto;
implementation
const