[JVCL-Checkins] dev/JVCL3/run JvComCtrls.pas,1.84,1.85 - Fixed Mantis #2724: Cannot set image indexes in TJvTabContro

[Andreas H. <ah...@us...>]

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

Modified Files:
	JvComCtrls.pas 
Log Message:
Fixed Mantis #2724: Cannot set image indexes in TJvTabControl


Index: JvComCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComCtrls.pas,v
retrieving revision 1.84
retrieving revision 1.85
diff -C2 -d -r1.84 -r1.85
*** JvComCtrls.pas	9 Mar 2005 07:24:56 -0000	1.84
--- JvComCtrls.pas	16 Mar 2005 11:22:12 -0000	1.85
***************
*** 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);