mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compiling gifanim.pas under old Lazarus version

Browse source
This commit is contained in:
Alexander Koblov 2010-06-01 21:31:04 +00:00
commit 61867eb4ef
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
components/gifanim/gifanim.pas
View file

@ -193,7 +193,9 @@ type
procedure DoAutoSize; override;
procedure DoStartAnim;
procedure DoStopAnim;
{
class function GetControlClassDefaultSize: TSize; override;
}
procedure GifChanged;
procedure LoadFromFile(const Filename: string); virtual;
procedure Paint; override;
@ -268,7 +270,9 @@ begin
inherited Create(AOwner);
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks];
AutoSize := True;
{
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);
}
FEmpty := True;
FCurrentImage := 0;
CurrentView := TBitmap.Create;
@ -441,11 +445,13 @@ begin
end;
end;
{
class function TGifAnim.GetControlClassDefaultSize: TSize;
begin
Result.CX := 90;
Result.CY := 90;
end;
}
procedure TGifAnim.GifChanged;
begin