Changeset 83 for trunk/Forms


Ignore:
Timestamp:
May 17, 2024, 4:52:24 PM (6 months ago)
Author:
chronos
Message:
  • Modified: Use F10 as exit according to the original game.
  • Modified: Better menu items drawing.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormMain.lfm

    r74 r83  
    55  Width = 770
    66  Caption = 'Tunneler'
    7   ClientHeight = 583
     7  ClientHeight = 617
    88  ClientWidth = 770
    99  DesignTimePPI = 144
    … …  
    1616  OnKeyUp = FormKeyUp
    1717  OnShow = FormShow
    18   LCLVersion = '2.2.4.0'
     18  LCLVersion = '3.2.0.0'
    1919  object StatusBar1: TStatusBar
    2020    Left = 0
    2121    Height = 28
    22     Top = 555
     22    Top = 589
    2323    Width = 770
    24     Panels = <
     24    Panels = <   
    2525      item
    2626        Width = 74
    27       end
     27      end   
    2828      item
    2929        Width = 74
    30       end
     30      end   
    3131      item
    3232        Width = 74
    33       end
     33      end   
    3434      item
    3535        Width = 74
    36       end
     36      end   
    3737      item
    3838        Width = 74
    39       end
     39      end   
    4040      item
    4141        Width = 74
    42       end
     42      end   
    4343      item
    4444        Width = 74
    … …  
    5050  object Image1: TImage
    5151    Left = 0
    52     Height = 555
     52    Height = 589
    5353    Top = 0
    5454    Width = 770
    … …  
    109109      Caption = 'Exit'
    110110      OnExecute = AExitExecute
    111       ShortCut = 32883
     111      ShortCut = 121
    112112    end
    113113    object ANewGame: TAction

  • trunk/Forms/FormMain.pas

    r74 r83  
    183183  DoubleBuffered := False;
    184184  Engine := TEngine.Create(nil);
     185  Engine.OnClose := AExitExecute;
    185186  LoadConfig;
    186187  Engine.InitPlayerPool;
Note: See TracChangeset for help on using the changeset viewer.