Changeset 55


Ignore:
Timestamp:
Dec 24, 2022, 7:26:21 PM (23 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
11 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormDebug.pas

    r52 r55  
    11unit UFormDebug;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
     
    108type
    119  TFormDebug = class(TForm)
    12   private
    13     { private declarations }
    14   public
    15     { public declarations }
    1610  end;
    1711
  • trunk/Forms/UFormGameResult.pas

    r52 r55  
    11unit UFormGameResult;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
     
    108type
    119  TFormGameResult = class(TForm)
    12   private
    13     { private declarations }
    14   public
    15     { public declarations }
    1610  end;
    1711
    1812var
    1913  FormGameResult: TFormGameResult;
     14
    2015
    2116implementation
  • trunk/Forms/UFormMain.lfm

    r53 r55  
    11object FormMain: TFormMain
    22  Left = 692
    3   Height = 618
     3  Height = 536
    44  Top = 479
    5   Width = 770
     5  Width = 668
    66  Caption = 'Tunneler'
    7   ClientHeight = 584
    8   ClientWidth = 770
    9   DesignTimePPI = 144
     7  ClientHeight = 506
     8  ClientWidth = 668
     9  DesignTimePPI = 125
    1010  Menu = MainMenu1
    1111  OnClose = FormClose
     
    1616  OnKeyUp = FormKeyUp
    1717  OnShow = FormShow
    18   LCLVersion = '2.0.12.0'
     18  LCLVersion = '2.2.4.0'
    1919  object StatusBar1: TStatusBar
    2020    Left = 0
    21     Height = 27
    22     Top = 557
    23     Width = 770
     21    Height = 24
     22    Top = 482
     23    Width = 668
    2424    Panels = <   
    2525      item
    26         Width = 74
     26        Width = 64
    2727      end   
    2828      item
    29         Width = 74
     29        Width = 64
    3030      end   
    3131      item
    32         Width = 74
     32        Width = 64
    3333      end   
    3434      item
    35         Width = 74
     35        Width = 64
    3636      end   
    3737      item
    38         Width = 74
     38        Width = 64
    3939      end   
    4040      item
    41         Width = 74
     41        Width = 64
    4242      end   
    4343      item
    44         Width = 74
     44        Width = 64
    4545      end>
    4646    ParentFont = False
     
    4949  object Image1: TImage
    5050    Left = 0
    51     Height = 557
     51    Height = 482
    5252    Top = 0
    53     Width = 770
     53    Width = 668
    5454    Align = alClient
    5555    OnResize = Image1Resize
     
    5858    Interval = 50
    5959    OnTimer = TimerDrawTimer
    60     Left = 149
    61     Top = 76
     60    Left = 129
     61    Top = 66
    6262  end
    6363  object MainMenu1: TMainMenu
    64     Left = 276
    65     Top = 24
     64    Left = 240
     65    Top = 21
    6666    object MenuItem1: TMenuItem
    6767      Caption = 'Game'
     
    9292    Interval = 20
    9393    OnTimer = TimerEngineTickTimer
    94     Left = 144
    95     Top = 156
     94    Left = 125
     95    Top = 135
    9696  end
    9797  object ActionList1: TActionList
    98     Left = 432
    99     Top = 48
     98    Left = 375
     99    Top = 42
    100100    object AFullScreen: TAction
    101101      Caption = 'Fullscreen mode'
     
    131131    RootName = 'CONFIG'
    132132    ReadOnly = False
    133     Left = 149
    134     Top = 360
     133    Left = 129
     134    Top = 313
    135135  end
    136136  object AboutDialog1: TAboutDialog
     
    138138    ThemeManager = Core.ThemeManager1
    139139    ApplicationInfo = Core.ApplicationInfo
    140     Left = 308
    141     Top = 181
     140    Left = 267
     141    Top = 157
    142142  end
    143143end
  • trunk/Forms/UFormMain.pas

    r53 r55  
    11unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
     
    6967  FormMain: TFormMain;
    7068
     69
    7170implementation
    7271
     
    149148  Randomize;
    150149  DoubleBuffered := False;
    151   Engine := TEngine.Create;
     150  Engine := TEngine.Create(nil);
    152151  Engine.Bitmap := Image1.Picture.Bitmap;
    153152  Core.Translator1.Language := Core.Translator1.Languages.SearchByCode('cs');
  • trunk/Forms/UFormMap.pas

    r52 r55  
    11unit UFormMap;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
     
    1614    procedure FormShow(Sender: TObject);
    1715    procedure Image1Resize(Sender: TObject);
    18   private
    19     { private declarations }
    20   public
    21     { public declarations }
    22   end;
     16  end;
    2317
    2418var
    2519  FormMap: TFormMap;
     20
    2621
    2722implementation
  • trunk/Forms/UFormNewGame.pas

    r51 r55  
    11unit UFormNewGame;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/UCore.pas

    r54 r55  
    11unit UCore;
    2 
    3 {$mode delphi}
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UTheme, UApplicationInfo, UTranslator, UAboutDialog;
     6  Classes, SysUtils, UTheme, UApplicationInfo, UTranslator;
    97
    108type
     
    1614    Translator1: TTranslator;
    1715    ThemeManager1: TThemeManager;
    18   private
    19 
    20   public
    21 
    2216  end;
    2317
    2418var
    2519  Core: TCore;
     20
    2621
    2722implementation
  • trunk/UEngine.pas

    r52 r55  
    11unit UEngine;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
     
    216214  { TEngine }
    217215
    218   TEngine = class
     216  TEngine = class(TComponent)
    219217  private
    220218    FActive: Boolean;
     
    248246    DrawDuration: TDatetime;
    249247    procedure CheckGameEnd;
    250     constructor Create;
     248    constructor Create(AOwner: TComponent); override;
    251249    destructor Destroy; override;
    252250    procedure ResizePlayerFrames;
     
    15211519end;
    15221520
    1523 constructor TEngine.Create;
    1524 begin
     1521constructor TEngine.Create(AOwner: TComponent);
     1522begin
     1523  inherited;
    15251524  Lock := TCriticalSection.Create;
    15261525  FBitmapLower := TBitmapTColor.Create;
  • trunk/UPlatform.pas

    r10 r55  
    11unit UPlatform;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
  • trunk/tunneler.lpi

    r54 r55  
    202202    <Other>
    203203      <CompilerMessages>
    204         <IgnoredMessages idx5024="True"/>
     204        <IgnoredMessages idx6058="True" idx5024="True" idx3124="True" idx3123="True"/>
    205205      </CompilerMessages>
    206206      <CustomOptions Value="-dDEBUG"/>
  • trunk/tunneler.lpr

    r52 r55  
    2727  {$ENDIF}
    2828
     29  Application.Title:='';
    2930  Application.Scaled:=True;
    3031  Application.Initialize;
Note: See TracChangeset for help on using the changeset viewer.