Changeset 37


Ignore:
Timestamp:
Jun 30, 2023, 3:29:14 PM (18 months ago)
Author:
chronos
Message:
  • Modified: Simplified unit names.
Location:
branches/topdown
Files:
2 edited
12 moved

Legend:

Unmodified
Added
Removed

  • branches/topdown/Apps.pas

    r36 r37  
    1 unit UApps;
     1unit Apps;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, USystem;
     6  Classes, SysUtils, OsSystem;
    77
    88type

  • branches/topdown/Apps/AppCalc.lfm

    r36 r37  
    11object FormCalculator: TFormCalculator
    22  Left = 591
    3   Height = 275
     3  Height = 330
    44  Top = 511
    5   Width = 392
     5  Width = 470
    66  Caption = 'Calculator'
    7   ClientHeight = 275
    8   ClientWidth = 392
    9   DesignTimePPI = 120
     7  ClientHeight = 330
     8  ClientWidth = 470
     9  DesignTimePPI = 144
    1010  FormStyle = fsStayOnTop
    1111  OnClose = FormClose
    12   LCLVersion = '2.0.2.0'
     12  LCLVersion = '2.2.6.0'
    1313  object ButtonCompute: TButton
    14     Left = 328
    15     Height = 55
    16     Top = 208
    17     Width = 54
     14    Left = 394
     15    Height = 66
     16    Top = 250
     17    Width = 65
    1818    Caption = '='
    1919    OnClick = ButtonComputeClick
    … …  
    2121  end
    2222  object ButtonAdd: TButton
    23     Left = 328
    24     Height = 55
    25     Top = 128
    26     Width = 54
     23    Left = 394
     24    Height = 66
     25    Top = 154
     26    Width = 65
    2727    Caption = '+'
    2828    OnClick = ButtonAddClick
    … …  
    3030  end
    3131  object EditInput: TEdit
    32     Left = 14
    33     Height = 28
    34     Top = 14
    35     Width = 268
     32    Left = 17
     33    Height = 43
     34    Top = 17
     35    Width = 322
    3636    TabOrder = 2
    3737  end
    3838  object ButtonMultiply: TButton
    39     Left = 328
    40     Height = 55
    41     Top = 56
    42     Width = 54
     39    Left = 394
     40    Height = 66
     41    Top = 67
     42    Width = 65
    4343    Caption = '*'
    4444    OnClick = ButtonMultiplyClick

  • branches/topdown/Apps/AppCalc.pas

    r36 r37  
    1 unit UAppCalc;
     1unit AppCalc;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, USystem;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, OsSystem;
    77
    88type
    … …  
    2828  end;
    2929
    30 var
    31   FormCalculator: TFormCalculator;
    3230
    3331implementation

  • branches/topdown/Apps/AppFileManager.pas

    r36 r37  
    1 unit UAppFileManager;
     1unit AppFileManager;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, USystem;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, OsSystem;
    77
    88type
    … …  
    1212  TFormFileManager = class(TFormTask)
    1313    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    14   private
    15 
    16   public
    17 
    1814  end;
    1915
    20 var
    21   FormFileManager: TFormFileManager;
    2216
    2317implementation

  • branches/topdown/Apps/AppTextEditor.pas

    r36 r37  
    1 unit UAppTextEditor;
     1unit AppTextEditor;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, USystem;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, OsSystem;
    77
    88type
    … …  
    1212  TFormTextEditor = class(TFormTask)
    1313    Memo1: TMemo;
    14   private
    15 
    16   public
    17 
    1814  end;
    1915
    20 var
    21   FormTextEditor: TFormTextEditor;
    2216
    2317implementation

  • branches/topdown/FormMain.pas

    r36 r37  
    1 unit UFormMain;
     1unit FormMain;
    22
    33interface
    … …  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
    7   USystem;
     7  OsSystem, FormMenu;
    88
    99type
    … …  
    2020    procedure FormShow(Sender: TObject);
    2121  private
     22    FormMenu: TFormMenu;
    2223    procedure TaskButtonClick(Sender: TObject);
    2324    procedure TasksChange(Sender: TObject);
    2425    procedure ReloadTasks;
    25   public
    2626  end;
    2727
    … …  
    3535
    3636uses
    37   UAppCalc, UAppFileManager, UAppTextEditor,
    38   UFormMenu;
     37  AppCalc, AppFileManager, AppTextEditor;
    3938
    4039{ TFormMain }
    … …  
    9594  BaseSystem.Apps.AddNew('Text editor', TFormTextEditor);
    9695  BaseSystem.Tasks.OnChange := TasksChange;
     96
     97  FormMenu := TFormMenu.Create(nil);
    9798end;
    9899
    99100procedure TFormMain.FormDestroy(Sender: TObject);
    100101begin
     102  FreeAndNil(FormMenu);
    101103end;
    102104

  • branches/topdown/FormMenu.pas

    r36 r37  
    1 unit UFormMenu;
     1unit FormMenu;
    22
    33interface
    … …  
    2222    procedure MenuItemRebootClick(Sender: TObject);
    2323    procedure ToolButton1Click(Sender: TObject);
    24   private
    25 
    2624  public
    2725    procedure ReloadList;
    2826  end;
    29 
    30 var
    31   FormMenu: TFormMenu;
    3227
    3328
    … …  
    3732
    3833uses
    39   USystem;
     34  OsSystem;
    4035
    4136{ TFormMenu }

  • branches/topdown/OS.lpi

    r36 r37  
    7979      </Unit0>
    8080      <Unit1>
    81         <Filename Value="UFormMain.pas"/>
     81        <Filename Value="FormMain.pas"/>
    8282        <IsPartOfProject Value="True"/>
    8383        <ComponentName Value="FormMain"/>
    … …  
    8686      </Unit1>
    8787      <Unit2>
    88         <Filename Value="UApps.pas"/>
     88        <Filename Value="Apps.pas"/>
    8989        <IsPartOfProject Value="True"/>
    9090      </Unit2>
    9191      <Unit3>
    92         <Filename Value="USystem.pas"/>
     92        <Filename Value="OsSystem.pas"/>
    9393        <IsPartOfProject Value="True"/>
    9494      </Unit3>
    9595      <Unit4>
    96         <Filename Value="Apps\UAppCalc.pas"/>
     96        <Filename Value="Apps\AppCalc.pas"/>
    9797        <IsPartOfProject Value="True"/>
    9898        <ComponentName Value="FormCalculator"/>
    … …  
    101101      </Unit4>
    102102      <Unit5>
    103         <Filename Value="UFormMenu.pas"/>
     103        <Filename Value="FormMenu.pas"/>
    104104        <IsPartOfProject Value="True"/>
    105105        <ComponentName Value="FormMenu"/>
    … …  
    108108      </Unit5>
    109109      <Unit6>
    110         <Filename Value="Apps\UAppFileManager.pas"/>
     110        <Filename Value="Apps\AppFileManager.pas"/>
    111111        <IsPartOfProject Value="True"/>
    112112        <ComponentName Value="FormFileManager"/>
    … …  
    114114      </Unit6>
    115115      <Unit7>
    116         <Filename Value="Apps\UAppTextEditor.pas"/>
     116        <Filename Value="Apps\AppTextEditor.pas"/>
    117117        <IsPartOfProject Value="True"/>
    118118        <ComponentName Value="FormTextEditor"/>

  • branches/topdown/OS.lpr

    r28 r37  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, SysUtils, UFormMain, UApps, USystem, UAppCalc, UFormMenu,
    11   UAppFileManager, UAppTextEditor
     10  Forms, SysUtils, FormMain, Apps, OsSystem, AppCalc, FormMenu,
     11  AppFileManager, AppTextEditor
    1212  { you can add units after this };
    1313
    … …  
    2828  Application.Scaled:=True;
    2929  Application.Initialize;
    30   Application.CreateForm(TFormMain, FormMain);
    31   Application.CreateForm(TFormMenu, FormMenu);
     30  Application.CreateForm(TFormMain, FormMain.FormMain);
    3231  Application.Run;
    3332end.

  • branches/topdown/OsSystem.pas

    r36 r37  
    1 unit USystem;
     1unit OsSystem;
    22
    33interface
Note: See TracChangeset for help on using the changeset viewer.