Skip to content
Permalink
Browse files

Remove useless DPI helper panel from tabs in routine editor, table ed…

…itor and table tools dialog
  • Loading branch information...
ansgarbecker committed Jul 25, 2019
1 parent 0d61ece commit 53b8f544c28296255b4cbf3a81f60d636cc4ce60
Showing with 741 additions and 825 deletions.
  1. +135 −146 source/routine_editor.dfm
  2. +0 −1 source/routine_editor.pas
  3. +192 −214 source/table_editor.dfm
  4. +0 −2 source/table_editor.pas
  5. +414 −458 source/tabletools.dfm
  6. +0 −4 source/tabletools.pas
@@ -126,153 +126,142 @@ object frmRoutineEditor: TfrmRoutineEditor
object tabOptions: TTabSheet
Caption = 'Options'
ImageIndex = 39
object pnlDpiHelperOptions: TPanel
Left = 0
Top = 0
Width = 686
Height = 137
Align = alClient
BevelOuter = bvNone
Caption = 'pnlDpiHelperOptions'
ShowCaption = False
DesignSize = (
686
137)
object lblName: TLabel
Left = 3
Top = 11
Width = 31
Height = 13
Caption = '&Name:'
FocusControl = editName
end
object lblType: TLabel
Left = 3
Top = 65
Width = 28
Height = 13
Caption = '&Type:'
FocusControl = comboType
end
object lblReturns: TLabel
Left = 3
Top = 90
Width = 42
Height = 13
Caption = '&Returns:'
FocusControl = comboReturns
end
object lblSQL: TLabel
Left = 408
Top = 65
Width = 62
Height = 13
Caption = '&Data access:'
FocusControl = comboDataAccess
end
object lblSecurity: TLabel
Left = 408
Top = 90
Width = 65
Height = 13
Caption = 'SQL Se&curity:'
FocusControl = comboSecurity
end
object lblComment: TLabel
Left = 3
Top = 38
Width = 49
Height = 13
Caption = '&Comment:'
FocusControl = editComment
end
object lblDefiner: TLabel
Left = 408
Top = 11
Width = 39
Height = 13
Caption = 'De&finer:'
end
object chkDeterministic: TCheckBox
Left = 84
Top = 114
Width = 602
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = '&Deterministic'
TabOrder = 7
OnClick = Modification
end
object editComment: TEdit
Left = 84
Top = 35
Width = 599
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 2
Text = 'editComment'
OnChange = Modification
end
object comboSecurity: TComboBox
Left = 489
Top = 87
Width = 194
Height = 21
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 6
OnChange = Modification
end
object comboDataAccess: TComboBox
Left = 489
Top = 62
Width = 194
Height = 21
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 5
OnChange = Modification
end
object comboReturns: TComboBox
Left = 84
Top = 87
Width = 310
Height = 21
TabOrder = 4
Text = 'comboReturns'
OnChange = Modification
end
object comboType: TComboBox
Left = 84
Top = 62
Width = 310
Height = 21
Style = csDropDownList
TabOrder = 3
OnSelect = comboTypeSelect
end
object editName: TEdit
Left = 84
Top = 8
Width = 310
Height = 21
TabOrder = 0
DesignSize = (
686
137)
object lblName: TLabel
Left = 3
Top = 11
Width = 31
Height = 13
Caption = '&Name:'
FocusControl = editName
end
object lblType: TLabel
Left = 3
Top = 65
Width = 28
Height = 13
Caption = '&Type:'
FocusControl = comboType
end
object lblReturns: TLabel
Left = 3
Top = 90
Width = 42
Height = 13
Caption = '&Returns:'
FocusControl = comboReturns
end
object lblSQL: TLabel
Left = 408
Top = 65
Width = 62
Height = 13
Caption = '&Data access:'
FocusControl = comboDataAccess
end
object lblSecurity: TLabel
Left = 408
Top = 90
Width = 65
Height = 13
Caption = 'SQL Se&curity:'
FocusControl = comboSecurity
end
object lblComment: TLabel
Left = 3
Top = 38
Width = 49
Height = 13
Caption = '&Comment:'
FocusControl = editComment
end
object lblDefiner: TLabel
Left = 408
Top = 11
Width = 39
Height = 13
Caption = 'De&finer:'
end
object chkDeterministic: TCheckBox
Left = 84
Top = 114
Width = 602
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = '&Deterministic'
TabOrder = 7
OnClick = Modification
end
object editComment: TEdit
Left = 84
Top = 35
Width = 599
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 2
Text = 'editComment'
OnChange = Modification
end
object comboSecurity: TComboBox
Left = 489
Top = 87
Width = 194
Height = 21
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 6
OnChange = Modification
end
object comboDataAccess: TComboBox
Left = 489
Top = 62
Width = 194
Height = 21
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 5
OnChange = Modification
end
object comboReturns: TComboBox
Left = 84
Top = 87
Width = 310
Height = 21
TabOrder = 4
Text = 'comboReturns'
OnChange = Modification
end
object comboType: TComboBox
Left = 84
Top = 62
Width = 310
Height = 21
Style = csDropDownList
TabOrder = 3
OnSelect = comboTypeSelect
end
object editName: TEdit
Left = 84
Top = 8
Width = 310
Height = 21
TabOrder = 0
Text = 'editName'
TextHint = 'Enter routine name'
OnChange = Modification
end
object comboDefiner: TComboBox
Left = 489
Top = 8
Width = 194
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
Text = 'comboDefiner'
OnChange = Modification
OnDropDown = comboDefinerDropDown
end
Text = 'editName'
TextHint = 'Enter routine name'
OnChange = Modification
end
object comboDefiner: TComboBox
Left = 489
Top = 8
Width = 194
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
Text = 'comboDefiner'
OnChange = Modification
OnDropDown = comboDefinerDropDown
end
end
object tabParameters: TTabSheet
@@ -45,7 +45,6 @@ TfrmRoutineEditor = class(TFrame)
btnMoveDownParam: TToolButton;
lblDisabledWhy: TLabel;
spltTop: TSplitter;
pnlDpiHelperOptions: TPanel;
procedure comboTypeSelect(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);

0 comments on commit 53b8f54

Please sign in to comment.
You can’t perform that action at this time.