Changeset 60 for trunk/Forms

Timestamp:

Apr 7, 2024, 11:26:09 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

Location:

trunk/Forms

Files:

• FormMain.lfm (moved) (moved from trunk/Forms/UFormMain.lfm ) (5 diffs)
• FormMain.pas (moved) (moved from trunk/Forms/UFormMain.pas ) (5 diffs)
• FormTerminal.lfm (moved) (moved from trunk/Forms/UFormTerminal.lfm )
• FormTerminal.pas (moved) (moved from trunk/Forms/UFormTerminal.pas ) (2 diffs)

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 566
-  Height = 687
+  Height = 1030
   Top = 262
-  Width = 932
+  Width = 1398
   Caption = 'Screen 1 - ChronOS'
-  ClientHeight = 653
-  ClientWidth = 932
+  ClientHeight = 1030
+  ClientWidth = 1398
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnClose = FormClose
@@ -13 +14 @@
   OnKeyDown = FormKeyDown
   OnShow = FormShow
-  LCLVersion = '1.8.0.4'
+  LCLVersion = '3.2.0.0'
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 653
+    Height = 1030
     Top = 0
-    Width = 932
+    Width = 1398
     Align = alClient
     OnClick = PaintBox1Click
@@ -25 +26 @@
   end
   object MainMenu1: TMainMenu
-    left = 501
-    top = 63
+    Left = 752
+    Top = 95
     object MenuItem1: TMenuItem
       Caption = 'Actions'
@@ -41 +42 @@
   end
   object ActionList1: TActionList
-    left = 517
-    top = 203
+    Left = 776
+    Top = 305
     object AFullscreen: TAction
       Caption = 'Fullscreen'
@@ -59 +60 @@
     Interval = 10
     OnTimer = Timer1Timer
-    left = 180
-    top = 281
+    Left = 270
+    Top = 422
   end
 end

trunk/Forms/FormMain.pas

@@ -1 @@
-unit UFormMain;
-
-{$mode delphi}{$H+}
+unit FormMain;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Menus, ActnList, UKernel, UMemory, UDevice, UPlatformBase, LCLType,
-  UGraphics, GraphType;
+  ExtCtrls, Menus, ActnList, Kernel.Core, Kernel.Memory, Kernel.Device,
+  PlatformBase, LCLType, Kernel.Graphics, GraphType;
 
 type
@@ -60 +58 @@
   FormMain: TFormMain;
 
+
 implementation
 
 uses
-  UList, UApp, UAPI, UClock, UThreadEx, UFormTerminal;
+  Kernel.List, Kernel.App, Kernel.API, Clock, ThreadEx, FormTerminal;
 
 {$R *.lfm}
@@ -124 +123 @@
 procedure TFormMain.AShowTerminalExecute(Sender: TObject);
 begin
-  FormTerminal.Show;
+  FormTerminal.FormTerminal.Show;
 end;
 
@@ -254 +253 @@
 procedure TFormMain.SerialDeviceReceiveDataSync;
 begin
-  FormTerminal.Memo1.Lines.AddText(SerialText);
+  FormTerminal.FormTerminal.Memo1.Lines.AddText(SerialText);
 end;
 

trunk/Forms/FormTerminal.pas

@@ -1 @@
-unit UFormTerminal;
-
-{$mode delphi}
+unit FormTerminal;
 
 interface
@@ -23 +21 @@
   FormTerminal: TFormTerminal;
 
+
 implementation