paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 15:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* IniPath removed

Browse Source
This commit is contained in:
pierre 2000-03-13 20:34:07 +00:00
parent 128fb2a7dc
commit 68eeed36f8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/fpmopts.inc
View File

@ -1167,13 +1167,13 @@ procedure TIDEApp.OpenINI;
var D: PFileDialog; var D: PFileDialog;
FileName: string; FileName: string;
begin begin
New(D, Init(ININame,'Open Options',ININame,fdOpenButton,0)); New(D, Init(INIFileName,'Open Options',INIFileName,fdOpenButton,0));
if Desktop^.ExecView(D)<>cmCancel then if Desktop^.ExecView(D)<>cmCancel then
begin begin
D^.GetFileName(FileName); D^.GetFileName(FileName);
if ExistsFile(FileName)=false then ErrorBox('Can''t open config file.',nil) else if ExistsFile(FileName)=false then ErrorBox('Can''t open config file.',nil) else
begin begin
INIPath:=FileName; IniFileName:=FileName;
ReadINIFile; ReadINIFile;
Message(Application,evBroadcast,cmUpdate,nil); Message(Application,evBroadcast,cmUpdate,nil);
end; end;
@ -1192,7 +1192,7 @@ var D: PFileDialog;
FileName: string; FileName: string;
CanWrite: boolean; CanWrite: boolean;
begin begin
New(D, Init(ININame,'Save Options',ININame,fdOpenButton,0)); New(D, Init(INIFileName,'Save Options',INIFileName,fdOpenButton,0));
if Desktop^.ExecView(D)<>cmCancel then if Desktop^.ExecView(D)<>cmCancel then
begin begin
D^.GetFileName(FileName); D^.GetFileName(FileName);
@ -1201,7 +1201,7 @@ begin
CanWrite:=ConfirmBox('File '+SmartPath(FileName)+' already exists. Overwrite?',nil,false)=cmYes; CanWrite:=ConfirmBox('File '+SmartPath(FileName)+' already exists. Overwrite?',nil,false)=cmYes;
if CanWrite then if CanWrite then
begin begin
INIPath:=FileName; IniFileName:=FileName;
if WriteINIFile=false then if WriteINIFile=false then
ErrorBox('Error saving config file.',nil); ErrorBox('Error saving config file.',nil);
Message(Application,evBroadcast,cmUpdate,nil); Message(Application,evBroadcast,cmUpdate,nil);
@ -1212,7 +1212,10 @@ end;
{ {
$Log$ $Log$
Revision 1.29 2000-03-07 22:52:50 pierre Revision 1.30 2000-03-13 20:34:07 pierre
* IniPath removed
Revision 1.29 2000/03/07 22:52:50 pierre
+ Assembler tab in Options|Compiler + Assembler tab in Options|Compiler
Revision 1.28 2000/02/07 12:02:32 pierre Revision 1.28 2000/02/07 12:02:32 pierre