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

lcl: fix bug with TabControl ImageIndex retrieving based on instructions of Robin Hoo (issue #0015421)

Browse Source 
git-svn-id: trunk@24020 -
This commit is contained in:
paul 2010-03-16 03:24:39 +00:00
parent 093ec32e60
commit 0118bd4b2a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/tabcontrol.inc
View File

@ -481,9 +481,9 @@ end;
function TCustomTabControl.GetImageIndex(ATabIndex: Integer): Integer; function TCustomTabControl.GetImageIndex(ATabIndex: Integer): Integer;
begin begin
Result := TabIndex; Result := ATabIndex;
if Assigned(FOnGetImageIndex) then if Assigned(FOnGetImageIndex) then
FOnGetImageIndex(Self, TabIndex, Result); FOnGetImageIndex(Self, ATabIndex, Result);
end; end;
procedure TCustomTabControl.Loaded; procedure TCustomTabControl.Loaded;