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

Amiga, AROS, MorphOS: MUI/Zune corrections, Escape sequences, Macros

Browse Source 
git-svn-id: trunk@31607 -
This commit is contained in:
marcus 2015-09-11 20:50:42 +00:00
parent 5e94e3ab9e
commit 8096ad3d1b
3 changed files with 73 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
packages/amunits/src/otherlibs/mui.pas
View File

@ -466,27 +466,20 @@ uses exec, intuition,utility,agraphics,iffparse;
MUIV_DragReport_Continue = 1; MUIV_DragReport_Continue = 1;
MUIV_DragReport_Lock = 2; MUIV_DragReport_Lock = 2;
MUIV_DragReport_Refresh = 3; MUIV_DragReport_Refresh = 3;
{
Control codes for text strings // Control codes for text strings
} MUIX_R = #27+'r'; // right justified
{ right justified } MUIX_C = #27+'c'; // centered
MUIX_R : PChar = '\033r'; MUIX_L = #27+'l'; // left justified
{ centered }
MUIX_C : PChar = '\033c'; MUIX_N = #27+'n'; // normal
{ left justified } MUIX_B = #27+'b'; // bold
MUIX_L : PChar = '\033l'; MUIX_I = #27+'i'; // italic
{ normal } MUIX_U = #27+'u'; // underlined
MUIX_N : PChar = '\033n';
{ bold } MUIX_PT = #27+'2'; // text pen
MUIX_B : PChar = '\033b'; MUIX_PH = #27+'8'; // highlight text pen
{ italic }
MUIX_I : PChar = '\033i';
{ underlined }
MUIX_U : PChar = '\033u';
{ text pen }
MUIX_PT : PChar = '\0332';
{ highlight text pen }
MUIX_PH : PChar = '\0338';
{ {
Parameter structures for some classes Parameter structures for some classes
} }
@ -3633,57 +3626,57 @@ end;
function OBJ_App(obj : APTR) : pObject_; (* valid between MUIM_Setup/Cleanup *) function OBJ_App(obj : APTR) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_App := pMUI_GlobalInfo(obj)^.mgi_ApplicationObject; OBJ_App := MUIGlobalInfo(obj)^.mgi_ApplicationObject;
end; end;
function OBJ_Win(obj : APTR) : pObject_; (* valid between MUIM_Setup/Cleanup *) function OBJ_Win(obj : APTR) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Win := pMUI_RenderInfo(obj)^.mri_WindowObject; OBJ_Win := MUIRenderInfo(obj)^.mri_WindowObject;
end; end;
function OBJ_Dri(obj : APTR) : pDrawInfo; (* valid between MUIM_Setup/Cleanup *) function OBJ_Dri(obj : APTR) : pDrawInfo; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Dri := pMUI_RenderInfo(obj)^.mri_DrawInfo; OBJ_Dri := MUIRenderInfo(obj)^.mri_DrawInfo;
end; end;
function OBJ_Screen(obj : APTR) : pScreen; (* valid between MUIM_Setup/Cleanup *) function OBJ_Screen(obj : APTR) : pScreen; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Screen := pMUI_RenderInfo(obj)^.mri_Screen; OBJ_Screen := MUIRenderInfo(obj)^.mri_Screen;
end; end;
function OBJ_Pens(obj : APTR) : pWord; (* valid between MUIM_Setup/Cleanup *) function OBJ_Pens(obj : APTR) : pWord; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Pens := pMUI_RenderInfo(obj)^.mri_Pens; OBJ_Pens := MUIRenderInfo(obj)^.mri_Pens;
end; end;
function OBJ_Window(obj : APTR) : pWindow; (* valid between MUIM_Show/Hide *) function OBJ_Window(obj : APTR) : pWindow; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_Window := PMUI_RenderInfo(obj)^.mri_Window; OBJ_Window := MUIRenderInfo(obj)^.mri_Window;
end; end;
function OBJ_Rp(obj : APTR) : pRastPort; (* valid between MUIM_Show/Hide *) function OBJ_Rp(obj : APTR) : pRastPort; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_Rp := pMUI_RenderInfo(obj)^.mri_RastPort; OBJ_Rp := MUIRenderInfo(obj)^.mri_RastPort;
end; end;
function OBJ_Left(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_Left(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Left := pMUI_AreaData(obj)^.mad_Box.Left; OBJ_Left := MUIAreaData(obj)^.mad_Box.Left;
end; end;
function OBJ_Top(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_Top(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Top := pMUI_AreaData(obj)^.mad_Box.Top; OBJ_Top := MUIAreaData(obj)^.mad_Box.Top;
end; end;
function OBJ_Width(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_Width(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Width := pMUI_AreaData(obj)^.mad_Box.Width; OBJ_Width := MUIAreaData(obj)^.mad_Box.Width;
end; end;
function OBJ_Height(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_Height(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Height := pMUI_AreaData(obj)^.mad_Box.Height; OBJ_Height := MUIAreaData(obj)^.mad_Box.Height;
end; end;
function OBJ_Right(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_Right(obj : APTR) : smallint; (* valid during MUIM_Draw *)
@ -3698,22 +3691,22 @@ end;
function OBJ_AddLeft(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_AddLeft(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_AddLeft := pMUI_AreaData(obj)^.mad_AddLeft; OBJ_AddLeft := MUIAreaData(obj)^.mad_AddLeft;
end; end;
function OBJ_AddTop(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_AddTop(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_AddTop := pMUI_AreaData(obj)^.mad_AddTop; OBJ_AddTop := MUIAreaData(obj)^.mad_AddTop;
end; end;
function OBJ_SubWidth(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_SubWidth(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_SubWidth := pMUI_AreaData(obj)^.mad_SubWidth; OBJ_SubWidth := MUIAreaData(obj)^.mad_SubWidth;
end; end;
function OBJ_SubHeight(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_SubHeight(obj : APTR) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_SubHeight := pMUI_AreaData(obj)^.mad_SubHeight; OBJ_SubHeight := MUIAreaData(obj)^.mad_SubHeight;
end; end;
function OBJ_MLeft(obj : APTR) : smallint; (* valid during MUIM_Draw *) function OBJ_MLeft(obj : APTR) : smallint; (* valid during MUIM_Draw *)
@ -3748,42 +3741,42 @@ end;
function OBJ_Font(obj : APTR) : pTextFont; (* valid between MUIM_Setup/Cleanup *) function OBJ_Font(obj : APTR) : pTextFont; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Font := pMUI_AreaData(obj)^.mad_Font; OBJ_Font := MUIAreaData(obj)^.mad_Font;
end; end;
function OBJ_MinWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_MinWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_MinWidth := pMUI_AreaData(obj)^.mad_MinMax.MinWidth; OBJ_MinWidth := MUIAreaData(obj)^.mad_MinMax.MinWidth;
end; end;
function OBJ_MinHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_MinHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_MinHeight := pMUI_AreaData(obj)^.mad_MinMax.MinHeight; OBJ_MinHeight := MUIAreaData(obj)^.mad_MinMax.MinHeight;
end; end;
function OBJ_MaxWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_MaxWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_maxWidth := pMUI_AreaData(obj)^.mad_MinMax.MaxWidth; OBJ_maxWidth := MUIAreaData(obj)^.mad_MinMax.MaxWidth;
end; end;
function OBJ_MaxHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_MaxHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_maxHeight := pMUI_AreaData(obj)^.mad_MinMax.MaxHeight; OBJ_maxHeight := MUIAreaData(obj)^.mad_MinMax.MaxHeight;
end; end;
function OBJ_DefWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_DefWidth(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_DefWidth := pMUI_AreaData(obj)^.mad_MinMax.DefWidth; OBJ_DefWidth := MUIAreaData(obj)^.mad_MinMax.DefWidth;
end; end;
function OBJ_DefHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *) function OBJ_DefHeight(obj : APTR) : ULONG; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_DefHeight := pMUI_AreaData(obj)^.mad_MinMax.DefHeight; OBJ_DefHeight := MUIAreaData(obj)^.mad_MinMax.DefHeight;
end; end;
function OBJ_Flags(obj : APTR) : ULONG; function OBJ_Flags(obj : APTR) : ULONG;
begin begin
OBJ_Flags := pMUI_AreaData(obj)^.mad_Flags; OBJ_Flags := MUIAreaData(obj)^.mad_Flags;
end; end;
(* (*

34
packages/arosunits/src/mui.pas
View File

@ -442,27 +442,19 @@ uses
MUIV_DragReport_Continue = 1; MUIV_DragReport_Continue = 1;
MUIV_DragReport_Lock = 2; MUIV_DragReport_Lock = 2;
MUIV_DragReport_Refresh = 3; MUIV_DragReport_Refresh = 3;
{
Control codes for text strings // Control codes for text strings
} MUIX_R = #27+'r'; // right justified
{ right justified } MUIX_C = #27+'c'; // centered
MUIX_R : PChar = '\033r'; MUIX_L = #27+'l'; // left justified
{ centered }
MUIX_C : PChar = '\033c'; MUIX_N = #27+'n'; // normal
{ left justified } MUIX_B = #27+'b'; // bold
MUIX_L : PChar = '\033l'; MUIX_I = #27+'i'; // italic
{ normal } MUIX_U = #27+'u'; // underlined
MUIX_N : PChar = '\033n';
{ bold } MUIX_PT = #27+'2'; // text pen
MUIX_B : PChar = '\033b'; MUIX_PH = #27+'8'; // highlight text pen
{ italic }
MUIX_I : PChar = '\033i';
{ underlined }
MUIX_U : PChar = '\033u';
{ text pen }
MUIX_PT : PChar = '\0332';
{ highlight text pen }
MUIX_PH : PChar = '\0338';
{ {
Parameter structures for some classes Parameter structures for some classes
} }

46
packages/morphunits/src/mui.pas
View File

@ -3525,57 +3525,57 @@ end;
function OBJ_App(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *) function OBJ_App(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_App := pMUI_GlobalInfo(obj)^.mgi_ApplicationObject; OBJ_App := MUIGlobalInfo(obj)^.mgi_ApplicationObject;
end; end;
function OBJ_Win(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *) function OBJ_Win(obj : Pointer) : pObject_; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Win := pMUI_RenderInfo(obj)^.mri_WindowObject; OBJ_Win := MUIRenderInfo(obj)^.mri_WindowObject;
end; end;
function OBJ_Dri(obj : Pointer) : pDrawInfo; (* valid between MUIM_Setup/Cleanup *) function OBJ_Dri(obj : Pointer) : pDrawInfo; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Dri := pMUI_RenderInfo(obj)^.mri_DrawInfo; OBJ_Dri := MUIRenderInfo(obj)^.mri_DrawInfo;
end; end;
function OBJ_Screen(obj : Pointer) : pScreen; (* valid between MUIM_Setup/Cleanup *) function OBJ_Screen(obj : Pointer) : pScreen; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Screen := pMUI_RenderInfo(obj)^.mri_Screen; OBJ_Screen := MUIRenderInfo(obj)^.mri_Screen;
end; end;
function OBJ_Pens(obj : Pointer) : pWord; (* valid between MUIM_Setup/Cleanup *) function OBJ_Pens(obj : Pointer) : pWord; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Pens := pMUI_RenderInfo(obj)^.mri_Pens; OBJ_Pens := MUIRenderInfo(obj)^.mri_Pens;
end; end;
function OBJ_Window(obj : Pointer) : pWindow; (* valid between MUIM_Show/Hide *) function OBJ_Window(obj : Pointer) : pWindow; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_Window := PMUI_RenderInfo(obj)^.mri_Window; OBJ_Window := MUIRenderInfo(obj)^.mri_Window;
end; end;
function OBJ_Rp(obj : Pointer) : pRastPort; (* valid between MUIM_Show/Hide *) function OBJ_Rp(obj : Pointer) : pRastPort; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_Rp := pMUI_RenderInfo(obj)^.mri_RastPort; OBJ_Rp := MUIRenderInfo(obj)^.mri_RastPort;
end; end;
function OBJ_Left(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_Left(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Left := pMUI_AreaData(obj)^.mad_Box.Left; OBJ_Left := MUIAreaData(obj)^.mad_Box.Left;
end; end;
function OBJ_Top(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_Top(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Top := pMUI_AreaData(obj)^.mad_Box.Top; OBJ_Top := MUIAreaData(obj)^.mad_Box.Top;
end; end;
function OBJ_Width(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_Width(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Width := pMUI_AreaData(obj)^.mad_Box.Width; OBJ_Width := MUIAreaData(obj)^.mad_Box.Width;
end; end;
function OBJ_Height(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_Height(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_Height := pMUI_AreaData(obj)^.mad_Box.Height; OBJ_Height := MUIAreaData(obj)^.mad_Box.Height;
end; end;
function OBJ_Right(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_Right(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
@ -3590,22 +3590,22 @@ end;
function OBJ_AddLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_AddLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_AddLeft := pMUI_AreaData(obj)^.mad_AddLeft; OBJ_AddLeft := MUIAreaData(obj)^.mad_AddLeft;
end; end;
function OBJ_AddTop(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_AddTop(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_AddTop := pMUI_AreaData(obj)^.mad_AddTop; OBJ_AddTop := MUIAreaData(obj)^.mad_AddTop;
end; end;
function OBJ_SubWidth(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_SubWidth(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_SubWidth := pMUI_AreaData(obj)^.mad_SubWidth; OBJ_SubWidth := MUIAreaData(obj)^.mad_SubWidth;
end; end;
function OBJ_SubHeight(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_SubHeight(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
begin begin
OBJ_SubHeight := pMUI_AreaData(obj)^.mad_SubHeight; OBJ_SubHeight := MUIAreaData(obj)^.mad_SubHeight;
end; end;
function OBJ_MLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *) function OBJ_MLeft(obj : Pointer) : smallint; (* valid during MUIM_Draw *)
@ -3640,42 +3640,42 @@ end;
function OBJ_Font(obj : Pointer) : pTextFont; (* valid between MUIM_Setup/Cleanup *) function OBJ_Font(obj : Pointer) : pTextFont; (* valid between MUIM_Setup/Cleanup *)
begin begin
OBJ_Font := pMUI_AreaData(obj)^.mad_Font; OBJ_Font := MUIAreaData(obj)^.mad_Font;
end; end;
function OBJ_MinWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_MinWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_MinWidth := pMUI_AreaData(obj)^.mad_MinMax.MinWidth; OBJ_MinWidth := MUIAreaData(obj)^.mad_MinMax.MinWidth;
end; end;
function OBJ_MinHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_MinHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_MinHeight := pMUI_AreaData(obj)^.mad_MinMax.MinHeight; OBJ_MinHeight := MUIAreaData(obj)^.mad_MinMax.MinHeight;
end; end;
function OBJ_MaxWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_MaxWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_maxWidth := pMUI_AreaData(obj)^.mad_MinMax.MaxWidth; OBJ_maxWidth := MUIAreaData(obj)^.mad_MinMax.MaxWidth;
end; end;
function OBJ_MaxHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_MaxHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_maxHeight := pMUI_AreaData(obj)^.mad_MinMax.MaxHeight; OBJ_maxHeight := MUIAreaData(obj)^.mad_MinMax.MaxHeight;
end; end;
function OBJ_DefWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_DefWidth(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_DefWidth := pMUI_AreaData(obj)^.mad_MinMax.DefWidth; OBJ_DefWidth := MUIAreaData(obj)^.mad_MinMax.DefWidth;
end; end;
function OBJ_DefHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *) function OBJ_DefHeight(obj : Pointer) : LongWord; (* valid between MUIM_Show/Hide *)
begin begin
OBJ_DefHeight := pMUI_AreaData(obj)^.mad_MinMax.DefHeight; OBJ_DefHeight := MUIAreaData(obj)^.mad_MinMax.DefHeight;
end; end;
function OBJ_Flags(obj : Pointer) : LongWord; function OBJ_Flags(obj : Pointer) : LongWord;
begin begin
OBJ_Flags := pMUI_AreaData(obj)^.mad_Flags; OBJ_Flags := MUIAreaData(obj)^.mad_Flags;
end; end;
(* (*