trying AdjustPageElements

feature/plugins-parameters
Jeremiah K 2024-07-03 13:47:47 -05:00
rodzic ebf6dd755b
commit ddacd70734
1 zmienionych plików z 18 dodań i 1 usunięć

Wyświetl plik

@ -109,6 +109,23 @@ begin
OptionsPage.Add('Radio broadcasts enabled');
OptionsPage.Values[0] := True;
OptionsPage.Values[1] := True;
// Adjust the layout to add more space between elements
AdjustPageElements(MatrixPage);
AdjustPageElements(MeshtasticPage);
AdjustPageElements(MatrixMeshtasticPage);
end;
procedure AdjustPageElements(Page: TInputQueryWizardPage);
var
i, NewTop: Integer;
begin
NewTop := 0;
for i := 0 to Page.Edits.Count - 1 do
begin
Page.Edits[i].Top := NewTop;
NewTop := NewTop + Page.Edits[i].Height + 12; // Add more space between elements
end;
end;
function BoolToStr(Value : Boolean): String;
@ -195,4 +212,4 @@ begin
begin
MsgBox('Could not create batch file "relay.bat". Close any applications that may have it open and re-run setup', mbInformation, MB_OK);
end;
end;
end;