1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
function TWin32WidgetSet.RawImage_FromBitmap(out ARawImage: TRawImage; ABitmap, AMask: HBITMAP; ARect: PRect = nil): Boolean;
var
WinDIB: Windows.TDIBSection;
WinBmp: Windows.TBitmap absolute WinDIB.dsBm;
ASize: Integer;
R: TRect;
begin
ARawImage.Init;
FillChar(WinDIB, SizeOf(WinDIB), 0);
ASize := Windows.GetObject(ABitmap, SizeOf(WinDIB), @WinDIB);
if ASize = 0
then Exit(False);
//DbgDumpBitmap(ABitmap, 'FromBitmap - Image');
//DbgDumpBitmap(AMask, 'FromMask - Mask');
FillRawImageDescription(WinBmp, ARawImage.Description);
// if it is not DIB then alpha in bitmaps is not supported => use 0 alpha prec
if ASize < SizeOf(WinDIB) then
ARawImage.Description.AlphaPrec := 0;
if ARect = nil
then begin
R := Rect(0, 0, WinBmp.bmWidth, WinBmp.bmHeight);
end
else begin
R := ARect^;
if R.Top > WinBmp.bmHeight then
R.Top := WinBmp.bmHeight;
if R.Bottom > WinBmp.bmHeight then
R.Bottom := WinBmp.bmHeight;
if R.Left > WinBmp.bmWidth then
R.Left := WinBmp.bmWidth;
if R.Right > WinBmp.bmWidth then
R.Right := WinBmp.bmWidth;
end;
ARawImage.Description.Width := R.Right - R.Left;
ARawImage.Description.Height := R.Bottom - R.Top;
// copy bitmap
Result := GetBitmapBytes(WinBmp, ABitmap, R, ARawImage.Description.LineEnd, ARawImage.Description.LineOrder, ARawImage.Data, ARawImage.DataSize);
// check mask
if AMask <> 0 then
begin
if Windows.GetObject(AMask, SizeOf(WinBmp), @WinBmp) = 0
then Exit(False);
Result := GetBitmapBytes(WinBmp, AMask, R, ARawImage.Description.MaskLineEnd, ARawImage.Description.LineOrder, ARawImage.Mask, ARawImage.MaskSize);
end
else begin
ARawImage.Description.MaskBitsPerPixel := 0;
end;
end; |
Partager