Changeset 39


Ignore:
Timestamp:
Jun 30, 2023, 3:46:36 PM (17 months ago)
Author:
chronos
Message:
  • Modified: Simplified unit names.
Location:
branches/overos
Files:
2 edited
9 moved

Legend:

Unmodified
Added
Removed

  • branches/overos/FormMain.pas

    r38 r39  
    1 unit UFormMain;
     1unit FormMain;
    22
    33interface
    … …  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    7   Types, UWindow, USystem, UTypes, UMouse, UGraphics, UControls, UApplication;
     7  Types, Os.Window, Os.System, Os.Types, Os.Mouse, Os.Graphics, Os.Controls, Os.Application;
    88
    99type
    … …  
    2424    procedure FormShow(Sender: TObject);
    2525    procedure Timer1Timer(Sender: TObject);
    26   private
    27 
    2826  public
    2927    App: TApplication;

  • branches/overos/Os.Application.pas

    r38 r39  
    1 unit UApplication;
     1unit Os.Application;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Generics.Collections, UTypes, UWindow;
     6  Classes, SysUtils, Generics.Collections, Os.Types, Os.Window;
    77
    88type

  • branches/overos/Os.Controls.pas

    r38 r39  
    1 unit UControls;
     1unit Os.Controls;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UTypes, UGraphics, Generics.Collections, UMouse;
     6  Classes, SysUtils, Os.Types, Os.Graphics, Generics.Collections, Os.Mouse;
    77
    88type

  • branches/overos/Os.Graphics.pas

    r38 r39  
    1 unit UGraphics;
     1unit Os.Graphics;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UTypes;
     6  Classes, SysUtils, Os.Types;
    77
    88type

  • branches/overos/Os.Mouse.pas

    r38 r39  
    1 unit UMouse;
     1unit Os.Mouse;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UTypes;
     6  Classes, SysUtils, Os.Types;
    77
    88type

  • branches/overos/Os.System.pas

    r38 r39  
    1 unit USystem;
     1unit Os.System;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UWindow, UMouse;
     6  Classes, SysUtils, Os.Window, Os.Mouse;
    77
    88type

  • branches/overos/Os.Types.pas

    r38 r39  
    1 unit UTypes;
     1unit Os.Types;
    22
    33interface

  • branches/overos/Os.Window.pas

    r38 r39  
    1 unit UWindow;
     1unit Os.Window;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Generics.Collections, UTypes, UMouse, UControls, UGraphics;
     6  Classes, SysUtils, Generics.Collections, Os.Types, Os.Mouse, Os.Controls, Os.Graphics;
    77
    88type
    … …  
    107107
    108108uses
    109   UApplication;
     109  Os.Application;
    110110
    111111{ TTitleBar }

  • branches/overos/overos.lpi

    r38 r39  
    7373      </Unit0>
    7474      <Unit1>
    75         <Filename Value="UFormMain.pas"/>
     75        <Filename Value="FormMain.pas"/>
    7676        <IsPartOfProject Value="True"/>
    7777        <ComponentName Value="FormMain"/>
    … …  
    8080      </Unit1>
    8181      <Unit2>
    82         <Filename Value="UWindow.pas"/>
     82        <Filename Value="Os.Window.pas"/>
    8383        <IsPartOfProject Value="True"/>
    8484      </Unit2>
    8585      <Unit3>
    86         <Filename Value="UMouse.pas"/>
     86        <Filename Value="Os.Mouse.pas"/>
    8787        <IsPartOfProject Value="True"/>
    8888      </Unit3>
    8989      <Unit4>
    90         <Filename Value="USystem.pas"/>
     90        <Filename Value="Os.System.pas"/>
    9191        <IsPartOfProject Value="True"/>
    9292      </Unit4>
    9393      <Unit5>
    94         <Filename Value="UTypes.pas"/>
     94        <Filename Value="Os.Types.pas"/>
    9595        <IsPartOfProject Value="True"/>
    9696      </Unit5>
    9797      <Unit6>
    98         <Filename Value="UControls.pas"/>
     98        <Filename Value="Os.Controls.pas"/>
    9999        <IsPartOfProject Value="True"/>
    100100      </Unit6>
    101101      <Unit7>
    102         <Filename Value="UGraphics.pas"/>
     102        <Filename Value="Os.Graphics.pas"/>
    103103        <IsPartOfProject Value="True"/>
    104104      </Unit7>
    105105      <Unit8>
    106         <Filename Value="UApplication.pas"/>
     106        <Filename Value="Os.Application.pas"/>
    107107        <IsPartOfProject Value="True"/>
    108108      </Unit8>

  • branches/overos/overos.lpr

    r24 r39  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UWindow, UMouse, USystem, UTypes, UControls, UGraphics,
    11   UApplication, SysUtils
     10  Forms, FormMain, Os.Window, Os.Mouse, Os.System, Os.Types, Os.Controls,
     11  Os.Graphics, Os.Application, SysUtils
    1212  { you can add units after this };
    1313
    … …  
    2828  RequireDerivedFormResource:=True;
    2929  Application.Initialize;
    30   Application.CreateForm(TFormMain, FormMain);
     30  Application.CreateForm(TFormMain, FormMain.FormMain);
    3131  Application.Run;
    3232end.
Note: See TracChangeset for help on using the changeset viewer.