[Boardmod-devel] boardmod uMain.pas,1.2.2.15,1.2.2.16

[Michael P. <mic...@us...>]

Update of /cvsroot/boardmod/boardmod
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18365

Modified Files:
      Tag: BoardMod25-branch
	uMain.pas 
Log Message:
fixed an ugly bug if there is no ini file

Index: uMain.pas
===================================================================
RCS file: /cvsroot/boardmod/boardmod/uMain.pas,v
retrieving revision 1.2.2.15
retrieving revision 1.2.2.16
diff -C2 -d -r1.2.2.15 -r1.2.2.16
*** uMain.pas	2 Mar 2005 23:05:54 -0000	1.2.2.15
--- uMain.pas	4 Mar 2005 14:15:18 -0000	1.2.2.16
***************
*** 184,187 ****
--- 184,188 ----
      MyDefaultCfg.SaveToFile(CfgFile);
      MyDefaultCfg.Free;
+     Configuration := TMemIniFile.Create(CfgFile);
    end else begin
      // check if ini version is out of date
***************
*** 341,345 ****
    LinuxBrowserList.Free;
    InstallLog.Free;
! 
end;
  
  procedure TMain.AboutClick(Sender: TObject);
--- 342,346 ----
    LinuxBrowserList.Free;
    InstallLog.Free;
! end;
  
  procedure TMain.AboutClick(Sender: TObject);
***************
*** 483,487 ****
      if Main.InstallMode1.Checked then InstallForm.DoFastInstallation(self);}
    end else
! 
  begin
      // Add to/remove from log file
      installedmod := Mod_Folder.Text + PathDelim + CheckListBox1.Items.Strings[CheckListBox1.ItemIndex];
--- 484,488 ----
      if Main.InstallMode1.Checked then InstallForm.DoFastInstallation(self);}
    end else
!   begin
      // Add to/remove from log file
      installedmod := Mod_Folder.Text + PathDelim + CheckListBox1.Items.Strings[CheckListBox1.ItemIndex];