|
From: Olivier S. <ob...@us...> - 2004-12-20 14:27:13
|
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 |