FIX: Remove obsolete workaround (fixes #2726)

(cherry picked from commit 293a827834)
This commit is contained in:
Alexander Koblov 2026-01-25 16:55:09 +03:00
commit d6e348a3cf

View file

@ -979,11 +979,6 @@ var
LastActiveWindow: TCustomForm = nil;
{$ENDIF}
{$IF (DEFINED(LCLQT) or DEFINED(LCLQT5) or DEFINED(LCLQT6)) and not DEFINED(MSWINDOWS)}
var
CloseQueryResult: Boolean = False;
{$ENDIF}
{$IFDEF LCLGTK2}
var
MinimizedWindowButton: Boolean = False;
@ -1242,8 +1237,6 @@ begin
TDriveWatcher.AddObserver(@OnDriveWatcherEvent);
{$IF (DEFINED(LCLQT) or DEFINED(LCLQT5) or DEFINED(LCLQT6)) and not DEFINED(MSWINDOWS)}
// Fixes bug - [0000033] "DC cancels shutdown in KDE"
// http://doublecmd.sourceforge.net/mantisbt/view.php?id=33
QEventHook:= QObject_hook_create(TQtWidget(Self.Handle).Widget);
QObject_hook_hook_events(QEventHook, @QObjectEventFilter);
{$ENDIF}
@ -1873,10 +1866,6 @@ begin
end;
end;
end;
{$IF (DEFINED(LCLQT) or DEFINED(LCLQT5) or DEFINED(LCLQT6)) and not DEFINED(MSWINDOWS)}
CloseQueryResult:= CanClose;
{$ENDIF}
end;
procedure TfrmMain.FormDropFiles(Sender: TObject; const FileNames: array of String);
@ -7411,15 +7400,6 @@ begin
begin
ThemeServices.IntfDoOnThemeChange;
end;
QEventClose:
begin
TQtWidget(Self.Handle).SlotClose;
Result:= CloseQueryResult;
if Result then
QEvent_accept(Event)
else
QEvent_ignore(Event);
end;
end;
end;
{$ENDIF}