paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 14:47:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'zaher-fixes' into 'main'

Browse Source 
make TPopupNotifier.BidiMode as Application.BidiMode

See merge request freepascal.org/lazarus/lazarus!83
This commit is contained in:
Juha Manninen 2022-03-23 09:15:29 +00:00
commit 8d60667e33
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dragmanager.inc
View File

@ -261,7 +261,7 @@ begin
finally finally
//erase global variables (dragging stopped) //erase global variables (dragging stopped)
if ADragObjectCopy.AutoFree then if (ADragObjectCopy <>nil) and ADragObjectCopy.AutoFree then
ADragObjectCopy.Free; ADragObjectCopy.Free;
end; end;
end; end;

2
lcl/popupnotifier.pas
View File

@ -451,6 +451,8 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
vNotifierForm := TNotifierForm.Create(nil); vNotifierForm := TNotifierForm.Create(nil);
if Application <> nil then
vNotifierForm.BidiMode := Application.BidiMode;
vNotifierForm.Visible := False; vNotifierForm.Visible := False;
end; end;