Changeset 55
- Timestamp:
- Dec 24, 2022, 7:26:21 PM (23 months ago)
- Location:
- trunk
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormDebug.pas
r52 r55 1 1 unit UFormDebug; 2 3 {$mode delphi}{$H+}4 2 5 3 interface … … 10 8 type 11 9 TFormDebug = class(TForm) 12 private13 { private declarations }14 public15 { public declarations }16 10 end; 17 11 -
trunk/Forms/UFormGameResult.pas
r52 r55 1 1 unit UFormGameResult; 2 3 {$mode delphi}{$H+}4 2 5 3 interface … … 10 8 type 11 9 TFormGameResult = class(TForm) 12 private13 { private declarations }14 public15 { public declarations }16 10 end; 17 11 18 12 var 19 13 FormGameResult: TFormGameResult; 14 20 15 21 16 implementation -
trunk/Forms/UFormMain.lfm
r53 r55 1 1 object FormMain: TFormMain 2 2 Left = 692 3 Height = 6183 Height = 536 4 4 Top = 479 5 Width = 7705 Width = 668 6 6 Caption = 'Tunneler' 7 ClientHeight = 5 848 ClientWidth = 7709 DesignTimePPI = 1 447 ClientHeight = 506 8 ClientWidth = 668 9 DesignTimePPI = 125 10 10 Menu = MainMenu1 11 11 OnClose = FormClose … … 16 16 OnKeyUp = FormKeyUp 17 17 OnShow = FormShow 18 LCLVersion = '2. 0.12.0'18 LCLVersion = '2.2.4.0' 19 19 object StatusBar1: TStatusBar 20 20 Left = 0 21 Height = 2 722 Top = 55723 Width = 77021 Height = 24 22 Top = 482 23 Width = 668 24 24 Panels = < 25 25 item 26 Width = 7426 Width = 64 27 27 end 28 28 item 29 Width = 7429 Width = 64 30 30 end 31 31 item 32 Width = 7432 Width = 64 33 33 end 34 34 item 35 Width = 7435 Width = 64 36 36 end 37 37 item 38 Width = 7438 Width = 64 39 39 end 40 40 item 41 Width = 7441 Width = 64 42 42 end 43 43 item 44 Width = 7444 Width = 64 45 45 end> 46 46 ParentFont = False … … 49 49 object Image1: TImage 50 50 Left = 0 51 Height = 55751 Height = 482 52 52 Top = 0 53 Width = 77053 Width = 668 54 54 Align = alClient 55 55 OnResize = Image1Resize … … 58 58 Interval = 50 59 59 OnTimer = TimerDrawTimer 60 Left = 1 4961 Top = 7660 Left = 129 61 Top = 66 62 62 end 63 63 object MainMenu1: TMainMenu 64 Left = 2 7665 Top = 2 464 Left = 240 65 Top = 21 66 66 object MenuItem1: TMenuItem 67 67 Caption = 'Game' … … 92 92 Interval = 20 93 93 OnTimer = TimerEngineTickTimer 94 Left = 1 4495 Top = 1 5694 Left = 125 95 Top = 135 96 96 end 97 97 object ActionList1: TActionList 98 Left = 43299 Top = 4 898 Left = 375 99 Top = 42 100 100 object AFullScreen: TAction 101 101 Caption = 'Fullscreen mode' … … 131 131 RootName = 'CONFIG' 132 132 ReadOnly = False 133 Left = 1 49134 Top = 3 60133 Left = 129 134 Top = 313 135 135 end 136 136 object AboutDialog1: TAboutDialog … … 138 138 ThemeManager = Core.ThemeManager1 139 139 ApplicationInfo = Core.ApplicationInfo 140 Left = 308141 Top = 1 81140 Left = 267 141 Top = 157 142 142 end 143 143 end -
trunk/Forms/UFormMain.pas
r53 r55 1 1 unit UFormMain; 2 3 {$mode delphi}{$H+}4 2 5 3 interface … … 69 67 FormMain: TFormMain; 70 68 69 71 70 implementation 72 71 … … 149 148 Randomize; 150 149 DoubleBuffered := False; 151 Engine := TEngine.Create ;150 Engine := TEngine.Create(nil); 152 151 Engine.Bitmap := Image1.Picture.Bitmap; 153 152 Core.Translator1.Language := Core.Translator1.Languages.SearchByCode('cs'); -
trunk/Forms/UFormMap.pas
r52 r55 1 1 unit UFormMap; 2 3 {$mode delphi}{$H+}4 2 5 3 interface … … 16 14 procedure FormShow(Sender: TObject); 17 15 procedure Image1Resize(Sender: TObject); 18 private 19 { private declarations } 20 public 21 { public declarations } 22 end; 16 end; 23 17 24 18 var 25 19 FormMap: TFormMap; 20 26 21 27 22 implementation -
trunk/Forms/UFormNewGame.pas
r51 r55 1 1 unit UFormNewGame; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/UCore.pas
r54 r55 1 1 unit UCore; 2 3 {$mode delphi}4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UTheme, UApplicationInfo, UTranslator , UAboutDialog;6 Classes, SysUtils, UTheme, UApplicationInfo, UTranslator; 9 7 10 8 type … … 16 14 Translator1: TTranslator; 17 15 ThemeManager1: TThemeManager; 18 private19 20 public21 22 16 end; 23 17 24 18 var 25 19 Core: TCore; 20 26 21 27 22 implementation -
trunk/UEngine.pas
r52 r55 1 1 unit UEngine; 2 3 {$mode delphi}{$H+}4 2 5 3 interface … … 216 214 { TEngine } 217 215 218 TEngine = class 216 TEngine = class(TComponent) 219 217 private 220 218 FActive: Boolean; … … 248 246 DrawDuration: TDatetime; 249 247 procedure CheckGameEnd; 250 constructor Create ;248 constructor Create(AOwner: TComponent); override; 251 249 destructor Destroy; override; 252 250 procedure ResizePlayerFrames; … … 1521 1519 end; 1522 1520 1523 constructor TEngine.Create; 1524 begin 1521 constructor TEngine.Create(AOwner: TComponent); 1522 begin 1523 inherited; 1525 1524 Lock := TCriticalSection.Create; 1526 1525 FBitmapLower := TBitmapTColor.Create; -
trunk/UPlatform.pas
r10 r55 1 1 unit UPlatform; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/tunneler.lpi
r54 r55 202 202 <Other> 203 203 <CompilerMessages> 204 <IgnoredMessages idx 5024="True"/>204 <IgnoredMessages idx6058="True" idx5024="True" idx3124="True" idx3123="True"/> 205 205 </CompilerMessages> 206 206 <CustomOptions Value="-dDEBUG"/> -
trunk/tunneler.lpr
r52 r55 27 27 {$ENDIF} 28 28 29 Application.Title:=''; 29 30 Application.Scaled:=True; 30 31 Application.Initialize;
Note:
See TracChangeset
for help on using the changeset viewer.