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

* fixed crash in lazintfimage when setting description with same size as before

Browse Source 
git-svn-id: trunk@12511 -
This commit is contained in:
marc 2007-10-17 21:57:14 +00:00
parent ae68d570ac
commit d969229f60
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/intfgraphics.pas
View File

@ -132,6 +132,9 @@ type
{$endif}
function GetMasked(x, y: integer): Boolean;
function GetTColors(x, y: integer): TGraphicsColor;
procedure InternalSetSize(AWidth, AHeight: integer);
procedure SetMasked(x, y: integer; const AValue: Boolean);
procedure SetTColors(x, y: integer; const AValue: TGraphicsColor);
protected
@ -1123,7 +1126,8 @@ begin
FreeData;
FRawImage.Description := ADescription;
ChooseGetSetColorFunctions;
SetSize(ADescription.Width, ADescription.Height);
InternalSetSize(ADescription.Width, ADescription.Height);
CreateData;
finally
EndUpdate;
end;
@ -2902,7 +2906,7 @@ begin
ChooseGetSetColorFunctions;
end;
procedure TLazIntfImage.SetSize(AWidth, AHeight: integer);
procedure TLazIntfImage.InternalSetSize(AWidth, AHeight: integer);
procedure Error;
begin
raise FPImageException.Create('Invalid Size');
@ -2911,9 +2915,14 @@ begin
if (AWidth = Width) and (AHeight = Height) then exit;
if (AWidth<0) or (AHeight<0) then Error;
inherited SetSize(AWidth, AHeight);
FRawImage.Description.Width := Width;
FRawImage.Description.Height := Height;
end;
procedure TLazIntfImage.SetSize(AWidth, AHeight: integer);
begin
InternalSetSize(AWidth, AHeight);
CreateData;
end;