paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 09:53:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomImageList: replaced notes with exceptions

Browse Source 
git-svn-id: trunk@14020 -
This commit is contained in:
mattias 2008-02-07 18:45:49 +00:00
parent b72236c15c
commit 8d1143faeb
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -146,7 +146,7 @@ type
function GetReferenceHandle: THandle; override;
procedure Initialize; virtual;
procedure DefineProperties(Filer: TFiler); override;
procedure SetWidthHeight(NewWidth,NewHeight: integer); virtual;
procedure SetWidthHeight(NewWidth, NewHeight: integer); virtual;
function WSCreateReference(AParams: TCreateParams): PWSReference; override;

8
lcl/include/imglist.inc
View File

@ -116,7 +116,8 @@ begin
end;
end
else begin
{$note implement}
// ToDo:
raise Exception.Create('TCustomImageList.AddImages not implemented yet for other Width/Height');
end;
end;
@ -1295,13 +1296,14 @@ begin
SetWidthHeight(Value,Height);
end;
procedure TCustomImageList.StretchDraw(Canvas: TCanvas; Index: Integer; ARect: TRect; Enabled: Boolean);
procedure TCustomImageList.StretchDraw(Canvas: TCanvas; Index: Integer;
ARect: TRect; Enabled: Boolean);
var
bmp: TBitmap;
begin
if (FCount = 0) or (Index >= FCount) then Exit;
{$note implement}
// ToDo: accelerate
// temp workaround
bmp := TBitmap.Create;
GetBitmap(Index, bmp);