Ignore:
Timestamp:
Jan 18, 2018, 2:36:23 PM (7 years ago)
Author:
chronos
Message:
  • Added: Load/Save example source code from/to file instead of hardcoded text in application source code.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/easy compiler/UFormMain.lfm

    r149 r150  
    88  ClientWidth = 909
    99  DesignTimePPI = 120
     10  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnDestroy = FormDestroy
    1213  OnShow = FormShow
    1314  LCLVersion = '1.8.0.6'
    14   object MemoOutput: TMemo
    15     Left = 440
    16     Height = 464
     15  object MemoSource: TMemo
     16    Left = 9
     17    Height = 488
    1718    Top = 32
    18     Width = 448
    19     ReadOnly = True
     19    Width = 416
     20    Anchors = [akTop, akLeft, akBottom]
    2021    ScrollBars = ssAutoBoth
    2122    TabOrder = 0
    2223  end
    23   object MemoSource: TMemo
    24     Left = 8
    25     Height = 240
    26     Top = 32
    27     Width = 416
    28     ScrollBars = ssAutoBoth
    29     TabOrder = 1
    30   end
    3124  object ButtonBuild: TButton
    32     Left = 112
     25    Left = 9
    3326    Height = 31
    34     Top = 280
     27    Top = 528
    3528    Width = 166
     29    Anchors = [akLeft, akBottom]
    3630    Caption = 'Compile && Execute'
    3731    OnClick = ButtonBuildClick
    38     TabOrder = 2
    39   end
    40   object Edit1: TEdit
    41     Left = 440
    42     Height = 28
    43     Top = 526
    44     Width = 200
    45     OnKeyPress = Edit1KeyPress
    46     TabOrder = 3
    47   end
    48   object ButtonSend: TButton
    49     Left = 656
    50     Height = 31
    51     Top = 526
    52     Width = 94
    53     Caption = 'Send'
    54     OnClick = ButtonSendClick
    55     TabOrder = 4
     32    TabOrder = 1
    5633  end
    5734  object Label1: TLabel
    … …  
    6340    ParentColor = False
    6441  end
    65   object Label2: TLabel
    66     Left = 440
    67     Height = 20
    68     Top = 11
    69     Width = 108
    70     Caption = 'Executor output:'
    71     ParentColor = False
    72   end
    73   object Label3: TLabel
    74     Left = 441
    75     Height = 20
    76     Top = 504
    77     Width = 98
    78     Caption = 'Executor input:'
    79     ParentColor = False
    80   end
    81   object MemoGenerator: TMemo
    82     Left = 8
    83     Height = 216
    84     Top = 344
    85     Width = 416
    86     ScrollBars = ssAutoBoth
    87     TabOrder = 5
    88   end
    89   object Label4: TLabel
    90     Left = 8
    91     Height = 20
    92     Top = 315
    93     Width = 117
    94     Caption = 'Generator output:'
    95     ParentColor = False
     42  object PageControl1: TPageControl
     43    Left = 432
     44    Height = 552
     45    Top = 8
     46    Width = 470
     47    ActivePage = TabSheetExecutor
     48    Anchors = [akTop, akLeft, akRight, akBottom]
     49    TabIndex = 0
     50    TabOrder = 2
     51    object TabSheetExecutor: TTabSheet
     52      Caption = 'Executor'
     53      ClientHeight = 519
     54      ClientWidth = 462
     55      object Label2: TLabel
     56        Left = 8
     57        Height = 20
     58        Top = 8
     59        Width = 108
     60        Caption = 'Executor output:'
     61        ParentColor = False
     62      end
     63      object MemoOutput: TMemo
     64        Left = 8
     65        Height = 416
     66        Top = 32
     67        Width = 448
     68        Anchors = [akTop, akLeft, akRight, akBottom]
     69        ReadOnly = True
     70        ScrollBars = ssAutoBoth
     71        TabOrder = 0
     72      end
     73      object Label3: TLabel
     74        Left = 8
     75        Height = 20
     76        Top = 452
     77        Width = 98
     78        Anchors = [akLeft, akBottom]
     79        Caption = 'Executor input:'
     80        ParentColor = False
     81      end
     82      object Edit1: TEdit
     83        Left = 8
     84        Height = 28
     85        Top = 480
     86        Width = 336
     87        Anchors = [akLeft, akRight, akBottom]
     88        OnKeyPress = Edit1KeyPress
     89        TabOrder = 1
     90      end
     91      object ButtonSend: TButton
     92        Left = 360
     93        Height = 31
     94        Top = 477
     95        Width = 94
     96        Anchors = [akRight, akBottom]
     97        Caption = 'Send'
     98        OnClick = ButtonSendClick
     99        TabOrder = 2
     100      end
     101    end
     102    object TabSheetGenerator: TTabSheet
     103      Caption = 'Generator'
     104      ClientHeight = 519
     105      ClientWidth = 462
     106      object Label4: TLabel
     107        Left = 8
     108        Height = 20
     109        Top = 8
     110        Width = 117
     111        Caption = 'Generator output:'
     112        ParentColor = False
     113      end
     114      object MemoGenerator: TMemo
     115        Left = 8
     116        Height = 480
     117        Top = 32
     118        Width = 448
     119        Anchors = [akTop, akLeft, akRight, akBottom]
     120        ScrollBars = ssAutoBoth
     121        TabOrder = 0
     122      end
     123    end
    96124  end
    97125end
Note: See TracChangeset for help on using the changeset viewer.