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

LCL-CustomDrawn: Starts support for masks, not working yet

Browse Source 
git-svn-id: trunk@36581 -
This commit is contained in:
sekelsenmat 2012-04-05 15:43:52 +00:00
parent f988a68552
commit 110d17c70b
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/interfaces/customdrawn/customdrawnlclintf.inc
View File

@ -343,7 +343,7 @@ end;
------------------------------------------------------------------------------}
function TCDWidgetSet.RawImage_CreateBitmaps(const ARawImage: TRawImage; out ABitmap, AMask: HBitmap; ASkipMask: Boolean): Boolean;
var
NewData: PByte;
NewData, NewMaskData: PByte;
lRawImage: TRawImage;
lBitmap: TCDBitmap;
begin
@ -373,25 +373,32 @@ begin
ABitmap := HBITMAP(lBitmap);
System.Move(ARawImage, lRawImage, SizeOf(TRawImage));
lRawImage.Data := NewData;
lRawImage.Mask := nil;
// The Mask
if (not ASkipMask) and (ARawImage.Mask <> nil) and (ARawImage.MaskSize > 0) then
begin
NewMaskData := GetMem(ARawImage.MaskSize);
Move(ARawImage.Mask^, NewMaskData^, ARawImage.MaskSize);
end
else
NewMaskData := nil;
lRawImage.Mask := NewMaskData;
lRawImage.Palette := nil;
lBitmap.Image := TLazIntfImage.Create(lRawImage, True);
Result := ABitmap <> 0;
// Currently we dont support the Mask
if not ASkipMask then
// Also create a bitmap for the mask
if (not ASkipMask) then
begin
AMask := 0;
{ if (ARawImage.Mask <> nil) and (ARawImage.MaskSize > 0) then
begin
NewData := GetMem(ARawImage.MaskSize);
Move(ARawImage.Mask^, NewData^, ARawImage.MaskSize);
end
else
NewData := nil;
AMask := HBitmap(TQtImage.Create(NewData, Desc.Width, Desc.Height, QImageFormat_Mono, True));}
lBitmap := TCDBitmap.Create;
AMask := HBITMAP(lBitmap);
lRawImage.Description.Init_BPP1(ARawImage.Description.Width, ARawImage.Description.Height);
lRawImage.Data := NewMaskData;
lRawImage.Mask := nil;
lRawImage.Palette := nil;
lBitmap.Image := TLazIntfImage.Create(lRawImage, True);
end;
{$ifdef VerboseCDBitmap}