[JVCL-Checkins] dev/JVCL3/run JvDBGrid.pas,1.93,1.94 - Further work from Mantis #2401 and recommandation from Fred

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

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

Modified Files:
	JvDBGrid.pas 
Log Message:
Further work from Mantis #2401 and recommandation from Fred


Index: JvDBGrid.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDBGrid.pas,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -d -r1.93 -r1.94
*** JvDBGrid.pas	19 Dec 2004 11:33:43 -0000	1.93
--- JvDBGrid.pas	20 Dec 2004 14:27:01 -0000	1.94
***************
*** 236,239 ****
--- 236,240 ----
      
      FChangeLinks: TObjectList;
+     FShowMemos: Boolean;
      
      procedure SetAutoSizeRows(Value: Boolean);
***************
*** 279,282 ****
--- 280,284 ----
      procedure SetSortMarker(const Value: TSortMarker);
      procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
+     procedure SetShowMemos(const Value: Boolean);
  
      procedure SetControls(Value: TJvDBGridControls);
***************
*** 456,459 ****
--- 458,464 ----
      { WordWrap: are memo and string fields displayed on many lines ? }
      property WordWrap: Boolean read FWordWrap write SetWordWrap default False;
+ 
+     // If true, Memo fields are shown as memo objects
+     property ShowMemos: Boolean read FShowMemos write SetShowMemos default False;
    end;
  
***************
*** 867,870 ****
--- 872,876 ----
    FRowsHeight := DefaultRowHeight;
    FTitleRowHeight := RowHeights[0];
+   FShowMemos := False;
    
    FChangeLinks := TObjectList.Create(False);
***************
*** 914,918 ****
          Result := Ord(gpData);
        ftMemo, ftFmtMemo, ftOraClob:
!         Result := Ord(gpMemo);
        ftOraBlob:
          Result := Ord(gpBlob);
--- 920,925 ----
          Result := Ord(gpData);
        ftMemo, ftFmtMemo, ftOraClob:
!         if ShowMemos then
!           Result := Ord(gpMemo);
        ftOraBlob:
          Result := Ord(gpBlob);
***************
*** 3661,3664 ****
--- 3668,3677 ----
  end;
  
+ procedure TJvDBGrid.SetShowMemos(const Value: Boolean);
+ begin
+   FShowMemos := Value;
+   Invalidate;
+ end;
+ 
  {$IFDEF UNITVERSIONING}
  const