paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: cleanup.

Browse Source
This commit is contained in:
zeljan1 2025-02-06 20:56:33 +01:00
parent 4a8f31afdb
commit 42a3ff44e7
2 changed files with 6 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk3/gtk3wsfactory.pas
View File

@ -147,8 +147,8 @@ uses
function RegisterCustomImageListResolution: Boolean; alias : 'WSRegisterCustomImageListResolution';
begin
// RegisterWSComponent(TImageList, TGtk3WSImageList);
RegisterWSComponent(TCustomImageListResolution, TGtk3WSCustomImageListResolution);
Result := True;
//RegisterWSComponent(TCustomImageListResolution, TGtk3WSCustomImageListResolution);
Result := False;
end;
// controls

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

@ -33,89 +33,18 @@ interface
// the uses clause of the XXXintf.pp
////////////////////////////////////////////////////
uses
Classes, GraphType, Graphics, IntfGraphics, ImgList, LCLType, LCLIntf,
WSLCLClasses, WSProc, WSReferences, WSFactory, WSImgList;
WSImgList, WSLCLClasses;
type
{ TGtk3WSCustomImageListResolution }
TGtk3WSCustomImageListResolution = class(TWSCustomImageListResolution)
published
class procedure Clear(AList: TCustomImageListResolution); override;
class function CreateReference(AList: TCustomImageListResolution; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; override;
class procedure Delete(AList: TCustomImageListResolution; AIndex: Integer); override;
class procedure DestroyReference(AComponent: TComponent); override;
class procedure Draw(AList: TCustomImageListResolution; AIndex: Integer; ACanvas: TCanvas;
ABounds: TRect; ABkColor, ABlendColor: TColor; ADrawEffect: TGraphicsDrawEffect; AStyle: TDrawingStyle; AImageType: TImageType); override;
class procedure Insert(AList: TCustomImageListResolution; AIndex: Integer; AData: PRGBAQuad); override;
class procedure Move(AList: TCustomImageListResolution; ACurIndex, ANewIndex: Integer); override;
class procedure Replace(AList: TCustomImageListResolution; AIndex: Integer; AData: PRGBAQuad); override;
private
protected
public
end;
TGtk3WSCustomImageListResolutionClass = class of TGtk3WSCustomImageListResolution;
implementation
uses gtk3objects,lazgdkpixbuf2;
{ TGtk3WSCustomImageListResolution }
class procedure TGtk3WSCustomImageListResolution.Clear(AList: TCustomImageListResolution);
begin
inherited Clear(AList);
end;
class function TGtk3WSCustomImageListResolution.CreateReference(AList: TCustomImageListResolution;
ACount, AGrow, AWidth, AHeight: Integer; AData: PRGBAQuad
): TWSCustomImageListReference;
begin
Result:=inherited CreateReference(AList, ACount, AGrow, AWidth, AHeight, AData
);
end;
class procedure TGtk3WSCustomImageListResolution.Delete(AList: TCustomImageListResolution;
AIndex: Integer);
begin
inherited Delete(AList, AIndex);
end;
class procedure TGtk3WSCustomImageListResolution.DestroyReference(AComponent: TComponent);
begin
inherited DestroyReference(AComponent);
end;
class procedure TGtk3WSCustomImageListResolution.Draw(AList: TCustomImageListResolution;
AIndex: Integer; ACanvas: TCanvas; ABounds: TRect; ABkColor,
ABlendColor: TColor; ADrawEffect: TGraphicsDrawEffect; AStyle: TDrawingStyle;
AImageType: TImageType);
begin
inherited Draw(AList, AIndex, ACanvas, ABounds, ABkColor, ABlendColor,
ADrawEffect, AStyle, AImageType);
{ TGtk3DeviceContext(ACanvas.Handle).drawImglistRes(AList,
AIndex,ABounds,ABkColor,
ABlendColor,ADrawEffect,AStyle, AImageType);}
end;
class procedure TGtk3WSCustomImageListResolution.Insert(AList: TCustomImageListResolution;
AIndex: Integer; AData: PRGBAQuad);
begin
inherited Insert(AList, AIndex, AData);
end;
class procedure TGtk3WSCustomImageListResolution.Move(AList: TCustomImageListResolution; ACurIndex,
ANewIndex: Integer);
begin
inherited Move(AList, ACurIndex, ANewIndex);
end;
class procedure TGtk3WSCustomImageListResolution.Replace(AList: TCustomImageListResolution;
AIndex: Integer; AData: PRGBAQuad);
begin
inherited Replace(AList, AIndex, AData);
end;
end.