Changeset 189


Ignore:
Timestamp:
Apr 22, 2018, 2:34:51 PM (6 years ago)
Author:
chronos
Message:
  • Fixed: Translation of unit moves.
  • Fixed: ComboBox initialization in charts form.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCharts.lfm

    r170 r189  
    99  OnClose = FormClose
    1010  OnShow = FormShow
    11   LCLVersion = '1.6.4.0'
     11  LCLVersion = '1.8.0.4'
    1212  object Chart1: TChart
    1313    Left = 8
    … …  
    3535  object ComboBox1: TComboBox
    3636    Left = 24
    37     Height = 28
     37    Height = 36
    3838    Top = 8
    3939    Width = 392
    40     ItemHeight = 20
     40    ItemHeight = 0
    4141    ItemIndex = 0
    4242    Items.Strings = (

  • trunk/Forms/UFormCharts.pas

    r181 r189  
    5858begin
    5959  Core.PersistentForm.Load(Self);
     60  Redraw;
     61  Translate;
    6062  if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
    6163    ComboBox1.ItemIndex := 0;
    62   Redraw;
    63   Translate;
    6464end;
    6565

  • trunk/Forms/UFormMove.lfm

    r124 r189  
    1414  OnShow = FormShow
    1515  Position = poMainFormCenter
    16   LCLVersion = '1.6.0.4'
     16  LCLVersion = '1.8.0.4'
    1717  object SpinEditOnce: TSpinEdit
    1818    Left = 208
    19     Height = 34
     19    Height = 36
    2020    Top = 40
    2121    Width = 98
    … …  
    2626  object Label1: TLabel
    2727    Left = 16
    28     Height = 24
     28    Height = 26
    2929    Top = 40
    3030    Width = 49
    … …  
    5353  object Label2: TLabel
    5454    Left = 24
    55     Height = 24
     55    Height = 26
    5656    Top = 136
    5757    Width = 91
    … …  
    6161  object SpinEditRepeat: TSpinEdit
    6262    Left = 208
    63     Height = 34
     63    Height = 36
    6464    Top = 128
    6565    Width = 98
    … …  
    7070  object TrackBarOnce: TTrackBar
    7171    Left = 56
    72     Height = 46
     72    Height = 47
    7373    Top = 80
    7474    Width = 255
    … …  
    8383  object TrackBarRepeat: TTrackBar
    8484    Left = 56
    85     Height = 46
     85    Height = 47
    8686    Top = 168
    8787    Width = 255
    … …  
    134134  object Label3: TLabel
    135135    Left = 16
    136     Height = 24
     136    Height = 26
    137137    Top = 8
    138138    Width = 135
    … …  
    142142  object LabelWinProbability: TLabel
    143143    Left = 264
    144     Height = 24
     144    Height = 26
    145145    Top = 8
    146146    Width = 15

  • trunk/Forms/UFormMove.pas

    r124 r189  
    116116procedure TFormMove.FormCreate(Sender: TObject);
    117117begin
    118 
     118  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    119119end;
    120120
Note: See TracChangeset for help on using the changeset viewer.