Skip to content
This repository was archived by the owner on May 1, 2024. It is now read-only.

Commit 1884903

Browse files
committed
Ensure exactly one release is selected
1 parent 8ec19cb commit 1884903

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

ElixirWeb.iss

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -106,17 +106,19 @@ end;
106106
procedure PopulatePSelReleaseListBox(StringTable: TStringTable);
107107
var
108108
PrereleaseLabel: String;
109+
SelectFirst: Boolean;
109110
begin
110111
PSelReleaseListBox.Items.Clear;
111-
112+
SelectFirst := True;
112113
for i := 0 to GetArrayLength(StringTable) - 1 do begin
113114
if (StrToInt(StringTable[i][3]) = {#COMPAT_MASK}) then begin
114115
if StringTable[i][2] = 'true' then begin
115116
PrereleaseLabel := 'Prerelease';
116117
end else begin
117118
PrereleaseLabel := 'Release';
118119
end;
119-
PSelReleaseListBox.AddRadioButton('Elixir version ' + StringTable[i][0], PrereleaseLabel, 0, False, True, StringTable[i]);
120+
PSelReleaseListBox.AddRadioButton('Elixir version ' + StringTable[i][0], PrereleaseLabel, 0, SelectFirst, True, StringTable[i]);
121+
SelectFirst := False;
120122
end;
121123
end;
122124
end;

0 commit comments

Comments
 (0)