Skip to content

Commit f4af513

Browse files
committed
Fix mis-aligned Welcome screen buttons & labels
1 parent fadf035 commit f4af513

File tree

1 file changed

+16
-12
lines changed

1 file changed

+16
-12
lines changed

Source/main.pas

Lines changed: 16 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -7207,18 +7207,22 @@ procedure TMainForm.ResizeWelcomeComponent;
72077207
LabelView.Left := (PageControlPanel.Width div 4) - (LabelView.Width + 30);
72087208
LabelDocumentation.Left := (PageControlPanel.Width div 4) - 23;
72097209
LabelHotkeys.Left := (PageControlPanel.Width div 4) - (LabelHotkeys.Width div 2);
7210-
LabelOpen.Left := (PageControlPanel.Width div 4) - 35;
7211-
LabelSave.Left := (PageControlPanel.Width div 4) - 33;
7212-
LabelZoom.Left := (PageControlPanel.Width div 4) - 38;
7213-
LabelRun.Left := (PageControlPanel.Width div 4) - 28;
7214-
LabelCompile.Left := (PageControlPanel.Width div 4) - 50;
7215-
LabelClear.left := (PageControlPanel.Width div 4) - 34;
7216-
PanelDescOpen.Left := (PageControlPanel.Width div 4) + 18;
7217-
PanelDescSave.Left := (PageControlPanel.Width div 4) + 18;
7218-
PanelDescZoom.Left := (PageControlPanel.Width div 4) + 18;
7219-
PanelDescRun.Left := (PageControlPanel.Width div 4) + 18;
7220-
PanelDescCompile.Left := (PageControlPanel.Width div 4) + 18;
7221-
PanelDescClear.Left := (PageControlPanel.Width div 4) + 18;
7210+
7211+
var adj := 45;
7212+
LabelOpen .Left := (PageControlPanel.Width div 4) - adj - LabelOpen .width;
7213+
LabelSave .Left := (PageControlPanel.Width div 4) - adj - LabelSave .width;
7214+
LabelZoom .Left := (PageControlPanel.Width div 4) - adj - LabelZoom .width;
7215+
LabelRun .Left := (PageControlPanel.Width div 4) - adj - LabelRun .width;
7216+
LabelCompile.Left := (PageControlPanel.Width div 4) - adj - LabelCompile.width;
7217+
LabelClear .left := (PageControlPanel.Width div 4) - adj - LabelClear .width;
7218+
7219+
PanelDescOpen .Left := (PageControlPanel.Width div 4) + adj;
7220+
PanelDescSave .Left := (PageControlPanel.Width div 4) + adj;
7221+
PanelDescZoom .Left := (PageControlPanel.Width div 4) + adj;
7222+
PanelDescRun .Left := (PageControlPanel.Width div 4) + adj;
7223+
PanelDescCompile.Left := (PageControlPanel.Width div 4) + adj;
7224+
PanelDescClear .Left := (PageControlPanel.Width div 4) + adj;
7225+
72227226
ButtonNewDocument.Left := Max(50, (PanelRight.Width div 2) - ButtonNewDocument.Width - (ButtonOpenDocument.Width div 2) - 65);
72237227
ButtonOpenDocument.Left := ButtonNewDocument.Left + ButtonNewDocument.Width + 25;
72247228
ButtonOptions.Left := ButtonOpenDocument.Left + ButtonOpenDocument.Width + 25;

0 commit comments

Comments
 (0)