paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:29:09 +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

11
ide/wviews.pas
View File

@ -208,6 +208,7 @@ procedure Bug(const S: string; Params: pointer);
procedure ErrorBox(const S: string; Params: pointer); procedure ErrorBox(const S: string; Params: pointer);
procedure WarningBox(const S: string; Params: pointer); procedure WarningBox(const S: string; Params: pointer);
procedure InformationBox(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 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;
@ -1531,6 +1532,11 @@ begin
AdvMessageBox(S,Params,mfInformation+mfInsertInApp+mfOKButton); AdvMessageBox(S,Params,mfInformation+mfInsertInApp+mfOKButton);
end; end;
function OKCancelBox(const S: string; Params: pointer): word;
begin
OKCancelBox:=AdvMessageBox(S,Params,mfInformation+mfInsertInApp+mfOKButton+mfCancelButton);
end;
function b2i(B: boolean): longint; function b2i(B: boolean): longint;
begin begin
if b then b2i:=1 else b2i:=0; if b then b2i:=1 else b2i:=0;
@ -2489,7 +2495,10 @@ end;
END. END.
{ {
$Log$ $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 * FVISION define to compile with fvision units
Revision 1.1 2001/08/04 11:30:26 peter Revision 1.1 2001/08/04 11:30:26 peter