mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Build under Unix

Browse source
This commit is contained in:
Alexander Koblov 2024-01-14 15:56:10 +03:00
commit b220a50e90
1 changed files with 18 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/platform/uosforms.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
This unit contains platform depended functions.
Copyright (C) 2006-2022 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2006-2023 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -26,7 +26,7 @@ unit uOSForms;
interface
uses
LCLType, Forms, Classes, SysUtils, Controls,
LCLType, LMessages, Forms, Classes, SysUtils, Controls,
uGlobs, uShellContextMenu, uDrive, uFile, uFileSource;
type
@ -38,6 +38,8 @@ type
protected
procedure DoClose(var CloseAction: TCloseAction); override;
{$ENDIF}
protected
procedure WMSize(var Message: TLMSize); message LM_Size;
end;
{ TModalDialog }
@ -125,14 +127,14 @@ function DarkStyle: Boolean;
implementation
uses
ExtDlgs, LCLProc, Menus, Graphics, InterfaceBase, WSForms, LMessages, LCLIntf,
fMain, uConnectionManager, uShowMsg, uLng, uDCUtils
ExtDlgs, LCLProc, Menus, Graphics, InterfaceBase, WSForms, LCLIntf,
fMain, uConnectionManager, uShowMsg, uLng, uDCUtils, uDebug
{$IF DEFINED(MSWINDOWS)}
, LCLStrConsts, ComObj, ActiveX, DCOSUtils, uOSUtils, uFileSystemFileSource
, uTotalCommander, FileUtil, Windows, ShlObj, uShlObjAdditional
, uWinNetFileSource, uVfsModule, uMyWindows, DCStrUtils, uOleDragDrop
, uDCReadRSVG, uFileSourceUtil, uGdiPlusJPEG, uListGetPreviewBitmap
, Dialogs, Clipbrd, uDebug, JwaDbt, uThumbnailProvider, uShellFolder
, Dialogs, Clipbrd, JwaDbt, uThumbnailProvider, uShellFolder
, uRecycleBinFileSource, uWslFileSource, uDCReadHEIF, uDCReadWIC
, uShellFileSource, uPixMapManager
{$IF DEFINED(DARKWIN)}
@ -221,6 +223,17 @@ end;
{$ENDIF}
procedure TAloneForm.WMSize(var Message: TLMSize);
begin
// https://github.com/doublecmd/doublecmd/issues/1358
if (Message.Width > High(Int16)) or (Message.Height > High(Int16)) then
begin
DCDebug(ClassName + '.WMSize invalid size %u x %u', [Message.Width, Message.Height]);
Exit;
end;
inherited WMSize(Message);
end;
{ TModalDialog }
procedure TModalDialog.CloseModal;