From: Peter T. <pe...@us...> - 2004-04-04 19:18:42
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27246/run Modified Files: JvComCtrls.pas Removed Files: JvTabControl.pas Log Message: - Removed JvTabControl.pas - TJvTabControl moved to JvComCtrls.pas - Added TJvTabControlPainter and TJvTabDefaultPainter Index: JvComCtrls.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComCtrls.pas,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** JvComCtrls.pas 31 Mar 2004 07:43:15 -0000 1.35 --- JvComCtrls.pas 4 Apr 2004 19:06:11 -0000 1.36 *************** *** 47,53 **** Windows, Messages, SysUtils, Contnrs, Graphics, Controls, Forms, Dialogs, Classes, // (ahuser) "Classes" after "Forms" (D5 warning) ! Menus, ComCtrls, CommCtrl, StdActns, JclBase, ! JvComponent, JvExControls, JvExComCtrls; const --- 47,53 ---- Windows, Messages, SysUtils, Contnrs, Graphics, Controls, Forms, Dialogs, Classes, // (ahuser) "Classes" after "Forms" (D5 warning) [...1128 lines suppressed...] ! procedure TJvTabDefaultPainter.SetDivider(const Value: boolean); begin ! if FDivider <> Value then ! begin ! FDivider := Value; ! Change; ! end; end; + procedure TJvTabDefaultPainter.SetShowFocus(const Value: boolean); + begin + if FShowFocus <> Value then + begin + FShowFocus := Value; + Change; + end; + end; end. --- JvTabControl.pas DELETED --- |