Changeset 6 for os/trunk/Xvcl/Xvcl.Graphics.pas

Timestamp:

Jun 2, 2013, 5:41:42 PM (11 years ago)

Author:

chronos

Message:

• Fixed: TaskBar positioning.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• Xvcl/Xvcl.Graphics.pas (modified) (3 diffs)

os/trunk

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

os/trunk/Xvcl/Xvcl.Graphics.pas

@@ -10 +10 @@
   TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed,
     clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan);
+  PColor = ^TColor;
 
   TPen = class
@@ -62 +63 @@
   TBitmap = class
   private
+    Data: PByte;
+    FSize: TPoint;
     function GetPixel(X, Y: Integer): TColor;
     procedure SetPixel(X, Y: Integer; const Value: TColor);
+    procedure SetSize(const Value: TPoint);
   public
     property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
+    property Size: TPoint read FSize write SetSize;
   end;
 
@@ -150 +155 @@
 function TBitmap.GetPixel(X, Y: Integer): TColor;
 begin
-
+  Result := PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^;
 end;
 
 procedure TBitmap.SetPixel(X, Y: Integer; const Value: TColor);
 begin
-
-end;
-
+  PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^ := Value;
+end;
+
+
+procedure TBitmap.SetSize(const Value: TPoint);
+begin
+  FSize := Value;
+end;
 
 { TVideoDevice }

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache