Changeset 234 for branches/xpascal/Forms


Ignore:
Timestamp:
Jun 27, 2023, 12:50:09 AM (17 months ago)
Author:
chronos
Message:
  • Fixed: Procedures generation.
  • Fixed: Splitters between panels.
Location:
branches/xpascal/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • branches/xpascal/Forms/FormMain.lfm

    r233 r234  
    2424    TabOrder = 0
    2525  end
    26   object PanelSource: TPanel
    27     Left = 7
    28     Height = 832
     26  object Splitter1: TSplitter
     27    Cursor = crVSplit
     28    Left = 0
     29    Height = 8
     30    Top = 824
     31    Width = 1491
     32    Align = alBottom
     33    ResizeAnchor = akBottom
     34  end
     35  object Panel1: TPanel
     36    Left = 0
     37    Height = 824
    2938    Top = 0
    30     Width = 829
     39    Width = 1491
    3140    Align = alClient
    32     BevelOuter = bvNone
    33     TabOrder = 1
    34   end
    35   object PanelOutput: TPanel
    36     Left = 836
    37     Height = 832
    38     Top = 0
    39     Width = 655
    40     Align = alRight
    41     BevelOuter = bvNone
     41    ClientHeight = 824
     42    ClientWidth = 1491
    4243    TabOrder = 2
    43   end
    44   object Splitter1: TSplitter
    45     Left = 0
    46     Height = 832
    47     Top = 0
    48     Width = 7
     44    object PanelSource: TPanel
     45      Left = 1
     46      Height = 822
     47      Top = 1
     48      Width = 826
     49      Align = alClient
     50      BevelOuter = bvNone
     51      TabOrder = 0
     52    end
     53    object PanelOutput: TPanel
     54      Left = 835
     55      Height = 822
     56      Top = 1
     57      Width = 655
     58      Align = alRight
     59      BevelOuter = bvNone
     60      TabOrder = 1
     61    end
     62    object Splitter2: TSplitter
     63      Left = 827
     64      Height = 822
     65      Top = 1
     66      Width = 8
     67      Align = alRight
     68      ResizeAnchor = akRight
     69    end
    4970  end
    5071  object MainMenu1: TMainMenu

  • branches/xpascal/Forms/FormMain.pas

    r233 r234  
    4141    MenuItemFile: TMenuItem;
    4242    OpenDialog1: TOpenDialog;
     43    Panel1: TPanel;
    4344    PanelOutput: TPanel;
    4445    PanelSource: TPanel;
    4546    PanelMessages: TPanel;
    4647    Splitter1: TSplitter;
     48    Splitter2: TSplitter;
    4749    procedure ACompileExecute(Sender: TObject);
    4850    procedure AConsoleExecute(Sender: TObject);

  • branches/xpascal/Forms/FormOutput.lfm

    r230 r234  
    11object FormOutput: TFormOutput
    2   Left = 563
     2  Left = 814
    33  Height = 544
    4   Top = 339
     4  Top = 448
    55  Width = 932
    66  Caption = 'Output'
    … …  
    1717    BorderSpacing.Around = 4
    1818    Anchors = [akTop, akLeft, akRight, akBottom]
     19    Color = clBlack
     20    Font.Color = clWhite
    1921    Font.Height = -20
    2022    Font.Name = 'DejaVu Sans Mono'

  • branches/xpascal/Forms/FormSource.lfm

    r227 r234  
    11object FormSource: TFormSource
    2   Left = 524
     2  Left = 692
    33  Height = 749
    4   Top = 299
     4  Top = 345
    55  Width = 1176
    66  Caption = 'Source'
    … …  
    1212    Left = 12
    1313    Height = 701
    14     Top = 36
     14    Top = 32
    1515    Width = 1156
    1616    Align = alCustom
    1717    BorderSpacing.Around = 4
    1818    Anchors = [akTop, akLeft, akRight, akBottom]
     19    Color = clBlack
     20    Font.Color = clWhite
    1921    Font.Height = -20
    2022    Font.Name = 'Liberation Mono'
Note: See TracChangeset for help on using the changeset viewer.