FIX: Limit filter width (include help button)

This commit is contained in:
Alexander Koblov 2023-02-27 22:29:33 +03:00
commit 37d1ebd601

View file

@ -263,7 +263,7 @@ procedure TfrmOptions.splOptionsSplitterMoved(Sender: TObject);
var
ARight, ADelta: Integer;
begin
ADelta:= ScaleX(8, DesignTimePPI);
ADelta:= ScaleX(8, DesignTimePPI) * 2 + btnHelp.Width;
ARight:= splOptionsSplitter.Left;
if (ARight > (btnOK.Left - ADelta)) then
begin