diff --git a/components/rx/trunk/dcl_rx_ctrl.lpk b/components/rx/trunk/dcl_rx_ctrl.lpk index c56eda228..431a4ee44 100644 --- a/components/rx/trunk/dcl_rx_ctrl.lpk +++ b/components/rx/trunk/dcl_rx_ctrl.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/dcl_rxtools.lpk b/components/rx/trunk/dcl_rxtools.lpk index a38c73836..cb7d1f657 100644 --- a/components/rx/trunk/dcl_rxtools.lpk +++ b/components/rx/trunk/dcl_rxtools.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps index af904c6ef..01883c88f 100644 --- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps +++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps @@ -3,7 +3,7 @@ - + @@ -11,7 +11,7 @@ - + @@ -20,10 +20,9 @@ - - - - + + + @@ -76,10 +75,12 @@ - - - - + + + + + + @@ -171,10 +172,17 @@ - - - - + + + + + + + + + + + @@ -182,134 +190,152 @@ - + - + + + + + + + + + + + + + + + + + + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + @@ -317,4 +343,15 @@ + + + + + + + + + + + diff --git a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm index 320494792..6450809fd 100644 --- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm +++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm @@ -2,17 +2,17 @@ object Form1: TForm1 Left = 612 Height = 444 Top = 268 - Width = 702 + Width = 813 Caption = 'Form1' ClientHeight = 444 - ClientWidth = 702 + ClientWidth = 813 OnCreate = FormCreate LCLVersion = '2.1.0.0' object RxDBGrid1: TRxDBGrid Left = 0 Height = 389 Top = 0 - Width = 702 + Width = 813 ColumnDefValues.BlobText = '(blob)' TitleButtons = True AutoSort = True @@ -94,6 +94,21 @@ object Form1: TForm1 Filter.ItemIndex = -1 Filter.Style = rxfstDialog Footers = <> + end + item + Title.Alignment = taCenter + Title.Orientation = toHorizontal + Title.Caption = 'MEMO' + Width = 100 + FieldName = 'MEMO' + EditButtons = <> + Filter.DropDownRows = 0 + Filter.EmptyValue = '(Пусто)' + Filter.NotEmptyValue = '(Не пусто)' + Filter.AllValue = '(Все значения)' + Filter.EmptyFont.Style = [fsItalic] + Filter.ItemIndex = -1 + Footers = <> end> KeyStrokes = < item @@ -162,17 +177,17 @@ object Form1: TForm1 SelectedColor = clHighlight GridLineStyle = psSolid DataSource = dsData - Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook] + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook, dgDisplayMemoText] TabOrder = 0 end object Panel1: TPanel Left = 0 Height = 50 Top = 394 - Width = 702 + Width = 813 Align = alBottom ClientHeight = 50 - ClientWidth = 702 + ClientWidth = 813 TabOrder = 1 object Button1: TButton Left = 8 @@ -228,13 +243,27 @@ object Form1: TForm1 Caption = 'Label3' ParentColor = False end + object CheckBox1: TCheckBox + AnchorSideTop.Control = Panel1 + AnchorSideRight.Control = Panel1 + AnchorSideRight.Side = asrBottom + Left = 654 + Height = 23 + Top = 7 + Width = 152 + Anchors = [akTop, akRight] + BorderSpacing.Around = 6 + Caption = 'Display memo values' + OnChange = CheckBox1Change + TabOrder = 3 + end end object Splitter1: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 389 - Width = 702 + Width = 813 Align = alBottom ResizeAnchor = akBottom end @@ -256,6 +285,10 @@ object Form1: TForm1 Name = 'NAME' DataType = ftString Size = 200 + end + item + Name = 'MEMO' + DataType = ftMemo end> AfterInsert = rxDataAfterInsert PacketRecords = 0 @@ -298,6 +331,17 @@ object Form1: TForm1 ReadOnly = False Required = False end + object rxDataMEMO: TMemoField + FieldKind = fkData + FieldName = 'MEMO' + Index = 4 + LookupCache = False + ProviderFlags = [pfInUpdate, pfInWhere] + ReadOnly = False + Required = False + BlobType = ftMemo + Transliterate = False + end end object dsData: TDataSource DataSet = rxData diff --git a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas index b348a33fb..d5fac0a3d 100644 --- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas +++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface uses - Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, Forms, Controls, Graphics, + Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, Forms, Controls, Graphics, DBGrids, Dialogs, StdCtrls, ExtCtrls, db; type @@ -16,12 +16,14 @@ type Button1: TButton; Button2: TButton; Button3: TButton; + CheckBox1: TCheckBox; dsData: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; Panel1: TPanel; rxDataID_R: TLongintField; + rxDataMEMO: TMemoField; RxDBGrid1: TRxDBGrid; rxData: TRxMemoryData; rxDataCODE: TLongintField; @@ -31,6 +33,7 @@ type procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); + procedure CheckBox1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure rxDataAfterInsert(DataSet: TDataSet); private @@ -55,7 +58,7 @@ begin rxData.Open; for i:=1 to 20 do begin - rxData.AppendRecord([i, i mod 4, Format('Line %d', [i])]); + rxData.AppendRecord([i, i mod 4, Format('Line %d', [i]), i, 'Строка МЕМО ' + IntToStr(i div 2)]); if i mod 5 = 0 then rxData.AppendRecord([null, null, 'Пустая строка']); end; @@ -81,6 +84,14 @@ begin Label3.Caption:=RxDBGrid1.ColumnByFieldName('ID_R').Filter.CurrentValues.Text; end; +procedure TForm1.CheckBox1Change(Sender: TObject); +begin + if CheckBox1.Checked then + RxDBGrid1.Options:=RxDBGrid1.Options + [dgDisplayMemoText] + else + RxDBGrid1.Options:=RxDBGrid1.Options - [dgDisplayMemoText]; +end; + procedure TForm1.rxDataAfterInsert(DataSet: TDataSet); begin rxDataID_R.AsInteger:=rxData.RecordCount + 1; diff --git a/components/rx/trunk/rx.lpk b/components/rx/trunk/rx.lpk index 6025320b9..f3d962d83 100644 --- a/components/rx/trunk/rx.lpk +++ b/components/rx/trunk/rx.lpk @@ -9,7 +9,7 @@ - + @@ -53,7 +53,6 @@ - diff --git a/components/rx/trunk/rx_sort_fbdataset.lpk b/components/rx/trunk/rx_sort_fbdataset.lpk index e5092ed0a..1c2888db2 100644 --- a/components/rx/trunk/rx_sort_fbdataset.lpk +++ b/components/rx/trunk/rx_sort_fbdataset.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/rx_sort_ibx.lpk b/components/rx/trunk/rx_sort_ibx.lpk index 301cb4641..c24d55493 100644 --- a/components/rx/trunk/rx_sort_ibx.lpk +++ b/components/rx/trunk/rx_sort_ibx.lpk @@ -7,7 +7,7 @@ - + diff --git a/components/rx/trunk/rx_sort_sqldb.lpk b/components/rx/trunk/rx_sort_sqldb.lpk index 324621856..ca25cb4b9 100644 --- a/components/rx/trunk/rx_sort_sqldb.lpk +++ b/components/rx/trunk/rx_sort_sqldb.lpk @@ -7,7 +7,7 @@ - + diff --git a/components/rx/trunk/rx_sort_zeos.lpk b/components/rx/trunk/rx_sort_zeos.lpk index a32665ea4..2f61ab7fc 100644 --- a/components/rx/trunk/rx_sort_zeos.lpk +++ b/components/rx/trunk/rx_sort_zeos.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/rxdbgrid_export_spreadsheet.lpk b/components/rx/trunk/rxdbgrid_export_spreadsheet.lpk index c6b104628..149b85af8 100644 --- a/components/rx/trunk/rxdbgrid_export_spreadsheet.lpk +++ b/components/rx/trunk/rxdbgrid_export_spreadsheet.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/rxdbgrid_print.lpk b/components/rx/trunk/rxdbgrid_print.lpk index 59e7876e9..b17cdd237 100644 --- a/components/rx/trunk/rxdbgrid_print.lpk +++ b/components/rx/trunk/rxdbgrid_print.lpk @@ -8,7 +8,7 @@ - + diff --git a/components/rx/trunk/rxnew.lpk b/components/rx/trunk/rxnew.lpk index 815f38803..607b55e14 100644 --- a/components/rx/trunk/rxnew.lpk +++ b/components/rx/trunk/rxnew.lpk @@ -12,7 +12,7 @@ - + @@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank translate to Lazarus by alexs in 2005 - 2018"/> - + @@ -207,113 +207,109 @@ translate to Lazarus by alexs in 2005 - 2018"/> - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + diff --git a/components/rx/trunk/rxtools.lpk b/components/rx/trunk/rxtools.lpk index cb1d7fa2c..6ebd213b8 100644 --- a/components/rx/trunk/rxtools.lpk +++ b/components/rx/trunk/rxtools.lpk @@ -8,7 +8,7 @@ - +