RxFPC:demo for RxDBGrid filter values

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7166 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2019-10-22 12:23:12 +00:00
parent b4c41e1073
commit 21c1589867
5 changed files with 160 additions and 54 deletions
--- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lpi
+++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lpi
@ -1,10 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
    <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
      <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
      <Title Value="project1"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
--- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps
+++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.lps
@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectSession>
-    <Version Value="11"/>
+    <Version Value="12"/>
    <BuildModes Active="Default"/>
    <Units Count="22">
      <Unit0>
@ -20,7 +20,9 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Unit1"/>
-        <CursorPos X="6" Y="27"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="50"/>
+        <CursorPos X="9" Y="66"/>
        <UsageCount Value="33"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -180,10 +182,9 @@
        <ComponentName Value="rxFilterByForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
        <EditorIndex Value="2"/>
-        <TopLine Value="340"/>
-        <CursorPos Y="370"/>
+        <TopLine Value="341"/>
+        <CursorPos X="98" Y="350"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -192,123 +193,123 @@
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="279" Column="20" TopLine="279"/>
      </Position1>
      <Position2>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="246" Column="3" TopLine="246"/>
+        <Caret Line="105" Column="15" TopLine="87"/>
      </Position2>
      <Position3>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="186" Column="3" TopLine="181"/>
      </Position3>
      <Position4>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="246" Column="3" TopLine="246"/>
+        <Caret Line="105" Column="5" TopLine="87"/>
      </Position4>
      <Position5>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="197" Column="17" TopLine="178"/>
      </Position5>
      <Position6>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="246" Column="3" TopLine="246"/>
+        <Caret Line="198" TopLine="177"/>
      </Position6>
      <Position7>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="384" Column="27" TopLine="363"/>
      </Position7>
      <Position8>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="246" Column="3" TopLine="246"/>
+        <Caret Line="107" Column="14" TopLine="89"/>
      </Position8>
      <Position9>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="235" Column="30" TopLine="217"/>
      </Position9>
      <Position10>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="246" Column="3" TopLine="246"/>
+        <Caret Line="109" Column="15" TopLine="87"/>
      </Position10>
      <Position11>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="245" Column="3" TopLine="245"/>
+        <Caret Line="105" Column="15" TopLine="87"/>
      </Position11>
      <Position12>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="256" Column="45" TopLine="246"/>
+        <Caret Line="197" Column="33" TopLine="181"/>
      </Position12>
      <Position13>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="255" Column="45" TopLine="245"/>
+        <Caret Line="109" Column="15" TopLine="87"/>
      </Position13>
      <Position14>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="279" Column="20" TopLine="279"/>
+        <Caret Line="351" Column="11" TopLine="332"/>
      </Position14>
      <Position15>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="105" Column="15" TopLine="87"/>
+        <Caret Line="354" Column="70" TopLine="337"/>
      </Position15>
      <Position16>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="186" Column="3" TopLine="181"/>
+        <Caret Line="353" TopLine="337"/>
      </Position16>
      <Position17>
        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="105" Column="5" TopLine="87"/>
+        <Caret Line="354" TopLine="337"/>
      </Position17>
      <Position18>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="197" Column="17" TopLine="178"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="27" Column="6"/>
      </Position18>
      <Position19>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="198" TopLine="177"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="28" Column="6"/>
      </Position19>
      <Position20>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="384" Column="27" TopLine="363"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="29" Column="6"/>
      </Position20>
      <Position21>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="107" Column="14" TopLine="89"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="31" Column="6"/>
      </Position21>
      <Position22>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="235" Column="30" TopLine="217"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="49" Column="29" TopLine="39"/>
      </Position22>
      <Position23>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="109" Column="15" TopLine="87"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="50" Column="29" TopLine="40"/>
      </Position23>
      <Position24>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="105" Column="15" TopLine="87"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="52" Column="29" TopLine="42"/>
      </Position24>
      <Position25>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="197" Column="33" TopLine="181"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="64" Column="3" TopLine="43"/>
      </Position25>
      <Position26>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="109" Column="15" TopLine="87"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="69" Column="52" TopLine="43"/>
      </Position26>
      <Position27>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="351" Column="11" TopLine="332"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="71" Column="52" TopLine="45"/>
      </Position27>
      <Position28>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="354" Column="70" TopLine="337"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="72" Column="52" TopLine="46"/>
      </Position28>
      <Position29>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="353" TopLine="337"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="82" Column="6" TopLine="56"/>
      </Position29>
      <Position30>
