[JVCL-Checkins] dev/JVCL3/run JvComCtrls.pas,1.84,1.84.2.1 - TJvTabControl allows sets ImageIndex equal to TabIndex and d

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32239/run

Modified Files:
      Tag: JVCL3_00_PREPARATION
	JvComCtrls.pas 
Log Message:
TJvTabControl allows sets ImageIndex equal to TabIndex and does not invoke
the inherited GetImageIndex method from TTabControl.
Because GetImageIndex returns the TabIndex by default there is no
behaviour change after applying this patch.


Index: JvComCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComCtrls.pas,v
retrieving revision 1.84
retrieving revision 1.84.2.1
diff -C2 -d -r1.84 -r1.84.2.1
*** JvComCtrls.pas	9 Mar 2005 07:24:56 -0000	1.84
--- JvComCtrls.pas	16 Mar 2005 12:31:31 -0000	1.84.2.1
***************
*** 1741,1745 ****
    Result := True;
    if Assigned(TabPainter) then
!     TabPainter.DrawTab(Self, Canvas, Images, TabIndex, Tabs[TabIndex].Caption, Rect, TabIndex = Self.TabIndex, Enabled)
    else
      Result := inherited DrawTab(TabIndex, Rect, Active);
--- 1741,1745 ----
    Result := True;
    if Assigned(TabPainter) then
!     TabPainter.DrawTab(Self, Canvas, Images, GetImageIndex(TabIndex), Tabs[TabIndex].Caption, Rect, TabIndex = Self.TabIndex, Enabled)
    else
      Result := inherited DrawTab(TabIndex, Rect, Active);
***************
*** 1752,1756 ****
  begin
    if Assigned(TabPainter) then
!     TabPainter.DrawTab(Self, Canvas, Images, TabIndex, Tabs[TabIndex], Rect, TabIndex = Self.TabIndex, Enabled)
    else
      inherited DrawTab(TabIndex, Rect, Active);
--- 1752,1756 ----
  begin
    if Assigned(TabPainter) then
!     TabPainter.DrawTab(Self, Canvas, Images, GetImageIndex(TabIndex), Tabs[TabIndex], Rect, TabIndex = Self.TabIndex, Enabled)
    else
      inherited DrawTab(TabIndex, Rect, Active);