mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 20:49:49 +02:00
* Initial import
This commit is contained in:
yuri
parent
407c58529a
commit
eb94ab00cb
242
rtl/os2/pmwp.pas
Normal file
242
rtl/os2/pmwp.pas
Normal file
@ -0,0 +1,242 @@
|
||||
{****************************************************************************
|
||||
|
||||
$Id$
|
||||
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyrigth (c) 2003 by Yuri Prokushev (prokushev@freemail.ru)
|
||||
|
||||
OS/2 Presentation Manager Workplace functions and types.
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
****************************************************************************}
|
||||
unit pmwp;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
os2def, pmwin;
|
||||
|
||||
//*** Common types *******************************************************/
|
||||
|
||||
type
|
||||
HOBJECT=Cardinal;
|
||||
|
||||
//*** Object management calls ********************************************/
|
||||
|
||||
//*** Standard object classes *****************************************/
|
||||
|
||||
const
|
||||
CCHMAXCLASS = 3; // Length of a classname
|
||||
|
||||
QC_First = 0; // Codes for OA_QueryContent
|
||||
QC_Next = 1;
|
||||
QC_Last = 2;
|
||||
|
||||
LOCATION_DESKTOP = PChar($FFFF0001); // Current Desktop
|
||||
// use instead of <WP_DESKTOP>
|
||||
|
||||
//*** An object's appearance (icon or bitmap or outline) **************/
|
||||
|
||||
type
|
||||
OBJECTIMAGE=record // oimg
|
||||
hptrObject: Cardinal;
|
||||
end;
|
||||
POBJECTIMAGE=^OBJECTIMAGE;
|
||||
|
||||
//*** Class info structure returned by WinEnumObjectClasses ***********/
|
||||
type
|
||||
POBJCLASS=^OBJCLASS;
|
||||
OBJCLASS=record // ocls
|
||||
pNext: POBJCLASS; // Null for the last structure..
|
||||
pszClassName: PChar; // Class name
|
||||
pszModName: PChar; // Module name
|
||||
end;
|
||||
|
||||
//*** Workplace object management functions ***************************/
|
||||
|
||||
Function WinRegisterObjectClass(pszClassName,
|
||||
pszModName: PChar): Longbool; cdecl;
|
||||
external 'PMWP' index 200;
|
||||
|
||||
Function WinDeRegisterObjectClass(pszClassName: PChar): Longbool; cdecl;
|
||||
external 'PMWP' index 201;
|
||||
|
||||
Function WinReplaceObjectClass(pszOldClassName,
|
||||
pszNewClassName: PChar;
|
||||
fReplace: Longbool): Longbool; cdecl;
|
||||
external 'PMWP' index 219;
|
||||
|
||||
Function WinEnumObjectClasses(VAR apObjClass: OBJCLASS;
|
||||
VAR pulSize: Cardinal): Longbool; cdecl;
|
||||
external 'PMWP' index 205;
|
||||
|
||||
Function WinCreateObject(pszClassName,
|
||||
pszTitle,
|
||||
pszSetupString,
|
||||
pszLocation: PChar;
|
||||
ulFlags: Cardinal): HObject; cdecl;
|
||||
external 'PMWP' index 281;
|
||||
|
||||
const
|
||||
CO_FAILIFEXISTS = 0;
|
||||
CO_REPLACEIFEXISTS = 1;
|
||||
CO_UPDATEIFEXISTS = 2;
|
||||
|
||||
Function WinSetObjectData(aobject: HOBJECT;
|
||||
pszSetupString: PChar): Longbool; cdecl;
|
||||
external 'PMWP' index 250;
|
||||
|
||||
Function WinDestroyObject(aobject: HOBJECT): Longbool; cdecl;
|
||||
external 'PMWP' index 251;
|
||||
|
||||
Function WinQueryObject(pszObjectID: PChar): HObject; cdecl;
|
||||
external 'PMWP' index 252;
|
||||
|
||||
Function WinSaveObject(ahObject: HOBJECT;
|
||||
fAsync: Longbool): Longbool; cdecl;
|
||||
external 'PMWP' index 285;
|
||||
|
||||
Function WinOpenObject(ahObject: HOBJECT;
|
||||
ulView: Cardinal;
|
||||
Flag: Longbool): Longbool; cdecl;
|
||||
external 'PMWP' index 286;
|
||||
|
||||
Function WinMoveObject(hObjectofObject: HOBJECT;
|
||||
hObjectofDest: HOBJECT;
|
||||
ulReserved: Cardinal): HObject; cdecl;
|
||||
external 'PMWP' index 287;
|
||||
|
||||
Function WinCopyObject(hObjectofObject: HOBJECT;
|
||||
hObjectofDest: HOBJECT;
|
||||
ulReserved: Cardinal): HObject; cdecl;
|
||||
external 'PMWP' index 288;
|
||||
|
||||
Function WinCreateShadow(hObjectofObject: HOBJECT;
|
||||
hObjectofDest: HOBJECT;
|
||||
ulReserved: Cardinal): HObject; cdecl;
|
||||
external 'PMWP' index 289;
|
||||
|
||||
Function WinQueryActiveDesktopPathname(pszPathName: PChar;
|
||||
ulSize: Cardinal): Longbool; cdecl;
|
||||
external 'PMWP' index 262;
|
||||
|
||||
Function WinQueryObjectPath(ahobject: HOBJECT;
|
||||
pszPathName: PChar;
|
||||
ulSize: Cardinal): Longbool; cdecl;
|
||||
external 'PMWP' index 263;
|
||||
|
||||
Function WinRestartWPDServer(fState: Longbool): Cardinal; cdecl;
|
||||
external 'PMWP' index 463;
|
||||
|
||||
Function WinIsWPDServerReady: Longbool; cdecl;
|
||||
external 'PMWP' index 465;
|
||||
|
||||
Function WinRestartSOMDD(fState: Longbool): Cardinal; cdecl;
|
||||
external 'PMWP' index 464;
|
||||
|
||||
Function WinIsSOMDDReady: Longbool; cdecl;
|
||||
external 'PMWP' index 480;
|
||||
|
||||
//*** Object settings notebook page insertion structure ******************/
|
||||
|
||||
type
|
||||
PAGEINFO=record // pginf
|
||||
cb: Cardinal;
|
||||
hwndPage: HWnd;
|
||||
pfnwp: proc;
|
||||
resid: Cardinal;
|
||||
pCreateParams: Pointer;
|
||||
dlgid: Word;
|
||||
usPageStyleFlags: Word;
|
||||
usPageInsertFlags: Word;
|
||||
usSettingsFlags: Word;
|
||||
pszName: PChar;
|
||||
idDefaultHelpPanel: Word;
|
||||
usReserved2: Word;
|
||||
pszHelpLibraryName: PChar;
|
||||
pHelpSubtable: ^Word; // PHELPSUBTABLE when PMHELP.H is included
|
||||
hmodHelpSubtable: Cardinal;
|
||||
ulPageInsertId: Cardinal;
|
||||
end;
|
||||
PPAGEINFO=^PAGEINFO;
|
||||
|
||||
const
|
||||
SETTINGS_PAGE_NUMBERS = $01;
|
||||
|
||||
//*** Utility apis +******************************************************/
|
||||
|
||||
type
|
||||
ICONPOS=record // icp
|
||||
ptlIcon: POINTL; // Location
|
||||
szIdentity: Array[0..1-1] of Char; // Object identity string
|
||||
end;
|
||||
PICONPOS=^ICONPOS;
|
||||
|
||||
//*********************************************************************/
|
||||
Function WinSetFileIcon(pszFileName: PChar;
|
||||
var pIcon: ICONINFO): Longbool; cdecl;
|
||||
external 'PMWP' index 210;
|
||||
|
||||
Function WinFreeFileIcon(hptr: Cardinal): Longbool; cdecl;
|
||||
external 'PMWP' index 216;
|
||||
|
||||
Function WinLoadFileIcon(pszFileName: PChar;
|
||||
fPrivate: Longbool): Cardinal; cdecl;
|
||||
external 'PMWP' index 209;
|
||||
|
||||
Function WinStoreWindowPos(pszAppName,
|
||||
pszKeyName: PChar;
|
||||
ahwnd: HWND): Longbool; cdecl;
|
||||
external 'PMWP' index 207;
|
||||
|
||||
Function WinRestoreWindowPos(pszAppName,
|
||||
pszKeyName: PChar;
|
||||
ahwnd: HWND): Longbool; cdecl;
|
||||
external 'PMWP' index 208;
|
||||
|
||||
Function WinShutdownSystem(ahab: HAB;
|
||||
ahmq: HMQ): Longbool; cdecl;
|
||||
external 'PMWP' index 149;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
{
|
||||
// Not implemented/not documented APIs
|
||||
WinShutdownAndReboot PMWP 152 ?
|
||||
WinShutdown PMWP 153 ?
|
||||
OldWinCreateObject PMWP 202 ?
|
||||
WinRestartWorkplace PMWP 221 ?
|
||||
ShlGetUserWordPtr PMWP 224 ?
|
||||
WinUnlockSystem PMWP 282 ?
|
||||
WinLockupSystem PMWP 283 ?
|
||||
WinNotebookButtonFromID PMWP 511 ?
|
||||
WinWaitForShell PMWP 512 ?
|
||||
}
|
||||
|
||||
{
|
||||
// Not founded indexes
|
||||
Function WinSetFileIconN(pszFileName: PChar
|
||||
pIcnInfo: PICONINFO;
|
||||
ulIconIndex: Cardinal): Longbool; cdecl;
|
||||
external 'PMWP' index ???;
|
||||
|
||||
Function WinLoadFileIconN(pszFileName: PChar;
|
||||
fPrivate: Longbool,
|
||||
ulIconIndex: Cardinal): Cardinal; cdecl;
|
||||
external 'PMWP' index ???;
|
||||
}
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-03-28 13:36:02 yuri
|
||||
* Initial import
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user