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
|
