* Answer on message from Local.NetMail area
Hello!
Answer on message from [EMAIL PROTECTED] to fpc-devel@lists.
freepascal.org:
Can you add this changes? My last mail seems to be lost...
--- pmwin.pas.orig Sat Dec 7 14:56:34 2002
+++ pmwin.pas Tue Jan 14 22:03:48 2003
@@ -1013,6 +1013,7 @@
MS_VERTICALFLIP = $00000004;
MS_CONDITIONALCASCADE = $00000040;
+// Menu control messages
MM_INSERTITEM = $0180;
MM_DELETEITEM = $0181;
MM_QUERYITEM = $0182;
@@ -1033,6 +1034,7 @@
MM_SETITEMATTR = $0192;
MM_ISITEMVALID = $0193;
MM_QUERYITEMRECT = $0194;
+ MM_DELETEITEMBYPOS = $01f1; //UNDOCUMENTED
MM_QUERYDEFAULTITEMID = $0431;
MM_SETDEFAULTITEMID = $0432;
@@ -2375,6 +2377,39 @@
function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl;
function WinCreateWindow(hwndParent : cardinal;pszClass,pszName :
pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,
id : cardinal;pCtlData,pPresParams : pointer) : cardinal; cdecl;
function WinCreateWindow(hwndParent : cardinal;pszClass : cardinal;
pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,
hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer) :
cardinal; cdecl;
+
+{ Standard Window Classes}
+CONST
+ WC_FRAME =$ffff0001;
+ WC_COMBOBOX =$ffff0002;
+ WC_BUTTON =$ffff0003;
+ WC_MENU =$ffff0004;
+ WC_STATIC =$ffff0005;
+ WC_ENTRYFIELD =$ffff0006;
+ WC_LISTBOX =$ffff0007;
+ WC_SCROLLBAR =$ffff0008;
+ WC_TITLEBAR =$ffff0009;
+ WC_MLE =$ffff000A;
+ { 000B to 000F reserved }
+ WC_APPSTAT =$ffff0010;
+ WC_KBDSTAT =$ffff0011;
+ WC_PECIC =$ffff0012;
+ WC_DBE_KKPOPUP =$ffff0013;
+ { 0014 to 001F reserved }
+ WC_SPINBUTTON =$ffff0020;
+ { 0021 to 0024 reserved }
+ WC_CONTAINER =$ffff0025;
+ WC_SLIDER =$ffff0026;
+ WC_VALUESET =$ffff0027;
+ WC_NOTEBOOK =$ffff0028;
+ { 0029 to 002C used by PEN }
+ WC_PENFIRST =$ffff0029;
+ WC_PENLAST =$ffff002C;
+ { 002D to 0030 reserved }
+ { 0030 to 003F reserved }
+ WC_MMPMFIRST =$ffff0040;
+ WC_MMPMLAST =$ffff004f;
+
function WinCreateWCWindow(hwndParent : cardinal;pszClass :
cardinal;pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;
hwndOwner,hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer)
: cardinal; cdecl;
function WinEnableWindow(hwnd : cardinal;fEnable : longbool) :
longbool; cdecl;
function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl;
@@ -2667,6 +2702,7 @@
function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk :
PDesktop) : longbool; cdecl;
function WinRealizePalette(hwnd,hps : cardinal;var cclr : cardinal)
: longint; cdecl;
function WinRealizePalette(hwnd,hps : cardinal;pcclr : PCardinal) :
longint; cdecl;
+ function WinQuerySystemAtomTable: cardinal; cdecl;
function cardinalFROMMP(mp : pointer) : cardinal; cdecl;
function integer1FROMMP(mp : pointer) : word; cdecl;
function integer2FROMMP(mp : pointer) : word; cdecl;
@@ -2981,12 +3017,14 @@
function WinDeleteLibrary(hab,libhandle : cardinal) : longbool;
cdecl;external 'pmwin' index 722;
function WinLoadProcedure(hab,libhandle : cardinal;procname :
pchar) : proc; cdecl;external 'pmwin' index 986;
function WinLoadLibrary(hab : cardinal;libname : pchar) : cardinal;
cdecl;external 'pmwin' index 777;
+ function WinQuerySystemAtomTable: cardinal; cdecl; external 'pmwin'
index 830;
function WinSetDesktopBkgnd(hwndDesktop : cardinal;var dskNew :
TDesktop) : cardinal; cdecl;external 'pmwin' index 935;
function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew :
PDesktop) : cardinal; cdecl;external 'pmwin' index 935;
function WinQueryDesktopBkgnd(hwndDesktop : cardinal;var dsk :
TDesktop) : longbool; cdecl;external 'pmwin' index 936;
function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk :
PDesktop) : longbool; cdecl;external 'pmwin' index 936;
function WinRealizePalette(hwnd,hps : cardinal;var cclr : cardinal)
: longint; cdecl;external 'pmwin' index 941;
function WinRealizePalette(hwnd,hps : cardinal;pcclr : PCardinal) :
longint; cdecl;external 'pmwin' index 941;
+
function CardinalFromMP(MP: pointer) : cardinal;cdecl;
begin
CardinalFromMP:=cardinal(MP);
CU!
Yuri Prokushev
prokushev at freemail dot ru [http://sibyl.netlabs.org]
-----------
To unsubscribe yourself from this list, send the following message
to [EMAIL PROTECTED]
unsubscribe sibyl
end
