Changeset 6 for os/trunk/Xvcl
- Timestamp:
- Jun 2, 2013, 5:41:42 PM (12 years ago)
- Location:
- os/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
os/trunk
- Property svn:ignore
-
old new 2 2 *.~dsk 3 3 __history 4 *.identcache
-
- Property svn:ignore
-
os/trunk/Xvcl/Xvcl.Graphics.pas
r5 r6 10 10 TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed, 11 11 clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan); 12 PColor = ^TColor; 12 13 13 14 TPen = class … … 62 63 TBitmap = class 63 64 private 65 Data: PByte; 66 FSize: TPoint; 64 67 function GetPixel(X, Y: Integer): TColor; 65 68 procedure SetPixel(X, Y: Integer; const Value: TColor); 69 procedure SetSize(const Value: TPoint); 66 70 public 67 71 property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel; 72 property Size: TPoint read FSize write SetSize; 68 73 end; 69 74 … … 150 155 function TBitmap.GetPixel(X, Y: Integer): TColor; 151 156 begin 152 157 Result := PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^; 153 158 end; 154 159 155 160 procedure TBitmap.SetPixel(X, Y: Integer; const Value: TColor); 156 161 begin 157 158 end; 159 162 PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^ := Value; 163 end; 164 165 166 procedure TBitmap.SetSize(const Value: TPoint); 167 begin 168 FSize := Value; 169 end; 160 170 161 171 { TVideoDevice }
Note:
See TracChangeset
for help on using the changeset viewer.