paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-18 10:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TLazIntfImage added quick setup functions for pf24bit and pf32bit formats

Browse Source 
git-svn-id: trunk@10276 -
This commit is contained in:
mattias 2006-12-01 21:37:03 +00:00
parent 4aaef35274
commit cec8f5b20e
1 changed files with 48 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
lcl/intfgraphics.pas
View File

@ -181,6 +181,7 @@ type
ExceptionOnError: boolean): boolean; virtual; ExceptionOnError: boolean): boolean; virtual;
procedure GetDescriptionFromDevice(DC: HDC); virtual; procedure GetDescriptionFromDevice(DC: HDC); virtual;
procedure GetDescriptionFromBitmap(Bitmap: HBitmap); virtual; procedure GetDescriptionFromBitmap(Bitmap: HBitmap); virtual;
procedure Set_BPP24_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer);
procedure Set_BPP32_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer); procedure Set_BPP32_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer);
procedure LoadFromDevice(DC: HDC); virtual; procedure LoadFromDevice(DC: HDC); virtual;
procedure LoadFromBitmap(Bitmap, MaskBitmap: HBitmap; AWidth: integer = -1; AHeight: integer = -1); virtual; procedure LoadFromBitmap(Bitmap, MaskBitmap: HBitmap; AWidth: integer = -1; AHeight: integer = -1); virtual;
@ -1785,14 +1786,55 @@ begin
DataDescription:=NewDataDescription; DataDescription:=NewDataDescription;
end; end;
procedure TLazIntfImage.Set_BPP24_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer
);
{ pf24bit:
Format=ricfRGBA HasPalette=false Depth=24 PaletteColorCount=0
BitOrder=riboBitsInOrder ByteOrder=DefaultByteOrder
LineOrder=riloTopToBottom
BitsPerPixel=24 LineEnd=rileDWordBoundary
RedPrec=8 RedShift=16 GreenPrec=8 GreenShift=8 BluePrec=8 BlueShift=0
AlphaSeparate=false }
var
ADesc: TRawImageDescription;
begin
// setup an artificial ScanLineImage with format RGB 24 bit, 24bit depth format
FillChar(ADesc,SizeOf(ADesc),0);
with ADesc do begin
Format:=ricfRGBA;
Depth:=24; // used bits per pixel
Width:=0;
Height:=0;
BitOrder:=riboBitsInOrder;
ByteOrder:=DefaultByteOrder;
LineOrder:=riloTopToBottom;
BitsPerPixel:=24; // bits per pixel. can be greater than Depth.
LineEnd:=rileDWordBoundary;
RedPrec:=8; // red precision. bits for red
RedShift:=16;
GreenPrec:=8;
GreenShift:=8; // bitshift. Direction: from least to most signifikant
BluePrec:=8;
BlueShift:=0;
AlphaPrec:=0;
AlphaSeparate:=false;
end;
DataDescription:=ADesc;
SetSize(NewWidth,NewHeight);
end;
procedure TLazIntfImage.Set_BPP32_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer procedure TLazIntfImage.Set_BPP32_B8G8R8_A1_BIO_TTB(NewWidth, NewHeight: integer
); );
// Format=ricfRGBA HasPalette=false Depth=24 PaletteColorCount=0 { pf32bit:
// BitOrder=riboBitsInOrder ByteOrder=DefaultByteOrder
// LineOrder=riloTopToBottom Format=ricfRGBA HasPalette=false Depth=24 PaletteColorCount=0
// BitsPerPixel=32 LineEnd=rileDWordBoundary BitOrder=riboBitsInOrder ByteOrder=DefaultByteOrder
// RedPrec=8 RedShift=16 GreenPrec=8 GreenShift=8 BluePrec=8 BlueShift=0 LineOrder=riloTopToBottom
// AlphaSeparate=false BitsPerPixel=32 LineEnd=rileDWordBoundary
RedPrec=8 RedShift=16 GreenPrec=8 GreenShift=8 BluePrec=8 BlueShift=0
AlphaSeparate=false }
var var
ADesc: TRawImageDescription; ADesc: TRawImageDescription;
begin begin