paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: AMsgBox no longer depends on the deprecated PasToC, added a rawbytestring variant to MessageBox() function.

Browse Source 
git-svn-id: trunk@30978 -
This commit is contained in:
Károly Balogh 2015-06-05 01:52:35 +00:00
parent 97d9f86d59
commit 979b91740e
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/amunits/src/utilunits/amsgbox.pas
View File

@ -28,13 +28,12 @@ unit AMsgBox;
interface
FUNCTION MessageBox(tit,txt,gad:string) : LONGint;
function MessageBox(tit,txt,gad:pchar):longint;
FUNCTION MessageBox(const tit,txt,gad:RawByteString): LongInt;
FUNCTION MessageBox(const tit,txt,gad:string): LongInt;
function MessageBox(const tit,txt,gad:pchar): LongInt;
implementation
uses pastoc;
type
pEasyStruct = ^tEasyStruct;
tEasyStruct = record
@ -48,21 +47,26 @@ type
FUNCTION EasyRequestArgs(window : pointer location 'a0'; easyStruct : pEasyStruct location 'a1'; idcmpPtr : longint location 'a2'; args : POINTER location 'a3') : LONGINT; syscall _IntuitionBase 588;
FUNCTION MessageBox(tit,txt,gad:string) : LONGint;
FUNCTION MessageBox(const tit,txt,gad:RawByteString): LongInt;
begin
MessageBox := MessageBox(pas2c(tit),pas2c(txt),pas2c(gad));
MessageBox:=MessageBox(PChar(tit),PChar(txt),PChar(gad));
end;
FUNCTION MessageBox(tit,txt,gad:pchar) : LONGint;
FUNCTION MessageBox(const tit,txt,gad:string) : LONGint;
begin
MessageBox := MessageBox(PChar(RawByteString(tit)),PChar(RawByteString(txt)),PChar(RawByteString(gad)));
end;
FUNCTION MessageBox(const tit,txt,gad:pchar) : LONGint;
VAR
MyStruct : tEasyStruct;
BEGIN
MyStruct.es_StructSize:=SizeOf(tEasyStruct);
MyStruct.es_Flags:=0;
MyStruct.es_Title:=(tit);
MyStruct.es_TextFormat:=(txt);
MyStruct.es_GadgetFormat:=(gad);
MessageBox := EasyRequestArgs(nil,@MyStruct,0,NIL);
MyStruct.es_StructSize:=SizeOf(tEasyStruct);
MyStruct.es_Flags:=0;
MyStruct.es_Title:=(tit);
MyStruct.es_TextFormat:=(txt);
MyStruct.es_GadgetFormat:=(gad);
MessageBox := EasyRequestArgs(nil,@MyStruct,0,NIL);
END;
end.