paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 08:57:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL carbon: (can be merged) applied patch #0012235: Carbon: Fix for tab switching bug from skalogryyz

Browse Source 
git-svn-id: trunk@16752 -
This commit is contained in:
tombo 2008-09-26 10:47:55 +00:00
parent 570b4ab140
commit 12dd2f0c1a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/carbon/carbontabs.pp
View File

@ -673,9 +673,11 @@ begin
Index := GetValue - 1;
if Index >= 0 then Inc(Index, FFirstIndex);
//DebugLn('TCarbonTabsControl.ValueChanged Index: ', DbgS(Index), ' Old ', DbgS(FOldTabIndex));
if Index = FOldTabIndex then Exit;
FOldTabIndex := Index;
//comment
//DebugLn('TCarbonTabsControl.ValueChanged Index: ', DbgS(Index), ' Old ', DbgS(FOldTabIndex), ' Current ', DbgS(FTabIndex));
if Index = FTabIndex then Exit;
FOldTabIndex := FTabIndex;
FTabIndex := Index;
if (Index >= 0) and (Index < FTabs.Count) then
PIndex := TabIndexToPageIndex(Index)