pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Cleanup TJvXPBarItem.GetImages

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2014-06-08 00:10:30 +00:00
parent 3d09a86a15
commit 885faa4ed6
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/jvcllaz/run/JvXPBar.pas
View File

@ -732,14 +732,10 @@ end;
function TJvXPBarItem.GetImages: TCustomImageList;
begin
Result := nil;
if Assigned(FImageList) then
Result := FImageList
else
if Assigned(Action) and Assigned(TAction(Action).ActionList.Images) then
Result := TAction(Action).ActionList.Images
else
if Assigned(FWinXPBar.FImageList) then
Result := FImageList;
if (Result = nil) and Assigned(Action) then
Result := TAction(Action).ActionList.Images;
if Result = nil then
Result := FWinXPBar.FImageList;
end;