paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* split propsheetheader in -A and -W variants.

Browse Source 
git-svn-id: trunk@49101 -
This commit is contained in:
marco 2021-04-02 14:54:40 +00:00
parent d712c64236
commit 787798e96f
1 changed files with 62 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6304,40 +6304,91 @@ Const
lpemptyrecord = ^emptyrecord; lpemptyrecord = ^emptyrecord;
HPROPSHEETPAGE = ^emptyrecord; HPROPSHEETPAGE = ^emptyrecord;
PROPSHEETHEADER = record PROPSHEETHEADERA = record
dwSize : DWORD; dwSize : DWORD;
dwFlags : DWORD; dwFlags : DWORD;
hwndParent : HWND; hwndParent : HWND;
hInstance : HINST; hInstance : HINST;
case longint of case longint of
0 : (hIcon : HICON); 0 : (hIcon : HICON);
1 : (pszIcon : LPCTSTR; 1 : (pszIcon : LPCSTR;
pszCaption : LPCTSTR; pszCaption : LPCSTR;
nPages : UINT; nPages : UINT;
case longint of case longint of
0 : (nStartPage : UINT); 0 : (nStartPage : UINT);
1 : (pStartPage : LPCTSTR; 1 : (pStartPage : LPCSTR;
case longint of case longint of
0 : (ppsp : LPCPROPSHEETPAGE); 0 : (ppsp : LPCPROPSHEETPAGE);
1 : (phpage : ^HPROPSHEETPAGE; 1 : (phpage : ^HPROPSHEETPAGE;
pfnCallback : PFNPROPSHEETCALLBACK; pfnCallback : PFNPROPSHEETCALLBACK;
case longint of case longint of
0 : (hbmWatermark : HBITMAP); 0 : (hbmWatermark : HBITMAP);
1 : (pszbmWatermark : LPCTSTR; 1 : (pszbmWatermark : LPCSTR;
hplWatermark : HPALETTE; hplWatermark : HPALETTE;
case longint of case longint of
0 : (hbmHeader : HBITMAP); 0 : (hbmHeader : HBITMAP);
1 : (pszbmHeader: PAnsiChar); 1 : (pszbmHeader: LPCStr);
); );
); );
); );
); );
end; end;
LPPROPSHEETHEADER = ^PROPSHEETHEADER; LPPROPSHEETHEADERA = ^PROPSHEETHEADERA;
LPCPROPSHEETHEADER = ^PROPSHEETHEADER; LPCPROPSHEETHEADERA = ^PROPSHEETHEADERA;
_PROPSHEETHEADER = PROPSHEETHEADER; _PROPSHEETHEADERA = PROPSHEETHEADERA;
TPROPSHEETHEADER = PROPSHEETHEADER; TPROPSHEETHEADERA = PROPSHEETHEADERA;
PPROPSHEETHEADER = ^PROPSHEETHEADER; PPROPSHEETHEADERA = ^PROPSHEETHEADERA;
PROPSHEETHEADERW = record
dwSize : DWORD;
dwFlags : DWORD;
hwndParent : HWND;
hInstance : HINST;
case longint of
0 : (hIcon : HICON);
1 : (pszIcon : LPCWSTR;
pszCaption : LPCWSTR;
nPages : UINT;
case longint of
0 : (nStartPage : UINT);
1 : (pStartPage : LPCWSTR;
case longint of
0 : (ppsp : LPCPROPSHEETPAGE);
1 : (phpage : ^HPROPSHEETPAGE;
pfnCallback : PFNPROPSHEETCALLBACK;
case longint of
0 : (hbmWatermark : HBITMAP);
1 : (pszbmWatermark : LPCWSTR;
hplWatermark : HPALETTE;
case longint of
0 : (hbmHeader : HBITMAP);
1 : (pszbmHeader: LPCWStr);
);
);
);
);
end;
LPPROPSHEETHEADERW = ^PROPSHEETHEADERW;
LPCPROPSHEETHEADERW = ^PROPSHEETHEADERW;
_PROPSHEETHEADERW = PROPSHEETHEADERW;
TPROPSHEETHEADERW = PROPSHEETHEADERW;
PPROPSHEETHEADERW = ^PROPSHEETHEADERW;
{$ifdef Unicode}
PROPSHEETHEADER = PROPSHEETHEADERW;
LPPROPSHEETHEADER = LPPROPSHEETHEADERW;
LPCPROPSHEETHEADER = LPCPROPSHEETHEADERW;
_PROPSHEETHEADER = _PROPSHEETHEADERW;
TPROPSHEETHEADER = TPROPSHEETHEADERW;
PPROPSHEETHEADER = PPROPSHEETHEADERW;
{$else}
PROPSHEETHEADER = PROPSHEETHEADERA;
LPPROPSHEETHEADER = LPPROPSHEETHEADERA;
LPCPROPSHEETHEADER = LPCPROPSHEETHEADERA;
_PROPSHEETHEADER = _PROPSHEETHEADERA;
TPROPSHEETHEADER = TPROPSHEETHEADERA;
PPROPSHEETHEADER = PPROPSHEETHEADERA;
{$endif}
{ PropertySheet callbacks } { PropertySheet callbacks }
LPFNADDPROPSHEETPAGE = function (_para1:HPROPSHEETPAGE; _para2:LPARAM):WINBOOL;stdcall; LPFNADDPROPSHEETPAGE = function (_para1:HPROPSHEETPAGE; _para2:LPARAM):WINBOOL;stdcall;