From 02f2c27ef647cf56ad6f4498acb31b062f62975f Mon Sep 17 00:00:00 2001 From: yese Date: Tue, 9 Mar 2004 18:42:41 +0000 Subject: [PATCH] =?utf8?q?SpinEdit=E5=86=85=E3=81=A7=E3=81=AEEnter?= =?utf8?q?=E6=8A=BC=E4=B8=8B=E3=81=A7=E3=83=AD=E3=82=B0=E3=83=80=E3=82=A6?= =?utf8?q?=E3=83=B3=E3=83=AD=E3=83=BC=E3=83=89=E3=81=8C=E9=96=8B=E5=A7=8B?= =?utf8?q?=E3=81=95=E3=82=8C=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE?= =?utf8?q?=E6=AD=A3=E3=80=82=20=E3=82=BF=E3=83=96=E3=82=AA=E3=83=BC?= =?utf8?q?=E3=83=80=E3=83=BC=E3=82=92=E4=BF=AE=E6=AD=A3=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bottleclient/LogDownload.dfm | 53 +++++++++++++++++++++++++++----------------- bottleclient/LogDownload.pas | 14 ++++++++++++ 2 files changed, 47 insertions(+), 20 deletions(-) diff --git a/bottleclient/LogDownload.dfm b/bottleclient/LogDownload.dfm index d2c3746..602046e 100755 --- a/bottleclient/LogDownload.dfm +++ b/bottleclient/LogDownload.dfm @@ -1,6 +1,6 @@ object frmLogDownload: TfrmLogDownload - Left = 482 - Top = 442 + Left = 619 + Top = 261 BorderStyle = bsDialog Caption = #12525#12464#12480#12454#12531#12525#12540#12489 ClientHeight = 270 @@ -37,7 +37,7 @@ object frmLogDownload: TfrmLogDownload Anchors = [akRight, akBottom] Cancel = True Caption = #12461#12515#12531#12475#12523'(&C)' - TabOrder = 1 + TabOrder = 3 OnClick = btnCancelClick end object grpDate: TGroupBox @@ -46,7 +46,7 @@ object frmLogDownload: TfrmLogDownload Width = 329 Height = 97 Caption = #26085#20184'(&D)' - TabOrder = 2 + TabOrder = 1 object Label1: TLabel Left = 144 Top = 72 @@ -73,10 +73,15 @@ object frmLogDownload: TfrmLogDownload Top = 64 Width = 97 Height = 20 - Date = 37591.000000000000000000 - Time = 37591.000000000000000000 - MinDate = 36892.000000000000000000 - TabOrder = 0 + CalAlignment = dtaLeft + Date = 37591 + Time = 37591 + DateFormat = dfShort + DateMode = dmComboBox + Kind = dtkDate + MinDate = 36892 + ParseInput = False + TabOrder = 2 OnChange = dtFromChange end object dtTo: TDateTimePicker @@ -84,10 +89,15 @@ object frmLogDownload: TfrmLogDownload Top = 64 Width = 105 Height = 20 - Date = 37591.000000000000000000 - Time = 37591.000000000000000000 - MinDate = 36892.000000000000000000 - TabOrder = 1 + CalAlignment = dtaLeft + Date = 37591 + Time = 37591 + DateFormat = dfShort + DateMode = dmComboBox + Kind = dtkDate + MinDate = 36892 + ParseInput = False + TabOrder = 3 OnChange = dtToChange end object spnRecentCount: TSpinEdit @@ -97,23 +107,24 @@ object frmLogDownload: TfrmLogDownload Height = 21 MaxValue = 100 MinValue = 0 - TabOrder = 2 + TabOrder = 0 Value = 0 OnChange = spnRecentCountChange + OnKeyDown = spnEdtEnterKeyDown end object rbRecent: TRadioButton Left = 16 Top = 30 Width = 17 Height = 17 - TabOrder = 3 + TabOrder = 4 end object rbRange: TRadioButton Left = 16 Top = 66 Width = 17 Height = 17 - TabOrder = 4 + TabOrder = 5 end object cbxUnit: TComboBox Left = 160 @@ -123,7 +134,7 @@ object frmLogDownload: TfrmLogDownload Style = csDropDownList ItemHeight = 12 ItemIndex = 0 - TabOrder = 5 + TabOrder = 1 Text = #20998 OnChange = cbxUnitChange Items.Strings = ( @@ -138,7 +149,7 @@ object frmLogDownload: TfrmLogDownload Width = 329 Height = 113 Caption = #26465#20214'(&N)' - TabOrder = 3 + TabOrder = 2 object Label3: TLabel Left = 24 Top = 24 @@ -184,8 +195,9 @@ object frmLogDownload: TfrmLogDownload Height = 21 MaxValue = 100 MinValue = 0 - TabOrder = 0 + TabOrder = 1 Value = 0 + OnKeyDown = spnEdtEnterKeyDown end object spnMinAgree: TSpinEdit Left = 104 @@ -194,8 +206,9 @@ object frmLogDownload: TfrmLogDownload Height = 21 MaxValue = 100 MinValue = 0 - TabOrder = 1 + TabOrder = 2 Value = 0 + OnKeyDown = spnEdtEnterKeyDown end object cbxChannel: TComboBox Left = 104 @@ -203,7 +216,7 @@ object frmLogDownload: TfrmLogDownload Width = 145 Height = 20 ItemHeight = 12 - TabOrder = 2 + TabOrder = 0 end end end diff --git a/bottleclient/LogDownload.pas b/bottleclient/LogDownload.pas index 8d79ee9..fba7bd6 100755 --- a/bottleclient/LogDownload.pas +++ b/bottleclient/LogDownload.pas @@ -35,6 +35,8 @@ type procedure cbxUnitChange(Sender: TObject); procedure dtFromChange(Sender: TObject); procedure dtToChange(Sender: TObject); + procedure spnEdtEnterKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); private procedure SetChannel(const Value: String); procedure SetDateHi(const Value: TDateTime); @@ -194,5 +196,17 @@ begin end; Result := spnRecentCount.Value * u; end; + +{SpinEdit‚ŃGƒ“ƒ^[ƒL[‚ª‰Ÿ‚³‚ꂽ‚Æ‚«‚É + OKƒ{ƒ^ƒ“‚ð‰Ÿ‰º‚·‚é} + +procedure TfrmLogDownload.spnEdtEnterKeyDown(Sender: TObject; +var Key: Word; Shift: TShiftState); +begin + if Key = VK_RETURN then + begin + ModalResult := mrOk; + end +end; end. -- 2.11.0