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

use imagelist state drawing by theme services

Browse Source 
git-svn-id: trunk@12782 -
This commit is contained in:
paul 2007-11-08 10:26:45 +00:00
parent 046a72792d
commit 5abd76bf7f
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/themes.pas
View File

@ -1862,8 +1862,19 @@ procedure TThemeServices.DrawIcon(ACanvas: TPersistent;
var
Canvas: TCanvas absolute ACanvas;
ImageList: TCustomImageList absolute AImageList;
AEffect: TGraphicsDrawEffect;
begin
ImageList.Draw(Canvas, P.X, P.Y, Index, not IsDisabled(Details));
if IsDisabled(Details) then
AEffect := gdeDisabled
else
if IsPushed(Details) then
AEffect := gdeShadowed
else
if IsHot(Details) then
AEffect := gdeHighlighted
else
AEffect := gdeNormal;
ImageList.Draw(Canvas, P.X, P.Y, Index, AEffect);
end;
//----------------------------------------------------------------------------------------------------------------------