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

- new widgetset based imagelist proposal from Marc with small corrections

Browse Source 
git-svn-id: trunk@10905 -
This commit is contained in:
paul 2007-04-06 17:52:42 +00:00
parent c890c41f89
commit 35eb65af02
1 changed files with 22 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
lcl/widgetset/wsimglist.pp
View File

@ -48,70 +48,58 @@ type
TWSCustomImageList = class(TWSLCLHandleComponent)
class procedure Clear(AList: TCustomImageList); virtual;
// class function CreateBitmap(AList: TCustomImageList; AIndex: Integer; const ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle);
class function CreateHandle(AList: TCustomImageList; ACount, AGrow: Integer; const AParams: TCreateParams): TLCLIntfHandle; virtual;
class function CreateHandle(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TLCLIntfHandle; virtual;
class procedure Delete(AList: TCustomImageList; AIndex: Integer); virtual;
class procedure Draw(AList: TCustomImageList; ACanvas: TCanvas; ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle); virtual;
class procedure Insert(AList: TCustomImageList; AIndex: Integer; AImage, AMask: TBitmap); virtual;
class procedure InsertIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon); virtual;
class procedure InsertMasked(AList: TCustomImageList; Index: Integer; Image: TBitmap; MaskColor: TColor); virtual;
class procedure DestroyHandle(AList: TCustomImageList); virtual;
class procedure Draw(AList: TCustomImageList; AIndex: Integer; ACanvas: TCanvas;
ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle); virtual;
class procedure Insert(AList: TCustomImageList; AIndex: Integer; AData: PRGBAQuad); virtual;
class procedure Move(AList: TCustomImageList; ACurIndex, ANewIndex: Integer); virtual;
class procedure Replace(AList: TCustomImageList; AIndex: Integer; AImage, AMask: TBitmap); virtual;
class procedure ReplaceIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon); virtual;
class procedure ReplaceMasked(AList: TCustomImageList; AIndex: Integer; ANewImage: TBitmap; AMaskColor: TColor); virtual;
class procedure Replace(AList: TCustomImageList; AIndex: Integer; AData: PRGBAQuad); virtual;
end;
implementation
{ TWSCustomImageList }
class procedure TWSCustomImageList.Clear(AList: TCustomImageList);
begin
end;
class function TWSCustomImageList.CreateHandle(AList: TCustomImageList; ACount, AGrow: Integer; const AParams: TCreateParams): TLCLIntfHandle;
class function TWSCustomImageList.CreateHandle(AList: TCustomImageList; ACount,
AGrow, AWidth, AHeight: Integer; AData: PRGBAQuad): TLCLIntfHandle;
begin
Result:=0;
Result := 0;
end;
class procedure TWSCustomImageList.Delete(AList: TCustomImageList; AIndex: Integer);
class procedure TWSCustomImageList.Delete(AList: TCustomImageList;
AIndex: Integer);
begin
end;
class procedure TWSCustomImageList.Draw(AList: TCustomImageList; ACanvas: TCanvas; ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle);
class procedure TWSCustomImageList.DestroyHandle(AList: TCustomImageList);
begin
end;
class procedure TWSCustomImageList.Insert(AList: TCustomImageList; AIndex: Integer; AImage, AMask: TBitmap);
class procedure TWSCustomImageList.Draw(AList: TCustomImageList; AIndex: Integer;
ACanvas: TCanvas; ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle);
begin
end;
class procedure TWSCustomImageList.InsertIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon);
class procedure TWSCustomImageList.Insert(AList: TCustomImageList;
AIndex: Integer; AData: PRGBAQuad);
begin
end;
class procedure TWSCustomImageList.InsertMasked(AList: TCustomImageList; Index: Integer; Image: TBitmap; MaskColor: TColor);
class procedure TWSCustomImageList.Move(AList: TCustomImageList; ACurIndex,
ANewIndex: Integer);
begin
end;
class procedure TWSCustomImageList.Move(AList: TCustomImageList; ACurIndex, ANewIndex: Integer);
begin
end;
class procedure TWSCustomImageList.Replace(AList: TCustomImageList; AIndex: Integer; AImage, AMask: TBitmap);
begin
end;
class procedure TWSCustomImageList.ReplaceIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon);
begin
end;
class procedure TWSCustomImageList.ReplaceMasked(AList: TCustomImageList; AIndex: Integer; ANewImage: TBitmap; AMaskColor: TColor);
class procedure TWSCustomImageList.Replace(AList: TCustomImageList;
AIndex: Integer; AData: PRGBAQuad);
begin
end;