Changeset 36 for trunk/UCore.pas
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 5 5 xtactics.dbg 6 6 heaptrclog.trc 7 Config.xml
-
- Property svn:ignore
-
trunk/UCore.pas
r34 r36 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, ActnList, Controls, Dialogs, Forms, UGame,9 U CoolTranslator;8 Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms, 9 UGame, UCoolTranslator; 10 10 11 11 type … … 24 24 ImageListLarge: TImageList; 25 25 ImageListSmall: TImageList; 26 XMLConfig1: TXMLConfig; 26 27 procedure AExitExecute(Sender: TObject); 27 28 procedure AGameEndExecute(Sender: TObject); … … 120 121 Game.New; 121 122 Game.Running := True; 122 FormMain. Redraw;123 FormMain.AZoomAll.Execute; 123 124 end; 124 125 end; … … 152 153 procedure TCore.DataModuleDestroy(Sender: TObject); 153 154 begin 155 Game.SaveConfig(XMLConfig1, 'Game'); 156 XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code); 154 157 FreeAndNil(Game); 155 158 end; … … 160 163 begin 161 164 FInitialized := True; 165 CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', '')); 162 166 for I := 0 to Game.Players.Count - 1 do 163 167 TPlayer(Game.Players[I]).View.DestRect := Rect(0, 0, FormMain.PaintBox1.Width, 164 168 FormMain.PaintBox1.Height); 169 Game.LoadConfig(XMLConfig1, 'Game'); 165 170 Game.New; 166 171 Game.Running := True; 167 FormMain. Redraw;172 FormMain.AZoomAll.Execute; 168 173 end; 169 174
Note:
See TracChangeset
for help on using the changeset viewer.