Changeset 114


Ignore:
Timestamp:
Nov 27, 2017, 9:08:54 AM (7 years ago)
Author:
chronos
Message:
  • Added: Common and TemplateGenerics packages.
  • Added: Remember main and rules form dimensions.
Location:
branches/generator
Files:
104 added
1 deleted
11 edited

Legend:

Unmodified
Added
Removed

  • branches/generator

    • Property svn:ignore set to
      generator.exe
      generator.lps
      lib

  • branches/generator/Forms/UFormMain.lfm

    r112 r114  
    55  Width = 1050
    66  Caption = 'Language generator'
    7   ClientHeight = 646
     7  ClientHeight = 653
    88  ClientWidth = 1050
    99  Menu = MainMenu1
     10  OnClose = FormClose
    1011  OnShow = FormShow
    1112  LCLVersion = '1.6.4.0'
    1213  object MemoBNF: TMemo
    1314    Left = 0
    14     Height = 646
    15     Top = 0
     15    Height = 618
     16    Top = 35
    1617    Width = 1050
    1718    Align = alClient
    1819    TabOrder = 0
     20  end
     21  object CoolBar1: TCoolBar
     22    Left = 0
     23    Height = 35
     24    Top = 0
     25    Width = 1050
     26    Bands = <   
     27      item
     28        Control = ToolBar1
     29        Width = 179
     30      end>
     31    object ToolBar1: TToolBar
     32      AnchorSideLeft.Control = CoolBar1
     33      AnchorSideTop.Control = CoolBar1
     34      Left = 24
     35      Height = 22
     36      Top = 5
     37      Width = 24
     38      Align = alNone
     39      AutoSize = True
     40      BorderSpacing.Left = 22
     41      BorderSpacing.Top = 3
     42      Caption = 'ToolBar1'
     43      EdgeInner = esNone
     44      EdgeOuter = esNone
     45      ParentShowHint = False
     46      ShowHint = True
     47      TabOrder = 0
     48      Transparent = True
     49      object ToolButton1: TToolButton
     50        Left = 1
     51        Top = 0
     52        Action = ARules
     53      end
     54    end
    1955  end
    2056  object MainMenu1: TMainMenu

  • branches/generator/Forms/UFormMain.pas

    r111 r114  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Menus, ActnList;
     9  Menus, ActnList, ComCtrls, UPersistentForm;
    1010
    1111type
    … …  
    1919    ARules: TAction;
    2020    ActionList1: TActionList;
     21    CoolBar1: TCoolBar;
    2122    MainMenu1: TMainMenu;
    2223    MemoBNF: TMemo;
    … …  
    3031    OpenDialog1: TOpenDialog;
    3132    SaveDialog1: TSaveDialog;
     33    ToolBar1: TToolBar;
     34    ToolButton1: TToolButton;
    3235    procedure AExitExecute(Sender: TObject);
    3336    procedure AOpenExecute(Sender: TObject);
    3437    procedure ARulesExecute(Sender: TObject);
    3538    procedure ASaveAsExecute(Sender: TObject);
     39    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3640    procedure FormShow(Sender: TObject);
    3741  private
    … …  
    6973end;
    7074
     75procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     76begin
     77  Core.PersistentForm1.Save(Self);
     78end;
     79
    7180procedure TFormMain.FormShow(Sender: TObject);
    7281begin
     82  Core.PersistentForm1.Load(Self, True);
    7383  MemoBNF.Lines.Text := Core.Grammer.GetBNF;
    7484end;

  • branches/generator/Forms/UFormRule.lfm

    r113 r114  
    11object FormRule: TFormRule
    2   Left = 679
     2  Left = 507
    33  Height = 505
    4   Top = 620
     4  Top = 293
    55  Width = 660
    66  ActiveControl = ButtonOk
    … …  
    3232  object Label1: TLabel
    3333    Left = 24
    34     Height = 24
     34    Height = 20
    3535    Top = 29
    36     Width = 56
     36    Width = 43
    3737    Caption = 'Name:'
    3838    ParentColor = False
    … …  
    4040  object EditName: TEdit
    4141    Left = 184
    42     Height = 34
     42    Height = 28
    4343    Top = 19
    4444    Width = 392
    … …  
    7070  object Label2: TLabel
    7171    Left = 24
    72     Height = 24
     72    Height = 20
    7373    Top = 64
    74     Width = 82
     74    Width = 63
    7575    Caption = 'Operator:'
    7676    ParentColor = False
    … …  
    7878  object ComboBox1: TComboBox
    7979    Left = 186
    80     Height = 34
     80    Height = 28
    8181    Top = 61
    8282    Width = 390
    83     ItemHeight = 0
     83    ItemHeight = 20
    8484    Items.Strings = (
    8585      'And'
    … …  
    161161    object MenuItem1: TMenuItem
    162162      Action = AAdd
     163      Bitmap.Data = {
     164        36040000424D3604000000000000360000002800000010000000100000000100
     165        2000000000000004000064000000640000000000000000000000000000000000
     166        0000000000000000000000000000000000000000000000000000000000000000
     167        0000000000000000000000000000000000000000000000000000000000000000
     168        000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
     169        D4FF000000000000000000000000000000000000000000000000000000000000
     170        0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
     171        B2FF000000000000000000000000000000000000000000000000000000000000
     172        0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
     173        B2FF000000000000000000000000000000000000000000000000000000000000
     174        0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
     175        B2FF000000000000000000000000000000000000000000000000000000000000
     176        0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
     177        B2FF00000000000000000000000000000000000000000000000000000000D4D4
     178        D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
     179        B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
     180        00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
     181        00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
     182        8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
     183        00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
     184        ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
     185        00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
     186        00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
     187        00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
     188        0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
     189        B2FF000000000000000000000000000000000000000000000000000000000000
     190        0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
     191        B2FF000000000000000000000000000000000000000000000000000000000000
     192        0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
     193        B2FF000000000000000000000000000000000000000000000000000000000000
     194        0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
     195        D4FF000000000000000000000000000000000000000000000000000000000000
     196        000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
     197        0000000000000000000000000000000000000000000000000000
     198      }
    163199    end
    164200    object MenuItem2: TMenuItem
    165201      Action = AModify
     202      Bitmap.Data = {
     203        36040000424D3604000000000000360000002800000010000000100000000100
     204        2000000000000004000064000000640000000000000000000000986B37FF976A
     205        36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
     206        2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
     207        F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
     208        F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
     209        F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
     210        F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
     211        F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
     212        70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
     213        F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
     214        F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
     215        F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
     216        F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
     217        FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
     218        F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
     219        FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
     220        71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
     221        FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
     222        F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
     223        FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
     224        F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
     225        FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
     226        F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
     227        FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
     228        72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
     229        FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
     230        F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
     231        FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
     232        FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
     233        7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
     234        79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
     235        48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
     236        40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
     237      }
    166238    end
    167239    object MenuItem3: TMenuItem
    168240      Action = ARemove
     241      Bitmap.Data = {
     242        36040000424D3604000000000000360000002800000010000000100000000100
     243        2000000000000004000064000000640000000000000000000000000000000000
     244        0000000000000000000000000000000000000000000000000000000000000000
     245        0000000000000000000000000000000000000000000000000000000000000000
     246        0000000000000000000000000000000000000000000000000000000000000000
     247        0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000
     248        000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     249        0000000000000000000000000000000000000000000000000000000000000000
     250        0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     251        00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000
     252        0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     253        000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     254        000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000
     255        0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000
     256        00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000
     257        00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000
     258        0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232
     259        DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000
     260        000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F
     261        D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000
     262        0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C
     263        D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000
     264        00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000
     265        00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000
     266        0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000
     267        0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000
     268        00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000
     269        000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000
     270        00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000
     271        00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000
     272        0000000000000000000000000000000000000000000000000000000000000000
     273        0000000000000000000000000000000000000000000000000000000000000000
     274        0000000000000000000000000000000000000000000000000000000000000000
     275        0000000000000000000000000000000000000000000000000000
     276      }
    169277    end
    170278    object MenuItem4: TMenuItem
    171279      Action = AMoveUp
     280      Bitmap.Data = {
     281        36040000424D3604000000000000360000002800000010000000100000000100
     282        2000000000000004000064000000640000000000000000000000000000000000
     283        0000000000000000000000000000000000000000000000000000000000000000
     284        0000000000000000000000000000000000000000000000000000000000000000
     285        0000000000000000000000000000000000FF000000FF000000FF000000FF0000
     286        00FF000000FF000000FF00000000000000000000000000000000000000000000
     287        0000000000000000000000000000000000FFFF442CFFFF3C28FFFF3522FFFF2E
     288        1EFFFF2619FF000000FF00000000000000000000000000000000000000000000
     289        0000000000000000000000000000000000FFFF5337FFFF4C32FFFF442CFFFF3C
     290        28FFFF3623FF000000FF00000000000000000000000000000000000000000000
     291        0000000000000000000000000000000000FFFF6341FFFF5C3BFFFF5437FFFF4C
     292        32FFFF442CFF000000FF00000000000000000000000000000000000000000000
     293        0000000000000000000000000000000000FFFF724AFFFF6B46FFFF6441FFFF5D
     294        3CFFFF5437FF000000FF00000000000000000000000000000000000000000000
     295        0000000000000000000000000000000000FFFF8255FFFF7A4FFFFF744BFFFF6C
     296        46FFFF6441FF000000FF00000000000000000000000000000000000000000000
     297        0000000000000000000000000000000000FFFF915FFFFF8A5AFFFF8255FFFF7C
     298        51FFFF744CFF000000FF00000000000000000000000000000000000000000000
     299        00FF000000FF000000FF000000FF000000FFFFA169FFFF9A65FFFF9360FFFF8A
     300        5AFFFF8456FF000000FF000000FF000000FF000000FF000000FF000000000000
     301        0000000000FFFFC681FFFFBF7DFFFFB878FFFFB073FFFFAA6EFFFFA269FFFF9A
     302        65FFFF9360FFFF8C5BFFFF8456FFFF7C51FF000000FF00000000000000000000
     303        000000000000000000FFFFCF87FFFFC882FFFFC17DFFFFB878FFFFB174FFFFAA
     304        6EFFFFA269FFFF9A65FFFF9461FF000000FF0000000000000000000000000000
     305        00000000000000000000000000FFFFD78CFFFFD088FFFFC882FFFFC17DFFFFBA
     306        79FFFFB374FFFFAA6EFF000000FF000000000000000000000000000000000000
     307        0000000000000000000000000000000000FFFFE092FFFFD88CFFFFD088FFFFC8
     308        82FFFFC27EFF000000FF00000000000000000000000000000000000000000000
     309        000000000000000000000000000000000000000000FFFFE797FFFFE092FFFFD8
     310        8CFF000000FF0000000000000000000000000000000000000000000000000000
     311        00000000000000000000000000000000000000000000000000FFFFF09CFF0000
     312        00FF000000000000000000000000000000000000000000000000000000000000
     313        0000000000000000000000000000000000000000000000000000000000FF0000
     314        0000000000000000000000000000000000000000000000000000
     315      }
    172316    end
    173317    object MenuItem5: TMenuItem
    174318      Action = AMoveDown
     319      Bitmap.Data = {
     320        36040000424D3604000000000000360000002800000010000000100000000100
     321        2000000000000004000064000000640000000000000000000000000000000000
     322        00000000000000000000000000000000000000000000000000FF000000000000
     323        0000000000000000000000000000000000000000000000000000000000000000
     324        000000000000000000000000000000000000000000FFFFF09CFF000000FF0000
     325        0000000000000000000000000000000000000000000000000000000000000000
     326        0000000000000000000000000000000000FFFFD88CFFFFE092FFFFE797FF0000
     327        00FF000000000000000000000000000000000000000000000000000000000000
     328        00000000000000000000000000FFFFC27EFFFFC882FFFFD088FFFFD88CFFFFE0
     329        92FF000000FF0000000000000000000000000000000000000000000000000000
     330        000000000000000000FFFFAA6EFFFFB374FFFFBA79FFFFC17DFFFFC882FFFFD0
     331        88FFFFD78CFF000000FF00000000000000000000000000000000000000000000
     332        0000000000FFFF9461FFFF9A65FFFFA269FFFFAA6EFFFFB174FFFFB878FFFFC1
     333        7DFFFFC882FFFFCF87FF000000FF000000000000000000000000000000000000
     334        00FFFF7C51FFFF8456FFFF8C5BFFFF9360FFFF9A65FFFFA269FFFFAA6EFFFFB0
     335        73FFFFB878FFFFBF7DFFFFC681FF000000FF0000000000000000000000FF0000
     336        00FF000000FF000000FF000000FFFF8456FFFF8A5AFFFF9360FFFF9A65FFFFA1
     337        69FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
     338        00000000000000000000000000FFFF744CFFFF7C51FFFF8255FFFF8A5AFFFF91
     339        5FFF000000FF0000000000000000000000000000000000000000000000000000
     340        00000000000000000000000000FFFF6441FFFF6C46FFFF744BFFFF7A4FFFFF82
     341        55FF000000FF0000000000000000000000000000000000000000000000000000
     342        00000000000000000000000000FFFF5437FFFF5D3CFFFF6441FFFF6B46FFFF72
     343        4AFF000000FF0000000000000000000000000000000000000000000000000000
     344        00000000000000000000000000FFFF442CFFFF4C32FFFF5437FFFF5C3BFFFF63
     345        41FF000000FF0000000000000000000000000000000000000000000000000000
     346        00000000000000000000000000FFFF3623FFFF3C28FFFF442CFFFF4C32FFFF53
     347        37FF000000FF0000000000000000000000000000000000000000000000000000
     348        00000000000000000000000000FFFF2619FFFF2E1EFFFF3522FFFF3C28FFFF44
     349        2CFF000000FF0000000000000000000000000000000000000000000000000000
     350        00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
     351        00FF000000FF0000000000000000000000000000000000000000000000000000
     352        0000000000000000000000000000000000000000000000000000000000000000
     353        0000000000000000000000000000000000000000000000000000
     354      }
    175355    end
    176356  end

  • branches/generator/Forms/UFormRuleItem.lfm

    r111 r114  
    11object FormRuleItem: TFormRuleItem
    2   Left = 549
     2  Left = 474
    33  Height = 278
    4   Top = 684
     4  Top = 386
    55  Width = 656
    66  ActiveControl = EditName
    … …  
    1111  object LabelTerminal: TLabel
    1212    Left = 16
    13     Height = 24
     13    Height = 20
    1414    Top = 64
    15     Width = 79
     15    Width = 61
    1616    Caption = 'Terminal:'
    1717    ParentColor = False
    … …  
    1919  object EditName: TEdit
    2020    Left = 160
    21     Height = 34
     21    Height = 28
    2222    Top = 64
    2323    Width = 400
    … …  
    4444  object ComboBoxType: TComboBox
    4545    Left = 160
    46     Height = 34
     46    Height = 28
    4747    Top = 16
    4848    Width = 400
    49     ItemHeight = 0
     49    ItemHeight = 20
    5050    Items.Strings = (
    5151      'Terminal'
    … …  
    5858  object Label2: TLabel
    5959    Left = 16
    60     Height = 24
     60    Height = 20
    6161    Top = 24
    62     Width = 45
     62    Width = 35
    6363    Caption = 'Type:'
    6464    ParentColor = False
    … …  
    6666  object LabelNonTerminal: TLabel
    6767    Left = 16
    68     Height = 24
     68    Height = 20
    6969    Top = 112
    70     Width = 119
     70    Width = 92
    7171    Caption = 'Non-terminal:'
    7272    ParentColor = False
    … …  
    7474  object ComboBoxNonTerminal: TComboBox
    7575    Left = 160
    76     Height = 36
     76    Height = 28
    7777    Top = 104
    7878    Width = 404
    79     ItemHeight = 0
     79    ItemHeight = 20
    8080    Style = csDropDownList
    8181    TabOrder = 4

  • branches/generator/Forms/UFormRules.lfm

    r112 r114  
    11object FormRules: TFormRules
    2   Left = 662
     2  Left = 386
    33  Height = 611
    4   Top = 369
     4  Top = 221
    55  Width = 857
    66  Caption = 'Rules'
    77  ClientHeight = 611
    88  ClientWidth = 857
     9  OnClose = FormClose
    910  OnShow = FormShow
    1011  LCLVersion = '1.6.4.0'
    … …  
    3334      BorderSpacing.Top = 3
    3435      Caption = 'ToolBar1'
     36      EdgeInner = esNone
     37      EdgeOuter = esNone
    3538      Images = Core.ImageList1
     39      ParentShowHint = False
     40      ShowHint = True
    3641      TabOrder = 0
     42      Transparent = True
    3743      object ToolButton1: TToolButton
    3844        Left = 1
    … …  
    107113    object MenuItem1: TMenuItem
    108114      Action = AAdd
     115      Bitmap.Data = {
     116        36040000424D3604000000000000360000002800000010000000100000000100
     117        2000000000000004000064000000640000000000000000000000000000000000
     118        0000000000000000000000000000000000000000000000000000000000000000
     119        0000000000000000000000000000000000000000000000000000000000000000
     120        000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
     121        D4FF000000000000000000000000000000000000000000000000000000000000
     122        0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
     123        B2FF000000000000000000000000000000000000000000000000000000000000
     124        0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
     125        B2FF000000000000000000000000000000000000000000000000000000000000
     126        0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
     127        B2FF000000000000000000000000000000000000000000000000000000000000
     128        0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
     129        B2FF00000000000000000000000000000000000000000000000000000000D4D4
     130        D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
     131        B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
     132        00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
     133        00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
     134        8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
     135        00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
     136        ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
     137        00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
     138        00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
     139        00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
     140        0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
     141        B2FF000000000000000000000000000000000000000000000000000000000000
     142        0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
     143        B2FF000000000000000000000000000000000000000000000000000000000000
     144        0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
     145        B2FF000000000000000000000000000000000000000000000000000000000000
     146        0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
     147        D4FF000000000000000000000000000000000000000000000000000000000000
     148        000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
     149        0000000000000000000000000000000000000000000000000000
     150      }
    109151    end
    110152    object MenuItem2: TMenuItem
    111153      Action = AModify
     154      Bitmap.Data = {
     155        36040000424D3604000000000000360000002800000010000000100000000100
     156        2000000000000004000064000000640000000000000000000000986B37FF976A
     157        36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
     158        2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
     159        F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
     160        F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
     161        F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
     162        F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
     163        F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
     164        70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
     165        F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
     166        F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
     167        F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
     168        F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
     169        FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
     170        F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
     171        FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
     172        71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
     173        FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
     174        F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
     175        FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
     176        F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
     177        FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
     178        F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
     179        FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
     180        72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
     181        FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
     182        F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
     183        FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
     184        FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
     185        7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
     186        79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
     187        48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
     188        40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
     189      }
    112190    end
    113191    object MenuItem3: TMenuItem
    114192      Action = ARemove
     193      Bitmap.Data = {
     194        36040000424D3604000000000000360000002800000010000000100000000100
     195        2000000000000004000064000000640000000000000000000000000000000000
     196        0000000000000000000000000000000000000000000000000000000000000000
     197        0000000000000000000000000000000000000000000000000000000000000000
     198        0000000000000000000000000000000000000000000000000000000000000000
     199        0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000
     200        000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     201        0000000000000000000000000000000000000000000000000000000000000000
     202        0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     203        00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000
     204        0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     205        000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     206        000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000
     207        0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000
     208        00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000
     209        00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000
     210        0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232
     211        DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000
     212        000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F
     213        D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000
     214        0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C
     215        D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000
     216        00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000
     217        00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000
     218        0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000
     219        0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000
     220        00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000
     221        000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000
     222        00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000
     223        00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000
     224        0000000000000000000000000000000000000000000000000000000000000000
     225        0000000000000000000000000000000000000000000000000000000000000000
     226        0000000000000000000000000000000000000000000000000000000000000000
     227        0000000000000000000000000000000000000000000000000000
     228      }
    115229    end
    116230  end

  • branches/generator/Forms/UFormRules.pas

    r112 r114  
    3131    procedure AModifyExecute(Sender: TObject);
    3232    procedure ARemoveExecute(Sender: TObject);
     33    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3334    procedure FormShow(Sender: TObject);
    3435    procedure ListView1Data(Sender: TObject; Item: TListItem);
    … …  
    5455
    5556uses
    56   UFormRule;
     57  UFormRule, UCore;
    5758
    5859{ TFormRules }
    … …  
    6061procedure TFormRules.FormShow(Sender: TObject);
    6162begin
     63  Core.PersistentForm1.Load(Self);
    6264  ReloadList;
    6365  UpdateInterface;
    … …  
    98100    Rules.Remove(TRule(Item.Data));
    99101  ReloadList;
     102end;
     103
     104procedure TFormRules.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     105begin
     106  Core.PersistentForm1.Save(Self);
    100107end;
    101108

  • branches/generator/UCore.lfm

    r113 r114  
    270270    }
    271271  end
     272  object PersistentForm1: TPersistentForm
     273    MinVisiblePart = 50
     274    EntireVisible = False
     275    left = 273
     276    top = 123
     277  end
    272278end

  • branches/generator/UCore.pas

    r111 r114  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Controls, URules;
     8  Classes, SysUtils, FileUtil, Controls, URules, UPersistentForm;
    99
    1010type
    … …  
    1414  TCore = class(TDataModule)
    1515    ImageList1: TImageList;
     16    PersistentForm1: TPersistentForm;
    1617    procedure DataModuleCreate(Sender: TObject);
    1718    procedure DataModuleDestroy(Sender: TObject);

  • branches/generator/generator.lpi

    r110 r114  
    2828      </local>
    2929    </RunParams>
    30     <RequiredPackages Count="1">
     30    <RequiredPackages Count="3">
    3131      <Item1>
     32        <PackageName Value="TemplateGenerics"/>
     33        <DefaultFilename Value="Packages/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
     34      </Item1>
     35      <Item2>
     36        <PackageName Value="Common"/>
     37        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
     38      </Item2>
     39      <Item3>
    3240        <PackageName Value="LCL"/>
    33       </Item1>
     41      </Item3>
    3442    </RequiredPackages>
    35     <Units Count="8">
     43    <Units Count="7">
    3644      <Unit0>
    3745        <Filename Value="generator.lpr"/>
    … …  
    5765      </Unit3>
    5866      <Unit4>
    59         <Filename Value="UXMLUtils.pas"/>
    60         <IsPartOfProject Value="True"/>
    61       </Unit4>
    62       <Unit5>
    6367        <Filename Value="Forms/UFormMain.pas"/>
    6468        <IsPartOfProject Value="True"/>
    … …  
    6670        <HasResources Value="True"/>
    6771        <ResourceBaseClass Value="Form"/>
    68       </Unit5>
    69       <Unit6>
     72      </Unit4>
     73      <Unit5>
    7074        <Filename Value="Forms/UFormRules.pas"/>
    7175        <IsPartOfProject Value="True"/>
    … …  
    7377        <HasResources Value="True"/>
    7478        <ResourceBaseClass Value="Form"/>
    75       </Unit6>
    76       <Unit7>
     79      </Unit5>
     80      <Unit6>
    7781        <Filename Value="Forms/UFormRuleItem.pas"/>
    7882        <IsPartOfProject Value="True"/>
    7983        <ComponentName Value="FormRuleItem"/>
     84        <HasResources Value="True"/>
    8085        <ResourceBaseClass Value="Form"/>
    81       </Unit7>
     86      </Unit6>
    8287    </Units>
    8388  </ProjectOptions>

  • branches/generator/generator.lpr

    r110 r114  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UCore, URules, UFormRule, UFormMain, UFormRules, UFormRuleItem
     10  Forms, UCore, URules, Common, TemplateGenerics, UFormRule, UFormMain,
     11  UFormRules, UFormRuleItem
    1112  { you can add units after this };
    1213
Note: See TracChangeset for help on using the changeset viewer.