Fix increasing height of upper table editor area on each table click. Closes #405. Also fix double-scaled controls on routine editor.

This commit is contained in:
Ansgar Becker
2018-11-25 14:46:04 +01:00
parent 665dacdc59
commit aeba457257
3 changed files with 2 additions and 13 deletions

View File

@ -45,7 +45,7 @@ type
btnMoveDownParam: TToolButton;
lblDisabledWhy: TLabel;
spltTop: TSplitter;
pnlDpiHelperOptions: TPanel;
pnlDpiHelperOptions: TPanel;
procedure comboTypeSelect(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
@ -105,7 +105,6 @@ constructor TfrmRoutineEditor.Create(AOwner: TComponent);
begin
inherited;
TranslateComponent(Self);
ScaleControls(Screen.PixelsPerInch, FORMS_DPI);
// Combo items in a .dfm are sporadically lost after an IDE restart,
// so we set them here to avoid developer annoyance
comboType.Items.Add(_('Procedure (doesn''t return a result)'));