paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ new function OKCancelBox added

Browse Source
This commit is contained in:
pierre 2002-04-12 08:59:00 +00:00
parent 411e27c778
commit 3cd48ab7e6
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/wviews.pas
View File

@ -208,8 +208,9 @@ procedure Bug(const S: string; Params: pointer);
procedure ErrorBox(const S: string; Params: pointer);
procedure WarningBox(const S: string; Params: pointer);
procedure InformationBox(const S: string; Params: pointer);
function OKCancelBox(const S: string; Params: pointer): word;
function ConfirmBox(const S: string; Params: pointer; CanCancel: boolean): word;
function ChoiceBox(const S: string; Params: pointer; Buttons: array of longstring; CanCancel: boolean): word;
function ChoiceBox(const S: string; Params: pointer; Buttons: array of longstring; CanCancel: boolean): word;
procedure ShowMessage(Msg: string);
procedure HideMessage;
@ -1531,6 +1532,11 @@ begin
AdvMessageBox(S,Params,mfInformation+mfInsertInApp+mfOKButton);
end;
function OKCancelBox(const S: string; Params: pointer): word;
begin
OKCancelBox:=AdvMessageBox(S,Params,mfInformation+mfInsertInApp+mfOKButton+mfCancelButton);
end;
function b2i(B: boolean): longint;
begin
if b then b2i:=1 else b2i:=0;
@ -2489,7 +2495,10 @@ end;
END.
{
$Log$
Revision 1.2 2001-08-05 02:01:49 peter
Revision 1.3 2002-04-12 08:59:00 pierre
+ new function OKCancelBox added
Revision 1.2 2001/08/05 02:01:49 peter
* FVISION define to compile with fvision units
Revision 1.1 2001/08/04 11:30:26 peter