MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: tray icons' text was garbage

Browse Source
This commit is contained in:
Massimo Melina 2020-05-06 18:19:59 +02:00
parent 4fe544514a
commit a9f954e9b1
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
optionsDlg.dfm
View File

@ -129,7 +129,7 @@ object optionsFrm: ToptionsFrm
object Label7: TLabel
Left = 251
Top = 349
Width = 299
Width = 430
Height = 28
Hint = 'You also need to right click on the folder, then restrict access'
Anchors = [akLeft, akBottom]
@ -161,7 +161,7 @@ object optionsFrm: ToptionsFrm
WordWrap = True
end
object Label8: TLabel
Left = 336
Left = 345
Top = 20
Width = 28
Height = 14

21
traylib.pas
View File

@ -35,25 +35,26 @@ type
TM_ERROR = NIIF_ERROR
);
TNotifyIconDataEx = record
TNotifyIconData = record
cbSize: DWORD;
wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array [0..127] of AnsiChar;
szTip: array [0..127] of Char;
dwState: DWORD;
dwStateMask: DWORD;
szInfo: array[0..255] of AnsiChar;
szInfo: array[0..255] of Char;
uVersion: UINT;
szInfoTitle: array[0..63] of AnsiChar;
szInfoTitle: array[0..63] of Char;
dwInfoFlags: DWORD;
hBaloonIcon: HICON;
end;
TmyTrayIcon=class
private
icondata: TNotifyIconDataEx;
icondata: TNotifyIconData;
shown: boolean;
procedure wndProc(var Message: TMessage);
procedure notify(ev:TtrayEvent);
@ -114,8 +115,8 @@ end;
procedure TmyTrayIcon.update();
begin
if shown then
if not Shell_NotifyIcon(NIM_MODIFY, @icondata) then
Shell_NotifyIcon(NIM_ADD, @icondata);
if not Shell_NotifyIconW(NIM_MODIFY, @icondata) then
Shell_NotifyIconW(NIM_ADD, @icondata);
end; { update }
procedure TmyTrayIcon.setIcon(icon:Ticon);
@ -141,7 +142,7 @@ begin
s:=stringReplace(s,'&','&&',[rfReplaceAll]);
if length(s) > maxTipLength then setlength(s,maxTipLength);
if string(icondata.szTip) = s then exit;
strPLCopy(icondata.szTip, ansiString(s), sizeOf(icondata.szTip)-1);
strPLCopy(icondata.szTip, s, sizeOf(icondata.szTip)-1);
update();
end; // setTip
@ -200,8 +201,8 @@ case kind of
TM_INFO: icondata.dwInfoFlags:=NIIF_INFO;
else icondata.dwInfoFlags:=NIIF_NONE;
end;
strPLCopy(icondata.szInfo, ansiString(msg), sizeOf(icondata.szInfo)-1);
strPLCopy(icondata.szInfoTitle, ansiString(title), sizeOf(icondata.szInfoTitle)-1);
strPLCopy(icondata.szInfo, msg, sizeOf(icondata.szInfo)-1);
strPLCopy(icondata.szInfoTitle, title, sizeOf(icondata.szInfoTitle)-1);
icondata.uVersion:=round(secondsTimeout*1000);
icondata.uFlags := icondata.uFlags or NIF_INFO;
update();