Changeset 14 for os/trunk/System

Timestamp:

Feb 29, 2016, 5:23:37 PM (9 years ago)

Author:

chronos

Message:

• Modified: TForm title bar implemented using controls.

File:

• os/trunk/System/LDOS.Kernel.pas (modified) (7 diffs)

os/trunk/System/LDOS.Kernel.pas

@@ -63 +63 @@
     Forms: TList<TForm>;
     VideoDevice: TVideoDevice;
+    FormMove: TControlMove;
     procedure HandleResize;
     procedure Paint;
@@ -80 +81 @@
   TMouse = class
     Kernel: TKernel;
-    MovedForm: TForm;
     procedure HandleMove(Position: TPoint);
     procedure HandleDown(Position: TPoint);
@@ -226 +226 @@
   Canvas := TScreenCanvas.Create;
   Canvas.Screen := Self;
+  FormMove := TControlMove.Create;
 end;
 
 destructor TScreen.Destroy;
 begin
+  FormMove.Free;
   Canvas.Destroy;
   Forms.Destroy;
@@ -371 +373 @@
     for Form in Kernel.Screen.Forms do
     if Form.Bounds.Contains(Position) then begin
-      MovedForm := Form;
       if Form.HandleMessage(NewMessage) then begin
         Break;
@@ -389 +390 @@
   NewMessage.Position := Position;
   try
+    with Kernel.Screen.FormMove do
+    if Active then begin
+      TForm(Control).Bounds.TopLeft := StartControlPos + (Position - StartMousePos);
+      Kernel.Screen.Paint;
+    end;
     for Form in Kernel.Screen.Forms do
     if Form.Bounds.Contains(Position) then begin
@@ -410 +416 @@
   NewMessage.Position := Position;
   try
+    Kernel.Screen.FormMove.Active := False;
     for Form in Kernel.Screen.Forms do
     if Form.Bounds.Contains(Position) then begin
@@ -416 +423 @@
       end;
     end;
-    if Assigned(Kernel.Screen.FocusedForm) then
-      Kernel.Screen.FocusedForm.HandleMessage(NewMessage);
+//    if Assigned(Kernel.Screen.FocusedForm) then
+//      Kernel.Screen.FocusedForm.HandleMessage(NewMessage);
   finally
     NewMessage.Destroy;