Ignore:
Timestamp:
Aug 9, 2018, 3:43:27 PM (6 years ago)
Author:
chronos
Message:
  • Modified: Update Common package.
  • Fixed: Remember forms dimensions after application restart.
Location:
branches/generator/Forms
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/generator/Forms

    • Property svn:ignore

      •  

        old new  
        11*.lrj
         2*.lrt

  • branches/generator/Forms/UFormGrammer.lfm

    r136 r167  
    77  ClientHeight = 346
    88  ClientWidth = 548
     9  DesignTimePPI = 120
     10  OnClose = FormClose
    911  OnShow = FormShow
    10   LCLVersion = '1.8.0.4'
     12  LCLVersion = '1.8.2.0'
    1113  object Label1: TLabel
    1214    Left = 15
    13     Height = 23
     15    Height = 20
    1416    Top = 22
    15     Width = 75
     17    Width = 63
    1618    Caption = 'Start rule:'
    1719    ParentColor = False
    … …  
    1921  object ComboBoxStartRule: TComboBox
    2022    Left = 168
    21     Height = 37
     23    Height = 28
    2224    Top = 22
    2325    Width = 272
    24     ItemHeight = 0
     26    ItemHeight = 20
    2527    Style = csDropDownList
    2628    TabOrder = 0
    … …  
    4850  object Label2: TLabel
    4951    Left = 16
    50     Height = 23
     52    Height = 20
    5153    Top = 80
    52     Width = 130
     54    Width = 113
    5355    Caption = 'White space rule:'
    5456    ParentColor = False
    … …  
    5658  object ComboBoxWhiteSpaceRule: TComboBox
    5759    Left = 168
    58     Height = 37
     60    Height = 28
    5961    Top = 72
    6062    Width = 272
    61     ItemHeight = 0
     63    ItemHeight = 20
    6264    Style = csDropDownList
    6365    TabOrder = 3

  • branches/generator/Forms/UFormGrammer.pas

    r136 r167  
    2020    Label1: TLabel;
    2121    Label2: TLabel;
     22    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2223    procedure FormShow(Sender: TObject);
    2324  private
    … …  
    3637{$R *.lfm}
    3738
     39uses
     40  UCore;
     41
    3842{ TFormGrammer }
    3943
    4044procedure TFormGrammer.FormShow(Sender: TObject);
    4145begin
     46  Core.PersistentForm1.Load(Self);
     47end;
     48
     49procedure TFormGrammer.FormClose(Sender: TObject; var CloseAction: TCloseAction
     50  );
     51begin
     52  Core.PersistentForm1.Save(Self);
    4253end;
    4354

  • branches/generator/Forms/UFormLookupTable.lfm

    r137 r167  
    77  ClientHeight = 273
    88  ClientWidth = 595
    9   LCLVersion = '1.8.0.4'
     9  DesignTimePPI = 120
     10  OnClose = FormClose
     11  OnShow = FormShow
     12  LCLVersion = '1.8.2.0'
    1013  object Label1: TLabel
    1114    Left = 15
    12     Height = 23
     15    Height = 20
    1316    Top = 17
    14     Width = 49
     17    Width = 43
    1518    Caption = 'Name:'
    1619    ParentColor = False
    … …  
    1821  object EditName: TEdit
    1922    Left = 120
    20     Height = 33
     23    Height = 28
    2124    Top = 8
    2225    Width = 160

  • branches/generator/Forms/UFormLookupTable.pas

    r137 r167  
    1818    EditName: TEdit;
    1919    Label1: TLabel;
     20    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     21    procedure FormShow(Sender: TObject);
    2022  private
    2123
    … …  
    3234{$R *.lfm}
    3335
     36uses
     37  UCore;
     38
    3439{ TFormLookupTable }
     40
     41procedure TFormLookupTable.FormClose(Sender: TObject;
     42  var CloseAction: TCloseAction);
     43begin
     44  Core.PersistentForm1.Save(Self);
     45end;
     46
     47procedure TFormLookupTable.FormShow(Sender: TObject);
     48begin
     49  Core.PersistentForm1.Load(Self);
     50end;
    3551
    3652procedure TFormLookupTable.LoadData(LookupTable: TLookupTable);

  • branches/generator/Forms/UFormMain.lfm

    r137 r167  
    55  Width = 1050
    66  Caption = 'Language generator'
    7   ClientHeight = 647
     7  ClientHeight = 653
    88  ClientWidth = 1050
     9  DesignTimePPI = 120
    910  Menu = MainMenu1
    1011  OnClose = FormClose
    1112  OnCloseQuery = FormCloseQuery
    1213  OnShow = FormShow
    13   LCLVersion = '1.8.0.4'
     14  LCLVersion = '1.8.2.0'
     15  WindowState = wsMaximized
    1416  object CoolBar1: TCoolBar
    1517    Left = 0
    … …  
    8385  object PageControl1: TPageControl
    8486    Left = 0
    85     Height = 612
     87    Height = 618
    8688    Top = 35
    8789    Width = 1050
    … …  
    110112    object TabSheetEbnf: TTabSheet
    111113      Caption = 'EBNF'
    112       ClientHeight = 571
    113       ClientWidth = 1044
     114      ClientHeight = 585
     115      ClientWidth = 1042
    114116      object MemoEbnf: TMemo
    115117        Left = 0
    116         Height = 571
    117         Top = 0
    118         Width = 1044
     118        Height = 585
     119        Top = 0
     120        Width = 1042
    119121        Align = alClient
    120122        ReadOnly = True

  • branches/generator/Forms/UFormMain.pas

    r162 r167  
    152152procedure TFormMain.FormShow(Sender: TObject);
    153153begin
    154   Core.PersistentForm1.Load(Self, True);
    155154  Core.Initialize;
     155  Core.PersistentForm1.Load(Self);
    156156  PageControl1.TabIndex := 0;
    157157  ReloadMemo;

  • branches/generator/Forms/UFormRule.lfm

    r131 r167  
    88  ClientHeight = 514
    99  ClientWidth = 663
     10  DesignTimePPI = 120
     11  OnClose = FormClose
    1012  OnCreate = FormCreate
    1113  OnDestroy = FormDestroy
    1214  OnShow = FormShow
    13   LCLVersion = '1.8.0.4'
     15  LCLVersion = '1.8.2.0'
    1416  object ButtonOk: TButton
    1517    Left = 376
    … …  
    3436  object Label1: TLabel
    3537    Left = 16
    36     Height = 23
     38    Height = 20
    3739    Top = 16
    38     Width = 49
     40    Width = 43
    3941    Caption = 'Name:'
    4042    ParentColor = False
    … …  
    8183  object EditName: TEdit
    8284    Left = 135
    83     Height = 33
     85    Height = 28
    8486    Top = 11
    8587    Width = 433
    … …  
    8890  object CheckBoxCreateNode: TCheckBox
    8991    Left = 16
    90     Height = 27
     92    Height = 24
    9193    Top = 48
    92     Width = 173
     94    Width = 152
    9395    Caption = 'Create source node'
    9496    TabOrder = 4
    … …  
    9698  object Label2: TLabel
    9799    Left = 312
    98     Height = 23
     100    Height = 20
    99101    Top = 52
    100     Width = 42
     102    Width = 37
    101103    Caption = 'Level:'
    102104    ParentColor = False
    … …  
    104106  object ComboBoxLevel: TComboBox
    105107    Left = 376
    106     Height = 37
     108    Height = 28
    107109    Top = 48
    108110    Width = 125
    109     ItemHeight = 0
     111    ItemHeight = 20
    110112    Style = csDropDownList
    111113    TabOrder = 5

  • branches/generator/Forms/UFormRule.pas

    r129 r167  
    2626    TabSheet2: TTabSheet;
    2727    TabSheetUsedBy: TTabSheet;
     28    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2829    procedure FormCreate(Sender: TObject);
    2930    procedure FormDestroy(Sender: TObject);
    … …  
    4849{$R *.lfm}
    4950
     51uses
     52  UCore;
     53
    5054{ TFormRule }
    5155
    … …  
    5458  EditName.SetFocus;
    5559  PageControl1.TabIndex := 0;  // Select first tab by default
     60  Core.PersistentForm1.Load(Self);
    5661end;
    5762
    … …  
    8590end;
    8691
     92procedure TFormRule.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     93begin
     94  Core.PersistentForm1.Save(Self);
     95end;
     96
    8797procedure TFormRule.FormDestroy(Sender: TObject);
    8898begin

  • branches/generator/Forms/UFormRuleItem.lfm

    r137 r167  
    11object FormRuleItem: TFormRuleItem
    22  Left = 474
    3   Height = 400
     3  Height = 517
    44  Top = 386
    5   Width = 656
     5  Width = 719
    66  Caption = 'Rule item'
    7   ClientHeight = 400
    8   ClientWidth = 656
     7  ClientHeight = 517
     8  ClientWidth = 719
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnDestroy = FormDestroy
    1213  OnShow = FormShow
    13   LCLVersion = '1.8.0.4'
     14  LCLVersion = '1.8.2.0'
    1415  object ButtonCancel: TButton
    1516    Left = 176
    1617    Height = 25
    17     Top = 362
     18    Top = 479
    1819    Width = 75
    1920    Anchors = [akLeft, akBottom]
    … …  
    2526    Left = 352
    2627    Height = 25
    27     Top = 362
     28    Top = 479
    2829    Width = 75
    2930    Anchors = [akLeft, akBottom]
    … …  
    3435  object ComboBoxType: TComboBox
    3536    Left = 160
    36     Height = 33
     37    Height = 28
    3738    Top = 16
    3839    Width = 400
    39     ItemHeight = 0
     40    ItemHeight = 20
    4041    Items.Strings = (
    4142      'Terminal'
    … …  
    5051  object Label2: TLabel
    5152    Left = 16
    52     Height = 23
     53    Height = 20
    5354    Top = 24
    54     Width = 40
     55    Width = 35
    5556    Caption = 'Type:'
    5657    ParentColor = False
    … …  
    5859  object PageControl1: TPageControl
    5960    Left = 16
    60     Height = 266
     61    Height = 383
    6162    Top = 88
    62     Width = 632
     63    Width = 695
    6364    ActivePage = TabSheetNonTerminal
    6465    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    8990    object TabSheetNonTerminal: TTabSheet
    9091      Caption = 'NonTerminal'
    91       ClientHeight = 260
    92       ClientWidth = 626
     92      ClientHeight = 375
     93      ClientWidth = 687
    9394      object LabelNonTerminal: TLabel
    9495        Left = 8
    95         Height = 23
     96        Height = 20
    9697        Top = 8
    97         Width = 105
     98        Width = 92
    9899        Caption = 'Non-terminal:'
    99100        ParentColor = False
    … …  
    101102      object ListBoxNonTerminals: TListBox
    102103        Left = 8
    103         Height = 210
     104        Height = 325
    104105        Top = 40
    105         Width = 304
    106         Anchors = [akTop, akLeft, akRight, akBottom]
     106        Width = 328
     107        Anchors = [akTop, akLeft, akBottom]
    107108        ItemHeight = 0
    108109        ScrollWidth = 302
    109110        TabOrder = 0
    110         TopIndex = -1
    111111      end
    112112      object CheckBoxLookupTable: TCheckBox
    113113        Left = 352
    114         Height = 27
     114        Height = 24
    115115        Top = 8
    116         Width = 152
     116        Width = 136
    117117        Caption = 'Use lookup table'
    118118        OnChange = CheckBoxLookupTableChange
    … …  
    121121      object ListBoxLookupTable: TListBox
    122122        Left = 352
    123         Height = 176
     123        Height = 291
    124124        Top = 40
    125         Width = 248
     125        Width = 309
    126126        Anchors = [akTop, akLeft, akRight, akBottom]
    127127        ItemHeight = 0
    128128        ScrollWidth = 246
    129129        TabOrder = 2
    130         TopIndex = -1
    131130      end
    132131      object Label1: TLabel
    133132        Left = 352
    134         Height = 23
    135         Top = 224
    136         Width = 90
     133        Height = 20
     134        Top = 341
     135        Width = 78
     136        Anchors = [akLeft, akBottom]
    137137        Caption = 'Item action:'
    138138        ParentColor = False
    … …  
    140140      object ComboBoxLookupTableAction: TComboBox
    141141        Left = 464
    142         Height = 35
    143         Top = 224
     142        Height = 28
     143        Top = 341
    144144        Width = 134
    145         ItemHeight = 0
     145        Anchors = [akLeft, akBottom]
     146        ItemHeight = 20
    146147        ItemIndex = 0
    147148        Items.Strings = (
    … …  
    197198  object CheckBoxOptional: TCheckBox
    198199    Left = 16
    199     Height = 27
    200     Top = 56
    201     Width = 90
     200    Height = 24
     201    Top = 56
     202    Width = 82
    202203    Caption = 'Optional'
    203204    TabOrder = 4
    … …  
    205206  object CheckBoxRepetitive: TCheckBox
    206207    Left = 184
    207     Height = 27
    208     Top = 56
    209     Width = 99
     208    Height = 24
     209    Top = 56
     210    Width = 91
    210211    Caption = 'Repetitive'
    211212    TabOrder = 5
    … …  
    213214  object CheckBoxAnyExcept: TCheckBox
    214215    Left = 344
    215     Height = 27
    216     Top = 56
    217     Width = 106
     216    Height = 24
     217    Top = 56
     218    Width = 97
    218219    Caption = 'Any except'
    219220    TabOrder = 6
    … …  
    221222  object CheckBoxEscapedString: TCheckBox
    222223    Left = 488
    223     Height = 27
    224     Top = 56
    225     Width = 144
     224    Height = 24
     225    Top = 56
     226    Width = 126
    226227    Caption = 'Escaped strings'
    227228    TabOrder = 7
Note: See TracChangeset for help on using the changeset viewer.