paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 11:07:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use normal strings for ChoiceBox function

Browse Source
This commit is contained in:
pierre 2002-08-13 07:12:08 +00:00
parent 9f748ffd75
commit b446a7d124
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpini.pas
View File

@ -140,7 +140,7 @@ end;
procedure CheckINIFile;
var IniDir,CurDir: DirStr;
INI: PINIFile;
const Btns : array[1..2] of longstring = (btn_config_copyexisting,btn_config_createnew);
const Btns : array[1..2] of string = (btn_config_copyexisting,btn_config_createnew);
begin
IniDir:=DirOf(IniFileName); CurDir:=GetCurDir;
if CompareText(IniDir,CurDir)<>0 then
@ -622,7 +622,10 @@ end;
end.
{
$Log$
Revision 1.4 2002-04-02 14:06:50 pierre
Revision 1.5 2002-08-13 07:12:08 pierre
* use normal strings for ChoiceBox function
Revision 1.4 2002/04/02 14:06:50 pierre
* avoid a problem if resetting debuggee redirection
Revision 1.3 2001/08/12 00:04:50 pierre

9
ide/wviews.pas
View File

@ -210,7 +210,7 @@ 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 string; CanCancel: boolean): word;
procedure ShowMessage(Msg: string);
procedure HideMessage;
@ -1548,7 +1548,7 @@ begin
b2i(CanCancel)*mfCancelButton+b2i(not CanCancel)*mfCantCancel);
end;
function ChoiceBox(const S: string; Params: pointer; Buttons: array of longstring; CanCancel: boolean): word;
function ChoiceBox(const S: string; Params: pointer; Buttons: array of string; CanCancel: boolean): word;
var BtnMask,M: longint;
I,BtnCount: integer;
begin
@ -2495,7 +2495,10 @@ end;
END.
{
$Log$
Revision 1.3 2002-04-12 08:59:00 pierre
Revision 1.4 2002-08-13 07:12:08 pierre
* use normal strings for ChoiceBox function
Revision 1.3 2002/04/12 08:59:00 pierre
+ new function OKCancelBox added
Revision 1.2 2001/08/05 02:01:49 peter