From: Carlo B. <car...@us...> - 2005-02-18 09:10:49
|
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 |