[JVCL-Checkins] CVS: dev/JVCL3/run JvRollOut.pas,1.10,1.11 -

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv25920/JVCL3/run

Modified Files:
	JvRollOut.pas 
Log Message:





Index: JvRollOut.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvRollOut.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** JvRollOut.pas	10 Jan 2004 17:25:58 -0000	1.10
--- JvRollOut.pas	10 Jan 2004 17:38:27 -0000	1.11
***************
*** 162,167 ****
      procedure WmSetFocus(var Msg:TMessage); message WM_SETFOCUS;
      procedure WmKillFocus(var Msg:TMessage);  message WM_KILLFOCUS;
!     procedure ChangeHeight(NewHeight, Increment: Integer);
!     procedure ChangeWidth(NewWidth, Increment: Integer);
      procedure SetShowFocus(const Value: boolean);
    protected
--- 162,167 ----
      procedure WmSetFocus(var Msg:TMessage); message WM_SETFOCUS;
      procedure WmKillFocus(var Msg:TMessage);  message WM_KILLFOCUS;
!     procedure ChangeHeight(NewHeight: Integer);
!     procedure ChangeWidth(NewWidth: Integer);
      procedure SetShowFocus(const Value: boolean);
    protected
***************
*** 254,261 ****
  uses
    Forms; // for IsAccel()
!   
! const
  //  cIncrement = 24;
! //  cSmooth = False; // (p3) not used
  
  procedure SetTextAngle(Cnv: TCanvas; Angle: Integer);
--- 254,262 ----
  uses
    Forms; // for IsAccel()
! 
! // (p3) not used
! // const
  //  cIncrement = 24;
! //  cSmooth = False;
  
  procedure SetTextAngle(Cnv: TCanvas; Angle: Integer);
***************
*** 577,581 ****
  end;
  
! procedure TJvCustomRollOut.ChangeHeight(NewHeight, Increment: Integer);
  var
    OldHeight: Integer;
--- 578,582 ----
  end;
  
! procedure TJvCustomRollOut.ChangeHeight(NewHeight: Integer);
  var
    OldHeight: Integer;
***************
*** 594,598 ****
  end;
  
! procedure TJvCustomRollOut.ChangeWidth(NewWidth, Increment: Integer);
  var
    OldWidth: integer;
--- 595,599 ----
  end;
  
! procedure TJvCustomRollOut.ChangeWidth(NewWidth: Integer);
  var
    OldWidth: integer;