-        <Filename Value="../../../rxdb/rxfilterby.pas"/>
-        <Caret Line="354" TopLine="337"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="34" Column="15" TopLine="21"/>
      </Position30>
    </JumpHistory>
    <RunParams>
--- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.res
+++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/project1.res
--- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm
+++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.lfm
@ -7,10 +7,10 @@ object Form1: TForm1
  ClientHeight = 444
  ClientWidth = 702
  OnCreate = FormCreate
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
  object RxDBGrid1: TRxDBGrid
    Left = 0
-    Height = 444
+    Height = 389
    Top = 0
    Width = 702
    ColumnDefValues.BlobText = '(blob)'
@ -61,7 +61,7 @@ object Form1: TForm1
        Filter.AllValue = '(All values)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
-        Filter.Style = rxfstDialog
+        Filter.Style = rxfstBoth
        Footers = <>
      end    
      item
@ -165,6 +165,79 @@ object Form1: TForm1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
    TabOrder = 0
  end
+  object Panel1: TPanel
+    Left = 0
+    Height = 50
+    Top = 394
+    Width = 702
+    Align = alBottom
+    ClientHeight = 50
+    ClientWidth = 702
+    TabOrder = 1
+    object Button1: TButton
+      Left = 8
+      Height = 33
+      Top = 0
+      Width = 85
+      AutoSize = True
+      Caption = 'CODE filter'
+      OnClick = Button1Click
+      TabOrder = 0
+    end
+    object Label1: TLabel
+      Left = 104
+      Height = 17
+      Top = 0
+      Width = 39
+      Caption = 'Label1'
+      ParentColor = False
+    end
+    object Label2: TLabel
+      Left = 408
+      Height = 17
+      Top = 0
+      Width = 40
+      Caption = 'Label2'
+      ParentColor = False
+    end
+    object Button2: TButton
+      Left = 312
+      Height = 33
+      Top = 0
+      Width = 87
+      AutoSize = True
+      Caption = 'NAME filter'
+      OnClick = Button2Click
+      TabOrder = 1
+    end
+    object Button3: TButton
+      Left = 168
+      Height = 33
+      Top = 0
+      Width = 79
+      AutoSize = True
+      Caption = 'ID_R filter'
+      OnClick = Button3Click
+      TabOrder = 2
+    end
+    object Label3: TLabel
+      Left = 256
+      Height = 17
+      Top = 0
+      Width = 41
+      Caption = 'Label3'
+      ParentColor = False
+    end
+  end
+  object Splitter1: TSplitter
+    Cursor = crVSplit
+    Left = 0
+    Height = 5
+    Top = 389
+    Width = 702
+    Align = alBottom
+    ResizeAnchor = akBottom
+  end
  object rxData: TRxMemoryData
    FieldDefs = <    
      item
--- a/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas
+++ b/components/rx/trunk/demos/rxdbgrid/RxDBGrid_Filter/unit1.pas
@ -6,20 +6,31 @@ interface

 uses
  Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, Forms, Controls, Graphics,
-  Dialogs, StdCtrls, db;
+  Dialogs, StdCtrls, ExtCtrls, db;

 type

  { TForm1 }

  TForm1 = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
    dsData: TDataSource;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Panel1: TPanel;
    rxDataID_R: TLongintField;
    RxDBGrid1: TRxDBGrid;
    rxData: TRxMemoryData;
    rxDataCODE: TLongintField;
    rxDataID: TLongintField;
    rxDataNAME: TStringField;
+    Splitter1: TSplitter;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure rxDataAfterInsert(DataSet: TDataSet);
  private
@ -49,6 +60,25 @@ begin
      rxData.AppendRecord([null, null, 'Пустая строка']);
  end;
  rxData.First;
+
+  Label1.Caption:='';
+  Label2.Caption:='';
+  Label3.Caption:='';
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  Label1.Caption:=RxDBGrid1.ColumnByFieldName('CODE').Filter.CurrentValues.Text;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  Label2.Caption:=RxDBGrid1.ColumnByFieldName('NAME').Filter.CurrentValues.Text;
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+begin
+  Label3.Caption:=RxDBGrid1.ColumnByFieldName('ID_R').Filter.CurrentValues.Text;
 end;

 procedure TForm1.rxDataAfterInsert(DataSet: TDataSet);