paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 01:30:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* flashwindowex, mantis #35048, patch by 440bx

Browse Source 
git-svn-id: trunk@41262 -
This commit is contained in:
marco 2019-02-09 12:07:30 +00:00
parent c617546fcd
commit 3a6d0d9d41
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win/wininc/defines.inc
View File

@ -5417,6 +5417,13 @@ Type
C3_LEXICAL = 1024;
FLASHW_STOP = $00000000;
FLASHW_CAPTION = $00000001;
FLASHW_TRAY = $00000002;
FLASHW_ALL = (FLASHW_CAPTION or FLASHW_TRAY);
FLASHW_TIMER = $00000004;
FLASHW_TIMERNOFG = $0000000C;
{ --------------------- old stuff, need to organize! --------------- }
{ BEGINNING of windowsx.h stuff from old headers: }
{ Not convertable by H2PAS

1
rtl/win/wininc/func.inc
View File

@ -1061,6 +1061,7 @@ procedure SHFreeNameMappings(_para1:HANDLE); external 'shell32' name 'SHFreeName
function SHGetFileInfo(_para1:LPCTSTR; _para2:DWORD; var _para3:SHFILEINFO; _para4:UINT; _para5:UINT):DWORD_PTR; external 'shell32' name 'SHGetFileInfo';
function SHGetPathFromIDList(_para1:LPCITEMIDLIST; _para2:LPTSTR):WINBOOL; external 'shell32' name 'SHGetPathFromIDList';
function SHGetSpecialFolderLocation(_para1:HWND; _para2:longint; var _para3:LPITEMIDLIST):HRESULT; external 'shell32' name 'SHGetSpecialFolderLocation';
function FlashWindowEx(pfwi : PFLASHWINFO) : BOOL; stdcall; external 'user32' name 'FlashWindowEx';
{ was missing, bug report 1808 PM }
{

10
rtl/win/wininc/struct.inc
View File

@ -821,6 +821,16 @@ Const
TDCB = DCB;
PDCB = ^DCB;
FLASHWINFO = record
cbSize : UINT;
hwnd : HWND;
dwFlags : DWORD;
uCount : UINT;
dwTimeOut : DWORD;
end;
TFLASHWINFO = FLASHWINFO;
PFLASHWINFO = ^FLASHWINFO;
const
bm_DCB_fBinary = $1;
bp_DCB_fBinary = 0;