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

Timestamp:

May 8, 2013, 2:53:22 PM (13 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.Controls.pas (modified) (3 diffs)

branches/Xvcl/Xvcl.Controls.pas

@@ -125 +125 @@
   inherited;
   Move := TControlMove.Create;
+  FColor := clWhite;
 end;
 
@@ -169 +170 @@
 procedure TControl.Paint;
 begin
+  with Canvas do begin
+    Brush.Color := Color;
+    FillRect(TRectangle.Create(0, 0, Bounds.Width, Bounds.Height));
+  end;
 end;
 
@@ -206 +211 @@
   inherited;
   with Canvas do begin
-    Brush.Color := Color;
-    FillRect(TRectangle.Create(0, 0, Bounds.Width, Bounds.Height));
     MoveTo(TPoint.Create(0, 0));
     LineTo(TPoint.Create(Bounds.Width - 1, 0));