Changeset 28


Ignore:
Timestamp:
Aug 23, 2019, 9:14:24 AM (5 years ago)
Author:
chronos
Message:
  • Added: Sample application text editor.
  • Modified: Main form in full screen mode.
Location:
branches/topdown
Files:
2 added
7 edited

Legend:

Unmodified
Added
Removed

  • branches/topdown/Apps/UAppCalc.pas

    r25 r28  
    4343  Calculate;
    4444  LastOp := opAdd;
     45  EditInput.SetFocus;
     46  EditInput.SelectAll;
    4547end;
    4648
    … …  
    4850begin
    4951  Calculate;
     52  EditInput.SetFocus;
     53  EditInput.SelectAll;
    5054end;
    5155
    … …  
    5458  Calculate;
    5559  LastOp := opMultiply;
     60  EditInput.SetFocus;
     61  EditInput.SelectAll;
    5662end;
    5763

  • branches/topdown/OS.lpi

    r26 r28  
    3232      </Item1>
    3333    </RequiredPackages>
    34     <Units Count="7">
     34    <Units Count="8">
    3535      <Unit0>
    3636        <Filename Value="OS.lpr"/>
    … …  
    7272        <ResourceBaseClass Value="Form"/>
    7373      </Unit6>
     74      <Unit7>
     75        <Filename Value="Apps\UAppTextEditor.pas"/>
     76        <IsPartOfProject Value="True"/>
     77        <ComponentName Value="FormTextEditor"/>
     78        <ResourceBaseClass Value="Form"/>
     79      </Unit7>
    7480    </Units>
    7581  </ProjectOptions>

  • branches/topdown/OS.lpr

    r26 r28  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, SysUtils, UFormMain, UApps, USystem, UAppCalc, UFormMenu, UAppFileManager
     10  Forms, SysUtils, UFormMain, UApps, USystem, UAppCalc, UFormMenu,
     11  UAppFileManager, UAppTextEditor
    1112  { you can add units after this };
    1213

  • branches/topdown/UFormMain.lfm

    r27 r28  
    1313  OnShow = FormShow
    1414  LCLVersion = '2.0.2.0'
    15   WindowState = wsMaximized
     15  WindowState = wsFullScreen
    1616  object PanelTaskBar: TPanel
    1717    Left = 0

  • branches/topdown/UFormMain.pas

    r27 r28  
    3737
    3838uses
    39   UAppCalc, UAppFileManager, UFormMenu;
     39  UAppCalc, UAppFileManager, UAppTextEditor,
     40  UFormMenu;
    4041
    4142{ TFormMain }
    … …  
    9091procedure TFormMain.FormCreate(Sender: TObject);
    9192begin
     93  BoundsRect := Bounds(0, 0, Screen.Width, Screen.Height);
     94  BaseSystem.ScreenForm := Self;
    9295  BaseSystem.Apps.AddNew('Calculator', TFormCalculator);
    93   BaseSystem.Apps.AddNew('File Manager', TFormFileManager);
     96  BaseSystem.Apps.AddNew('File manager', TFormFileManager);
     97  BaseSystem.Apps.AddNew('Text editor', TFormTextEditor);
    9498  BaseSystem.Tasks.OnChange := TasksChange;
    9599end;

  • branches/topdown/UFormMenu.lfm

    r27 r28  
    2828  object ToolBar1: TToolBar
    2929    Left = 164
    30     Height = 30
     30    Height = 28
    3131    Top = 362
    3232    Width = 90
    3333    Align = alCustom
    34     Anchors = [akTop, akRight]
     34    Anchors = [akRight, akBottom]
    3535    AutoSize = True
    3636    Caption = 'ToolBar1'
    … …  
    4141    object ToolButton1: TToolButton
    4242      Left = 1
    43       Top = 2
     43      Top = 0
    4444      Caption = 'Shutdown'
    4545      DropdownMenu = PopupMenu1

  • branches/topdown/USystem.pas

    r26 r28  
    5959    Apps: TApps;
    6060    Tasks: TTasks;
     61    ScreenForm: TForm;
    6162    constructor Create;
    6263    destructor Destroy; override;
    … …  
    115116  Task := AddNew(Form);
    116117  Form.Task := Task;
     118  //Form.Parent := BaseSystem.ScreenForm;
    117119  Form.Show;
    118120  DoOnChange;
Note: See TracChangeset for help on using the changeset viewer.