[Instantobjects-cvscommit] Demos/PrimerCross QueryView.dfm,1.1,1.2 QueryView.pas,1.3,1.4

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17893/Demos/PrimerCross

Modified Files:
	QueryView.dfm QueryView.pas 
Log Message:
Test of MaxCount fetching keys. Added test support in Primer

Index: QueryView.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/QueryView.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** QueryView.pas	10 Feb 2005 23:06:20 -0000	1.3
--- QueryView.pas	18 Feb 2005 09:10:40 -0000	1.4
***************
*** 13,17 ****
    QGrids, QDBGrids, QStdCtrls, QExtCtrls, QActnList, QMenus, QButtons,
  {$ENDIF}
!   BasicView, Db, InstantPresentation;
  
  type
--- 13,17 ----
    QGrids, QDBGrids, QStdCtrls, QExtCtrls, QActnList, QMenus, QButtons,
  {$ENDIF}
!   BasicView, Db, InstantPresentation, Mask;
  
  type
***************
*** 30,33 ****
--- 30,35 ----
      TestSelector: TInstantSelector;
      TestSource: TDataSource;
+     MaxCountEdit: TMaskEdit;
+     NumberLabel: TLabel;
      procedure ExecuteActionExecute(Sender: TObject);
      procedure ExampleComboBoxClick(Sender: TObject);
***************
*** 87,90 ****
--- 89,93 ----
    begin
      Close;
+     TestSelector.MaxCount := StrToInt(Trim(MaxCountEdit.text));
      Command.Text := CommandEdit.Text;
      Open;

Index: QueryView.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/QueryView.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** QueryView.dfm	20 Jul 2004 11:05:15 -0000	1.1
--- QueryView.dfm	18 Feb 2005 09:10:40 -0000	1.2
***************
*** 1,8 ****
  inherited QueryViewForm: TQueryViewForm
    Height = 320
    object Splitter: TSplitter
      Left = 0
      Top = 147
!     Width = 425
      Height = 6
      Cursor = crVSplit
--- 1,9 ----
  inherited QueryViewForm: TQueryViewForm
+   Width = 600
    Height = 320
    object Splitter: TSplitter
      Left = 0
      Top = 147
!     Width = 600
      Height = 6
      Cursor = crVSplit
***************
*** 12,16 ****
      Left = 0
      Top = 0
!     Width = 425
      Height = 147
      Align = alTop
--- 13,17 ----
      Left = 0
      Top = 0
!     Width = 600
      Height = 147
      Align = alTop
***************
*** 34,41 ****
        FocusControl = ExampleComboBox
      end
      object CommandEdit: TMemo
        Left = 30
        Top = 30
!       Width = 365
        Height = 87
        Align = alClient
--- 35,52 ----
        FocusControl = ExampleComboBox
      end
+     object NumberLabel: TLabel
+       Left = 443
+       Top = 126
+       Width = 77
+       Height = 13
+       Alignment = taRightJustify
+       AutoSize = False
+       Caption = '&Max Count:'
+       FocusControl = MaxCountEdit
+     end
      object CommandEdit: TMemo
        Left = 30
        Top = 30
!       Width = 540
        Height = 87
        Align = alClient
***************
*** 59,63 ****
        Left = 168
        Top = 121
!       Width = 221
        Height = 21
        Style = csDropDownList
--- 70,74 ----
        Left = 168
        Top = 121
!       Width = 281
        Height = 21
        Style = csDropDownList
***************
*** 66,74 ****
        OnClick = ExampleComboBoxClick
      end
    end
    object ResultPanel: TPanel
      Left = 0
      Top = 153
!     Width = 425
      Height = 167
      Align = alClient
--- 77,95 ----
        OnClick = ExampleComboBoxClick
      end
+     object MaxCountEdit: TMaskEdit
+       Left = 524
+       Top = 122
+       Width = 44
+       Height = 21
+       EditMask = '#########;1; '
+       MaxLength = 9
+       TabOrder = 3
+       Text = '0        '
+     end
    end
    object ResultPanel: TPanel
      Left = 0
      Top = 153
!     Width = 600
      Height = 167
      Align = alClient
***************
*** 78,82 ****
        Left = 0
        Top = 0
!       Width = 425
        Height = 167
        Align = alClient
--- 99,103 ----
        Left = 0
        Top = 0
!       Width = 600
        Height = 167
        Align = alClient