mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 04:16:06 +02:00
Converter: fix the default checked value for missing units checkboxes.
git-svn-id: trunk@42464 -
This commit is contained in:
parent
f770004bfc
commit
f0e3321128
@ -92,11 +92,11 @@ var
|
||||
|
||||
procedure AddUnitsToListBox(AMissingUnits: TStrings);
|
||||
var
|
||||
i: Integer;
|
||||
i, Ind: Integer;
|
||||
begin // Add missing units to CheckListBox.
|
||||
for i:=0 to AMissingUnits.Count-1 do begin
|
||||
UNFDialog.MissingUnitsCheckListBox.Items.Append(AMissingUnits[i]);
|
||||
UNFDialog.MissingUnitsCheckListBox.Checked[i]:=true;
|
||||
Ind:=UNFDialog.MissingUnitsCheckListBox.Items.Add(AMissingUnits[i]);
|
||||
UNFDialog.MissingUnitsCheckListBox.Checked[Ind]:=true;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user