Changeset 37 for branches/topdown/Apps


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

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.