mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 04:39:22 +02:00
IDE: fixed compilation
git-svn-id: trunk@43822 -
This commit is contained in:
parent
5504a82697
commit
1efbde31e6
@ -116,7 +116,7 @@ begin
|
|||||||
FoldConfigCheckListBox.Checked[j] :=
|
FoldConfigCheckListBox.Checked[j] :=
|
||||||
Hl.FoldConfig[FCurFoldInfo.Info^[i].Index].Enabled and
|
Hl.FoldConfig[FCurFoldInfo.Info^[i].Index].Enabled and
|
||||||
(Hl.FoldConfig[FCurFoldInfo.Info^[i].Index].Modes * [fmFold, fmHide] <> []);
|
(Hl.FoldConfig[FCurFoldInfo.Info^[i].Index].Modes * [fmFold, fmHide] <> []);
|
||||||
FoldConfigCheckListBox.Items.Objects[j] := TObject(i);
|
FoldConfigCheckListBox.Items.Objects[j] := TObject(Pointer(i));
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user