[JVCL-Checkins] dev/JVCL3/run JvTFGlance.pas,1.33,1.34 JvTFGlanceTextViewer.pas,1.26,1.27 - InPlaceEdit moved to the base class.

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

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

Modified Files:
	JvTFGlance.pas JvTFGlanceTextViewer.pas 
Log Message:
InPlaceEdit moved to the base class.


Index: JvTFGlanceTextViewer.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlanceTextViewer.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** JvTFGlanceTextViewer.pas	24 Jun 2005 15:17:40 -0000	1.26
--- JvTFGlanceTextViewer.pas	27 Jun 2005 07:49:07 -0000	1.27
***************
*** 196,200 ****
      FSelApptAttr: TJvTFTxtVwApptAttr;
      FSelAppt: TJvTFAppt;
-     FInPlaceEdit: Boolean;
      procedure SetLineSpacing(Value: Integer);
      procedure SetSelApptAttr(Value: TJvTFTxtVwApptAttr);
--- 196,199 ----
***************
*** 202,206 ****
      procedure SetShowStartEnd(Value: Boolean);
      function GetCellString(ACell: TJvTFGlanceCell): string;
-     procedure SetInplaceEdit(const Value: Boolean);
    protected
      procedure SetVisible(Value: Boolean); override;
--- 201,204 ----
***************
*** 211,214 ****
--- 209,213 ----
      procedure ParentReconfig; override;
      procedure SetSelAppt(Value: TJvTFAppt);
+     procedure SetInplaceEdit(const Value: Boolean);
    public
      constructor Create(AOwner: TComponent); override;
***************
*** 242,246 ****
      property ShowStartEnd: Boolean read FShowStartEnd
        write SetShowStartEnd default True;
-     property InPlaceEdit: Boolean read FInPlaceEdit write SetInplaceEdit;
    end;
  
--- 241,244 ----
***************
*** 1215,1219 ****
  procedure TJvTFGlanceTextViewer.SetInplaceEdit(const Value: Boolean);
  begin
!   FInPlaceEdit := Value;
    FViewControl.CanEdit := InPlaceEdit;
    FViewControl.Invalidate;
--- 1213,1218 ----
  procedure TJvTFGlanceTextViewer.SetInplaceEdit(const Value: Boolean);
  begin
!   inherited SetInplaceEdit(Value);
!   
    FViewControl.CanEdit := InPlaceEdit;
    FViewControl.Invalidate;

Index: JvTFGlance.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlance.pas,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** JvTFGlance.pas	6 Apr 2005 22:03:50 -0000	1.33
--- JvTFGlance.pas	27 Jun 2005 07:49:06 -0000	1.34
***************
*** 694,697 ****
--- 694,700 ----
      function GetAppt(Index: Integer): TJvTFAppt;
    protected
+     FInPlaceEdit: Boolean;
+     
+     procedure SetInplaceEdit(const Value: Boolean); virtual;
      procedure SetVisible(Value: Boolean); virtual; abstract;
      procedure SetGlanceControl(Value: TJvTFCustomGlance); virtual;
***************
*** 729,732 ****
--- 732,736 ----
    published
      property RepeatGrouped: Boolean read FRepeatGrouped write SetRepeatGrouped default True;
+     property InPlaceEdit: Boolean read FInPlaceEdit write SetInplaceEdit;
    end;
  
***************
*** 3619,3622 ****
--- 3623,3631 ----
  end;
  
+ procedure TJvTFGlanceViewer.SetInplaceEdit(const Value: Boolean);
+ begin
+   FInPlaceEdit := Value;
+ end;
+ 
  procedure TJvTFGlanceViewer.SetRepeatGrouped(Value: Boolean);
  begin