Permalink
Browse files

Fix misplaced buttons on procedure editor in high dpi mode. Closes #482.

  • Loading branch information...
ansgarbecker committed Jan 14, 2019
1 parent ebd4cd0 commit 8927b6849c051c6a260dc0622c881ce39f85414d
Showing with 6 additions and 0 deletions.
  1. +6 −0 source/routine_editor.pas
@@ -183,6 +183,12 @@ procedure TfrmRoutineEditor.Init(Obj: TDBObject);
Modified := False;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
// Buttons are randomly moved, since VirtualTree update, see #440
btnSave.Top := Height - btnSave.Height - Round(3 * DpiScaleFactor(MainForm));
btnHelp.Top := btnSave.Top;
btnDiscard.Top := btnSave.Top;
btnRunProc.Top := btnSave.Top;
btnRunProc.Left := Width - btnRunProc.Width - Round(3 * DpiScaleFactor(MainForm));
Mainform.actRunRoutines.Enabled := DBObject.Name <> '';
Mainform.ShowStatusMsg;
Screen.Cursor := crDefault;

0 comments on commit 8927b68

Please sign in to comment.