Changeset 41 for branches/simple/Screen.pas

Timestamp:

Aug 12, 2023, 5:46:27 PM (9 months ago)

Author:

chronos

Message:

• Modified: Screen and console made as separate forms.

Location:

branches/simple

Files:

• . (modified) (1 prop)
• Screen.pas (modified) (2 diffs)

branches/simple/Screen.pas

@@ -14 +14 @@
   private
     FOnChange: TNotifyEvent;
+    function ReadData8: Byte;
+    function ReadAddr8: Byte;
+    function ReadWidth8: Byte;
+    function ReadHeight8: Byte;
     procedure WriteData8(Data: Byte);
-    function ReadData8: Byte;
     procedure WriteAddr8(Data: Byte);
-    function ReadAddr8: Byte;
     procedure WriteWidth8(Data: Byte);
-    function ReadWidth8: Byte;
     procedure WriteHeight8(Data: Byte);
-    function ReadHeight8: Byte;
     procedure DoChange;
     procedure UpdateMode;
@@ -40 +40 @@
   private
     FOnChange: TNotifyEvent;
+    function ReadData8: Byte;
+    function ReadData16: Word;
+    function ReadAddr16: Word;
+    function ReadWidth16: Word;
+    function ReadHeight16: Word;
     procedure WriteData8(Data: Byte);
     procedure WriteData16(Data: Word);
-    function ReadData8: Byte;
-    function ReadData16: Word;
     procedure WriteAddr16(Data: Word);
-    function ReadAddr16: Word;
     procedure WriteWidth16(Data: Word);
-    function ReadWidth16: Word;
     procedure WriteHeight16(Data: Word);
-    function ReadHeight16: Word;
     procedure DoChange;
     procedure UpdateMode;