paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: GTK3: Compilable again after revision 57164 #987f894152.

Browse Source 
git-svn-id: trunk@57573 -
This commit is contained in:
michl 2018-03-28 21:06:41 +00:00
parent 490a9896da
commit 0e7311c40c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk3/gtk3wsimglist.pp
View File

@ -37,7 +37,7 @@ uses
WSLCLClasses, WSProc, WSReferences, WSFactory, WSImgList;
type
{ TGtk3WSCustomImageList }
{ TGtk3WSCustomImageListResolution }
TGtk3WSCustomImageListResolution = class(TWSCustomImageListResolution)
published
@ -61,14 +61,14 @@ type
implementation
{ TGtk3WSCustomImageList }
{ TGtk3WSCustomImageListResolution }
class procedure TGtk3WSCustomImageList.Clear(AList: TCustomImageListResolution);
class procedure TGtk3WSCustomImageListResolution.Clear(AList: TCustomImageListResolution);
begin
inherited Clear(AList);
end;
class function TGtk3WSCustomImageList.CreateReference(AList: TCustomImageListResolution;
class function TGtk3WSCustomImageListResolution.CreateReference(AList: TCustomImageListResolution;
ACount, AGrow, AWidth, AHeight: Integer; AData: PRGBAQuad
): TWSCustomImageListReference;
begin
@ -76,18 +76,18 @@ begin
);
end;
class procedure TGtk3WSCustomImageList.Delete(AList: TCustomImageListResolution;
class procedure TGtk3WSCustomImageListResolution.Delete(AList: TCustomImageListResolution;
AIndex: Integer);
begin
inherited Delete(AList, AIndex);
end;
class procedure TGtk3WSCustomImageList.DestroyReference(AComponent: TComponent);
class procedure TGtk3WSCustomImageListResolution.DestroyReference(AComponent: TComponent);
begin
inherited DestroyReference(AComponent);
end;
class procedure TGtk3WSCustomImageList.Draw(AList: TCustomImageListResolution;
class procedure TGtk3WSCustomImageListResolution.Draw(AList: TCustomImageListResolution;
AIndex: Integer; ACanvas: TCanvas; ABounds: TRect; ABkColor,
ABlendColor: TColor; ADrawEffect: TGraphicsDrawEffect; AStyle: TDrawingStyle;
AImageType: TImageType);
@ -96,19 +96,19 @@ begin
ADrawEffect, AStyle, AImageType);
end;
class procedure TGtk3WSCustomImageList.Insert(AList: TCustomImageListResolution;
class procedure TGtk3WSCustomImageListResolution.Insert(AList: TCustomImageListResolution;
AIndex: Integer; AData: PRGBAQuad);
begin
inherited Insert(AList, AIndex, AData);
end;
class procedure TGtk3WSCustomImageList.Move(AList: TCustomImageListResolution; ACurIndex,
class procedure TGtk3WSCustomImageListResolution.Move(AList: TCustomImageListResolution; ACurIndex,
ANewIndex: Integer);
begin
inherited Move(AList, ACurIndex, ANewIndex);
end;
class procedure TGtk3WSCustomImageList.Replace(AList: TCustomImageListResolution;
class procedure TGtk3WSCustomImageListResolution.Replace(AList: TCustomImageListResolution;
AIndex: Integer; AData: PRGBAQuad);
begin
inherited Replace(AList, AIndex, AData);