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

LCL, Win32: cleaned up declarations available in FPC since 3.2.0, patch by lagprogramming, issue #40433

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-08-07 19:09:28 +03:00
parent 5fbeef0e07
commit 11130cc6b0
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/win32/win32callback.inc
View File

@ -890,19 +890,6 @@ begin
end; end;
end; end;
// FlashWindowEx is not (yet) in FPC
type
FLASHWINFO = record
cbSize: UINT;
hwnd: HWND;
dwFlags: DWORD;
uCount: UINT;
dwTimeout: DWORD;
end;
PFLASHWINFO = ^FLASHWINFO;
function FlashWindowEx(pfwi:PFLASHWINFO):WINBOOL; stdcall; external 'user32' name 'FlashWindowEx';
procedure TWindowProcHelper.HandleSetCursor; procedure TWindowProcHelper.HandleSetCursor;
var var
lControl: TControl; lControl: TControl;
@ -2023,10 +2010,6 @@ var
ACtl: TWinControl; ACtl: TWinControl;
LMouseEvent: TTRACKMOUSEEVENT; LMouseEvent: TTRACKMOUSEEVENT;
MaximizedActiveChild: WINBOOL; MaximizedActiveChild: WINBOOL;
{$IF NOT DECLARED(WM_DPICHANGED)} // WM_DPICHANGED was added in FPC 3.1.1
const
WM_DPICHANGED = $02E0;
{$ENDIF}
begin begin
try try
LMessage := Default(TLMessage); LMessage := Default(TLMessage);