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

make TPopupNotifier.BidiMode as Application.BidiMode

Browse Source 
Just simple logical fix a crash ADragObjectCopy
This commit is contained in:
Zaher Dirkey 2022-03-18 18:18:54 +02:00
parent e727e9f13b
commit 76c95e8c47
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
//erase global variables (dragging stopped)
if ADragObjectCopy.AutoFree then
if (ADragObjectCopy <>nil) and ADragObjectCopy.AutoFree then
ADragObjectCopy.Free;
end;
end;

2
lcl/popupnotifier.pas
View File

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