opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Auto-resize width of bottom right buttons on session manager, to make room for longer translations. See https://www.heidisql.com/forum.php?t=35862

Browse Source
This commit is contained in:
Ansgar Becker
2020-04-05 10:49:54 +02:00
parent 24ebc91b84
commit 4bbe7b789e
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/connections.pas
View File

@@ -11,7 +11,8 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
VirtualTrees, Menus, Graphics, Generics.Collections, ActiveX, extra_controls, Messages,
dbconnection, gnugettext, SynRegExpr, System.Types, Vcl.GraphUtil, ADODB, StrUtils;
dbconnection, gnugettext, SynRegExpr, System.Types, Vcl.GraphUtil, ADODB, StrUtils,
System.Math;
type
Tconnform = class(TExtForm)
@@ -1360,7 +1361,7 @@ procedure Tconnform.splitterMainMoved(Sender: TObject);
var
ButtonWidth: Integer;
begin
// Splitter resized - adjust width of buttons
// Splitter resized - adjust width of bottom left buttons
ButtonWidth := Round((pnlLeft.Width - 2 * pnlLeft.Margins.Left) / 3);
btnNew.Width := ButtonWidth;
btnSave.Width := ButtonWidth;
@@ -1368,6 +1369,17 @@ begin
btnNew.Left := pnlLeft.Left;
btnSave.Left := btnNew.Left + btnNew.Width + pnlLeft.Margins.Left;
btnDelete.Left := btnSave.Left + btnSave.Width + pnlLeft.Margins.Left;
// Resize bottom right buttons
ButtonWidth := Round((PageControlDetails.Width - 2 * PageControlDetails.Margins.Right) / 3);
ButtonWidth := Max(ButtonWidth, 50);
ButtonWidth := Min(ButtonWidth, 100);
btnMore.Width := ButtonWidth;
btnCancel.Width := ButtonWidth;
btnOpen.Width := ButtonWidth;
btnmore.Left := PageControlDetails.Left + PageControlDetails.Width - btnMore.Width;
btnCancel.Left := btnMore.Left - btnMore.Width - PageControlDetails.Margins.Right;
btnOpen.Left := btnCancel.Left - btnCancel.Width - PageControlDetails.Margins.Right;
end;