diff --git a/components/rx/trunk/Demos/RxMemDSFilter/project1.lps b/components/rx/trunk/Demos/RxMemDSFilter/project1.lps index 548445a42..9dde6b405 100644 --- a/components/rx/trunk/Demos/RxMemDSFilter/project1.lps +++ b/components/rx/trunk/Demos/RxMemDSFilter/project1.lps @@ -3,7 +3,7 @@ - + @@ -20,6 +20,7 @@ + @@ -28,10 +29,9 @@ - - - + + @@ -40,132 +40,146 @@ - + + + + + + + + + + + + + + + + + - + - + - + - + - + - + - - + - + - + - + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - - + - - + + - + diff --git a/components/rx/trunk/Demos/RxMemDSFilter/unit1.lfm b/components/rx/trunk/Demos/RxMemDSFilter/unit1.lfm index c1e65a7fc..44433cfc6 100644 --- a/components/rx/trunk/Demos/RxMemDSFilter/unit1.lfm +++ b/components/rx/trunk/Demos/RxMemDSFilter/unit1.lfm @@ -72,8 +72,11 @@ object Form1: TForm1 Width = 90 FieldName = 'ID' EditButtons = <> + Filter.IsNull = False + Filter.IsAll = True Filter.DropDownRows = 0 Filter.EmptyValue = '(Нет)' + Filter.AllValue = '(All values)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footers = <> @@ -85,8 +88,11 @@ object Form1: TForm1 Width = 500 FieldName = 'NAME' EditButtons = <> + Filter.IsNull = False + Filter.IsAll = True Filter.DropDownRows = 0 Filter.EmptyValue = '(Нет)' + Filter.AllValue = '(All values)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footers = <> @@ -98,8 +104,11 @@ object Form1: TForm1 Width = 100 FieldName = 'CODE' EditButtons = <> + Filter.IsNull = False + Filter.IsAll = True Filter.DropDownRows = 0 Filter.EmptyValue = '(Нет)' + Filter.AllValue = '(All values)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footers = <> @@ -161,7 +170,7 @@ object Form1: TForm1 Enabled = True end> FooterOptions.DrawFullLine = False - OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter, rdgAllowToolMenu] + OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowToolMenu] Anchors = [akTop, akLeft, akRight, akBottom] Color = clWindow DrawFullLine = False @@ -169,8 +178,9 @@ object Form1: TForm1 SelectedColor = clHighlight GridLineStyle = psSolid DataSource = DataSource1 - Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentColor = False + ReadOnly = True TabOrder = 2 end object Memo1: TMemo diff --git a/components/rx/trunk/dbutils.pas b/components/rx/trunk/dbutils.pas index 7582bcfa5..f68d39019 100644 --- a/components/rx/trunk/dbutils.pas +++ b/components/rx/trunk/dbutils.pas @@ -394,7 +394,7 @@ var S,S1: string; begin - if Field.DataType = ftString then + if (Field.DataType = ftString) or (loPartialKey in Options) then begin if loCaseInsensitive in Options then begin