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

Remove redundant code in GraphType by Luiz Americo (0010200)

Browse Source 
git-svn-id: trunk@12909 -
This commit is contained in:
paul 2007-11-17 17:55:10 +00:00
parent cc2180a5b0
commit 8f6cfd5bea
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/graphtype.pp
View File

@ -854,20 +854,11 @@ begin
end;
function TRawImageDescription.AsString: string;
function BoolStr(b: boolean): string;
begin
if b then
Result:='true'
else
Result:='false';
end;
begin
Result:=
' Format='+RawImageColorFormatNames[Format]
+' HasPalette->'+BoolStr(PaletteColorCount <> 0)
+' HasMask->'+BoolStr(PaletteColorCount <> 0)
+' HasPalette->'+BoolToStr(PaletteColorCount <> 0, True)
+' HasMask->'+BoolToStr(PaletteColorCount <> 0, True)
+' Depth='+IntToStr(Depth)
+' Width='+IntToStr(Width)
+' Height='+IntToStr(Height)
@ -1173,11 +1164,11 @@ begin
(PaletteSize = AImage.PaletteSize);
if Result then
Result := Result and CompareMem(Data, AImage.Data, DataSize);
Result := CompareMem(Data, AImage.Data, DataSize);
if Result then
Result := Result and CompareMem(Mask, AImage.Mask, MaskSize);
Result := CompareMem(Mask, AImage.Mask, MaskSize);
if Result then
Result := Result and CompareMem(Palette, AImage.Palette, PaletteSize);
Result := CompareMem(Palette, AImage.Palette, PaletteSize);
end;
procedure TRawImage.ReleaseData;