paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 00:10:00 +01:00
Code Issues Packages Projects Releases Wiki Activity
4ba29cdbe1
fpc/rtl/morphos/mui.pas
Károly Balogh cea0af646c + Lot of fixes, cleanups and additions for MUI 
git-svn-id: trunk@1955 -
2005-12-15 10:47:14 +00:00

3849 lines
128 KiB
ObjectPascal
Raw Blame History

{
This file is part of the Free Pascal run time library.
Copyright (c) 2005 Karoly Balogh
muimaster.library interface unit for MorphOS/PowerPC
Based on work of Nils Sjoholm member of the Amiga RTL
development team.
MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu>
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.
**********************************************************************}
{$mode objfpc}
{$packrecords 2}
{$inline on}
unit mui;
interface
{
MUI - MagicUserInterface
(c) 1993-1997 Stefan Stuntz
Main Header File
Class Tree
rootclass (BOOPSI's base class)
+--Notify (implements notification mechanism)
! +--Family (handles multiple children)
! ! +--Menustrip (describes a complete menu strip)
! ! +--Menu (describes a single menu)
! ! \--Menuitem (describes a single menu item)
! +--Application (main class for all applications)
! +--Window (main class for all windows)
! ! \--Aboutmui (About window of MUI preferences)
! +--Area (base class for all GUI elements)
! +--Rectangle (spacing object)
! +--Balance (balancing separator bar)
! +--Image (image display)
! +--Bitmap (draws bitmaps)
! ! \--Bodychunk (makes bitmap from ILBM body chunk)
! +--Text (text display)
! +--Gadget (base class for intuition gadgets)
! ! +--String (string gadget)
! ! +--Boopsi (interface to BOOPSI gadgets)
! ! \--Prop (proportional gadget)
! +--Gauge (fule gauge)
! +--Scale (percentage scale)
! +--Colorfield (field with changeable color)
! +--List (line-oriented list)
! ! +--Floattext (special list with floating text)
! ! +--Volumelist (special list with volumes)
! ! +--Scrmodelist (special list with screen modes)
! ! \--Dirlist (special list with files)
! +--Numeric (base class for slider gadgets)
! ! +--Knob (turning knob)
! ! +--Levelmeter (level display)
! ! +--Numericbutton (space saving popup slider)
! ! \--Slider (traditional slider)
! +--Framedisplay (private)
! ! \--Popframe (private)
! +--Imagedisplay (private)
! ! \--Popimage (private)
! +--Pendisplay (displays a pen specification)
! ! \--Poppen (popup button to adjust a pen spec)
! +--Group (groups other GUI elements)
! +--Mccprefs (private)
! +--Register (handles page groups with titles)
! ! \--Penadjust (group to adjust a pen)
! +--Settingsgroup (private)
! +--Settings (private)
! +--Frameadjust (private)
! +--Imageadjust (private)
! +--Virtgroup (handles virtual groups)
! +--Scrollgroup (virtual groups with scrollbars)
! +--Scrollbar (traditional scrollbar)
! +--Listview (listview)
! +--Radio (radio button)
! +--Cycle (cycle gadget)
! +--Coloradjust (several gadgets to adjust a color)
! +--Palette (complete palette gadget)
! +--Popstring (base class for popup objects)
! +--Popobject (popup aynthing in a separate window)
! ! +--Poplist (popup a simple listview)
! ! \--Popscreen (popup a list of public screens)
! \--Popasl (popup an asl requester)
+--Semaphore (semaphore equipped objects)
+--Applist (private)
+--Dataspace (handles general purpose data spaces)
\--Configdata (private)
General Header File Information
All macro and structure definitions follow these rules:
Name Meaning
MUIC_<class> Name of a class
MUIM_<class>_<method> Method
MUIP_<class>_<method> Methods parameter structure
MUIV_<class>_<method>_<x> Special method value
MUIA_<class>_<attrib> Attribute
MUIV_<class>_<attrib>_<x> Special attribute value
MUIE_<error> Error return code from MUI_Error()
MUII_<name> Standard MUI image
MUIX_<code> Control codes for text strings
MUIO_<name> Object type for MUI_MakeObject()
MUIA_... attribute definitions are followed by a comment
consisting of the three possible letters I, S and G.
I: it's possible to specify this attribute at object creation time.
S: it's possible to change this attribute with SetAttrs().
G: it's possible to get this attribute with GetAttr().
Items marked with "Custom Class" are for use in custom classes only!
}
uses exec, intuition,utility,graphics{,iffparse};
{$WARNING IffParse required, look for FIX ME!!!}
var
MUIMasterBase : pLibrary;
const
MUIMASTER_NAME : PChar = 'muimaster.library';
MUIMASTER_VMIN = 11;
MUIMASTER_VLATEST = 19;
const
MUI_TRUE = 1;
MUI_FALSE = 0;
const
MUI_END = TAG_DONE; // this can be used instead of C End
{
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Warning, some of the macros in this header file work only with
muimaster.library V11 and above. If you recompile your programs,
be sure to open muimaster.library with MUIMASTER_VMIN as version number.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}
{
Config items for MUIM_GetConfigItem
}
MUICFG_PublicScreen = 36;
{
Black box specification structures for images, pens, frames
}
type
plongword = ^longword;
tMUI_PenSpec = record
buf : array[0..31] of char;
end;
pMUI_PenSpec = ^tMUI_PenSpec;
{
Public Screen Stuff
}
{
NOTE: This stuff is only included to allow compilation of the supplied
public screen manager for educational purposes. Everything
here is subject to change without notice and I guarantee to
do that just for fun!
More info can be found in the screen manager source file.
}
const
PSD_INITIAL_NAME : PChar = '(unnamed)';
PSD_INITIAL_TITLE : PChar = 'MUI Public Screen';
const
PSD_NAME_FRONTMOST : PChar = '<27>Frontmost<73>';
PSD_FILENAME_SAVE : PChar = 'envarc:mui/PublicScreens.iff';
PSD_FILENAME_USE : PChar = 'env:mui/PublicScreens.iff';
PSD_MAXLEN_NAME = 32;
PSD_MAXLEN_TITLE = 128;
PSD_MAXLEN_FONT = 48;
PSD_MAXLEN_BACKGROUND = 256;
PSD_NUMCOLS = 8;
PSD_MAXSYSPENS = 20;
PSD_NUMSYSPENS = 12;
PSD_MAXMUIPENS = 10;
PSD_NUMMUIPENS = 8;
type
tMUI_RGBcolor = record
red : LongWord;
green : LongWord;
blue : LongWord;
end;
pMUI_RGBColor = ^tMUI_RGBColor;
tMUI_PubScreenDesc = record
Version : LongInt;
Name : array[0..(PSD_MAXLEN_NAME)-1] of char;
Title : array[0..(PSD_MAXLEN_TITLE)-1] of char;
Font : array[0..(PSD_MAXLEN_FONT)-1] of char;
Background : array[0..(PSD_MAXLEN_BACKGROUND)-1] of char;
DisplayID : LongWord;
DisplayWidth : WORD;
DisplayHeight : WORD;
DisplayDepth : BYTE;
OverscanType : BYTE;
AutoScroll : BYTE;
NoDrag : BYTE;
Exclusive : BYTE;
Interleaved : BYTE;
SysDefault : BYTE;
Behind : BYTE;
AutoClose : BYTE;
CloseGadget : BYTE;
DummyWasForeign : BYTE;
SystemPens : array[0..(PSD_MAXSYSPENS)-1] of BYTE;
Reserved : array[0..((1 + (7 * 4)) - PSD_MAXSYSPENS)-1] of BYTE;
Palette : array[0..(PSD_NUMCOLS)-1] of tMUI_RGBcolor;
rsvd : array[0..(PSD_MAXSYSPENS - PSD_NUMCOLS)-1] of tMUI_RGBcolor;
rsvd2 : array[0..(PSD_MAXMUIPENS)-1] of tMUI_PenSpec;
Changed : LongInt;
UserData : Pointer;
end;
pMUI_PubScreenDesc = ^tMUI_PubScreenDesc;
tMUIS_InfoClient = record
node : tMinNode;
task : PTask;
sigbit : LongWord;
end;
pMUIS_InfoClient = ^tMUIS_InfoClient;
{ ** Object Types for MUI_MakeObject() }
{ ************************************************************************* }
const
MUIO_Label = 1; { PChar label, LongWord flags }
MUIO_Button = 2; { PChar label }
MUIO_Checkmark = 3; { PChar label }
MUIO_Cycle = 4; { PChar label, PChar entries }
MUIO_Radio = 5; { PChar label, PChar entries }
MUIO_Slider = 6; { PChar label, LongInt min, LongInt max }
MUIO_String = 7; { PChar label, LongInt maxlen }
MUIO_PopButton = 8; { PChar imagespec }
MUIO_HSpace = 9; { LongInt space }
MUIO_VSpace = 10; { LongInt space }
MUIO_HBar = 11; { LongInt space }
MUIO_VBar = 12; { LongInt space }
MUIO_MenustripNM = 13; { struct NewMenu nm, LongWord flags }
MUIO_Menuitem = 14; { PChar label, PChar shortcut, LongWord flags, LongWord data }
MUIO_BarTitle = 15; { PChar label }
MUIO_NumericButton = 16; { PChar label, LongInt min, LongInt max, PChar format }
MUIO_Menuitem_CopyStrings = 1 shl 30;
MUIO_Label_SingleFrame = 1 shl 8;
MUIO_Label_DoubleFrame = 1 shl 9;
MUIO_Label_LeftAligned = 1 shl 10;
MUIO_Label_Centered = 1 shl 11;
MUIO_Label_FreeVert = 1 shl 12;
MUIO_MenustripNM_CommandKeyCheck = 1 shl 0; { check for "localized" menu items such as "O\0Open" }
{ ** ARexx Interface }
{ ************************************************************************* }
type
tMUI_Command = record
mc_Name : Pchar;
mc_Template : Pchar;
mc_Parameters : LongInt;
mc_Hook : PHook;
mc_Reserved : array[0..4] of LongInt;
end;
pMUI_Command = ^tMUI_Command;
const
MC_TEMPLATE_ID = -1; { MC_TEMPLATE_ID : PCHar = not(0); }
MUI_RXERR_BADDEFINITION = -1;
MUI_RXERR_OUTOFMEMORY = -2;
MUI_RXERR_UNKNOWNCOMMAND = -3;
MUI_RXERR_BADSYNTAX = -4;
{ ** Return values for MUI_Error() }
{ ************************************************************************* }
const
MUIE_OK = 0;
MUIE_OutOfMemory = 1;
MUIE_OutOfGfxMemory = 2;
MUIE_InvalidWindowObject = 3;
MUIE_MissingLibrary = 4;
MUIE_NoARexx = 5;
MUIE_SingleTask = 6;
{ ** Standard MUI Images & Backgrounds }
{ ************************************************************************* }
const
MUII_WindowBack = 0; { These images are configured }
MUII_RequesterBack = 1; { with the preferences program. }
MUII_ButtonBack = 2;
MUII_ListBack = 3;
MUII_TextBack = 4;
MUII_PropBack = 5;
MUII_PopupBack = 6;
MUII_SelectedBack = 7;
MUII_ListCursor = 8;
MUII_ListSelect = 9;
MUII_ListSelCur = 10;
MUII_ArrowUp = 11;
MUII_ArrowDown = 12;
MUII_ArrowLeft = 13;
MUII_ArrowRight = 14;
MUII_CheckMark = 15;
MUII_RadioButton = 16;
MUII_Cycle = 17;
MUII_PopUp = 18;
MUII_PopFile = 19;
MUII_PopDrawer = 20;
MUII_PropKnob = 21;
MUII_Drawer = 22;
MUII_HardDisk = 23;
MUII_Disk = 24;
MUII_Chip = 25;
MUII_Volume = 26;
MUII_RegisterBack = 27;
MUII_Network = 28;
MUII_Assign = 29;
MUII_TapePlay = 30;
MUII_TapePlayBack = 31;
MUII_TapePause = 32;
MUII_TapeStop = 33;
MUII_TapeRecord = 34;
MUII_GroupBack = 35;
MUII_SliderBack = 36;
MUII_SliderKnob = 37;
MUII_TapeUp = 38;
MUII_TapeDown = 39;
MUII_PageBack = 40;
MUII_ReadListBack = 41;
MUII_PopFont = 42;
MUII_ImageButtonBack = 43;
MUII_ImageSelectedBack = 44;
MUII_GaugeFull = 45;
MUII_GaugeEmpty = 46;
MUII_Menudisplay = 47;
MUII_PullOpen = 48;
MUII_StringBack = 49;
MUII_StringActiveBack = 50;
MUII_Count = 51;
MUII_BACKGROUND = 128; { These are direct color }
MUII_SHADOW = 129; { combinations and are not }
MUII_SHINE = 130; { affected by users prefs. }
MUII_FILL = 131;
MUII_SHADOWBACK = 132; { Generally, you should }
MUII_SHADOWFILL = 133; { avoid using them. Better }
MUII_SHADOWSHINE = 134; { use one of the customized }
MUII_FILLBACK = 135; { images above. }
MUII_FILLSHINE = 136;
MUII_SHINEBACK = 137;
MUII_FILLBACK2 = 138;
MUII_HSHINEBACK = 139;
MUII_HSHADOWBACK = 140;
MUII_HSHINESHINE = 141;
MUII_HSHADOWSHADOW = 142;
MUII_MARKSHINE = 143;
MUII_MARKHALFSHINE = 144;
MUII_MARKBACKGROUND = 145;
MUII_BARBLOCK = 146;
MUII_BARDETAIL = 147;
MUII_LASTPAT = 147;
{ ** Special values for some methods }
{ ************************************************************************* }
const
MUIV_TriggerValue = $49893131;
MUIV_NotTriggerValue = $49893133;
MUIV_EveryTime = $49893131;
MUIV_Notify_Self = 1;
MUIV_Notify_Window = 2;
MUIV_Notify_Application = 3;
MUIV_Notify_Parent = 4;
MUIV_Notify_ParentParent = 5;
MUIV_Notify_ParentParentParent = 6;
const
MUIV_Application_ReturnID_Quit = -1;
MUIV_List_Insert_Top = 0;
MUIV_List_Insert_Active = -1;
MUIV_List_Insert_Sorted = -2;
MUIV_List_Insert_Bottom = -3;
MUIV_List_Remove_First = 0;
MUIV_List_Remove_Active = -1;
MUIV_List_Remove_Last = -2;
MUIV_List_Remove_Selected = -3;
MUIV_List_Select_Off = 0;
MUIV_List_Select_On = 1;
MUIV_List_Select_Toggle = 2;
MUIV_List_Select_Ask = 3;
MUIV_List_GetEntry_Active = -1;
MUIV_List_EditEntry_Active = -1;
MUIV_List_Select_Active = -1;
MUIV_List_Select_All = -2;
MUIV_List_Redraw_Active = -1;
MUIV_List_Redraw_All = -2;
MUIV_List_Move_Top = 0;
MUIV_List_Move_Active = -1;
MUIV_List_Move_Bottom = -2;
MUIV_List_Move_Next = -3; { only valid for second parameter }
MUIV_List_Move_Previous = -4; { only valid for second parameter }
MUIV_List_Exchange_Top = 0;
MUIV_List_Exchange_Active = -1;
MUIV_List_Exchange_Bottom = -2;
MUIV_List_Exchange_Next = -3; { only valid for second parameter }
MUIV_List_Exchange_Previous = -4; { only valid for second parameter }
MUIV_List_Jump_Top = 0;
MUIV_List_Jump_Active = -1;
MUIV_List_Jump_Bottom = -2;
MUIV_List_Jump_Up = -4;
MUIV_List_Jump_Down = -3;
MUIV_List_NextSelected_Start = -1;
MUIV_List_NextSelected_End = -1;
MUIV_DragQuery_Refuse = 0;
MUIV_DragQuery_Accept = 1;
MUIV_DragReport_Abort = 0;
MUIV_DragReport_Continue = 1;
MUIV_DragReport_Lock = 2;
MUIV_DragReport_Refresh = 3;
MUIV_CreateBubble_DontHidePointer = (1<<0);
MUIV_Application_OCW_ScreenPage = (1<<1); { show just the screen page of the config window }
MUIV_ContextMenuBuild_Default = $ffffffff;
{ FIX ME!!! #define MUIV_PushMethod_Delay(millis) MIN(0x0ffffff0,(((ULONG)millis)<<8)) }
MUIV_Family_GetChild_First = 0;
MUIV_Family_GetChild_Last = -1;
MUIV_Family_GetChild_Next = -2;
MUIV_Family_GetChild_Previous = -3;
MUIV_Family_GetChild_Iterate = -4;
MUIV_Group_GetChild_First = MUIV_Family_GetChild_First;
MUIV_Group_GetChild_Last = MUIV_Family_GetChild_Last;
MUIV_Group_GetChild_Next = MUIV_Family_GetChild_Next;
MUIV_Group_GetChild_Previous = MUIV_Family_GetChild_Previous;
MUIV_Group_GetChild_Iterate = MUIV_Family_GetChild_Iterate;
{ ** Control codes for text strings }
{ ************************************************************************* }
const
MUIX_R = #27+'r'; { right justified }
MUIX_C = #27+'c'; { centered }
MUIX_L = #27+'l'; { left justified }
MUIX_N = #27+'n'; { normal }
MUIX_B = #27+'b'; { bold }
MUIX_I = #27+'i'; { italic }
MUIX_U = #27+'u'; { underlined }
MUIX_PT = #27+'2'; { text pen }
MUIX_PH = #27+'8'; { highlight text pen }
{ ** Parameter structures for some classes }
{ ************************************************************************* }
{$WARNING Clean this mess... }
type
tMUI_Palette_Entry = record
mpe_ID : LongInt;
mpe_Red : LongWord;
mpe_Green : LongWord;
mpe_Blue : LongWord;
mpe_Group : LongInt;
end;
pMUI_Palette_Entry = ^tMUI_Palette_Entry;
const
MUIV_Palette_Entry_End = (-1);
{ }
{ Application Input Handler }
{ }
{ see below }
type
tMUI_InputHandlerNode = record
ihn_Node : tMinNode;
ihn_Object : pObject_;
ihn_stuff : record
case longint of
0 : ( ihn_sigs : LongWord );
1 : ( ihn_timer : record
ihn_millis : WORD;
ihn_current : WORD;
end );
end;
ihn_Flags : LongWord;
ihn_Method : LongWord;
end;
pMUI_InputHandlerNode = ^tMUI_InputHandlerNode;
const
{ ihn_Signals = ihn_stuff.ihn_sigs;
ihn_Millis = ihn_stuff.(ihn_timer.ihn_millis);
ihn_Current = ihn_stuff.(ihn_timer.ihn_current); }
{ Flags for ihn_Flags }
{ set ihn_Ticks to number of 1/100 sec ticks you want to be triggered }
MUIIHNF_TIMER = 1 shl 0;
{ }
{ Window Event Handler }
{ }
{ don't touch! }
{ event handlers are inserted according to their priority. }
{ certain flags, see below for definitions. }
{ object which should receive MUIM_HandleEvent. }
{ if !=NULL, MUIM_HandleEvent is invoked on exactly this class with CoerceMethod(). }
{ one or more IDCMP flags this handler should react on. }
type
tMUI_EventHandlerNode = record
ehn_Node : tMinNode;
ehn_Reserved : BYTE;
ehn_Priority : BYTE;
ehn_Flags : WORD;
ehn_Object : pObject_;
ehn_Class : PIClass;
ehn_Events : LongWord;
end;
pMUI_EventHandlerNode = ^tMUI_EventHandlerNode;
{ flags for ehn_Flags }
const
MUI_EHF_ALWAYSKEYS = 1 shl 0;
{ other values reserved for future use }
{ return values for MUIM_HandleEvent (bit-masked, all other bits must be 0) }
{ stop MUI from calling other handlers }
MUI_EventHandlerRC_Eat = 1 shl 0;
{ }
{ List Position Test }
{ }
{ number of entry, -1 if mouse not over valid entry }
{ numer of column, -1 if no valid column }
{ see below }
{ x offset of mouse click relative to column start }
{ y offset of mouse click from center of line
(negative values mean click was above center,
positive values mean click was below center) }
type
tMUI_List_TestPos_Result = record
entry : LongInt;
column : WORD;
flags : WORD;
xoffset : WORD;
yoffset : WORD;
end;
pMUI_List_TestPos_Result = ^tMUI_List_TestPos_Result;
const
MUI_LPR_ABOVE = 1 shl 0;
MUI_LPR_BELOW = 1 shl 1;
MUI_LPR_LEFT = 1 shl 2;
MUI_LPR_RIGHT = 1 shl 3;
{
For Boopsi Image Implementors Only:
If MUI is using a boopsi image object, it will send a special method
immediately after object creation. This method has a parameter structure
where the boopsi can fill in its minimum and maximum size and learn if
its used in a horizontal or vertical context.
The boopsi image must use the method id (MUIM_BoopsiQuery) as return
value. That's how MUI sees that the method is implemented.
Note: MUI does not depend on this method. If the boopsi image doesn't
implement it, minimum size will be 0 and maximum size unlimited.
}
{ this is send to the boopsi and }
const
MUIM_BoopsiQuery = $80427157;
{ must be used as return value }
{ parameter structure }
{ always MUIM_BoopsiQuery }
{ obsolete, use mbq_RenderInfo }
{ read only, see below }
{ write only, fill in min width }
{ write only, fill in min height }
{ write only, fill in max width }
{ write only, fill in max height }
{ write only, fill in def width }
{ write only, fill in def height }
{ read only, display context }
{ may grow in future ... }
type
tMUI_RenderInfo = record
mri_WindowObject : pObject_;
mri_Screen : PScreen;
mri_DrawInfo : PDrawInfo;
mri_Pens : ^WORD;
mri_Window : PWindow;
mri_RastPort : PRastPort;
mri_Flags : LongWord;
end;
pMUI_RenderInfo = ^tMUI_RenderInfo;
type
tMUI_BoopsiQuery = record
mbq_MethodID : LongWord;
mbq_Screen : PScreen;
mbq_Flags : LongWord;
mbq_MinWidth : LongInt;
mbq_MinHeight : LongInt;
mbq_MaxWidth : LongInt;
mbq_MaxHeight : LongInt;
mbq_DefWidth : LongInt;
mbq_DefHeight : LongInt;
mbq_RenderInfo : PMUI_RenderInfo;
end;
pMUI_BoopsiQuery = ^tMUI_BoopsiQuery;
{ old structure name }
MUIP_BoopsiQuery = tMUI_BoopsiQuery;
const
{ object used in a horizontal }
MBQF_HORIZ = 1 shl 0;
{ context (else vertical) }
{ use this for unlimited MaxWidth/Height }
MBQ_MUI_MAXMAX = 10000;
{ ** Notify }
{ ************************************************************************* }
const
MUIC_Notify : PChar = 'Notify.mui';
{ ** Methods ** }
const
MUIM_CallHook = $8042b96b; { V4 }
MUIM_Export = $80420f1c; { V12 }
MUIM_FindUData = $8042c196; { V8 }
MUIM_GetConfigItem = $80423edb; { V11 }
MUIM_GetUData = $8042ed0c; { V8 }
MUIM_Import = $8042d012; { V12 }
MUIM_KillNotify = $8042d240; { V4 }
MUIM_KillNotifyObj = $8042b145; { V16 }
MUIM_MultiSet = $8042d356; { V7 }
MUIM_NoNotifySet = $8042216f; { V9 }
MUIM_Notify = $8042c9cb; { V4 }
MUIM_Set = $8042549a; { V4 }
MUIM_SetAsString = $80422590; { V4 }
MUIM_SetUData = $8042c920; { V8 }
MUIM_SetUDataOnce = $8042ca19; { V11 }
MUIM_WriteLong = $80428d86; { V6 }
MUIM_WriteString = $80424bf4; { V6 }
type
tMUIP_CallHook = record { ... }
MethodID : LongWord;
Hook : PHook;
param1 : LongWord;
end;
pMUIP_CallHook = ^tMUIP_CallHook;
tMUIP_Export = record
MethodID : LongWord;
dataspace : pObject_;
end;
pMUIP_Export = ^tMUIP_Export;
tMUIP_FindUData = record
MethodID : LongWord;
udata : LongWord;
end;
pMUIP_FindUData = ^tMUIP_FindUData;
tMUIP_GetConfigItem = record
MethodID : LongWord;
id : LongWord;
storage : PLongWord;
end;
pMUIP_GetConfigItem = ^tMUIP_GetConfigItem;
tMUIP_GetUData = record
MethodID : LongWord;
udata : LongWord;
attr : LongWord;
storage : PLongWord;
end;
pMUIP_GetUData = ^tMUIP_GetUData;
tMUIP_Import = record
MethodID : LongWord;
dataspace : pObject_;
end;
pMUIP_Import = ^tMUIP_Import;
tMUIP_KillNotify = record
MethodID : LongWord;
TrigAttr : LongWord;
end;
pMUIP_KillNotify = ^tMUIP_KillNotify;
tMUIP_KillNotifyObj = record
MethodID : LongWord;
TrigAttr : LongWord;
dest : pObject_;
end;
pMUIP_KillNotifyObj = ^tMUIP_KillNotifyObj;
tMUIP_MultiSet = record { ... }
MethodID : LongWord;
attr : LongWord;
val : LongWord;
obj : Pointer;
end;
pMUIP_MultiSet = ^tMUIP_MultiSet;
tMUIP_NoNotifySet = record { ... }
MethodID : LongWord;
attr : LongWord;
format : Pchar;
val : LongWord;
end;
pMUIP_NoNotifySet = ^tMUIP_NoNotifySet;
tMUIP_Notify = record { ... }
MethodID : LongWord;
TrigAttr : LongWord;
TrigVal : LongWord;
DestObj : Pointer;
FollowParams : LongWord;
end;
pMUIP_Notify = ^tMUIP_Notify;
tMUIP_Set = record
MethodID : LongWord;
attr : LongWord;
val : LongWord;
end;
pMUIP_Set = ^tMUIP_Set;
tMUIP_SetAsString = record { ... }
MethodID : LongWord;
attr : LongWord;
format : Pchar;
val : LongWord;
end;
pMUIP_SetAsString = ^tMUIP_SetAsString;
tMUIP_SetUData = record
MethodID : LongWord;
udata : LongWord;
attr : LongWord;
val : LongWord;
end;
pMUIP_SetUData = ^tMUIP_SetUData;
tMUIP_SetUDataOnce = record
MethodID : LongWord;
udata : LongWord;
attr : LongWord;
val : LongWord;
end;
pMUIP_SetUDataOnce = ^tMUIP_SetUDataOnce;
tMUIP_WriteLong = record
MethodID : LongWord;
val : LongWord;
memory : PLongWord;
end;
pMUIP_WriteLong = ^tMUIP_WriteLong;
tMUIP_WriteString = record
MethodID : LongWord;
str : Pchar;
memory : Pchar;
end;
pMUIP_WriteString = ^tMUIP_WriteString;
{ ** Attributes ** }
const
MUIA_ApplicationObject = $8042d3ee; { V4 ..g Object }
MUIA_AppMessage = $80421955; { V5 ..g struct AppMessage }
MUIA_HelpLine = $8042a825; { V4 isg LongInt }
MUIA_HelpNode = $80420b85; { V4 isg PChar }
MUIA_NoNotify = $804237f9; { V7 .s. BOOL }
MUIA_NoNotifyMethod = $80420a74; { V20 .s. LongWord }
MUIA_ObjectID = $8042d76e; { V11 isg LongWord }
MUIA_Parent = $8042e35f; { V11 ..g Object }
MUIA_Revision = $80427eaa; { V4 ..g LongInt }
MUIA_UserData = $80420313; { V4 isg LongWord }
MUIA_Version = $80422301; { V4 ..g LongInt }
{ ** Family }
{ ************************************************************************* }
const
MUIC_Family : PChar = 'Family.mui';
{ ** Methods ** }
const
MUIM_Family_AddHead = $8042e200; { V8 }
MUIM_Family_AddTail = $8042d752; { V8 }
MUIM_Family_Insert = $80424d34; { V8 }
MUIM_Family_Remove = $8042f8a9; { V8 }
MUIM_Family_Sort = $80421c49; { V8 }
MUIM_Family_Transfer = $8042c14a; { V8 }
type
tMUIP_Family_AddHead = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_Family_AddHead = ^tMUIP_Family_AddHead;
tMUIP_Family_AddTail = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_Family_AddTail = ^tMUIP_Family_AddTail;
tMUIP_Family_Insert = record
MethodID : LongWord;
obj : pObject_;
pred : pObject_;
end;
pMUIP_Family_Insert = ^tMUIP_Family_Insert;
tMUIP_Family_Remove = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_Family_Remove = ^tMUIP_Family_Remove;
tMUIP_Family_Sort = record
MethodID : LongWord;
obj : array[0..0] of pObject_;
end;
pMUIP_Family_Sort = ^tMUIP_Family_Sort;
tMUIP_Family_Transfer = record
MethodID : LongWord;
family : pObject_;
end;
pMUIP_Family_Transfer = ^tMUIP_Family_Transfer;
{ ** Attributes ** }
const
MUIA_Family_Child = $8042c696; { V8 i.. Object }
MUIA_Family_List = $80424b9e; { V8 ..g struct MinList }
{ ** Menustrip }
{ ************************************************************************* }
const
MUIC_Menustrip : PChar = 'Menustrip.mui';
{ ** Methods ** }
const
MUIM_Menustrip_ExitChange = $8042ce4d; { V20 }
MUIM_Menustrip_InitChange = $8042dcd9; { V20 }
type
tMUIP_Menustrip_ExitChange = record
MethodID : LongWord;
end;
pMUIP_Menustrip_ExitChange = ^tMUIP_Menustrip_ExitChange;
tMUIP_Menustrip_InitChange = record
MethodID : LongWord;
end;
pMUIP_Menustrip_InitChange = ^tMUIP_Menustrip_InitChange;
{ ** Attributes ** }
const
MUIA_Menustrip_Enabled = $8042815b; { V8 isg BOOL }
{ ** Menu }
{ ************************************************************************* }
const
MUIC_Menu : PChar = 'Menu.mui';
{ ** Attributes ** }
const
MUIA_Menu_Enabled = $8042ed48; { V8 isg BOOL }
MUIA_Menu_Title = $8042a0e3; { V8 isg PChar }
{ ** Menuitem }
{ ************************************************************************* }
const
MUIC_Menuitem : PChar = 'Menuitem.mui';
{ ** Methods ** }
{ ** Attributes ** }
const
MUIA_Menuitem_Checked = $8042562a; { V8 isg BOOL }
MUIA_Menuitem_Checkit = $80425ace; { V8 isg BOOL }
MUIA_Menuitem_CommandString = $8042b9cc; { V16 isg BOOL }
MUIA_Menuitem_Enabled = $8042ae0f; { V8 isg BOOL }
MUIA_Menuitem_Exclude = $80420bc6; { V8 isg LongInt }
MUIA_Menuitem_Shortcut = $80422030; { V8 isg PChar }
MUIA_Menuitem_Title = $804218be; { V8 isg PChar }
MUIA_Menuitem_Toggle = $80424d5c; { V8 isg BOOL }
MUIA_Menuitem_Trigger = $80426f32; { V8 ..g struct MenuItem }
const
MUIV_Menuitem_Shortcut_Check = -(1);
{ ** Application }
{ ************************************************************************* }
const
MUIC_Application : PChar = 'Application.mui';
{ ** Methods ** }
const
MUIM_Application_AboutMUI = $8042d21d; { V14 }
MUIM_Application_AddInputHandler = $8042f099; { V11 }
MUIM_Application_BuildSettingsPanel = $8042b58f; { V20 }
MUIM_Application_CheckRefresh = $80424d68; { V11 }
MUIM_Application_DefaultConfigItem = $8042d934; { V20 }
MUIM_Application_InputBuffered = $80427e59; { V4 }
MUIM_Application_Load = $8042f90d; { V4 }
MUIM_Application_NewInput = $80423ba6; { V11 }
MUIM_Application_OpenConfigWindow = $804299ba; { V11 }
MUIM_Application_PushMethod = $80429ef8; { V4 }
MUIM_Application_RemInputHandler = $8042e7af; { V11 }
MUIM_Application_ReturnID = $804276ef; { V4 }
MUIM_Application_Save = $804227ef; { V4 }
MUIM_Application_SetConfigItem = $80424a80; { V11 }
MUIM_Application_ShowHelp = $80426479; { V4 }
type
tMUIP_Application_AboutMUI = record
MethodID : LongWord;
refwindow : pObject_;
end;
pMUIP_Application_AboutMUI = ^tMUIP_Application_AboutMUI;
tMUIP_Application_AddInputHandler = record
MethodID : LongWord;
ihnode : PMUI_InputHandlerNode;
end;
pMUIP_Application_AddInputHandler = ^tMUIP_Application_AddInputHandler;
tMUIP_Application_BuildSettingsPanel = record
MethodID : LongWord;
number: LongWord;
end;
pMUIP_Application_BuildSettingsPanel = ^tMUIP_Application_BuildSettingsPanel;
tMUIP_Application_CheckRefresh = record
MethodID : LongWord;
end;
pMUIP_Application_CheckRefresh = ^tMUIP_Application_CheckRefresh;
tMUIP_Application_DefaultConfigItem = record
MethodID : LongWord;
cfgid : LongWord;
end;
pMUIP_Application_DefaultConfigItem = ^tMUIP_Application_DefaultConfigItem;
tMUIP_Application_GetMenuCheck = record
MethodID : LongWord;
MenuID : LongWord;
end;
pMUIP_Application_GetMenuCheck = ^tMUIP_Application_GetMenuCheck;
tMUIP_Application_GetMenuState = record
MethodID : LongWord;
MenuID : LongWord;
end;
pMUIP_Application_GetMenuState = ^tMUIP_Application_GetMenuState;
tMUIP_Application_Input = record
MethodID : LongWord;
signal : PLongWord;
end;
pMUIP_Application_Input = ^tMUIP_Application_Input;
tMUIP_Application_InputBuffered = record
MethodID : LongWord;
end;
pMUIP_Application_InputBuffered = ^tMUIP_Application_InputBuffered;
tMUIP_Application_Load = record
MethodID : LongWord;
name : PChar;
end;
tMUIP_Application_NewInput = record
MethodID : LongWord;
signal : PLongWord;
end;
pMUIP_Application_NewInput = ^tMUIP_Application_NewInput;
tMUIP_Application_OpenConfigWindow = record
MethodID : LongWord;
flags : LongWord;
end;
pMUIP_Application_OpenConfigWindow = ^tMUIP_Application_OpenConfigWindow;
tMUIP_Application_PushMethod = record { ... }
MethodID : LongWord;
dest : pObject_;
count : LongInt;
end;
pMUIP_Application_PushMethod = ^tMUIP_Application_PushMethod;
tMUIP_Application_RemInputHandler = record
MethodID : LongWord;
ihnode : PMUI_InputHandlerNode;
end;
pMUIP_Application_RemInputHandler = ^tMUIP_Application_RemInputHandler;
tMUIP_Application_ReturnID = record
MethodID : LongWord;
retid : LongWord;
end;
pMUIP_Application_ReturnID = ^tMUIP_Application_ReturnID;
tMUIP_Application_Save = record
MethodID : LongWord;
name : PChar;
end;
tMUIP_Application_SetConfigItem = record
MethodID : LongWord;
item : LongWord;
data : Pointer;
end;
pMUIP_Application_SetConfigItem = ^tMUIP_Application_SetConfigItem;
tMUIP_Application_SetMenuCheck = record
MethodID : LongWord;
MenuID : LongWord;
stat : LongInt;
end;
pMUIP_Application_SetMenuCheck = ^tMUIP_Application_SetMenuCheck;
tMUIP_Application_SetMenuState = record
MethodID : LongWord;
MenuID : LongWord;
stat : LongInt;
end;
pMUIP_Application_SetMenuState = ^tMUIP_Application_SetMenuState;
tMUIP_Application_ShowHelp = record
MethodID : LongWord;
window : pObject_;
name : Pchar;
node : Pchar;
line : LongInt;
end;
pMUIP_Application_ShowHelp = ^tMUIP_Application_ShowHelp;
{ ** Attributes ** }
const
MUIA_Application_Active = $804260ab; { V4 isg BOOL }
MUIA_Application_Author = $80424842; { V4 i.g PChar }
MUIA_Application_Base = $8042e07a; { V4 i.g PChar }
MUIA_Application_Broker = $8042dbce; { V4 ..g Broker }
MUIA_Application_BrokerHook = $80428f4b; { V4 isg struct Hook }
MUIA_Application_BrokerPort = $8042e0ad; { V6 ..g struct MsgPort }
MUIA_Application_BrokerPri = $8042c8d0; { V6 i.g LongInt }
MUIA_Application_Commands = $80428648; { V4 isg struct MUI_Command }
MUIA_Application_Copyright = $8042ef4d; { V4 i.g PChar }
MUIA_Application_Description = $80421fc6; { V4 i.g PChar }
MUIA_Application_DiskObject = $804235cb; { V4 isg struct DiskObject }
MUIA_Application_DoubleStart = $80423bc6; { V4 ..g BOOL }
MUIA_Application_DropObject = $80421266; { V5 is. Object }
MUIA_Application_ForceQuit = $804257df; { V8 ..g BOOL }
MUIA_Application_HelpFile = $804293f4; { V8 isg PChar }
MUIA_Application_Iconified = $8042a07f; { V4 .sg BOOL }
MUIA_Application_MenuAction = $80428961; { V4 ..g LongWord }
MUIA_Application_MenuHelp = $8042540b; { V4 ..g LongWord }
MUIA_Application_Menustrip = $804252d9; { V8 i.. Object }
MUIA_Application_RexxHook = $80427c42; { V7 isg struct Hook }
MUIA_Application_RexxMsg = $8042fd88; { V4 ..g struct RxMsg }
MUIA_Application_RexxString = $8042d711; { V4 .s. PChar }
MUIA_Application_SingleTask = $8042a2c8; { V4 i.. BOOL }
MUIA_Application_Sleep = $80425711; { V4 .s. BOOL }
MUIA_Application_Title = $804281b8; { V4 i.g PChar }
MUIA_Application_UseCommodities = $80425ee5; { V10 i.. BOOL }
MUIA_Application_UsedClasses = $8042e9a7; { V20 isg STRPTR * }
MUIA_Application_UseRexx = $80422387; { V10 i.. BOOL }
MUIA_Application_Version = $8042b33f; { V4 i.g PChar }
MUIA_Application_Window = $8042bfe0; { V4 i.. Object }
MUIA_Application_WindowList = $80429abe; { V13 ..g struct List }
{ ** Window }
{ ************************************************************************* }
const
MUIC_Window : PChar = 'Window.mui';
const
MUIM_Window_AddEventHandler = $804203b7; { V16 }
MUIM_Window_Cleanup = $8042ab26; { V18 }
MUIM_Window_RemEventHandler = $8042679e; { V16 }
MUIM_Window_ScreenToBack = $8042913d; { V4 }
MUIM_Window_ScreenToFront = $804227a4; { V4 }
MUIM_Window_Setup = $8042c34c; { V18 }
MUIM_Window_Snapshot = $8042945e; { V11 }
MUIM_Window_ToBack = $8042152e; { V4 }
MUIM_Window_ToFront = $8042554f; { V4 }
type
tMUIP_Window_AddEventHandler = record
MethodID : LongWord;
ehnode : PMUI_EventHandlerNode;
end;
pMUIP_Window_AddEventHandler = ^tMUIP_Window_AddEventHandler;
tMUIP_Window_Cleanup = record
MethodID : LongWord;
end;
pMUIP_Window_Cleanup = ^tMUIP_Window_Cleanup;
tMUIP_Window_GetMenuCheck = record
MethodID : LongWord;
MenuID : LongWord;
end;
pMUIP_Window_GetMenuCheck = ^tMUIP_Window_GetMenuCheck;
tMUIP_Window_GetMenuState = record
MethodID : LongWord;
MenuID : LongWord;
end;
pMUIP_Window_GetMenuState = ^tMUIP_Window_GetMenuState;
tMUIP_Window_RemEventHandler = record
MethodID : LongWord;
ehnode : PMUI_EventHandlerNode;
end;
pMUIP_Window_RemEventHandler = ^tMUIP_Window_RemEventHandler;
tMUIP_Window_ScreenToBack = record
MethodID : LongWord;
end;
pMUIP_Window_ScreenToBack = ^tMUIP_Window_ScreenToBack;
tMUIP_Window_ScreenToFront = record
MethodID : LongWord;
end;
pMUIP_Window_ScreenToFront = ^tMUIP_Window_ScreenToFront;
tMUIP_Window_SetCycleChain = record
MethodID : LongWord;
obj : array[0..0] of pObject_;
end;
pMUIP_Window_SetCycleChain = ^tMUIP_Window_SetCycleChain;
tMUIP_Window_SetMenuCheck = record
MethodID : LongWord;
MenuID : LongWord;
stat : LongInt;
end;
pMUIP_Window_SetMenuCheck = ^tMUIP_Window_SetMenuCheck;
tMUIP_Window_SetMenuState = record
MethodID : LongWord;
MenuID : LongWord;
stat : LongInt;
end;
pMUIP_Window_SetMenuState = ^tMUIP_Window_SetMenuState;
tMUIP_Window_Setup = record
MethodID : LongWord;
end;
pMUIP_Window_Setup = ^tMUIP_Window_Setup;
tMUIP_Window_Snapshot = record
MethodID : LongWord;
flags : LongInt;
end;
pMUIP_Window_Snapshot = ^tMUIP_Window_Snapshot;
tMUIP_Window_ToBack = record
MethodID : LongWord;
end;
pMUIP_Window_ToBack = ^tMUIP_Window_ToBack;
tMUIP_Window_ToFront = record
MethodID : LongWord;
end;
pMUIP_Window_ToFront = ^tMUIP_Window_ToFront;
{ ** Attributes ** }
const
MUIA_Window_Activate = $80428d2f; { V4 isg BOOL }
MUIA_Window_ActiveObject = $80427925; { V4 .sg Object }
MUIA_Window_AltHeight = $8042cce3; { V4 i.g LongInt }
MUIA_Window_AltLeftEdge = $80422d65; { V4 i.g LongInt }
MUIA_Window_AltTopEdge = $8042e99b; { V4 i.g LongInt }
MUIA_Window_AltWidth = $804260f4; { V4 i.g LongInt }
MUIA_Window_AppWindow = $804280cf; { V5 i.. BOOL }
MUIA_Window_Backdrop = $8042c0bb; { V4 i.. BOOL }
MUIA_Window_Borderless = $80429b79; { V4 i.. BOOL }
MUIA_Window_CloseGadget = $8042a110; { V4 i.. BOOL }
MUIA_Window_CloseRequest = $8042e86e; { V4 ..g BOOL }
MUIA_Window_DefaultObject = $804294d7; { V4 isg Object }
MUIA_Window_DepthGadget = $80421923; { V4 i.. BOOL }
MUIA_Window_DragBar = $8042045d; { V4 i.. BOOL }
MUIA_Window_FancyDrawing = $8042bd0e; { V8 isg BOOL }
MUIA_Window_Height = $80425846; { V4 i.g LongInt }
MUIA_Window_ID = $804201bd; { V4 isg LongWord }
MUIA_Window_InputEvent = $804247d8; { V4 ..g struct InputEvent }
MUIA_Window_IsSubWindow = $8042b5aa; { V4 isg BOOL }
MUIA_Window_LeftEdge = $80426c65; { V4 i.g LongInt }
MUIA_Window_MenuAction = $80427521; { V8 isg LongWord }
MUIA_Window_Menustrip = $8042855e; { V8 i.g Object }
MUIA_Window_MouseObject = $8042bf9b; { V10 ..g Object }
MUIA_Window_NeedsMouseObject = $8042372a; { V10 i.. BOOL }
MUIA_Window_NoMenus = $80429df5; { V4 is. BOOL }
MUIA_Window_Open = $80428aa0; { V4 .sg BOOL }
MUIA_Window_PublicScreen = $804278e4; { V6 isg PChar }
MUIA_Window_RefWindow = $804201f4; { V4 is. Object }
MUIA_Window_RootObject = $8042cba5; { V4 isg Object }
MUIA_Window_Screen = $8042df4f; { V4 isg struct Screen }
MUIA_Window_ScreenTitle = $804234b0; { V5 isg PChar }
MUIA_Window_SizeGadget = $8042e33d; { V4 i.. BOOL }
MUIA_Window_SizeRight = $80424780; { V4 i.. BOOL }
MUIA_Window_Sleep = $8042e7db; { V4 .sg BOOL }
MUIA_Window_Title = $8042ad3d; { V4 isg PChar }
MUIA_Window_TopEdge = $80427c66; { V4 i.g LongInt }
MUIA_Window_UseBottomBorderScroller = $80424e79; { V13 isg BOOL }
MUIA_Window_UseLeftBorderScroller = $8042433e; { V13 isg BOOL }
MUIA_Window_UseRightBorderScroller = $8042c05e; { V13 isg BOOL }
MUIA_Window_Width = $8042dcae; { V4 i.g LongInt }
MUIA_Window_Window = $80426a42; { V4 ..g struct Window }
const
MUIV_Window_ActiveObject_None = 0;
MUIV_Window_ActiveObject_Next = -1;
MUIV_Window_ActiveObject_Prev = -2;
MUIV_Window_ActiveObject_Left = -3;
MUIV_Window_ActiveObject_Right = -4;
MUIV_Window_ActiveObject_Up = -5;
MUIV_Window_ActiveObject_Down = -6;
{ FIX ME!!! #define MUIV_Window_AltHeight_MinMax(p) (0-(p)) }
{ FIX ME!!! #define MUIV_Window_AltHeight_Visible(p) (-100-(p)) }
{ FIX ME!!! #define MUIV_Window_AltHeight_Screen(p) (-200-(p)) }
MUIV_Window_AltHeight_Scaled = -(1000);
MUIV_Window_AltLeftEdge_Centered = -(1);
MUIV_Window_AltLeftEdge_Moused = -(2);
MUIV_Window_AltLeftEdge_NoChange = -(1000);
MUIV_Window_AltTopEdge_Centered = -(1);
MUIV_Window_AltTopEdge_Moused = -(2);
{ FIX ME!!! #define MUIV_Window_AltTopEdge_Delta(p) (-3-(p)) }
MUIV_Window_AltTopEdge_NoChange = -(1000);
{ FIX ME!!! #define MUIV_Window_AltWidth_MinMax(p) (0-(p)) }
{ FIX ME!!! #define MUIV_Window_AltWidth_Visible(p) (-100-(p)) }
{ FIX ME!!! #define MUIV_Window_AltWidth_Screen(p) (-200-(p)) }
MUIV_Window_AltWidth_Scaled = -(1000);
{ FIX ME!!! #define MUIV_Window_Height_MinMax(p) (0-(p)) }
{ FIX ME!!! #define MUIV_Window_Height_Visible(p) (-100-(p)) }
{ FIX ME!!! #define MUIV_Window_Height_Screen(p) (-200-(p)) }
MUIV_Window_Height_Scaled = -(1000);
MUIV_Window_Height_Default = -(1001);
MUIV_Window_LeftEdge_Centered = -(1);
MUIV_Window_LeftEdge_Moused = -(2);
{ FIX ME!!! #define MUIV_Window_LeftEdge_Right(n) (-1000-(n)) }
MUIV_Window_TopEdge_Centered = -(1);
MUIV_Window_TopEdge_Moused = -(2);
{ FIX ME!!! #define MUIV_Window_TopEdge_Delta(p) (-3-(p)) }
{ FIX ME!!! #define MUIV_Window_TopEdge_Bottom(n) (-1000-(n)) }
{ FIX ME!!! #define MUIV_Window_Width_MinMax(p) (0-(p)) }
{ FIX ME!!! #define MUIV_Window_Width_Visible(p) (-100-(p)) }
{ FIX ME!!! #define MUIV_Window_Width_Screen(p) (-200-(p)) }
MUIV_Window_Width_Scaled = -(1000);
MUIV_Window_Width_Default = -(1001);
{ ** Aboutmui }
{ ************************************************************************* }
const
MUIC_Aboutmui : PChar = 'Aboutmui.mui';
{ ** Methods ** }
{ ** Attributes ** }
const
MUIA_Aboutmui_Application = $80422523; { V11 i.. Object }
{ ** Area }
{ ************************************************************************* }
const
MUIC_Area : PChar = 'Area.mui';
{ ** Methods ** }
const
MUIM_AskMinMax = $80423874; { Custom Class } { V4 }
MUIM_Cleanup = $8042d985; { Custom Class } { V4 }
MUIM_ContextMenuAdd = $8042df9e; { V20 }
MUIM_ContextMenuBuild = $80429d2e; { V11 }
MUIM_ContextMenuChoice = $80420f0e; { V11 }
MUIM_CreateBubble = $80421c41; { V18 }
MUIM_CreateShortHelp = $80428e93; { V11 }
MUIM_DeleteBubble = $804211af; { V18 }
MUIM_DeleteShortHelp = $8042d35a; { V11 }
MUIM_DoDrag = $804216bb; { V20 }
MUIM_DragBegin = $8042c03a; { V11 }
MUIM_DragDrop = $8042c555; { V11 }
MUIM_DragFinish = $804251f0; { V11 }
MUIM_DragQuery = $80420261; { V11 }
MUIM_DragReport = $8042edad; { V11 }
MUIM_Draw = $80426f3f; { Custom Class } { V4 }
MUIM_DrawBackground = $804238ca; { V11 }
MUIM_HandleEvent = $80426d66; { Custom Class } { V16 }
MUIM_HandleInput = $80422a1a; { Custom Class } { V4 }
MUIM_Hide = $8042f20f; { Custom Class } { V4 }
MUIM_Setup = $80428354; { Custom Class } { V4 }
MUIM_Show = $8042cc84; { Custom Class } { V4 }
MUIM_UpdateConfig = $8042b0a9; { V20 }
type
{ MUI_MinMax structure holds information about minimum, maximum
and default dimensions of an object. }
tMUI_MinMax = record
MinWidth : shortint;
MinHeight : shortint;
MaxWidth : shortint;
MaxHeight : shortint;
DefWidth : shortint;
DefHeight : shortint;
end;
pMUI_MinMax = ^tMUI_MinMax;
tMUIP_AskMinMax = record { Custom Class }
MethodID : LongWord;
MinMaxInfo : PMUI_MinMax;
end;
pMUIP_AskMinMax = ^tMUIP_AskMinMax;
tMUIP_Cleanup = record { Custom Class }
MethodID : LongWord;
end;
pMUIP_Cleanup = ^tMUIP_Cleanup;
tMUIP_ContextMenuAdd = record
MethodID : LongWord;
menustrip : pObject_;
mx : LongInt;
my : LongInt;
mxp : pLongInt;
myp : pLongInt;
end;
pMUIP_ContextMenuAdd = ^tMUIP_ContextMenuAdd;
tMUIP_ContextMenuBuild = record
MethodID : LongWord;
mx : LongInt;
my : LongInt;
end;
pMUIP_ContextMenuBuild = ^tMUIP_ContextMenuBuild;
tMUIP_ContextMenuChoice = record
MethodID : LongWord;
item : pObject_;
end;
pMUIP_ContextMenuChoice = ^tMUIP_ContextMenuChoice;
tMUIP_CreateBubble = record
MethodID : LongWord;
x : LongInt;
y : LongInt;
txt : PChar;
flags : LongWord;
end;
pMUIP_CreateBubble = ^tMUIP_CreateBubble;
tMUIP_CreateShortHelp = record
MethodID : LongWord;
mx : LongInt;
my : LongInt;
end;
pMUIP_CreateShortHelp = ^tMUIP_CreateShortHelp;
tMUIP_DeleteBubble = record
MethodID : LongWord;
bubble : Pointer;
end;
pMUIP_DeleteBubble = ^tMUIP_DeleteBubble;
tMUIP_DeleteShortHelp = record
MethodID : LongWord;
help : PChar;
end;
pMUIP_DeleteShortHelp = ^tMUIP_DeleteShortHelp;
tMUIP_DoDrag = record
MethodID : LongWord;
touchx : LongInt;
touchy : LongInt;
flags : LongWord;
end;
pMUIP_DoDrag = ^tMUIP_DoDrag;
tMUIP_DragBegin = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_DragBegin = ^tMUIP_DragBegin;
tMUIP_DragDrop = record
MethodID : LongWord;
obj : pObject_;
x : LongInt;
y : LongInt;
end;
pMUIP_DragDrop = ^tMUIP_DragDrop;
tMUIP_DragFinish = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_DragFinish = ^tMUIP_DragFinish;
tMUIP_DragQuery = record
MethodID : LongWord;
obj : pObject_;
end;
pMUIP_DragQuery = ^tMUIP_DragQuery;
tMUIP_DragReport = record
MethodID : LongWord;
obj : pObject_;
x : LongInt;
y : LongInt;
update : LongInt;
end;
pMUIP_DragReport = ^tMUIP_DragReport;
tMUIP_Draw = record { Custom Class }
MethodID : LongWord;
flags : LongWord;
end;
pMUIP_Draw = ^tMUIP_Draw;
tMUIP_DrawBackground = record
MethodID : LongWord;
left : LongInt;
top : LongInt;
width : LongInt;
height : LongInt;
xoffset : LongInt;
yoffset : LongInt;
flags : LongInt;
end;
pMUIP_DrawBackground = ^tMUIP_DrawBackground;
tMUIP_HandleEvent = record { Custom Class }
MethodID : LongWord;
imsg : PIntuiMessage;
muikey : LongInt;
end;
pMUIP_HandleEvent = ^tMUIP_HandleEvent;
tMUIP_HandleInput = record { Custom Class }
MethodID : LongWord;
imsg : PIntuiMessage;
muikey : LongInt;
end;
pMUIP_HandleInput = ^tMUIP_HandleInput;
tMUIP_Hide = record { Custom Class }
MethodID : LongWord;
end;
pMUIP_Hide = ^tMUIP_Hide;
tMUIP_Setup = record { Custom Class }
MethodID : LongWord;
RenderInfo : PMUI_RenderInfo;
end;
pMUIP_Setup = ^tMUIP_Setup;
tMUIP_Show = record { Custom Class }
MethodID : LongWord;
end;
pMUIP_Show = ^tMUIP_Show;
tMUIP_UpdateConfig = record
MethodID : LongWord;
cfgid : LongWord;
redrawcount : LongInt;
redrawobj : array[0..63] of pObject_;
redrawflags : array[0..63] of byte;
end;
pMUIP_UpdateConfig = ^tMUIP_UpdateConfig;
{ ** Attributes ** }
const
MUIA_Background = $8042545b; { V4 is. LongInt }
MUIA_BottomEdge = $8042e552; { V4 ..g LongInt }
MUIA_ContextMenu = $8042b704; { V11 isg Object }
MUIA_ContextMenuTrigger = $8042a2c1; { V11 ..g Object }
MUIA_ControlChar = $8042120b; { V4 isg char }
MUIA_CycleChain = $80421ce7; { V11 isg LongInt }
MUIA_Disabled = $80423661; { V4 isg BOOL }
MUIA_DoubleBuffer = $8042a9c7; { V20 isg BOOL }
MUIA_Draggable = $80420b6e; { V11 isg BOOL }
MUIA_Dropable = $8042fbce; { V11 isg BOOL }
MUIA_FillArea = $804294a3; { V4 is. BOOL }
MUIA_FixHeight = $8042a92b; { V4 i.. LongInt }
MUIA_FixHeightTxt = $804276f2; { V4 i.. PChar }
MUIA_FixWidth = $8042a3f1; { V4 i.. LongInt }
MUIA_FixWidthTxt = $8042d044; { V4 i.. PChar }
MUIA_Font = $8042be50; { V4 i.g struct TextFont }
MUIA_Frame = $8042ac64; { V4 i.. LongInt }
MUIA_FrameDynamic = $804223c9; { V20 isg BOOL }
MUIA_FramePhantomHoriz = $8042ed76; { V4 i.. BOOL }
MUIA_FrameTitle = $8042d1c7; { V4 i.. PChar }
MUIA_FrameVisible = $80426498; { V20 isg BOOL }
MUIA_Height = $80423237; { V4 ..g LongInt }
MUIA_HorizDisappear = $80429615; { V11 isg LongInt }
MUIA_HorizWeight = $80426db9; { V4 isg ShortInt }
MUIA_InnerBottom = $8042f2c0; { V4 i.g LongInt }
MUIA_InnerLeft = $804228f8; { V4 i.g LongInt }
MUIA_InnerRight = $804297ff; { V4 i.g LongInt }
MUIA_InnerTop = $80421eb6; { V4 i.g LongInt }
MUIA_InputMode = $8042fb04; { V4 i.. LongInt }
MUIA_LeftEdge = $8042bec6; { V4 ..g LongInt }
MUIA_MaxHeight = $804293e4; { V11 i.. LongInt }
MUIA_MaxWidth = $8042f112; { V11 i.. LongInt }
MUIA_Pressed = $80423535; { V4 ..g BOOL }
MUIA_RightEdge = $8042ba82; { V4 ..g LongInt }
MUIA_Selected = $8042654b; { V4 isg BOOL }
MUIA_ShortHelp = $80428fe3; { V11 isg PChar }
MUIA_ShowMe = $80429ba8; { V4 isg BOOL }
MUIA_ShowSelState = $8042caac; { V4 i.. BOOL }
MUIA_Timer = $80426435; { V4 ..g LongInt }
MUIA_TopEdge = $8042509b; { V4 ..g LongInt }
MUIA_VertDisappear = $8042d12f; { V11 isg LongInt }
MUIA_VertWeight = $804298d0; { V4 isg WORD }
MUIA_Weight = $80421d1f; { V4 i.. WORD }
MUIA_Width = $8042b59c; { V4 ..g LongInt }
MUIA_Window = $80421591; { V4 ..g struct Window }
MUIA_WindowObject = $8042669e; { V4 ..g Object }
const
MUIV_Font_Inherit = 0;
MUIV_Font_Normal = -1;
MUIV_Font_List = -2;
MUIV_Font_Tiny = -3;
MUIV_Font_Fixed = -4;
MUIV_Font_Title = -5;
MUIV_Font_Big = -6;
MUIV_Font_Button = -7;
MUIV_Font_Slider = -8;
MUIV_Font_Gauge = -9;
MUIV_Font_Menudisplay = -10;
MUIV_Frame_None = 0;
MUIV_Frame_Button = 1;
MUIV_Frame_ImageButton = 2;
MUIV_Frame_Text = 3;
MUIV_Frame_String = 4;
MUIV_Frame_ReadList = 5;
MUIV_Frame_InputList = 6;
MUIV_Frame_Prop = 7;
MUIV_Frame_Gauge = 8;
MUIV_Frame_Group = 9;
MUIV_Frame_PopUp = 10;
MUIV_Frame_Virtual = 11;
MUIV_Frame_Slider = 12;
MUIV_Frame_SliderKnob = 13;
MUIV_Frame_GaugeInner = 14;
MUIV_Frame_Menudisplay = 15;
MUIV_Frame_MenudisplayMenu = 16;
MUIV_Frame_PropKnob = 17;
MUIV_Frame_Window = 18;
MUIV_Frame_Requester = 19;
MUIV_Frame_Page = 20;
MUIV_Frame_Register = 21;
MUIV_Frame_Count = 22;
MUIV_InputMode_None = 0;
MUIV_InputMode_RelVerify = 1;
MUIV_InputMode_Immediate = 2;
MUIV_InputMode_Toggle = 3;
{ ** Dtpic }
{ ************************************************************************* }
const
MUIC_Dtpic : PChar = 'Dtpic.mui';
{ ** Methods ** }
{ ** Attributes ** }
const
MUIA_Dtpic_Name = $80423d72; { V18 isg STRPTR }
{ ** Rectangle }
{ ************************************************************************* }
const
MUIC_Rectangle : PChar = 'Rectangle.mui';
{ ** Attributes ** }
const
MUIA_Rectangle_BarTitle = $80426689; { V11 i.g PChar }
MUIA_Rectangle_HBar = $8042c943; { V7 i.g BOOL }
MUIA_Rectangle_VBar = $80422204; { V7 i.g BOOL }
{ ** Balance }
{ ************************************************************************* }
const
MUIC_Balance : PChar = 'Balance.mui';
{ ** Attributes ** }
const
MUIA_Balance_Quiet = $80427486; { V20 i.. LONG }
{ ** Image }
{ ************************************************************************* }
const
MUIC_Image : PChar = 'Image.mui';
{ ** Attributes ** }
const
MUIA_Image_FontMatch = $8042815d; { V4 i.. BOOL }
MUIA_Image_FontMatchHeight = $80429f26; { V4 i.. BOOL }
MUIA_Image_FontMatchWidth = $804239bf; { V4 i.. BOOL }
MUIA_Image_FreeHoriz = $8042da84; { V4 i.. BOOL }
MUIA_Image_FreeVert = $8042ea28; { V4 i.. BOOL }
MUIA_Image_OldImage = $80424f3d; { V4 i.. struct Image }
MUIA_Image_Spec = $804233d5; { V4 i.. char }
MUIA_Image_State = $8042a3ad; { V4 is. LongInt }
{ ** Menubar }
{ ************************************************************************* }
const
MUIC_Menubar : PChar = 'Menubar.mui';
{ ** Bitmap }
{ ************************************************************************* }
const
MUIC_Bitmap : PChar = 'Bitmap.mui';
{ ** Attributes ** }
const
MUIA_Bitmap_Alpha = $80423e71; { V20 isg ULONG }
MUIA_Bitmap_Bitmap = $804279bd; { V8 isg struct BitMap }
MUIA_Bitmap_Height = $80421560; { V8 isg LongInt }
MUIA_Bitmap_MappingTable = $8042e23d; { V8 isg UBYTE }
MUIA_Bitmap_Precision = $80420c74; { V11 isg LongInt }
MUIA_Bitmap_RemappedBitmap = $80423a47; { V11 ..g struct BitMap }
MUIA_Bitmap_SourceColors = $80425360; { V8 isg LongWord }
MUIA_Bitmap_Transparent = $80422805; { V8 isg LongInt }
MUIA_Bitmap_UseFriend = $804239d8; { V11 i.. BOOL }
MUIA_Bitmap_Width = $8042eb3a; { V8 isg LongInt }
{ ** Bodychunk }
{ ************************************************************************* }
const
MUIC_Bodychunk : PChar = 'Bodychunk.mui';
{ ** Attributes ** }
const
MUIA_Bodychunk_Body = $8042ca67; { V8 isg UBYTE }
MUIA_Bodychunk_Compression = $8042de5f; { V8 isg UBYTE }
MUIA_Bodychunk_Depth = $8042c392; { V8 isg LongInt }
MUIA_Bodychunk_Masking = $80423b0e; { V8 isg UBYTE }
{ ** Text }
{ ************************************************************************* }
const
MUIC_Text : PChar = 'Text.mui';
{ ** Attributes ** }
const
MUIA_Text_Contents = $8042f8dc; { V4 isg PChar }
MUIA_Text_ControlChar = $8042e6d0; { V20 isg char }
MUIA_Text_Copy = $80427727; { V20 isg BOOL }
MUIA_Text_HiChar = $804218ff; { V4 i.. char }
MUIA_Text_PreParse = $8042566d; { V4 isg PChar }
MUIA_Text_SetMax = $80424d0a; { V4 i.. BOOL }
MUIA_Text_SetMin = $80424e10; { V4 i.. BOOL }
MUIA_Text_SetVMax = $80420d8b; { V11 i.. BOOL }
MUIA_Text_Shorten = $80428bbd; { V20 isg LONG }
MUIA_Text_Shortened = $80425a86; { V20 ..g BOOL }
const
MUIV_Text_Shorten_Nothing = 0;
MUIV_Text_Shorten_Cutoff = 1;
MUIV_Text_Shorten_Hide = 2;
{ ** Gadget }
{ ************************************************************************* }
const
MUIC_Gadget : PChar = 'Gadget.mui';
{ ** Attributes ** }
const
MUIA_Gadget_Gadget = $8042ec1a; { V11 ..g struct Gadget }
{ ** String }
{ ************************************************************************* }
const
MUIC_String : PChar = 'String.mui';
{ ** Methods ** }
{ ** Attributes ** }
const
MUIA_String_Accept = $8042e3e1; { V4 isg PChar }
MUIA_String_Acknowledge = $8042026c; { V4 ..g PChar }
MUIA_String_AdvanceOnCR = $804226de; { V11 isg BOOL }
MUIA_String_AttachedList = $80420fd2; { V4 isg Object }
MUIA_String_BufferPos = $80428b6c; { V4 .sg LongInt }
MUIA_String_Contents = $80428ffd; { V4 isg PChar }
MUIA_String_DisplayPos = $8042ccbf; { V4 .sg LongInt }
MUIA_String_EditHook = $80424c33; { V7 isg struct Hook }
MUIA_String_Format = $80427484; { V4 i.g LongInt }
MUIA_String_Integer = $80426e8a; { V4 isg LongWord }
MUIA_String_LonelyEditHook = $80421569; { V11 isg BOOL }
MUIA_String_MaxLen = $80424984; { V4 i.g LongInt }
MUIA_String_Reject = $8042179c; { V4 isg PChar }
MUIA_String_Secret = $80428769; { V4 i.g BOOL }
const
MUIV_String_Format_Left = 0;
MUIV_String_Format_Center = 1;
MUIV_String_Format_Right = 2;
{ ** Boopsi }
{ ************************************************************************* }
const
MUIC_Boopsi : PChar = 'Boopsi.mui';
{ ** Attributes ** }
const
MUIA_Boopsi_Class = $80426999; { V4 isg struct IClass }
MUIA_Boopsi_ClassID = $8042bfa3; { V4 isg char }
MUIA_Boopsi_MaxHeight = $8042757f; { V4 isg LongWord }
MUIA_Boopsi_MaxWidth = $8042bcb1; { V4 isg LongWord }
MUIA_Boopsi_MinHeight = $80422c93; { V4 isg LongWord }
MUIA_Boopsi_MinWidth = $80428fb2; { V4 isg LongWord }
MUIA_Boopsi_Object = $80420178; { V4 ..g Object }
MUIA_Boopsi_Remember = $8042f4bd; { V4 i.. LongWord }
MUIA_Boopsi_Smart = $8042b8d7; { V9 i.. BOOL }
MUIA_Boopsi_TagDrawInfo = $8042bae7; { V4 isg LongWord }
MUIA_Boopsi_TagScreen = $8042bc71; { V4 isg LongWord }
MUIA_Boopsi_TagWindow = $8042e11d; { V4 isg LongWord }
{ ** Prop }
{ ************************************************************************* }
const
MUIC_Prop : PChar = 'Prop.mui';
{ ** Methods ** }
const
MUIM_Prop_Decrease = $80420dd1; { V16 }
MUIM_Prop_Increase = $8042cac0; { V16 }
type
tMUIP_Prop_Decrease = record
MethodID : LongWord;
amount : LongInt;
end;
pMUIP_Prop_Decrease = ^tMUIP_Prop_Decrease;
tMUIP_Prop_Increase = record
MethodID : LongWord;
amount : LongInt;
end;
pMUIP_Prop_Increase = ^tMUIP_Prop_Increase;
{ ** Attributes ** }
const
MUIA_Prop_Entries = $8042fbdb; { V4 isg LongInt }
MUIA_Prop_First = $8042d4b2; { V4 isg LongInt }
MUIA_Prop_Horiz = $8042f4f3; { V4 i.g BOOL }
MUIA_Prop_Slider = $80429c3a; { V4 isg BOOL }
MUIA_Prop_UseWinBorder = $8042deee; { V13 i.. LongInt }
MUIA_Prop_Visible = $8042fea6; { V4 isg LongInt }
const
MUIV_Prop_UseWinBorder_None = 0;
MUIV_Prop_UseWinBorder_Left = 1;
MUIV_Prop_UseWinBorder_Right = 2;
MUIV_Prop_UseWinBorder_Bottom = 3;
{ ** Gauge }
{ ************************************************************************* }
const
MUIC_Gauge : PChar = 'Gauge.mui';
{ ** Attributes ** }
const
MUIA_Gauge_Current = $8042f0dd; { V4 isg LongInt }
MUIA_Gauge_Divide = $8042d8df; { V4 isg BOOL }
MUIA_Gauge_Horiz = $804232dd; { V4 i.. BOOL }
MUIA_Gauge_InfoRate = $804253c8; { V4 isg LONG }
MUIA_Gauge_InfoText = $8042bf15; { V7 isg PChar }
MUIA_Gauge_Max = $8042bcdb; { V4 isg LongInt }
{ ** Scale }
{ ************************************************************************* }
const
MUIC_Scale : PChar = 'Scale.mui';
{ ** Attributes ** }
const
MUIA_Scale_Horiz = $8042919a; { V4 isg BOOL }
{ ** Colorfield }
{ ************************************************************************* }
const
MUIC_Colorfield : PChar = 'Colorfield.mui';
{ ** Attributes ** }
const
MUIA_Colorfield_Blue = $8042d3b0; { V4 isg LongWord }
MUIA_Colorfield_Green = $80424466; { V4 isg LongWord }
MUIA_Colorfield_Pen = $8042713a; { V4 ..g LongWord }
MUIA_Colorfield_Red = $804279f6; { V4 isg LongWord }
MUIA_Colorfield_RGB = $8042677a; { V4 isg LongWord }
{ ** List }
{ ************************************************************************* }
const
MUIC_List : PChar = 'List.mui';
{ Methods }
{ V4 }
const
MUIM_List_Clear = $8042ad89;
{ V11 }
MUIM_List_CreateImage = $80429804;
{ V11 }
MUIM_List_DeleteImage = $80420f58;
{ V4 }
MUIM_List_Exchange = $8042468c;
{ V4 }
MUIM_List_GetEntry = $804280ec;
{ V4 }
MUIM_List_Insert = $80426c87;
{ V7 }
MUIM_List_InsertSingle = $804254d5;
{ V4 }
MUIM_List_Jump = $8042baab;
{ V9 }
MUIM_List_Move = $804253c2;
{ V6 }
MUIM_List_NextSelected = $80425f17;
{ V4 }
MUIM_List_Redraw = $80427993;
{ V4 }
MUIM_List_Remove = $8042647e;
{ V4 }
MUIM_List_Select = $804252d8;
{ V4 }
MUIM_List_Sort = $80422275;
{ V11 }
MUIM_List_TestPos = $80425f48;
type
tMUIP_List_Clear = record
MethodID : LongWord;
end;
pMUIP_List_Clear = ^tMUIP_List_Clear;
tMUIP_List_CreateImage = record
MethodID : LongWord;
obj : pObject_;
flags : LongWord;
end;
pMUIP_List_CreateImage = ^tMUIP_List_CreateImage;
tMUIP_List_DeleteImage = record
MethodID : LongWord;
listimg : Pointer;
end;
pMUIP_List_DeleteImage = ^tMUIP_List_DeleteImage;
tMUIP_List_Exchange = record
MethodID : LongWord;
pos1 : LongInt;
pos2 : LongInt;
end;
pMUIP_List_Exchange = ^tMUIP_List_Exchange;
tMUIP_List_GetEntry = record
MethodID : LongWord;
pos : LongInt;
entry : PPointer;
end;
pMUIP_List_GetEntry = ^tMUIP_List_GetEntry;
tMUIP_List_Insert = record
MethodID : LongWord;
entries : PPointer;
count : LongInt;
pos : LongInt;
end;
pMUIP_List_Insert = ^tMUIP_List_Insert;
tMUIP_List_InsertSingle = record
MethodID : LongWord;
entry : Pointer;
pos : LongInt;
end;
pMUIP_List_InsertSingle = ^tMUIP_List_InsertSingle;
tMUIP_List_Jump = record
MethodID : LongWord;
pos : LongInt;
end;
pMUIP_List_Jump = ^tMUIP_List_Jump;
tMUIP_List_Move = record
MethodID : LongWord;
from : LongInt;
too : LongInt;
end;
pMUIP_List_Move = ^tMUIP_List_Move;
tMUIP_List_NextSelected = record
MethodID : LongWord;
pos : PLongInt;
end;
pMUIP_List_NextSelected = ^tMUIP_List_NextSelected;
tMUIP_List_Redraw = record
MethodID : LongWord;
pos : LongInt;
end;
pMUIP_List_Redraw = ^tMUIP_List_Redraw;
tMUIP_List_Remove = record
MethodID : LongWord;
pos : LongInt;
end;
pMUIP_List_Remove = ^tMUIP_List_Remove;
tMUIP_List_Select = record
MethodID : LongWord;
pos : LongInt;
seltype : LongInt;
state : PLongInt;
end;
pMUIP_List_Select = ^tMUIP_List_Select;
tMUIP_List_Sort = record
MethodID : LongWord;
end;
pMUIP_List_Sort = ^tMUIP_List_Sort;
tMUIP_List_TestPos = record
MethodID : LongWord;
x : LongInt;
y : LongInt;
res : PMUI_List_TestPos_Result;
end;
pMUIP_List_TestPos = ^tMUIP_List_TestPos;
{ Attributes }
{ V4 isg LongInt }
const
MUIA_List_Active = $8042391c;
{ V4 i.. BOOL }
MUIA_List_AdjustHeight = $8042850d;
{ V4 i.. BOOL }
MUIA_List_AdjustWidth = $8042354a;
{ V11 isg BOOL }
MUIA_List_AutoVisible = $8042a445;
{ V4 is. struct Hook }
MUIA_List_CompareHook = $80425c14;
{ V4 is. struct Hook }
MUIA_List_ConstructHook = $8042894f;
{ V4 is. struct Hook }
MUIA_List_DestructHook = $804297ce;
{ V4 is. struct Hook }
MUIA_List_DisplayHook = $8042b4d5;
{ V11 isg BOOL }
MUIA_List_DragSortable = $80426099;
{ V11 ..g LongInt }
MUIA_List_DropMark = $8042aba6;
{ V4 ..g LongInt }
MUIA_List_Entries = $80421654;
{ V4 ..g LongInt }
MUIA_List_First = $804238d4;
{ V4 isg PChar }
MUIA_List_Format = $80423c0a;
{ V9 ..g LongInt }
MUIA_List_InsertPosition = $8042d0cd;
{ V4 i.. LongInt }
MUIA_List_MinLineHeight = $8042d1c3;
{ V4 is. struct Hook }
MUIA_List_MultiTestHook = $8042c2c6;
{ V13 i.. Pointer }
MUIA_List_Pool = $80423431;
{ V13 i.. LongWord }
MUIA_List_PoolPuddleSize = $8042a4eb;
{ V13 i.. LongWord }
MUIA_List_PoolThreshSize = $8042c48c;
{ V4 .s. BOOL }
MUIA_List_Quiet = $8042d8c7;
{ V11 isg BOOL }
MUIA_List_ShowDropMarks = $8042c6f3;
{ V4 i.. Pointer }
MUIA_List_SourceArray = $8042c0a0;
{ V6 isg char }
MUIA_List_Title = $80423e66;
{ V4 ..g LongInt }
MUIA_List_Visible = $8042191f;
MUIV_List_Active_Off = -(1);
MUIV_List_Active_Top = -(2);
MUIV_List_Active_Bottom = -(3);
MUIV_List_Active_Up = -(4);
MUIV_List_Active_Down = -(5);
MUIV_List_Active_PageUp = -(6);
MUIV_List_Active_PageDown = -(7);
MUIV_List_ConstructHook_String = -(1);
MUIV_List_CopyHook_String = -(1);
MUIV_List_CursorType_None = 0;
MUIV_List_CursorType_Bar = 1;
MUIV_List_CursorType_Rect = 2;
MUIV_List_DestructHook_String = -(1);
{ }
{ Floattext }
{ }
const
MUIC_Floattext : PChar = 'Floattext.mui';
{ Attributes }
{ V4 isg BOOL }
const
MUIA_Floattext_Justify = $8042dc03;
{ V4 is. PChar }
MUIA_Floattext_SkipChars = $80425c7d;
{ V4 is. LongInt }
MUIA_Floattext_TabSize = $80427d17;
{ V4 isg PChar }
MUIA_Floattext_Text = $8042d16a;
{ }
{ Volumelist }
{ }
const
MUIC_Volumelist : PChar = 'Volumelist.mui';
{ }
{ Scrmodelist }
{ }
const
MUIC_Scrmodelist : PChar = 'Scrmodelist.mui';
{ Attributes }
{ }
{ Dirlist }
{ }
const
MUIC_Dirlist : PChar = 'Dirlist.mui';
{ Methods }
{ V4 }
const
MUIM_Dirlist_ReRead = $80422d71;
type
MUIP_Dirlist_ReRead = record
MethodID : LongWord;
end;
{ Attributes }
{ V4 is. PChar }
const
MUIA_Dirlist_AcceptPattern = $8042760a;
{ V4 isg PChar }
MUIA_Dirlist_Directory = $8042ea41;
{ V4 is. BOOL }
MUIA_Dirlist_DrawersOnly = $8042b379;
{ V4 is. BOOL }
MUIA_Dirlist_FilesOnly = $8042896a;
{ V4 is. BOOL }
MUIA_Dirlist_FilterDrawers = $80424ad2;
{ V4 is. struct Hook }
MUIA_Dirlist_FilterHook = $8042ae19;
{ V6 is. BOOL }
MUIA_Dirlist_MultiSelDirs = $80428653;
{ V4 ..g LongInt }
MUIA_Dirlist_NumBytes = $80429e26;
{ V4 ..g LongInt }
MUIA_Dirlist_NumDrawers = $80429cb8;
{ V4 ..g LongInt }
MUIA_Dirlist_NumFiles = $8042a6f0;
{ V4 ..g PChar }
MUIA_Dirlist_Path = $80426176;
{ V4 is. BOOL }
MUIA_Dirlist_RejectIcons = $80424808;
{ V4 is. PChar }
MUIA_Dirlist_RejectPattern = $804259c7;
{ V4 is. LongInt }
MUIA_Dirlist_SortDirs = $8042bbb9;
{ V4 is. BOOL }
MUIA_Dirlist_SortHighLow = $80421896;
{ V4 is. LongInt }
MUIA_Dirlist_SortType = $804228bc;
{ V4 ..g LongInt }
MUIA_Dirlist_Status = $804240de;
MUIV_Dirlist_SortDirs_First = 0;
MUIV_Dirlist_SortDirs_Last = 1;
MUIV_Dirlist_SortDirs_Mix = 2;
MUIV_Dirlist_SortType_Name = 0;
MUIV_Dirlist_SortType_Date = 1;
MUIV_Dirlist_SortType_Size = 2;
MUIV_Dirlist_Status_Invalid = 0;
MUIV_Dirlist_Status_Reading = 1;
MUIV_Dirlist_Status_Valid = 2;
{ }
{ Numeric }
{ }
const
MUIC_Numeric : PChar = 'Numeric.mui';
{ Methods }
{ V11 }
const
MUIM_Numeric_Decrease = $804243a7;
{ V11 }
MUIM_Numeric_Increase = $80426ecd;
{ V11 }
MUIM_Numeric_ScaleToValue = $8042032c;
{ V11 }
MUIM_Numeric_SetDefault = $8042ab0a;
{ V11 }
MUIM_Numeric_Stringify = $80424891;
{ V11 }
MUIM_Numeric_ValueToScale = $80423e4f;
type
tMUIP_Numeric_Decrease = record
MethodID : LongWord;
amount : LongInt;
end;
pMUIP_Numeric_Decrease = ^tMUIP_Numeric_Decrease;
tMUIP_Numeric_Increase = record
MethodID : LongWord;
amount : LongInt;
end;
pMUIP_Numeric_Increase = ^tMUIP_Numeric_Increase;
tMUIP_Numeric_ScaleToValue = record
MethodID : LongWord;
scalemin : LongInt;
scalemax : LongInt;
scale : LongInt;
end;
pMUIP_Numeric_ScaleToValue = ^tMUIP_Numeric_ScaleToValue;
tMUIP_Numeric_SetDefault = record
MethodID : LongWord;
end;
pMUIP_Numeric_SetDefault = ^tMUIP_Numeric_SetDefault;
tMUIP_Numeric_Stringify = record
MethodID : LongWord;
value : LongInt;
end;
pMUIP_Numeric_Stringify = ^tMUIP_Numeric_Stringify;
tMUIP_Numeric_ValueToScale = record
MethodID : LongWord;
scalemin : LongInt;
scalemax : LongInt;
end;
pMUIP_Numeric_ValueToScale = ^tMUIP_Numeric_ValueToScale;
{ Attributes }
{ V11 isg BOOL }
const
MUIA_Numeric_CheckAllSizes = $80421594;
{ V11 isg LongInt }
MUIA_Numeric_Default = $804263e8;
{ V11 isg PChar }
MUIA_Numeric_Format = $804263e9;
{ V11 isg LongInt }
MUIA_Numeric_Max = $8042d78a;
{ V11 isg LongInt }
MUIA_Numeric_Min = $8042e404;
{ V11 isg BOOL }
MUIA_Numeric_Reverse = $8042f2a0;
{ V11 isg BOOL }
MUIA_Numeric_RevLeftRight = $804294a7;
{ V11 isg BOOL }
MUIA_Numeric_RevUpDown = $804252dd;
{ V11 isg LongInt }
MUIA_Numeric_Value = $8042ae3a;
{ }
{ Knob }
{ }
const
MUIC_Knob : PChar = 'Knob.mui';
{ }
{ Levelmeter }
{ }
const
MUIC_Levelmeter : PChar = 'Levelmeter.mui';
{ Attributes }
{ V11 isg PChar }
const
MUIA_Levelmeter_Label = $80420dd5;
{ }
{ Numericbutton }
{ }
const
MUIC_Numericbutton : PChar = 'Numericbutton.mui';
{ }
{ Slider }
{ }
const
MUIC_Slider : PChar = 'Slider.mui';
{ Attributes }
{ V11 isg BOOL }
const
MUIA_Slider_Horiz = $8042fad1;
{ V6 i.. BOOL }
const
MUIA_Slider_Quiet = $80420b26;
{ }
{ Framedisplay }
{ }
const
MUIC_Framedisplay : PChar = 'Framedisplay.mui';
{ Attributes }
{ }
{ Popframe }
{ }
const
MUIC_Popframe : PChar = 'Popframe.mui';
{ }
{ Imagedisplay }
{ }
const
MUIC_Imagedisplay : PChar = 'Imagedisplay.mui';
{ Attributes }
{ }
{ Popimage }
{ }
const
MUIC_Popimage : PChar = 'Popimage.mui';
{ }
{ Pendisplay }
{ }
const
MUIC_Pendisplay : PChar = 'Pendisplay.mui';
{ Methods }
{ V13 }
const
MUIM_Pendisplay_SetColormap = $80426c80;
{ V13 }
MUIM_Pendisplay_SetMUIPen = $8042039d;
{ V13 }
MUIM_Pendisplay_SetRGB = $8042c131;
type
MUIP_Pendisplay_SetColormap = record
MethodID : LongWord;
colormap : LongInt;
end;
MUIP_Pendisplay_SetMUIPen = record
MethodID : LongWord;
muipen : LongInt;
end;
MUIP_Pendisplay_SetRGB = record
MethodID : LongWord;
red : LongWord;
green : LongWord;
blue : LongWord;
end;
{ Attributes }
{ V13 ..g Object }
const
MUIA_Pendisplay_Pen = $8042a748;
{ V13 isg Object }
MUIA_Pendisplay_Reference = $8042dc24;
{ V11 isg struct MUI_RGBcolor }
MUIA_Pendisplay_RGBcolor = $8042a1a9;
{ V11 isg struct MUI_PenSpec }
MUIA_Pendisplay_Spec = $8042a204;
{ }
{ Poppen }
{ }
const
MUIC_Poppen : PChar = 'Poppen.mui';
{ }
{ Group }
{ }
const
MUIC_Group : PChar = 'Group.mui';
{ Methods }
{ V11 }
const
MUIM_Group_ExitChange = $8042d1cc;
{ V11 }
MUIM_Group_InitChange = $80420887;
{ V4 }
MUIM_Group_Sort = $80427417;
type
tMUIP_Group_ExitChange = record
MethodID : LongWord;
end;
pMUIP_Group_ExitChange = ^tMUIP_Group_ExitChange;
tMUIP_Group_InitChange = record
MethodID : LongWord;
end;
pMUIP_Group_InitChange = ^tMUIP_Group_InitChange;
tMUIP_Group_Sort = record
MethodID : LongWord;
obj : array[0..0] of pObject_;
end;
pMUIP_Group_Sort = ^tMUIP_Group_Sort;
{ Attributes }
{ V5 isg LongInt }
const
MUIA_Group_ActivePage = $80424199;
{ V4 i.. Object }
MUIA_Group_Child = $804226e6;
{ V4 ..g struct List }
MUIA_Group_ChildList = $80424748;
{ V4 is. LongInt }
MUIA_Group_Columns = $8042f416;
{ V4 i.. BOOL }
MUIA_Group_Horiz = $8042536b;
{ V4 isg LongInt }
MUIA_Group_HorizSpacing = $8042c651;
{ V11 i.. struct Hook }
MUIA_Group_LayoutHook = $8042c3b2;
{ V5 i.. BOOL }
MUIA_Group_PageMode = $80421a5f;
{ V4 is. LongInt }
MUIA_Group_Rows = $8042b68f;
{ V4 i.. BOOL }
MUIA_Group_SameHeight = $8042037e;
{ V4 i.. BOOL }
MUIA_Group_SameSize = $80420860;
{ V4 i.. BOOL }
MUIA_Group_SameWidth = $8042b3ec;
{ V4 is. LongInt }
MUIA_Group_Spacing = $8042866d;
{ V4 isg LongInt }
MUIA_Group_VertSpacing = $8042e1bf;
MUIV_Group_ActivePage_First = 0;
MUIV_Group_ActivePage_Last = -(1);
MUIV_Group_ActivePage_Prev = -(2);
MUIV_Group_ActivePage_Next = -(3);
MUIV_Group_ActivePage_Advance = -(4);
{ }
{ Mccprefs }
{ }
const
MUIC_Mccprefs : PChar = 'Mccprefs.mui';
{ }
{ Register }
{ }
const
MUIC_Register : PChar = 'Register.mui';
{ Attributes }
{ V7 i.g BOOL }
const
MUIA_Register_Frame = $8042349b;
{ V7 i.g PChar }
MUIA_Register_Titles = $804297ec;
{ }
{ Penadjust }
{ }
const
MUIC_Penadjust : PChar= 'Penadjust.mui';
{ Methods }
{ Attributes }
{ V11 i.. BOOL }
const
MUIA_Penadjust_PSIMode = $80421cbb;
{ }
{ Settingsgroup }
{ }
const
MUIC_Settingsgroup : PChar = 'Settingsgroup.mui';
{ Methods }
{ V11 }
const
MUIM_Settingsgroup_ConfigToGadgets = $80427043;
{ V11 }
MUIM_Settingsgroup_GadgetsToConfig = $80425242;
type
tMUIP_Settingsgroup_ConfigToGadgets = record
MethodID : LongWord;
configdata : pObject_;
end;
pMUIP_Settingsgroup_ConfigToGadgets = ^tMUIP_Settingsgroup_ConfigToGadgets;
tMUIP_Settingsgroup_GadgetsToConfig = record
MethodID : LongWord;
configdata : pObject_;
end;
pMUIP_Settingsgroup_GadgetsToConfig = ^tMUIP_Settingsgroup_GadgetsToConfig;
{ Attributes }
{ }
{ Settings }
{ }
const
MUIC_Settings : PChar = 'Settings.mui';
{ Methods }
{ Attributes }
{ }
{ Frameadjust }
{ }
const
MUIC_Frameadjust : PChar = 'Frameadjust.mui';
{ Methods }
{ Attributes }
{ }
{ Imageadjust }
{ }
const
MUIC_Imageadjust : PChar = 'Imageadjust.mui';
{ Methods }
{ Attributes }
const
MUIV_Imageadjust_Type_All = 0;
MUIV_Imageadjust_Type_Image = 1;
MUIV_Imageadjust_Type_Background = 2;
MUIV_Imageadjust_Type_Pen = 3;
{ }
{ Virtgroup }
{ }
const
MUIC_Virtgroup : PChar = 'Virtgroup.mui';
{ Methods }
{ Attributes }
{ V6 ..g LongInt }
const
MUIA_Virtgroup_Height = $80423038;
{ V11 i.. BOOL }
MUIA_Virtgroup_Input = $80427f7e;
{ V6 isg LongInt }
MUIA_Virtgroup_Left = $80429371;
{ V6 isg LongInt }
MUIA_Virtgroup_Top = $80425200;
{ V6 ..g LongInt }
MUIA_Virtgroup_Width = $80427c49;
{ }
{ Scrollgroup }
{ }
const
MUIC_Scrollgroup : PChar = 'Scrollgroup.mui';
{ Methods }
{ Attributes }
{ V4 i.g Object }
const
MUIA_Scrollgroup_Contents = $80421261;
{ V9 i.. BOOL }
MUIA_Scrollgroup_FreeHoriz = $804292f3;
{ V9 i.. BOOL }
MUIA_Scrollgroup_FreeVert = $804224f2;
{ V16 ..g Object }
MUIA_Scrollgroup_HorizBar = $8042b63d;
{ V13 i.. BOOL }
MUIA_Scrollgroup_UseWinBorder = $804284c1;
{ V16 ..g Object }
MUIA_Scrollgroup_VertBar = $8042cdc0;
{ }
{ Scrollbar }
{ }
const
MUIC_Scrollbar : PChar = 'Scrollbar.mui';
{ Attributes }
{ V11 i.. LongInt }
const
MUIA_Scrollbar_Type = $8042fb6b;
MUIV_Scrollbar_Type_Default = 0;
MUIV_Scrollbar_Type_Bottom = 1;
MUIV_Scrollbar_Type_Top = 2;
MUIV_Scrollbar_Type_Sym = 3;
{ }
{ Listview }
{ }
const
MUIC_Listview : PChar = 'Listview.mui';
{ Attributes }
{ V7 ..g LongInt }
const
MUIA_Listview_ClickColumn = $8042d1b3;
{ V7 isg LongInt }
MUIA_Listview_DefClickColumn = $8042b296;
{ V4 i.g BOOL }
MUIA_Listview_DoubleClick = $80424635;
{ V11 isg LongInt }
MUIA_Listview_DragType = $80425cd3;
{ V4 i.. BOOL }
MUIA_Listview_Input = $8042682d;
{ V4 i.g Object }
MUIA_Listview_List = $8042bcce;
{ V7 i.. LongInt }
MUIA_Listview_MultiSelect = $80427e08;
{ V10 i.. BOOL }
MUIA_Listview_ScrollerPos = $8042b1b4;
{ V4 ..g BOOL }
MUIA_Listview_SelectChange = $8042178f;
MUIV_Listview_DragType_None = 0;
MUIV_Listview_DragType_Immediate = 1;
MUIV_Listview_MultiSelect_None = 0;
MUIV_Listview_MultiSelect_Default = 1;
MUIV_Listview_MultiSelect_Shifted = 2;
MUIV_Listview_MultiSelect_Always = 3;
MUIV_Listview_ScrollerPos_Default = 0;
MUIV_Listview_ScrollerPos_Left = 1;
MUIV_Listview_ScrollerPos_Right = 2;
MUIV_Listview_ScrollerPos_None = 3;
{ }
{ Radio }
{ }
const
MUIC_Radio : PChar = 'Radio.mui';
{ Attributes }
{ V4 isg LongInt }
const
MUIA_Radio_Active = $80429b41;
{ V4 i.. PChar }
MUIA_Radio_Entries = $8042b6a1;
{ }
{ Cycle }
{ }
const
MUIC_Cycle : PChar = 'Cycle.mui';
{ Attributes }
{ V4 isg LongInt }
const
MUIA_Cycle_Active = $80421788;
{ V4 i.. PChar }
MUIA_Cycle_Entries = $80420629;
MUIV_Cycle_Active_Next = -(1);
MUIV_Cycle_Active_Prev = -(2);
{ }
{ Coloradjust }
{ }
const
MUIC_Coloradjust : PChar = 'Coloradjust.mui';
{ Methods }
{ Attributes }
{ V4 isg LongWord }
const
MUIA_Coloradjust_Blue = $8042b8a3;
{ V4 isg LongWord }
MUIA_Coloradjust_Green = $804285ab;
{ V4 isg LongWord }
MUIA_Coloradjust_ModeID = $8042ec59;
{ V4 isg LongWord }
MUIA_Coloradjust_Red = $80420eaa;
{ V4 isg LongWord }
MUIA_Coloradjust_RGB = $8042f899;
{ }
{ Palette }
{ }
const
MUIC_Palette : PChar = 'Palette.mui';
{ Attributes }
{ V6 i.g struct MUI_Palette_Entry }
const
MUIA_Palette_Entries = $8042a3d8;
{ V6 isg BOOL }
MUIA_Palette_Groupable = $80423e67;
{ V6 isg char }
MUIA_Palette_Names = $8042c3a2;
{ }
{ Popstring }
{ }
const
MUIC_Popstring : PChar = 'Popstring.mui';
{ Methods }
{ V7 }
const
MUIM_Popstring_Close = $8042dc52;
{ V7 }
MUIM_Popstring_Open = $804258ba;
type
tMUIP_Popstring_Close = record
MethodID : LongWord;
result : LongInt;
end;
pMUIP_Popstring_Close = ^tMUIP_Popstring_Close;
tMUIP_Popstring_Open = record
MethodID : LongWord;
end;
pMUIP_Popstring_Open = ^tMUIP_Popstring_Open;
{ Attributes }
{ V7 i.g Object }
const
MUIA_Popstring_Button = $8042d0b9;
{ V7 isg struct Hook }
MUIA_Popstring_CloseHook = $804256bf;
{ V7 isg struct Hook }
MUIA_Popstring_OpenHook = $80429d00;
{ V7 i.g Object }
MUIA_Popstring_String = $804239ea;
{ V7 isg BOOL }
MUIA_Popstring_Toggle = $80422b7a;
{ }
{ Popobject }
{ }
const
MUIC_Popobject : PChar = 'Popobject.mui';
{ Attributes }
{ V7 isg BOOL }
const
MUIA_Popobject_Follow = $80424cb5;
{ V7 isg BOOL }
MUIA_Popobject_Light = $8042a5a3;
{ V7 i.g Object }
MUIA_Popobject_Object = $804293e3;
{ V7 isg struct Hook }
MUIA_Popobject_ObjStrHook = $8042db44;
{ V7 isg struct Hook }
MUIA_Popobject_StrObjHook = $8042fbe1;
{ V7 isg BOOL }
MUIA_Popobject_Volatile = $804252ec;
{ V9 isg struct Hook }
MUIA_Popobject_WindowHook = $8042f194;
{ }
{ Poplist }
{ }
const
MUIC_Poplist : PChar = 'Poplist.mui';
{ Attributes }
{ V8 i.. char }
const
MUIA_Poplist_Array = $8042084c;
{ }
{ Popscreen }
{ }
const
MUIC_Popscreen : PChar = 'Popscreen.mui';
{ Attributes }
{ }
{ Popasl }
{ }
const
MUIC_Popasl : PChar = 'Popasl.mui';
{ Attributes }
{ V7 ..g BOOL }
const
MUIA_Popasl_Active = $80421b37;
{ V7 isg struct Hook }
MUIA_Popasl_StartHook = $8042b703;
{ V7 isg struct Hook }
MUIA_Popasl_StopHook = $8042d8d2;
{ V7 i.g LongWord }
MUIA_Popasl_Type = $8042df3d;
{ }
{ Semaphore }
{ }
const
MUIC_Semaphore : PChar = 'Semaphore.mui';
{ Methods }
{ V11 }
const
MUIM_Semaphore_Attempt = $80426ce2;
{ V11 }
MUIM_Semaphore_AttemptShared = $80422551;
{ V11 }
MUIM_Semaphore_Obtain = $804276f0;
{ V11 }
MUIM_Semaphore_ObtainShared = $8042ea02;
{ V11 }
MUIM_Semaphore_Release = $80421f2d;
type
tMUIP_Semaphore_Attempt = record
MethodID : LongWord;
end;
pMUIP_Semaphore_Attempt = ^tMUIP_Semaphore_Attempt;
tMUIP_Semaphore_AttemptShared = record
MethodID : LongWord;
end;
pMUIP_Semaphore_AttemptShared = ^tMUIP_Semaphore_AttemptShared;
tMUIP_Semaphore_Obtain = record
MethodID : LongWord;
end;
pMUIP_Semaphore_Obtain = ^tMUIP_Semaphore_Obtain;
tMUIP_Semaphore_ObtainShared = record
MethodID : LongWord;
end;
pMUIP_Semaphore_ObtainShared = ^tMUIP_Semaphore_ObtainShared;
tMUIP_Semaphore_Release = record
MethodID : LongWord;
end;
pMUIP_Semaphore_Release = ^tMUIP_Semaphore_Release;
{ }
{ Applist }
{ }
const
MUIC_Applist : PChar = 'Applist.mui';
{ Methods }
{ }
{ Cclist }
{ }
const
MUIC_Cclist : PChar = 'Cclist.mui';
{ Methods }
{ }
{ Dataspace }
{ }
const
MUIC_Dataspace : PChar = 'Dataspace.mui';
{ Methods }
{ V11 }
const
MUIM_Dataspace_Add = $80423366;
{ V11 }
MUIM_Dataspace_Clear = $8042b6c9;
{ V11 }
MUIM_Dataspace_Find = $8042832c;
{ V11 }
MUIM_Dataspace_Merge = $80423e2b;
{ V11 }
MUIM_Dataspace_ReadIFF = $80420dfb;
{ V11 }
MUIM_Dataspace_Remove = $8042dce1;
{ V11 }
MUIM_Dataspace_WriteIFF = $80425e8e;
type
tMUIP_Dataspace_Add = record
MethodID : LongWord;
data : Pointer;
len : LongInt;
id : LongWord;
end;
pMUIP_Dataspace_Add = ^tMUIP_Dataspace_Add;
tMUIP_Dataspace_Clear = record
MethodID : LongWord;
end;
pMUIP_Dataspace_Clear = ^tMUIP_Dataspace_Clear;
tMUIP_Dataspace_Find = record
MethodID : LongWord;
id : LongWord;
end;
pMUIP_Dataspace_Find = ^tMUIP_Dataspace_Find;
tMUIP_Dataspace_Merge = record
MethodID : LongWord;
dataspace : pObject_;
end;
pMUIP_Dataspace_Merge = ^tMUIP_Dataspace_Merge;
tMUIP_Dataspace_ReadIFF = record
MethodID : LongWord;
handle : Pointer; // PIFFHandle; FIX ME!!
end;
pMUIP_Dataspace_ReadIFF = ^tMUIP_Dataspace_ReadIFF;
tMUIP_Dataspace_Remove = record
MethodID : LongWord;
id : LongWord;
end;
pMUIP_Dataspace_Remove = ^tMUIP_Dataspace_Remove;
tMUIP_Dataspace_WriteIFF = record
MethodID : LongWord;
handle : Pointer; // PIFFHandle; FIX ME!!!
type_ : LongWord;
id : LongWord;
end;
pMUIP_Dataspace_WriteIFF = ^tMUIP_Dataspace_WriteIFF;
{ Attributes }
{ V11 i.. Pointer }
const
MUIA_Dataspace_Pool = $80424cf9;
{ }
{ Configdata }
{ }
const
MUIC_Configdata : PChar = 'Configdata.mui';
{ Methods }
{ Attributes }
{ }
{ End of automatic header file creation }
{ }
{
Structures and Macros for creating custom classes.
}
{
GENERAL NOTES:
- Everything described in this header file is only valid within
MUI classes. You may never use any of these things out of
a class, e.g. in a traditional MUI application.
- Except when otherwise stated, all structures are strictly read only.
}
{ Global information for every object }
{ ... private data follows ... }
type
tMUI_GlobalInfo = record
priv0 : LongWord;
mgi_ApplicationObject : pObject_;
end;
pMUI_GlobalInfo = ^tMUI_GlobalInfo;
{ Instance data of notify class }
tMUI_NotifyData = record
mnd_GlobalInfo : PMUI_GlobalInfo;
mnd_UserData : LongWord;
mnd_ObjectID : LongWord;
priv1 : LongWord;
priv2 : LongWord;
priv3 : LongWord;
priv4 : LongWord;
end;
pMUI_NotifyData = ^tMUI_NotifyData;
{ use this if a dimension is not limited. }
const
MUI_MAXMAX = 10000;
{ Hook message for custom layout }
{ type of message (see defines below) }
{ list of this groups children, traverse with NextObject() }
{ results for MUILM_MINMAX }
{ size (and result) for MUILM_LAYOUT }
type
tMUI_LayoutMsg = record
lm_Type : LongWord;
lm_Children : PMinList;
lm_MinMax : tMUI_MinMax;
lm_Layout : record
Width : LongInt;
Height : LongInt;
priv5 : LongWord;
priv6 : LongWord;
end;
end;
pMUI_LayoutMsg = ^tMUI_LayoutMsg;
{ MUI wants you to calc your min & max sizes }
const
MUILM_MINMAX = 1;
{ MUI wants you to layout your children }
MUILM_LAYOUT = 2;
{ return this if your hook doesn't implement lm_Type }
MUILM_UNKNOWN = -(1);
{ (partial) instance data of area class }
{ RenderInfo for this object }
{ Font }
{ min/max/default sizes }
{ position and dimension }
{ frame & innerspacing left offset }
{ frame & innerspacing top offset }
{ frame & innerspacing add. width }
{ frame & innerspacing add. height }
{ see definitions below }
{ ... private data follows ... }
type
tMUI_AreaData = record
mad_RenderInfo : PMUI_RenderInfo;
priv7 : LongWord;
mad_Font : PTextFont;
mad_MinMax : tMUI_MinMax;
mad_Box : tIBox;
mad_addleft : BYTE;
mad_addtop : BYTE;
mad_subwidth : BYTE;
mad_subheight : BYTE;
mad_Flags : LongWord;
end;
pMUI_AreaData = ^tMUI_AreaData;
{ Definitions for mad_Flags, other flags are private }
{ completely redraw yourself }
const
MADF_DRAWOBJECT = 1 shl 0;
{ only update yourself }
MADF_DRAWUPDATE = 1 shl 1;
{ MUI's draw pens }
MPEN_SHINE = 0;
MPEN_HALFSHINE = 1;
MPEN_BACKGROUND = 2;
MPEN_HALFSHADOW = 3;
MPEN_SHADOW = 4;
MPEN_TEXT = 5;
MPEN_FILL = 6;
MPEN_MARK = 7;
MPEN_COUNT = 8;
{ Mask for pens from MUI_ObtainPen() }
MUIPEN_MASK = $0000ffff;
{ Information on display environment }
{ valid between MUIM_Setup/MUIM_Cleanup }
{ valid between MUIM_Setup/MUIM_Cleanup }
{ valid between MUIM_Setup/MUIM_Cleanup }
{ valid between MUIM_Setup/MUIM_Cleanup }
{ valid between MUIM_Show/MUIM_Hide }
{ valid between MUIM_Show/MUIM_Hide }
{ valid between MUIM_Setup/MUIM_Cleanup }
{ ... private data follows ... }
{
If mri_Flags & MUIMRI_RECTFILL, RectFill() is quicker
than Move()/Draw() for horizontal or vertical lines.
on the current display.
}
const
MUIMRI_RECTFILL = 1 shl 0;
{
If mri_Flags & MUIMRI_TRUECOLOR, display environment is a
cybergraphics emulated hicolor or true color display.
}
MUIMRI_TRUECOLOR = 1 shl 1;
{
If mri_Flags & MUIMRI_THINFRAMES, MUI uses thin frames
(1:1) apsect ratio instead of standard 2:1 frames.
}
MUIMRI_THINFRAMES = 1 shl 2;
{
If mri_Flags & MUIMRI_REFRESHMODE, MUI is currently
refreshing a WFLG_SIMPLEREFRESH window and is between
a BeginRefresh()/EndRefresh() pair.
}
MUIMRI_REFRESHMODE = 1 shl 3;
{ the following macros can be used to get pointers to an objects
GlobalInfo and RenderInfo structures. }
type
t__dummyXFC2__ = record
mnd : tMUI_NotifyData;
mad : tMUI_AreaData;
end;
p__dummyXFC2__ = ^t__dummyXFC2__;
const
MUIKEY_RELEASE = -2;
MUIKEY_NONE = -1;
MUIKEY_PRESS = 0;
MUIKEY_TOGGLE = 1;
MUIKEY_UP = 2;
MUIKEY_DOWN = 3;
MUIKEY_PAGEUP = 4;
MUIKEY_PAGEDOWN = 5;
MUIKEY_TOP = 6;
MUIKEY_BOTTOM = 7;
MUIKEY_LEFT = 8;
MUIKEY_RIGHT = 9;
MUIKEY_WORDLEFT = 10;
MUIKEY_WORDRIGHT = 11;
MUIKEY_LINESTART = 12;
MUIKEY_LINEEND = 13;
MUIKEY_GADGET_NEXT = 14;
MUIKEY_GADGET_PREV = 15;
MUIKEY_GADGET_OFF = 16;
MUIKEY_WINDOW_CLOSE = 17;
MUIKEY_WINDOW_NEXT = 18;
MUIKEY_WINDOW_PREV = 19;
MUIKEY_HELP = 20;
MUIKEY_POPUP = 21;
MUIKEY_COUNT = 22;
MUIKEYF_PRESS = 1 shl MUIKEY_PRESS;
MUIKEYF_TOGGLE = 1 shl MUIKEY_TOGGLE;
MUIKEYF_UP = 1 shl MUIKEY_UP;
MUIKEYF_DOWN = 1 shl MUIKEY_DOWN;
MUIKEYF_PAGEUP = 1 shl MUIKEY_PAGEUP;
MUIKEYF_PAGEDOWN = 1 shl MUIKEY_PAGEDOWN;
MUIKEYF_TOP = 1 shl MUIKEY_TOP;
MUIKEYF_BOTTOM = 1 shl MUIKEY_BOTTOM;
MUIKEYF_LEFT = 1 shl MUIKEY_LEFT;
MUIKEYF_RIGHT = 1 shl MUIKEY_RIGHT;
MUIKEYF_WORDLEFT = 1 shl MUIKEY_WORDLEFT;
MUIKEYF_WORDRIGHT = 1 shl MUIKEY_WORDRIGHT;
MUIKEYF_LINESTART = 1 shl MUIKEY_LINESTART;
MUIKEYF_LINEEND = 1 shl MUIKEY_LINEEND;
MUIKEYF_GADGET_NEXT = 1 shl MUIKEY_GADGET_NEXT;
MUIKEYF_GADGET_PREV = 1 shl MUIKEY_GADGET_PREV;
MUIKEYF_GADGET_OFF = 1 shl MUIKEY_GADGET_OFF;
MUIKEYF_WINDOW_CLOSE = 1 shl MUIKEY_WINDOW_CLOSE;
MUIKEYF_WINDOW_NEXT = 1 shl MUIKEY_WINDOW_NEXT;
MUIKEYF_WINDOW_PREV = 1 shl MUIKEY_WINDOW_PREV;
MUIKEYF_HELP = 1 shl MUIKEY_HELP;
MUIKEYF_POPUP = 1 shl MUIKEY_POPUP;
{ MUI_CustomClass returned by MUI_CreateCustomClass() }
{ use for whatever you want }
{ MUI has opened these libraries }
{ for you automatically. You can }
{ use them or decide to open }
{ your libraries yourself. }
{ pointer to super class }
{ pointer to the new class }
{ ... private data follows ... }
type
tMUI_CustomClass = record
mcc_UserData : Pointer;
mcc_UtilityBase : PLibrary;
mcc_DOSBase : PLibrary;
mcc_GfxBase : PLibrary;
mcc_IntuitionBase : PLibrary;
mcc_Super : PIClass;
mcc_Class : PIClass;
end;
pMUI_CustomClass = ^tMUI_CustomClass;
function MUI_NewObjectA(class_ : pChar location 'a0'; tags : pTagItem location 'a1') : pObject_;
syscall legacy MUIMasterBase 30;
procedure MUI_DisposeObject(obj : pObject_ location 'a0');
syscall legacy MUIMasterBase 36;
function MUI_RequestA(app : POINTER location 'd0';
win : POINTER location 'd1';
flags : LongWord location 'd2';
title : pChar location 'a0';
gadgets : pChar location 'a1';
format : pChar location 'a2';
params : POINTER location 'a3') : longint;
syscall legacy MUIMasterBase 42;
function MUI_AllocAslRequest(typ : LongWord location 'd0'; tags : pTagItem location 'a0') : POINTER;
syscall legacy MUIMasterBase 48;
function MUI_AslRequest(req : POINTER location 'a0'; tags : pTagItem location 'a1') : BOOLEAN;
syscall legacy MUIMasterBase 54;
procedure MUI_FreeAslRequest(req : POINTER location 'a0');
syscall legacy MUIMasterBase 60;
function MUI_Error : LONGINT;
syscall legacy MUIMasterBase 66;
function MUI_SetError(errnum : LONGINT location 'd0') : LONGINT;
syscall legacy MUIMasterBase 72;
function MUI_GetClass(name : pChar location 'a0') : pIClass;
syscall legacy MUIMasterBase 78;
procedure MUI_FreeClass(cl : pIClass location 'a0');
syscall legacy MUIMasterBase 84;
procedure MUI_RequestIDCMP(obj : pObject_ location 'a0'; flags : LongWord location 'd0');
syscall legacy MUIMasterBase 90;
procedure MUI_RejectIDCMP(obj : pObject_ location 'a0'; flags : LongWord location 'd0');
syscall legacy MUIMasterBase 96;
procedure MUI_Redraw(obj : pObject_ location 'a0'; flags : LongWord location 'd0');
syscall legacy MUIMasterBase 102;
function MUI_CreateCustomClass(base : pLibrary location 'a0';
supername : pChar location 'a1';
supermcc : pMUI_CustomClass location 'a2';
datasize : LONGINT location 'd0';
dispatcher : POINTER location 'a3') : pMUI_CustomClass;
syscall legacy MUIMasterBase 108;
function MUI_DeleteCustomClass(mcc : pMUI_CustomClass location 'a0') : BOOLEAN;
syscall legacy MUIMasterBase 114;
function MUI_MakeObjectA(typ: LONGINT location 'd0'; params : pLongWord location 'a0') : pLongWord;
syscall legacy MUIMasterBase 120;
function MUI_Layout(obj : pObject_ location 'a0';
l : LONGINT location 'd0';
t : LONGINT location 'd1';
w : LONGINT location 'd2';
h : LONGINT location 'd3';
flags : LongWord location 'd4') : BOOLEAN;
syscall legacy MUIMasterBase 126;
function MUI_ObtainPen(mri : pMUI_RenderInfo location 'a0';
spec : pMUI_PenSpec location 'a1';
flags : LongWord location 'd0') : LONGINT;
syscall legacy MUIMasterBase 156;
procedure MUI_ReleasePen(mri : pMUI_RenderInfo location 'a0';
pen : LONGINT location 'd0');
syscall legacy MUIMasterBase 162;
function MUI_AddClipping(mri : pMUI_RenderInfo location 'a0';
l : smallint location 'd0';
t : smallint location 'd1';
w : smallint location 'd2';
h : smallint location 'd3') : POINTER;
syscall legacy MUIMasterBase 168;
procedure MUI_RemoveClipping(mri : pMUI_RenderInfo location 'a0';
h : POINTER location 'a1');
syscall legacy MUIMasterBase 174;
function MUI_AddClipRegion(mri : pMUI_RenderInfo location 'a0'; region : pRegion location 'a1') : POINTER;
syscall legacy MUIMasterBase 180;
procedure MUI_RemoveClipRegion(mri : pMUI_RenderInfo location 'a0'; region : POINTER location 'a1');
syscall legacy MUIMasterBase 186;
function MUI_BeginRefresh(mri : pMUI_RenderInfo location 'a0'; flags : LongWord location 'd0') : BOOLEAN;
syscall legacy MUIMasterBase 192;
procedure MUI_EndRefresh(mri : pMUI_RenderInfo location 'a0'; flags : LongWord location 'd0');
syscall legacy MUIMasterBase 198;
(*
** some procedures to get some information about our object
*)
function MUINotifyData(obj : Pointer) : pMUI_NotifyData;
function MUIAreaData(obj : Pointer) : pMUI_AreaData;
function MUIGlobalInfo(obj : Pointer) : pMUI_GlobalInfo;
function MUIUserData(obj : Pointer) : Pointer ;
function MUIRenderInfo(obj : Pointer) : pMUI_RenderInfo;
function MUIPen(pen : longint): longint;
(*
** some more specialized functions to retain information about special
** object-data like rastport, window, etc.
**
** NOTE: These macros may only be used in custom classes and are
** only valid if your class is inbetween the specified methods!
*)
function OBJ_App(obj : Pointer) : pObject_; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_Win(obj : Pointer) : pObject_; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_Dri(obj : Pointer) : pDrawInfo; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_Screen(obj : Pointer) : pScreen; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_Pens(obj : Pointer) : pWord; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_Window(obj : Pointer) : pWindow; inline; (* valid between MUIM_Show/Hide *)
function OBJ_Rp(obj : Pointer) : pRastPort; inline; (* valid between MUIM_Show/Hide *)
function OBJ_Left(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Top(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Width(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Height(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Right(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Bottom(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_AddLeft(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_AddTop(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_SubWidth(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_SubHeight(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MLeft(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MTop(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MWidth(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MHeight(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MRight(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_MBottom(obj : Pointer) : smallint; inline; (* valid during MUIM_Draw *)
function OBJ_Font(obj : Pointer) : pTextFont; inline; (* valid between MUIM_Setup/Cleanup *)
function OBJ_MinWidth(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_MinHeight(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_MaxWidth(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_MaxHeight(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_DefWidth(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_DefHeight(obj : Pointer) : LongWord; inline; (* valid between MUIM_Show/Hide *)
function OBJ_Flags(obj : Pointer) : LongWord; inline;
function OBJ_Between(a,x,b : smallint): boolean; inline;
function OBJ_IsInObject(x,y : smallint; obj : pObject_): boolean; inline;
function MUIV_Window_AltHeight_MinMax(p : longint) : longint; inline;
function MUIV_Window_AltHeight_Visible(p : longint) : longint; inline;
function MUIV_Window_AltHeight_Screen(p : longint) : longint; inline;
function MUIV_Window_AltTopEdge_Delta(p : longint) : longint; inline;
function MUIV_Window_AltWidth_MinMax(p : longint) : longint; inline;
function MUIV_Window_AltWidth_Visible(p : longint) : longint; inline;
function MUIV_Window_AltWidth_Screen(p : longint) : longint; inline;
function MUIV_Window_Height_MinMax(p : longint) : longint; inline;
function MUIV_Window_Height_Visible(p : longint) : longint; inline;
function MUIV_Window_Height_Screen(p : longint) : longint; inline;
function MUIV_Window_TopEdge_Delta(p : longint) : longint; inline;
function MUIV_Window_Width_MinMax(p : longint) : longint; inline;
function MUIV_Window_Width_Visible(p : longint) : longint; inline;
function MUIV_Window_Width_Screen(p : longint) : longint; inline;
function MAKE_ID(a,b,c,d : char): longword; inline;
function MUIget(obj: pObject_; attr: longword; store: longword): longword; inline;
function MUIset(obj: pObject_; attr: longword; value: longword): longword; inline;
{
Functions and procedures with array of longword go here
}
function MUI_AllocAslRequestTags(_type : longword; tags : array Of LongWord) : POINTER;
function MUI_AslRequestTags(req : POINTER; tags : array Of LongWord) : BOOLEAN;
function MUI_MakeObject(_type : LONGINT; params : array of LongWord) : pLongWord; inline;
function MUI_NewObject(a0arg : pCHAR; tags : array of LongWord) : pLongWord; inline;
function MUI_Request(app : POINTER; win : POINTER; flags : longword; title : pCHAR; gadgets : pCHAR; format : pCHAR; params : array of LongWord) : LONGINT;
function InitMUIMasterLibrary : boolean;
implementation
function MUINotifyData(obj : Pointer) : pMUI_NotifyData;
begin
MUINotifyData := pMUI_NotifyData(@p__dummyXFC2__(obj)^.mnd);
end;
function MUIAreaData(obj : Pointer) : pMUI_AreaData;
begin
MUIAreaData := pMUI_AreaData(@p__dummyXFC2__(obj)^.mad);
end;
function MUIGlobalInfo(obj : Pointer) : pMUI_GlobalInfo;
begin
MUIGlobalInfo := pMUI_GlobalInfo(p__dummyXFC2__(obj)^.mnd.mnd_GlobalInfo);
end;
function MUIUserData(obj : Pointer) : Pointer ;
begin
MUIUserData := Pointer(p__dummyXFC2__(obj)^.mnd.mnd_GlobalInfo);
end;
function MUIRenderInfo(obj : Pointer) : pMUI_RenderInfo;
begin
MUIRenderInfo := pMUI_RenderInfo(p__dummyXFC2__(obj)^.mad.mad_RenderInfo);
end;
function MUIPen(pen : longint): longint;
begin
MUIPen := longint(pen*MUIPEN_Mask);
end;
function OBJ_App(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_App := pMUI_GlobalInfo(obj)^.mgi_ApplicationObject;
end;
function OBJ_Win(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_Win := pMUI_RenderInfo(obj)^.mri_WindowObject;
end;
function OBJ_Dri(obj : Pointer) : pDrawInfo; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_Dri := pMUI_RenderInfo(obj)^.mri_DrawInfo;
end;
function OBJ_Screen(obj : Pointer) : pScreen; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_Screen := pMUI_RenderInfo(obj)^.mri_Screen;
end;
function OBJ_Pens(obj : Pointer) : pWord; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_Pens := pMUI_RenderInfo(obj)^.mri_Pens;
end;
function OBJ_Window(obj : Pointer) : pWindow; (* valid between MUIM_Show/Hide *)
begin
OBJ_Window := PMUI_RenderInfo(obj)^.mri_Window;
end;
function OBJ_Rp(obj : Pointer) : pRastPort; (* valid between MUIM_Show/Hide *)
begin
OBJ_Rp := pMUI_RenderInfo(obj)^.mri_RastPort;
end;
function OBJ_Left(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Left := pMUI_AreaData(obj)^.mad_Box.Left;
end;
function OBJ_Top(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Top := pMUI_AreaData(obj)^.mad_Box.Top;
end;
function OBJ_Width(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Width := pMUI_AreaData(obj)^.mad_Box.Width;
end;
function OBJ_Height(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Height := pMUI_AreaData(obj)^.mad_Box.Height;
end;
function OBJ_Right(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Right := OBJ_Left(obj) + OBJ_Width(obj) -1;
end;
function OBJ_Bottom(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_Bottom := OBJ_Top(obj) + OBJ_Height(obj) -1;
end;
function OBJ_AddLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_AddLeft := pMUI_AreaData(obj)^.mad_AddLeft;
end;
function OBJ_AddTop(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_AddTop := pMUI_AreaData(obj)^.mad_AddTop;
end;
function OBJ_SubWidth(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_SubWidth := pMUI_AreaData(obj)^.mad_SubWidth;
end;
function OBJ_SubHeight(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_SubHeight := pMUI_AreaData(obj)^.mad_SubHeight;
end;
function OBJ_MLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MLeft := OBJ_Left(obj) + OBJ_AddLeft(obj);
end;
function OBJ_MTop(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MTop := OBJ_Top(obj) + OBJ_AddTop(obj);
end;
function OBJ_MWidth(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MWidth := OBJ_Width(obj) -OBJ_SubWidth(obj);
end;
function OBJ_MHeight(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MHeight := OBJ_Height(obj) - OBJ_SubHeight(obj);
end;
function OBJ_MRight(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MRight := OBJ_MLeft(obj) + OBJ_MWidth(obj) -1;
end;
function OBJ_MBottom(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin
OBJ_MBottom := OBJ_MTop(obj) + OBJ_MHeight(obj) -1;
end;
function OBJ_Font(obj : Pointer) : pTextFont; (* valid between MUIM_Setup/Cleanup *)
begin
OBJ_Font := pMUI_AreaData(obj)^.mad_Font;
end;
function OBJ_MinWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_MinWidth := pMUI_AreaData(obj)^.mad_MinMax.MinWidth;
end;
function OBJ_MinHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_MinHeight := pMUI_AreaData(obj)^.mad_MinMax.MinHeight;
end;
function OBJ_MaxWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_maxWidth := pMUI_AreaData(obj)^.mad_MinMax.MaxWidth;
end;
function OBJ_MaxHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_maxHeight := pMUI_AreaData(obj)^.mad_MinMax.MaxHeight;
end;
function OBJ_DefWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_DefWidth := pMUI_AreaData(obj)^.mad_MinMax.DefWidth;
end;
function OBJ_DefHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin
OBJ_DefHeight := pMUI_AreaData(obj)^.mad_MinMax.DefHeight;
end;
function OBJ_Flags(obj : Pointer) : LongWord;
begin
OBJ_Flags := pMUI_AreaData(obj)^.mad_Flags;
end;
(*
** 2 useful procedures for testing if some coordinates are inside your object
** (converted from the ones in class3.c. So look there how to use... )
*)
function OBJ_Between(a,x,b : smallint): boolean;
begin
OBJ_Between := ((x>=a) and (x<=b));
end;
function OBJ_IsInObject(x,y : smallint; obj : pObject_): boolean;
begin
OBJ_IsInObject := (OBJ_Between(OBJ_MLeft(obj),x,OBJ_MRight(obj))
and OBJ_Between(OBJ_MTop(obj),y,OBJ_MBottom(obj)));
end;
function MUIV_Window_AltHeight_MinMax(p : longint) : longint;
begin
MUIV_Window_AltHeight_MinMax := (0 - p);
end;
function MUIV_Window_AltHeight_Visible(p : longint) : longint;
begin
MUIV_Window_AltHeight_Visible := (-100 - (p));
end;
function MUIV_Window_AltHeight_Screen(p : longint) : longint;
begin
MUIV_Window_AltHeight_Screen := (-200 - (p));
end;
function MUIV_Window_AltTopEdge_Delta(p : longint) : longint;
begin
MUIV_Window_AltTopEdge_Delta := (-3 - (p));
end;
function MUIV_Window_AltWidth_MinMax(p : longint) : longint;
begin
MUIV_Window_AltWidth_MinMax := 0 - p;
end;
function MUIV_Window_AltWidth_Visible(p : longint) : longint;
begin
MUIV_Window_AltWidth_Visible := (-100 - (p));
end;
function MUIV_Window_AltWidth_Screen(p : longint) : longint;
begin
MUIV_Window_AltWidth_Screen := (-200 - (p));
end;
function MUIV_Window_Height_MinMax(p : longint) : longint;
begin
MUIV_Window_Height_MinMax := 0 - p;
end;
function MUIV_Window_Height_Visible(p : longint) : longint;
begin
MUIV_Window_Height_Visible := (-100 - (p));
end;
function MUIV_Window_Height_Screen(p : longint) : longint;
begin
MUIV_Window_Height_Screen := (-200 - (p));
end;
function MUIV_Window_TopEdge_Delta(p : longint) : longint;
begin
MUIV_Window_TopEdge_Delta := (-3 - (p));
end;
function MUIV_Window_Width_MinMax(p : longint) : longint;
begin
MUIV_Window_Width_MinMax := 0 - p;
end;
function MUIV_Window_Width_Visible(p : longint) : longint;
begin
MUIV_Window_Width_Visible := (-100 - (p));
end;
function MUIV_Window_Width_Screen(p : longint) : longint;
begin
MUIV_Window_Width_Screen := (-200 - (p));
end;
{
Functions and procedures with array of longword go here
}
function MUI_AllocAslRequestTags(_type : longword; tags : array of LongWord) : POINTER;
begin
MUI_AllocAslRequestTags := MUI_AllocAslRequest(_type , @tags);
end;
function MUI_AslRequestTags(req : POINTER; tags : array of LongWord) : BOOLEAN;
begin
MUI_AslRequestTags := MUI_AslRequest(req , @tags);
end;
function MUI_MakeObject(_type : LONGINT; params : array of LongWord) : pLongWord; inline;
begin
MUI_MakeObject := MUI_MakeObjectA(_type , @params);
end;
function MUI_NewObject(a0arg : PChar; tags : array of LongWord) : pLongWord; inline;
begin
MUI_NewObject := MUI_NewObjectA(a0arg, @tags);
end;
function MUI_Request(app : POINTER; win : POINTER; flags : longword; title : pCHAR; gadgets : pCHAR; format : pCHAR; params : array of LongWord) : LONGINT;
begin
MUI_Request := MUI_RequestA(app , win , flags , title , gadgets , format , @params);
end;
function MAKE_ID(a,b,c,d : char): longword;
begin
MAKE_ID:=(byte(a) shl 24)+(byte(b) shl 16)+(byte(c) shl 8)+byte(d);
end;
//#define get(obj,attr,store) GetAttr(attr,obj,(ULONG *)store)
function MUIget(obj: pObject_; attr: longword; store: longword): longword;
begin
MUIget:=GetAttr(attr,obj,store);
end;
//#define set(obj,attr,value) SetAttrs(obj,attr,value,TAG_DONE)
function MUIset(obj: pObject_; attr: longword; value: longword): longword;
var args: array[0..2] of longword;
begin
args[0]:=attr;
args[1]:=value;
args[2]:=TAG_DONE;
MUIset:=SetAttrsA(obj,@args);
end;
const
{ Change VERSION and LIBVERSION to proper values }
VERSION : string[2] = '19';
LIBVERSION : longword = MUIMASTER_VMIN;
var
muimaster_exit : Pointer;
procedure CloseMUIMasterLibrary;
begin
ExitProc := muimaster_exit;
if MUIMasterBase <> nil then begin
CloseLibrary(MUIMasterBase);
MUIMasterBase := nil;
end;
end;
function InitMUIMasterLibrary : boolean;
begin
MUIMasterBase := nil;
MUIMasterBase := OpenLibrary(MUIMASTER_NAME,LIBVERSION);
if MUIMasterBase <> nil then begin
muimaster_exit := ExitProc;
ExitProc := @CloseMUIMasterLibrary;
InitMUIMasterLibrary:=True;
end else begin
InitMUIMasterLibrary:=False;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink