paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince:

Browse Source 
*LOGFONT fixed, use unicode now
+few dialog style, ex style consts

git-svn-id: trunk@4673 -
This commit is contained in:
oro06 2006-09-21 14:44:56 +00:00
parent 66ebba7c5f
commit 56299d584f
3 changed files with 31 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wince/wininc/coredll.inc
View File

@ -2382,8 +2382,8 @@ function CreateFile(lpFileName:LPCWSTR; dwDesiredAccess:DWORD; dwShareMode:DWORD
function CreateFileW(lpFileName:LPCWSTR; dwDesiredAccess:DWORD; dwShareMode:DWORD; lpSecurityAttributes:LPSECURITY_ATTRIBUTES; dwCreationDisposition:DWORD;dwFlagsAndAttributes:DWORD; hTemplateFile:HANDLE):HANDLE; external KernelDLL name 'CreateFileW'; function CreateFileW(lpFileName:LPCWSTR; dwDesiredAccess:DWORD; dwShareMode:DWORD; lpSecurityAttributes:LPSECURITY_ATTRIBUTES; dwCreationDisposition:DWORD;dwFlagsAndAttributes:DWORD; hTemplateFile:HANDLE):HANDLE; external KernelDLL name 'CreateFileW';
function CreateFileMapping(hFile:HANDLE; lpFileMappingAttributes:LPSECURITY_ATTRIBUTES; flProtect:DWORD; dwMaximumSizeHigh:DWORD; dwMaximumSizeLow:DWORD;lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateFileMappingW'; function CreateFileMapping(hFile:HANDLE; lpFileMappingAttributes:LPSECURITY_ATTRIBUTES; flProtect:DWORD; dwMaximumSizeHigh:DWORD; dwMaximumSizeLow:DWORD;lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateFileMappingW';
function CreateFileMappingW(hFile:HANDLE; lpFileMappingAttributes:LPSECURITY_ATTRIBUTES; flProtect:DWORD; dwMaximumSizeHigh:DWORD; dwMaximumSizeLow:DWORD;lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateFileMappingW'; function CreateFileMappingW(hFile:HANDLE; lpFileMappingAttributes:LPSECURITY_ATTRIBUTES; flProtect:DWORD; dwMaximumSizeHigh:DWORD; dwMaximumSizeLow:DWORD;lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateFileMappingW';
function CreateFontIndirect(_para1:PLOGFONT):HFONT; external KernelDLL name 'CreateFontIndirectW'; function CreateFontIndirect(_para1:PLOGFONTW):HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateFontIndirectW(_para1:PLOGFONT):HFONT; external KernelDLL name 'CreateFontIndirectW'; function CreateFontIndirectW(_para1:PLOGFONTW):HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateIconIndirect(piconinfo:PICONINFO):HICON; external KernelDLL name 'CreateIconIndirect'; function CreateIconIndirect(piconinfo:PICONINFO):HICON; external KernelDLL name 'CreateIconIndirect';
function CreateMenu:HMENU; external KernelDLL name 'CreateMenu'; function CreateMenu:HMENU; external KernelDLL name 'CreateMenu';
function CreateMutex(lpMutexAttributes:LPSECURITY_ATTRIBUTES; bInitialOwner:WINBOOL; lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateMutexW'; function CreateMutex(lpMutexAttributes:LPSECURITY_ATTRIBUTES; bInitialOwner:WINBOOL; lpName:LPCWSTR):HANDLE; external KernelDLL name 'CreateMutexW';

30
rtl/wince/wininc/defines.inc
View File

@ -808,20 +808,23 @@
SS_USERITEM = $a; SS_USERITEM = $a;
SS_WHITEFRAME = $9; SS_WHITEFRAME = $9;
SS_WHITERECT = $6; SS_WHITERECT = $6;
DS_3DLOOK = $4; { Dialog styles }
DS_ABSALIGN = $1; DS_ABSALIGN = $1;
DS_CENTER = $800; DS_SYSMODAL = $2;
DS_CENTERMOUSE = $1000; DS_3DLOOK = $4;
DS_CONTEXTHELP = $2000; DS_FIXEDSYS = $8;
DS_CONTROL = $400; DS_NOFAILCREATE = $10;
DS_FIXEDSYS = $8; DS_LOCALEDIT = $20;
DS_LOCALEDIT = $20; DS_SETFONT = $40;
DS_MODALFRAME = $80; DS_MODALFRAME = $80;
DS_NOFAILCREATE = $10; DS_NOIDLEMSG = $100;
DS_NOIDLEMSG = $100;
DS_SETFONT = $40;
DS_SETFOREGROUND = $200; DS_SETFOREGROUND = $200;
DS_SYSMODAL = $2; DS_CONTROL = $400;
DS_CENTER = $800;
DS_CENTERMOUSE = $1000;
DS_CONTEXTHELP = $2000;
DS_NOCLOSEBTN = $4000;
{ CreateWindowEx } { CreateWindowEx }
WS_EX_LEFT = 0; WS_EX_LEFT = 0;
WS_EX_LTRREADING = 0; WS_EX_LTRREADING = 0;
@ -845,6 +848,7 @@
WS_EX_STATICEDGE = $20000; WS_EX_STATICEDGE = $20000;
WS_EX_APPWINDOW = $40000; WS_EX_APPWINDOW = $40000;
WS_EX_NOANIMATION = $4000000; WS_EX_NOANIMATION = $4000000;
WS_EX_NOACTIVATE = $8000000;
WS_EX_INK = $10000000; WS_EX_INK = $10000000;
WS_EX_ABOVESTARTUP = $20000000; WS_EX_ABOVESTARTUP = $20000000;
WS_EX_NODRAG = $40000000; WS_EX_NODRAG = $40000000;

18
rtl/wince/wininc/struct.inc
View File

@ -707,7 +707,7 @@
LPCHOOSECOLOR = ^TCHOOSECOLOR; LPCHOOSECOLOR = ^TCHOOSECOLOR;
PCHOOSECOLOR = ^TCHOOSECOLOR; PCHOOSECOLOR = ^TCHOOSECOLOR;
LOGFONT = record LOGFONTA = record
lfHeight : LONG; lfHeight : LONG;
lfWidth : LONG; lfWidth : LONG;
lfEscapement : LONG; lfEscapement : LONG;
@ -723,11 +723,10 @@
lfPitchAndFamily : BYTE; lfPitchAndFamily : BYTE;
lfFaceName : array[0..(LF_FACESIZE)-1] of TCHAR; lfFaceName : array[0..(LF_FACESIZE)-1] of TCHAR;
end; end;
LPLOGFONT = ^LOGFONT; TLOGFONTA = LOGFONTA;
TLOGFONT = LOGFONT; tagLOGFONTA = LOGFONTA;
TLOGFONTA = LOGFONT; NPLOGFONTA = ^LOGFONTA;
PLOGFONT = ^LOGFONT; PLOGFONTA = ^LOGFONTA;
PLOGFONTA = PLOGFONT;
LOGFONTW = record LOGFONTW = record
lfHeight: LONG; lfHeight: LONG;
@ -751,6 +750,13 @@
TLogFontW = LOGFONTW; TLogFontW = LOGFONTW;
PLogFontW = ^TLogFontW; PLogFontW = ^TLogFontW;
TLOGFONT = LOGFONTW;
LOGFONT = LOGFONTW;
tagLOGFONT = LOGFONTW;
LPLOGFONT = ^LOGFONTW;
PLOGFONT = ^LOGFONTW;
NPLOGFONT = ^LOGFONTW;
TCHOOSEFONTW = record //+commdlg TCHOOSEFONTW = record //+commdlg
lStructSize : DWORD; lStructSize : DWORD;
hwndOwner : HWND; hwndOwner : HWND;