paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 20:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix RawImage_DescriptionFromBitmap

Browse Source 
git-svn-id: trunk@38784 -
This commit is contained in:
paul 2012-09-21 12:04:37 +00:00
parent 7ebd846c4a
commit a3012aeb68
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoalclintf.inc
View File

@ -374,7 +374,6 @@ begin
Result := True;
end;
{------------------------------------------------------------------------------
Function: RawImage_DescriptionFromBitmap
Params: ABitmap:
@ -384,13 +383,13 @@ end;
Describes the inner format utilized by Carbon and specific information
for the specified bitmap
------------------------------------------------------------------------------}
(*function TCarbonWidgetSet.RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean;
function TCocoaWidgetSet.RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean;
begin
if CheckBitmap(ABitmap, 'RawImage_DescriptionFromBitmap')
then Result := RawImage_DescriptionFromCarbonBitmap(ADesc, TCarbonBitmap(ABitmap))
then Result := RawImage_DescriptionFromCocoaBitmap(ADesc, TCocoaBitmap(ABitmap))
else Result := False;
end;
*)
{------------------------------------------------------------------------------
Function: RawImage_DescriptionFromDevice

2
lcl/interfaces/cocoa/cocoalclintfh.inc
View File

@ -49,7 +49,7 @@ function PromptUser(const DialogCaption : string;
EscapeResult : LongInt) : LongInt; override;}
function RawImage_CreateBitmaps(const ARawImage: TRawImage; out ABitmap, AMask: HBitmap; ASkipMask: Boolean = False): Boolean; override;
{function RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean; override;}
function RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean; override;
function RawImage_DescriptionFromDevice(ADC: HDC; out ADesc: TRawImageDescription): Boolean; override;
function RawImage_FromBitmap(out ARawImage: TRawImage; ABitmap, AMask: HBITMAP; ARect: PRect = nil): Boolean; override;
{function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TRect): Boolean; override;