Changeset 101 for trunk


Ignore:
Timestamp:
Dec 9, 2024, 10:31:28 AM (5 weeks ago)
Author:
chronos
Message:
  • Added: Close button in moves history and help forms.
  • Modified: Always show moves history menu action.
Location:
trunk
Files:
2 added
2 deleted
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormComputer.lfm

    r88 r101  
    11object FormComputer: TFormComputer
    22  Left = 1040
    3   Height = 360
     3  Height = 285
    44  Top = 540
    5   Width = 480
     5  Width = 436
    66  Caption = 'AI'
    7   ClientHeight = 360
    8   ClientWidth = 480
     7  ClientHeight = 285
     8  ClientWidth = 436
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    13   LCLVersion = '3.4.0.0'
     13  LCLVersion = '3.6.0.0'
    1414  object ButtonStart: TButton
    1515    Left = 40
    … …  
    3535    Height = 58
    3636    Top = 104
    37     Width = 430
     37    Width = 386
    3838    Max = 1000
    3939    Position = 0

  • trunk/Forms/FormHelp.lfm

    r86 r101  
    11object FormHelp: TFormHelp
    22  Left = 751
    3   Height = 360
     3  Height = 405
    44  Top = 406
    5   Width = 480
     5  Width = 527
    66  Caption = 'Help'
    7   ClientHeight = 360
    8   ClientWidth = 480
     7  ClientHeight = 405
     8  ClientWidth = 527
    99  DesignTimePPI = 144
    1010  OnShow = FormShow
    11   LCLVersion = '3.4.0.0'
     11  LCLVersion = '3.6.0.0'
    1212  object Memo1: TMemo
    1313    Left = 8
    1414    Height = 344
    1515    Top = 8
    16     Width = 464
    17     Align = alClient
     16    Width = 510
     17    Align = alCustom
     18    Anchors = [akTop, akLeft, akRight, akBottom]
    1819    BorderSpacing.Around = 8
    1920    TabOrder = 0
    2021  end
     22  object ButtonOk: TButton
     23    Left = 406
     24    Height = 38
     25    Top = 360
     26    Width = 113
     27    Anchors = [akRight, akBottom]
     28    Caption = 'Close'
     29    ModalResult = 11
     30    TabOrder = 1
     31  end
    2132end

  • trunk/Forms/FormHelp.lrj

    r86 r101  
    11{"version":1,"strings":[
    2 {"hash":322608,"name":"tformhelp.caption","sourcebytes":[72,101,108,112],"value":"Help"}
     2{"hash":322608,"name":"tformhelp.caption","sourcebytes":[72,101,108,112],"value":"Help"},
     3{"hash":4863637,"name":"tformhelp.buttonok.caption","sourcebytes":[67,108,111,115,101],"value":"Close"}
    34]}

  • trunk/Forms/FormHelp.pas

    r86 r101  
    1111
    1212  TFormHelp = class(TFormEx)
     13    ButtonOk: TButton;
    1314    Memo1: TMemo;
    1415    procedure FormShow(Sender: TObject);
    … …  
    1920
    2021{$R *.lfm}
    21 
    22 uses
    23   Core;
    2422
    2523resourcestring

  • trunk/Forms/FormHistory.lfm

    r86 r101  
    11object FormHistory: TFormHistory
    2   Left = 659
    3   Height = 360
    4   Top = 560
    5   Width = 480
     2  Left = 670
     3  Height = 367
     4  Top = 572
     5  Width = 526
    66  Caption = 'Moves history'
    7   ClientHeight = 360
    8   ClientWidth = 480
     7  ClientHeight = 367
     8  ClientWidth = 526
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '3.4.0.0'
     13  LCLVersion = '3.6.0.0'
    1414  object PaintBox1: TPaintBox
    15     Left = 0
    16     Height = 285
     15    Left = 8
     16    Height = 244
    1717    Top = 75
    18     Width = 480
    19     Align = alClient
     18    Width = 511
     19    Align = alCustom
     20    Anchors = [akTop, akLeft, akRight, akBottom]
    2021    OnPaint = PaintBox1Paint
    2122  end
    … …  
    2425    Height = 75
    2526    Top = 0
    26     Width = 480
     27    Width = 526
    2728    Align = alTop
    2829    BevelOuter = bvNone
    2930    ClientHeight = 75
    30     ClientWidth = 480
     31    ClientWidth = 526
    3132    TabOrder = 0
    3233    object TrackBar1: TTrackBar
    … …  
    3435      Height = 58
    3536      Top = 8
    36       Width = 448
     37      Width = 494
    3738      OnChange = TrackBar1Change
    3839      Position = 0
    … …  
    4041      TabOrder = 0
    4142    end
     43  end
     44  object ButtonClose: TButton
     45    Left = 406
     46    Height = 38
     47    Top = 327
     48    Width = 113
     49    Anchors = [akRight, akBottom]
     50    Caption = 'Close'
     51    ModalResult = 11
     52    TabOrder = 1
    4253  end
    4354  object Timer1: TTimer

  • trunk/Forms/FormHistory.lrj

    r86 r101  
    11{"version":1,"strings":[
    2 {"hash":191263657,"name":"tformhistory.caption","sourcebytes":[77,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Moves history"}
     2{"hash":191263657,"name":"tformhistory.caption","sourcebytes":[77,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Moves history"},
     3{"hash":4863637,"name":"tformhistory.buttonclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"}
    34]}

  • trunk/Forms/FormHistory.pas

    r86 r101  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
    7   Game, FormEx;
     7  StdCtrls, Game, FormEx;
    88
    99type
    … …  
    1212
    1313  TFormHistory = class(TFormEx)
     14    ButtonClose: TButton;
    1415    PaintBox1: TPaintBox;
    1516    Panel1: TPanel;

  • trunk/Forms/FormMain.lfm

    r91 r101  
    11object FormMain: TFormMain
    22  Left = 534
    3   Height = 993
     3  Height = 959
    44  Top = 223
    55  Width = 1491
    … …  
    1616  OnPaint = FormPaint
    1717  OnShow = FormShow
    18   LCLVersion = '3.4.0.0'
     18  LCLVersion = '3.6.0.0'
    1919  object MainMenu1: TMainMenu
    2020    Left = 328

  • trunk/Forms/FormMain.pas

    r100 r101  
    268268begin
    269269  MenuItemFullScreen.Checked := FullScreen;
    270   MenuItemMovesHistory.Visible := Core.Core.Game.RecordHistory;
    271270  ToolsVisible := False;
    272271  for I := 0 to MenuItemTools.Count - 1 do

  • trunk/Languages/Game2048.cs.po

    r91 r101  
    200200msgstr "Pauza každý krok:"
    201201
     202#: tformhelp.buttonok.caption
     203msgctxt "tformhelp.buttonok.caption"
     204msgid "Close"
     205msgstr "Zavřít"
     206
    202207#: tformhelp.caption
    203208msgctxt "tformhelp.caption"
    … …  
    205210msgstr "Nápověda"
    206211
     212#: tformhistory.buttonclose.caption
     213msgctxt "tformhistory.buttonclose.caption"
     214msgid "Close"
     215msgstr "Zavřít"
     216
    207217#: tformhistory.caption
    208218msgctxt "tformhistory.caption"
Note: See TracChangeset for help on using the changeset viewer.