Changeset 24 for branches/Xvcl/Xvcl.Kernel.pas

Timestamp:

May 8, 2013, 2:53:22 PM (11 years ago)

Author:

chronos

Message:

• Fixed: Make only one form focused at once.
• Modified: Enhanced TList generic class to support more methods.

File:

• branches/Xvcl/Xvcl.Kernel.pas (modified) (3 diffs)

branches/Xvcl/Xvcl.Kernel.pas

@@ -33 +33 @@
 
   TScreen = class(TComponent)
-    Canvas: TCanvas;
+    Canvas: TScreenCanvas;
     Size: TPoint;
     Forms: TList<TForm>;
     VideoDevice: TVideoDevice;
     procedure Paint;
+    procedure FocusForm(Form: TForm);
     constructor Create; override;
     destructor Destroy; override;
@@ -152 +153 @@
   Forms := TList<TForm>.Create;
   Canvas := TScreenCanvas.Create;
+  Canvas.Screen := Self;
 end;
 
@@ -159 +161 @@
   Forms.Destroy;
   inherited;
+end;
+
+procedure TScreen.FocusForm(Form: TForm);
+var
+  I: Integer;
+  FormIndex: Integer;
+begin
+  FormIndex := Forms.IndexOf(Form);
+  for I := 0 to Forms.Count - 1 do
+    Forms[I].Focused := I = FormIndex;
+
+  Forms.Move(FormsIndex, Forms.Count - 1);
+  Paint;
 end;