Skip to content

Commit

Permalink
Remove useless DPI helper panel from tabs in routine editor, table ed…
Browse files Browse the repository at this point in the history 
…itor and table tools dialog
  • Loading branch information
@ansgarbecker
ansgarbecker committed Jul 25, 2019
1 parent 0d61ece commit 53b8f54
Show file tree
Hide file tree
Showing 6 changed files with 741 additions and 825 deletions.
281 changes: 135 additions & 146 deletions source/routine_editor.dfm
View file
Expand Up @@ -126,153 +126,142 @@ object frmRoutineEditor: TfrmRoutineEditor
object tabOptions: TTabSheet object tabOptions: TTabSheet
Caption = 'Options' Caption = 'Options'
ImageIndex = 39 ImageIndex = 39
object pnlDpiHelperOptions: TPanel DesignSize = (
Left = 0 686
Top = 0 137)
Width = 686 object lblName: TLabel
Height = 137 Left = 3
Align = alClient Top = 11
BevelOuter = bvNone Width = 31
Caption = 'pnlDpiHelperOptions' Height = 13
ShowCaption = False 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 TabOrder = 0
DesignSize = ( Text = 'editName'
686 TextHint = 'Enter routine name'
137) OnChange = Modification
object lblName: TLabel end
Left = 3 object comboDefiner: TComboBox
Top = 11 Left = 489
Width = 31 Top = 8
Height = 13 Width = 194
Caption = '&Name:' Height = 21
FocusControl = editName Anchors = [akLeft, akTop, akRight]
end TabOrder = 1
object lblType: TLabel Text = 'comboDefiner'
Left = 3 OnChange = Modification
Top = 65 OnDropDown = comboDefinerDropDown
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
end end
end end
object tabParameters: TTabSheet object tabParameters: TTabSheet
Expand Down
1 change: 0 additions & 1 deletion source/routine_editor.pas
View file
Expand Up @@ -45,7 +45,6 @@ TfrmRoutineEditor = class(TFrame)
btnMoveDownParam: TToolButton; btnMoveDownParam: TToolButton;
lblDisabledWhy: TLabel; lblDisabledWhy: TLabel;
spltTop: TSplitter; spltTop: TSplitter;
pnlDpiHelperOptions: TPanel;
procedure comboTypeSelect(Sender: TObject); procedure comboTypeSelect(Sender: TObject);
procedure btnSaveClick(Sender: TObject); procedure btnSaveClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject); procedure btnHelpClick(Sender: TObject);
Expand Down

0 comments on commit 53b8f54

Please sign in to comment.