paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:32:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Ami-extra: more text creation macros

Browse Source 
git-svn-id: trunk@35176 -
This commit is contained in:
marcus 2016-12-21 20:02:10 +00:00
parent 2acf542737
commit 8f397594df
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/ami-extra/src/muihelper.pas
View File

@ -90,6 +90,8 @@ function MH_Text(Contents: PChar): PObject_;
function MH_Text(Contents: PChar; const Tags: array of PtrUInt): PObject_;
function MH_Text(var Text_; Contents: PChar): PObject_;
function MH_Text(var Text_; Contents: PChar; const Tags: array of PtrUInt): PObject_;
function MH_Text(const Tags: array of PtrUInt): PObject_;
function MH_Text(var NText; const Tags: array of PtrUInt): PObject_;
// Creates a MUI Rectangle
function MH_Rectangle(const Tags: array of PtrUInt): PObject_;
function MH_Rectangle(var Rectangle; const Tags: array of PtrUInt): PObject_;
@ -598,6 +600,17 @@ begin
MH_Text := PObject_(Text_);
end;
function MH_Text(const Tags: array of PtrUInt): PObject_;
begin
MH_Text := MUI_NewObject(MUIC_Text, Tags);
end;
function MH_Text(var NText; const Tags: array of PtrUInt): PObject_;
begin
PObject_(NText) := MUI_NewObject(MUIC_Text, Tags);
MH_Text := PObject_(NText);
end;
// Creates a MUI Rectangle
// ************************************************************************
function MH_Rectangle(const Tags: array of PtrUInt): PObject_;