pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1586 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
yangjixian
2011-04-21 00:49:50 +00:00
parent 737fae9e04
commit 169d228808
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/lazimageeditor/DLBitmap.pas
View File

@ -16,7 +16,11 @@ type
rgbtAlpha: byte; rgbtAlpha: byte;
end; end;
PRGBATriple = ^TRGBATriple; PRGBATriple = ^TRGBATriple;
{$ifdef MSWINDOWS}
TRGBATriple = tagRGBTRIPLE;
{$else}
TRGBATriple = tagRGBATRIPLE; TRGBATriple = tagRGBATRIPLE;
{$endif}
PRGBATripleArray = ^TRGBATripleArray; PRGBATripleArray = ^TRGBATripleArray;
TRGBATripleArray = array[word] of TRGBATriple; TRGBATripleArray = array[word] of TRGBATriple;
@ -86,11 +90,7 @@ implementation
constructor TDLBitmap.Create; constructor TDLBitmap.Create;
begin begin
inherited; inherited;
{$ifdef MSWINDOWS}
PixelFormat := pf32bit;
{$else}
PixelFormat := pf24bit; PixelFormat := pf24bit;
{$endif}
FIntfImgA := TLazIntfImage.Create(0, 0); FIntfImgA := TLazIntfImage.Create(0, 0);
end; end;