pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

- added CreateFromData constructor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@482 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
tomb0
2008-06-14 11:26:36 +00:00
parent cd26fb9591
commit 2b43ff98cb
1 changed files with 37 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/rgbgraphics/rgbtypes.pas
View File

@ -73,10 +73,12 @@ type
FWidth: Integer;
FHeight: Integer;
FRowPixelStride: Integer;
FDataOwner: Boolean;
function GetSize: Integer;
public
constructor Create(AWidth, AHeight: Integer; ASizeOfPixel: Integer); virtual;
constructor CreateAsCopy(ABitmap: TRGBBitmapCore; ASizeOfPixel: Integer); virtual;
constructor CreateFromData(AData: Pointer; AWidth, AHeight: Integer; ASizeOfPixel: Integer; ADataOwner: Boolean = False); virtual;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
@ -95,6 +97,7 @@ type
procedure Rotate180; virtual;
procedure Rotate270; virtual;
public
property DataOwner: Boolean read FDataOwner;
property Width: Integer read FWidth;
property Height: Integer read FHeight;
property Pixels: PRGBPixel read FPixels;
@ -109,6 +112,7 @@ type
public
constructor Create(AWidth, AHeight: Integer); virtual;
constructor CreateAsCopy(ABitmap: TRGBBitmapCore); virtual;
constructor CreateFromData(AData: Pointer; AWidth, AHeight: Integer; ADataOwner: Boolean = False); virtual;
procedure LoadFromLazIntfImageAlpha(AImage: TLazIntfImage); virtual;
procedure SaveToLazIntfImageAlpha(AImage: TLazIntfImage); virtual;
@ -132,6 +136,7 @@ type
constructor Create(AWidth, AHeight: Integer); virtual;
constructor CreateAsCopy(ABitmap: TRGBBitmapCore); virtual;
constructor CreateFromLazIntfImage(AImage: TLazIntfImage); virtual;
constructor CreateFromData(AData: Pointer; AWidth, AHeight: Integer; ADataOwner: Boolean = False); virtual;
procedure Assign(Source: TPersistent); override;
procedure SwapWith(ABitmap: TRGBBitmapCore); override;
@ -509,6 +514,7 @@ begin
FRowPixelStride := (((AWidth * ASizeOfPixel + 3) shr 2) shl 2) div ASizeOfPixel;
FSizeOfPixel := ASizeOfPixel;
FDataOwner := True;
GetMem(FPixels, FHeight * FRowPixelStride * FSizeOfPixel);
end;
@ -522,13 +528,31 @@ begin
FRowPixelStride := ABitmap.RowPixelStride;
FSizeOfPixel := ASizeOfPixel;
FDataOwner := True;
GetMem(FPixels, FHeight * FRowPixelStride * SizeOfPixel);
Move(ABitmap.Pixels^, FPixels^, FHeight * FRowPixelStride * SizeOfPixel);
end;
constructor TRGBBitmapCore.CreateFromData(AData: Pointer; AWidth, AHeight: Integer;
ASizeOfPixel: Integer; ADataOwner: Boolean);
begin
inherited Create;
FWidth := AWidth;
FHeight := AHeight;
// TODO: check on 64-bit arch.
// 32-bit alignment
FRowPixelStride := (((AWidth * ASizeOfPixel + 3) shr 2) shl 2) div ASizeOfPixel;
FSizeOfPixel := ASizeOfPixel;
FPixels := AData;
FDataOwner := ADataOwner;
end;
destructor TRGBBitmapCore.Destroy;
begin
FreeMem(FPixels);
if FDataOwner then FreeMem(FPixels);
inherited;
end;
@ -651,6 +675,12 @@ begin
end;
end;
constructor TRGB32BitmapCore.CreateFromData(AData: Pointer; AWidth, AHeight: Integer;
ADataOwner: Boolean);
begin
inherited CreateFromData(AData, AWidth, AHeight, SizeOf(TRGB32Pixel), ADataOwner);
end;
procedure TRGB32BitmapCore.Assign(Source: TPersistent);
begin
if (Source is TRGBBitmapCore) and ((Source as TRGBBitmapCore).SizeOfPixel = SizeOf(TRGB32Pixel)) then
@ -736,6 +766,12 @@ begin
inherited CreateAsCopy(ABitmap, SizeOf(TRGB8Pixel));
end;
constructor TRGB8BitmapCore.CreateFromData(AData: Pointer; AWidth, AHeight: Integer;
ADataOwner: Boolean);
begin
inherited CreateFromData(AData, AWidth, AHeight, SizeOf(TRGB8Pixel), ADataOwner);
end;
procedure TRGB8BitmapCore.LoadFromLazIntfImageAlpha(AImage: TLazIntfImage);
var
I, J: Integer;