Changeset 66 for branches/Independent/Os.pas

Timestamp:

Oct 10, 2024, 11:05:35 PM (11 days ago)

Author:

chronos

Message:

• Added: Api calls to show windows.

Location:

branches/Independent

Files:

• . (modified) (1 prop)
• Os.pas (modified) (5 diffs)

branches/Independent

@@ -3 +3 @@
 Independent.lps
 Independent.res
+heaptrclog.trc

@@ -3 +3 @@
 Independent.lps
 Independent.res
+heaptrclog.trc

branches/Independent/Os.pas

@@ -53 +53 @@
     procedure RunApp(Name: string); override;
     procedure Sleep(Time: TDateTime); override;
+    function CreateWindow: THandle; override;
+    procedure SetWindowName(Handle: THandle; Name: string); override;
+    procedure SetWindowRect(Handle: THandle; Rect: TRect); override;
+    procedure SetWindowVisible(Handle: THandle; Visible: Boolean); override;
+  end;
+
+  { TWindow }
+
+  TWindow = class
+    Handle: THandle;
+    Name: string;
+    Visible: Boolean;
+    Rect: TRect;
+  end;
+
+  { TWindows }
+
+  TWindows = class(TObjectList<TWindow>)
+    function AddNew: TWindow;
+    function SearchByHandle(Handle: THandle): TWindow;
   end;
 
@@ -58 +78 @@
 
   TSystem = class
+  private
+    FOnDraw: TNotifyEvent;
+    procedure Redraw;
+  public
     Console: TConsole;
     FileSystem: TFileSystem;
     Apps: TApps;
     RunningApps: TRunningApps;
+    Windows: TWindows;
+    Handles: THandles;
     procedure RunApp(Name: string);
     procedure Start;
     constructor Create;
     destructor Destroy; override;
+    property OnDraw: TNotifyEvent read FOnDraw write FOnDraw;
   end;
 
@@ -153 +180 @@
 end;
 
+function TSystemApi.CreateWindow: THandle;
+var
+  Window: TWindow;
+begin
+  Window := System.Windows.AddNew;
+  Window.Handle := System.Handles.AddNew;
+  Result := Window.Handle;
+end;
+
+procedure TSystemApi.SetWindowName(Handle: THandle; Name: string);
+var
+  Window: TWindow;
+begin
+  Window := System.Windows.SearchByHandle(Handle);
+  if Assigned(Window) then begin
+    Window.Name := Name;
+    System.Redraw;
+  end;
+end;
+
+procedure TSystemApi.SetWindowRect(Handle: THandle; Rect: TRect);
+var
+  Window: TWindow;
+begin
+  Window := System.Windows.SearchByHandle(Handle);
+  if Assigned(Window) then begin
+    Window.Rect := Rect;
+    System.Redraw;
+  end;
+end;
+
+procedure TSystemApi.SetWindowVisible(Handle: THandle; Visible: Boolean);
+var
+  Window: TWindow;
+begin
+  Window := System.Windows.SearchByHandle(Handle);
+  if Assigned(Window) then begin
+    Window.Visible := Visible;
+    System.Redraw;
+  end;
+end;
+
+{ TWindows }
+
+function TWindows.AddNew: TWindow;
+begin
+  Result := TWindow.Create;
+  Add(Result);
+end;
+
+function TWindows.SearchByHandle(Handle: THandle): TWindow;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].Handle <> Handle) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
 { TSystem }
+
+procedure TSystem.Redraw;
+begin
+  if Assigned(FOnDraw) then FOnDraw(Self);
+end;
 
 procedure TSystem.RunApp(Name: string);
@@ -182 +274 @@
 constructor TSystem.Create;
 begin
+  Handles := THandles.Create;
+  Windows := TWindows.Create;
   Console := TConsole.Create;
   FileSystem := TFileSystem.Create;
@@ -194 +288 @@
   FreeAndNil(Console);
   FreeAndNil(FileSystem);
+  FreeAndNil(Windows);
+  FreeAndNil(Handles);
   inherited;
 end;

@@ -3 +3 @@
 Independent.lps
 Independent.res
+heaptrclog.trc