Changeset 210 for branches/interpreter2


Ignore:
Timestamp:
Apr 22, 2020, 12:13:52 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Auto resized inner panels.
Location:
branches/interpreter2
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/interpreter2/Forms/UFormMain.lfm

    r209 r210  
    11object FormMain: TFormMain
    22  Left = 515
    3   Height = 925
    4   Top = 135
    5   Width = 1418
     3  Height = 993
     4  Top = 67
     5  Width = 1491
    66  Caption = 'Interpreter'
    7   ClientHeight = 891
    8   ClientWidth = 1418
     7  ClientHeight = 959
     8  ClientWidth = 1491
    99  DesignTimePPI = 144
    1010  Menu = MainMenu1
    … …  
    1616  object PanelMessages: TPanel
    1717    Left = 0
    18     Height = 131
    19     Top = 760
    20     Width = 1418
     18    Height = 127
     19    Top = 832
     20    Width = 1491
    2121    Align = alBottom
    2222    BevelOuter = bvNone
    … …  
    2424  end
    2525  object PanelSource: TPanel
    26     Left = 0
    27     Height = 698
    28     Top = 96
    29     Width = 704
    30     Align = alCustom
     26    Left = 7
     27    Height = 832
     28    Top = 0
     29    Width = 829
     30    Align = alClient
    3131    BevelOuter = bvNone
    3232    TabOrder = 1
    3333  end
    3434  object PanelOutput: TPanel
    35     Left = 751
    36     Height = 843
    37     Top = 16
     35    Left = 836
     36    Height = 832
     37    Top = 0
    3838    Width = 655
     39    Align = alRight
    3940    BevelOuter = bvNone
    4041    TabOrder = 2
     42  end
     43  object Splitter1: TSplitter
     44    Left = 0
     45    Height = 832
     46    Top = 0
     47    Width = 7
    4148  end
    4249  object MainMenu1: TMainMenu

  • branches/interpreter2/Forms/UFormMain.pas

    r209 r210  
    3737    PanelSource: TPanel;
    3838    PanelMessages: TPanel;
     39    Splitter1: TSplitter;
    3940    procedure ACompileExecute(Sender: TObject);
    4041    procedure AExitExecute(Sender: TObject);

  • branches/interpreter2/Forms/UFormMessages.lfm

    r206 r210  
    11object FormMessages: TFormMessages
    2   Left = 780
    3   Height = 360
    4   Top = 669
    5   Width = 480
     2  Left = 739
     3  Height = 418
     4  Top = 611
     5  Width = 521
    66  Caption = 'Messages'
    7   ClientHeight = 360
    8   ClientWidth = 480
     7  ClientHeight = 418
     8  ClientWidth = 521
    99  DesignTimePPI = 144
    1010  LCLVersion = '2.0.2.0'
    … …  
    1919  object MemoLog: TMemo
    2020    Left = 8
    21     Height = 319
     21    Height = 377
    2222    Top = 32
    23     Width = 464
     23    Width = 505
    2424    Anchors = [akTop, akLeft, akRight, akBottom]
    2525    ReadOnly = True

  • branches/interpreter2/Forms/UFormOutput.lfm

    r208 r210  
    11object FormOutput: TFormOutput
    2   Left = 651
    3   Height = 461
    4   Top = 117
    5   Width = 978
     2  Left = 607
     3  Height = 544
     4  Top = 252
     5  Width = 932
    66  Caption = 'Output'
    7   ClientHeight = 461
    8   ClientWidth = 978
     7  ClientHeight = 544
     8  ClientWidth = 932
    99  DesignTimePPI = 144
    1010  LCLVersion = '2.0.2.0'
    1111  inline SynEditOutput: TSynEdit
    12     Left = 4
    13     Height = 453
    14     Top = 4
    15     Width = 970
    16     Align = alClient
     12    Left = 11
     13    Height = 480
     14    Top = 48
     15    Width = 852
     16    Align = alCustom
    1717    BorderSpacing.Around = 4
     18    Anchors = [akTop, akLeft, akRight, akBottom]
    1819    Font.Height = -20
    1920    Font.Name = 'DejaVu Sans Mono'
    … …  
    507508    end
    508509  end
     510  object Label1: TLabel
     511    Left = 11
     512    Height = 26
     513    Top = 8
     514    Width = 66
     515    Caption = 'Output:'
     516    ParentColor = False
     517  end
    509518  object SynPasSyn1: TSynPasSyn
    510519    Enabled = False

  • branches/interpreter2/Forms/UFormOutput.pas

    r208 r210  
    66
    77uses
    8   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, SynEdit,
     8  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, SynEdit,
    99  SynHighlighterAny, SynHighlighterPas, SynHighlighterCpp, SynHighlighterXML,
    1010  SynHighlighterPHP;
    … …  
    1515
    1616  TFormOutput = class(TForm)
     17    Label1: TLabel;
    1718    SynCppSyn1: TSynCppSyn;
    1819    SynEditOutput: TSynEdit;

  • branches/interpreter2/Forms/UFormSource.lfm

    r206 r210  
    1010  LCLVersion = '2.0.2.0'
    1111  inline SynEditSource: TSynEdit
    12     Left = 4
    13     Height = 741
    14     Top = 4
    15     Width = 1168
    16     Align = alClient
     12    Left = 12
     13    Height = 701
     14    Top = 36
     15    Width = 1156
     16    Align = alCustom
    1717    BorderSpacing.Around = 4
     18    Anchors = [akTop, akLeft, akRight, akBottom]
    1819    Font.Height = -20
    1920    Font.Name = 'Liberation Mono'
    … …  
    508509    end
    509510  end
     511  object Label1: TLabel
     512    Left = 15
     513    Height = 26
     514    Top = 8
     515    Width = 63
     516    Caption = 'Source:'
     517    ParentColor = False
     518  end
    510519  object SynFreePascalSyn1: TSynFreePascalSyn
    511520    Enabled = False

  • branches/interpreter2/Forms/UFormSource.pas

    r206 r210  
    66
    77uses
    8   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, SynHighlighterPas,
    9   SynEdit;
     8  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
     9  SynHighlighterPas, SynEdit;
    1010
    1111type
    … …  
    1414
    1515  TFormSource = class(TForm)
     16    Label1: TLabel;
    1617    SynEditSource: TSynEdit;
    1718    SynFreePascalSyn1: TSynFreePascalSyn;

  • branches/interpreter2/interpreter.lpi

    r209 r210  
    139139        <IsPartOfProject Value="True"/>
    140140        <ComponentName Value="FormOutput"/>
     141        <HasResources Value="True"/>
    141142        <ResourceBaseClass Value="Form"/>
    142143      </Unit14>
Note: See TracChangeset for help on using the changeset viewer.