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

Add info if bitmap format is not supported for creating canvas handle.

Browse Source 
git-svn-id: trunk@15779 -
This commit is contained in:
tombo 2008-07-14 11:45:57 +00:00
parent 91146521fe
commit c85ebeb48d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/carbon/carboncanvas.pp
View File

@ -1494,11 +1494,14 @@ procedure TCarbonBitmapContext.Reset;
var
Info: CGBitmapInfo;
begin
if CGContext <> nil then CGContextRelease(CGContext);
if CGContext <> nil then
begin
CGContextRelease(CGContext);
CGContext := nil;
end;
if FBitmap = nil then
CGContext := nil
else
if FBitmap <> nil then
begin
{$note TODO: convert data if image format is incomatible with context}
// MWE:
@ -1526,6 +1529,9 @@ begin
CGContext := CGBitmapContextCreate(FBitmap.Data, FBitmap.Width, FBitmap.Height,
FBitmap.BitsPerComponent, FBitmap.BytesPerRow, FBitmap.ColorSpace,
Info);
if CGContext = nil then
DebugLn('Unable to create Canvas Handle for Bitmap. Format "', DbgS(Info), '" is not supported!');
// flip and offset CTM to upper left corner
CGContextTranslateCTM(CGContext, 0, FBitmap.Height);