Changeset 20 for branches/Xvcl/Xvcl.Graphics.pas

Timestamp:

May 6, 2013, 12:16:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: Improved messages passing to controls.
• Modified: Now TButton change background color during mouse click.

Location:

branches/Xvcl

Files:

• . (modified) (1 prop)
• Xvcl.Graphics.pas (modified) (4 diffs)

branches/Xvcl

@@ -2 +2 @@
 *.local
 Win32
+__history

@@ -2 +2 @@
 *.local
 Win32
+__history

branches/Xvcl/Xvcl.Graphics.pas

@@ -25 +25 @@
   TVideoDevice = class
     Size: TPoint;
+    procedure FillRect(Rect: TRectangle; Color: TColor); virtual;
     procedure Line(Pos1, Pos2: TPoint; Color: TColor); virtual;
     procedure SetPixel(Position: TPoint; Color: TColor); virtual;
@@ -49 +50 @@
     procedure SetPixel(Position: TPoint; Color: TColor);
     function GetPixel(Position: TPoint): TColor;
+    procedure FillRect(Rect: TRectangle);
     constructor Create;
     destructor Destroy; override;
@@ -90 +92 @@
   FPen.Destroy;
   inherited;
+end;
+
+procedure TCanvas.FillRect(Rect: TRectangle);
+begin
+  Rect.TopLeft := AdjustPos(Rect.TopLeft);
+  if Assigned(VideoDevice) then VideoDevice.FillRect(Rect, Brush.Color);
 end;
 
@@ -152 +160 @@
 { TVideoDevice }
 
+procedure TVideoDevice.FillRect(Rect: TRectangle; Color: TColor);
+begin
+
+end;
+
 function TVideoDevice.GetPixel(Position: TPoint): TColor;
 begin

@@ -2 +2 @@
 *.local
 Win32
+__history