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 @@
-
+