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

LCL: fixed compilation fpc 2.6.1

Browse Source 
git-svn-id: trunk@37509 -
This commit is contained in:
mattias 2012-06-04 11:03:38 +00:00
parent 51162a24b6
commit 014abf4fd3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/intfgraphics.pas
View File

@ -630,9 +630,11 @@ type
// format and before the image is read // format and before the image is read
FOrgEvent: TTiffCreateCompatibleImgEvent; FOrgEvent: TTiffCreateCompatibleImgEvent;
procedure CreateImageHook(Sender: TFPReaderTiff; var NewImage: TFPCustomImage); procedure CreateImageHook(Sender: TFPReaderTiff; var NewImage: TFPCustomImage);
{$ENDIF} procedure DoCreateImage(ImgFileDir: TTiffIDF);
{$ELSE}
protected protected
procedure DoCreateImage(ImgFileDir: TTiffIFD); {$IF FPC_FULLVERSION>=20701}override;{$ENDIF} procedure DoCreateImage(ImgFileDir: TTiffIFD); override;
{$ENDIF}
public public
function GetUpdateDescription: Boolean; function GetUpdateDescription: Boolean;
procedure SetUpdateDescription(AValue: Boolean); procedure SetUpdateDescription(AValue: Boolean);
@ -5957,7 +5959,8 @@ begin
end; end;
{$ENDIF} {$ENDIF}
procedure TLazReaderTiff.DoCreateImage(ImgFileDir: TTiffIFD); procedure TLazReaderTiff.DoCreateImage(
ImgFileDir: {$IF FPC_FULLVERSION<20701}TTiffIDF{$ELSE}TTiffIFD{$ENDIF});
var var
Desc: TRawImageDescription; Desc: TRawImageDescription;
IsAlpha, IsGray: Boolean; IsAlpha, IsGray: Boolean;