Changeset 24 for branches/Xvcl/Xvcl.Forms.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.Forms.pas (modified) (3 diffs)

branches/Xvcl/Xvcl.Forms.pas

@@ -66 +66 @@
   with TMessageMouseDown(Message) do begin
     TitleBarBounds := TRectangle.Create(0, 0, Bounds.Width, TitleBarHeight);
+    Focused := True;
     if TitleBarBounds.Contains(ScreenToClient(Position)) then begin
-      Focused := True;
-      Result := True;
       Move.StartControlPos := Bounds.TopLeft;
       Move.StartMousePos := Position;
       Move.Active := True;
+     Result := True;
     end;
   end else
@@ -90 +90 @@
 procedure TForm.Paint;
 begin
+  inherited;
   with Canvas do begin
-    Canvas.Brush.Color := clWhite;
-    Canvas.FillRect(TRectangle.Create(0, TitleBarHeight, Size.X, Size.Y));
     if Focused then Brush.Color := clLightBlue else
       Brush.Color := clSilver;
@@ -106 +105 @@
       (TitleBarHeight - GetTextSize(Caption).Y) div 2), Caption);
   end;
-  inherited;
 end;
 
 procedure TForm.SetFocused(const Value: Boolean);
 begin
-  FFocused := Value;
-  Paint;
+  if FFocused <> Value then begin
+    FFocused := Value;
+    if Value then TScreen(Screen).FocusForm(Self);
+  end;
 end;