paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:19:19 +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) TWSCustomImageList = class(TWSLCLHandleComponent)
class procedure Clear(AList: TCustomImageList); virtual; 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, AWidth,
class function CreateHandle(AList: TCustomImageList; ACount, AGrow: Integer; const AParams: TCreateParams): TLCLIntfHandle; virtual; AHeight: Integer; AData: PRGBAQuad): TLCLIntfHandle; virtual;
class procedure Delete(AList: TCustomImageList; AIndex: Integer); 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 DestroyHandle(AList: TCustomImageList); virtual;
class procedure Draw(AList: TCustomImageList; AIndex: Integer; ACanvas: TCanvas;
class procedure Insert(AList: TCustomImageList; AIndex: Integer; AImage, AMask: TBitmap); virtual; ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle); virtual;
class procedure InsertIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon); virtual; class procedure Insert(AList: TCustomImageList; AIndex: Integer; AData: PRGBAQuad); virtual;
class procedure InsertMasked(AList: TCustomImageList; Index: Integer; Image: TBitmap; MaskColor: TColor); virtual;
class procedure Move(AList: TCustomImageList; ACurIndex, ANewIndex: Integer); virtual; class procedure Move(AList: TCustomImageList; ACurIndex, ANewIndex: Integer); virtual;
class procedure Replace(AList: TCustomImageList; AIndex: Integer; AData: PRGBAQuad); 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;
end; end;
implementation implementation
{ TWSCustomImageList } { TWSCustomImageList }
class procedure TWSCustomImageList.Clear(AList: TCustomImageList); class procedure TWSCustomImageList.Clear(AList: TCustomImageList);
begin begin
end; 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 begin
Result:=0; Result := 0;
end; end;
class procedure TWSCustomImageList.Delete(AList: TCustomImageList; AIndex: Integer); class procedure TWSCustomImageList.Delete(AList: TCustomImageList;
AIndex: Integer);
begin begin
end; end;
class procedure TWSCustomImageList.Draw(AList: TCustomImageList; ACanvas: TCanvas; ABounds: TRect; AEnabled: Boolean; AStyle: TDrawingStyle); class procedure TWSCustomImageList.DestroyHandle(AList: TCustomImageList);
begin begin
end; 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 begin
end; end;
class procedure TWSCustomImageList.InsertIcon(AList: TCustomImageList; AIndex: Integer; AImage: TIcon); class procedure TWSCustomImageList.Insert(AList: TCustomImageList;
AIndex: Integer; AData: PRGBAQuad);
begin begin
end; end;
class procedure TWSCustomImageList.InsertMasked(AList: TCustomImageList; Index: Integer; Image: TBitmap; MaskColor: TColor); class procedure TWSCustomImageList.Move(AList: TCustomImageList; ACurIndex,
ANewIndex: Integer);
begin begin
end; end;
class procedure TWSCustomImageList.Move(AList: TCustomImageList; ACurIndex, ANewIndex: Integer); class procedure TWSCustomImageList.Replace(AList: TCustomImageList;
begin AIndex: Integer; AData: PRGBAQuad);
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);
begin begin
end; end;