mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
Merge pull request #210 from OH1KH/group_edit
Made Group Edit more informative
This commit is contained in:
commit
e9a3159fa4
@ -1,14 +1,14 @@
|
||||
object frmGroupEdit: TfrmGroupEdit
|
||||
Left = 585
|
||||
Left = 454
|
||||
Height = 146
|
||||
Top = 316
|
||||
Width = 385
|
||||
Top = 357
|
||||
Width = 436
|
||||
ActiveControl = btnApply
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Group edit'
|
||||
ClientHeight = 146
|
||||
ClientWidth = 385
|
||||
ClientWidth = 436
|
||||
Icon.Data = {
|
||||
BE1000000000010001002020000001002000A810000016000000280000002000
|
||||
0000400000000100200000000000001000006400000064000000000000000000
|
||||
@ -148,46 +148,67 @@ object frmGroupEdit: TfrmGroupEdit
|
||||
}
|
||||
OnShow = FormShow
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '2.0.2.0'
|
||||
LCLVersion = '2.0.4.0'
|
||||
object GroupBox1: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
Left = 0
|
||||
Height = 108
|
||||
Top = 0
|
||||
Width = 385
|
||||
Width = 436
|
||||
Align = alClient
|
||||
ClientHeight = 106
|
||||
ClientWidth = 383
|
||||
ClientWidth = 434
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
AnchorSideLeft.Control = GroupBox1
|
||||
AnchorSideTop.Control = cmbField
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 12
|
||||
Height = 17
|
||||
Top = 7
|
||||
Top = 9
|
||||
Width = 35
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Field:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = cmbValue
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 12
|
||||
Height = 17
|
||||
Top = 39
|
||||
Top = 44
|
||||
Width = 40
|
||||
Caption = 'Value:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblInfo: TLabel
|
||||
Left = 6
|
||||
AnchorSideLeft.Control = GroupBox1
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = GroupBox1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 197
|
||||
Height = 17
|
||||
Top = 68
|
||||
Top = 83
|
||||
Width = 41
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = 'lblInfo'
|
||||
ParentColor = False
|
||||
Visible = False
|
||||
end
|
||||
object cmbField: TComboBox
|
||||
Left = 62
|
||||
AnchorSideLeft.Control = GroupBox1
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = GroupBox1
|
||||
Left = 96
|
||||
Height = 29
|
||||
Top = -1
|
||||
Top = 3
|
||||
Width = 242
|
||||
BorderSpacing.Top = 3
|
||||
ItemHeight = 0
|
||||
Items.Strings = (
|
||||
'QSO date'
|
||||
@ -229,39 +250,56 @@ object frmGroupEdit: TfrmGroupEdit
|
||||
TabOrder = 0
|
||||
end
|
||||
object cmbValue: TComboBox
|
||||
Left = 62
|
||||
AnchorSideLeft.Control = cmbField
|
||||
AnchorSideTop.Control = cmbField
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 96
|
||||
Height = 34
|
||||
Top = 34
|
||||
Top = 35
|
||||
Width = 312
|
||||
BorderSpacing.Top = 3
|
||||
ItemHeight = 0
|
||||
OnChange = cmbValueChange
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideBottom.Control = Owner
|
||||
Left = 0
|
||||
Height = 38
|
||||
Top = 108
|
||||
Width = 385
|
||||
Width = 436
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 38
|
||||
ClientWidth = 385
|
||||
ClientWidth = 436
|
||||
TabOrder = 1
|
||||
object btnApply: TButton
|
||||
Left = 64
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 60
|
||||
Height = 25
|
||||
Top = 8
|
||||
Top = 7
|
||||
Width = 75
|
||||
BorderSpacing.Left = 60
|
||||
Caption = 'Apply'
|
||||
OnClick = btnApplyClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 256
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 301
|
||||
Height = 25
|
||||
Top = 9
|
||||
Top = 7
|
||||
Width = 75
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 60
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
|
@ -99,16 +99,21 @@ begin
|
||||
dmUtils.InsertContests(cmbValue);
|
||||
cmbValue.Style:=csDropDown;
|
||||
end;
|
||||
end
|
||||
end;
|
||||
lblInfo.Caption := 'Backup your log! Operations can not be undone!';
|
||||
lblInfo.Repaint;
|
||||
end;
|
||||
|
||||
procedure TfrmGroupEdit.cmbValueChange(Sender: TObject);
|
||||
begin
|
||||
lblInfo.Caption := 'Backup your log! Operations can not be undone!';
|
||||
lblInfo.Repaint;
|
||||
|
||||
if (cmbField.ItemIndex=23) or (cmbField.ItemIndex=24) then
|
||||
begin
|
||||
cmbValue.Text :=dmUtils.StdFormatLocator(cmbValue.Text);
|
||||
cmbValue.SelStart := Length(cmbValue.Text);
|
||||
end;
|
||||
begin
|
||||
cmbValue.Text :=dmUtils.StdFormatLocator(cmbValue.Text);
|
||||
cmbValue.SelStart := Length(cmbValue.Text);
|
||||
end;
|
||||
end;
|
||||
|
||||
{eQSL sent 28
|
||||
@ -118,7 +123,9 @@ end;
|
||||
}
|
||||
procedure TfrmGroupEdit.FormShow(Sender: TObject);
|
||||
begin
|
||||
dmUtils.LoadFontSettings(self)
|
||||
dmUtils.LoadFontSettings(self);
|
||||
lblInfo.Caption := 'Backup your log! Operations can not be undone!';
|
||||
lblInfo.Repaint;
|
||||
end;
|
||||
|
||||
procedure TfrmGroupEdit.btnApplyClick(Sender: TObject);
|
||||
@ -511,6 +518,8 @@ begin
|
||||
dmData.qCQRLOG.EnableControls;
|
||||
frmMain.acRefresh.Execute
|
||||
end;
|
||||
lblInfo.Caption := 'Edit done! (Press Cancel to exit)';
|
||||
lblInfo.Repaint;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user