浏览代码

Workaround for Rio internal error. Note: using IFDEF's doesn't prevent it.

Martijn Laan 6 年之前
父节点
当前提交
095f8be2ac
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      Components/NewCheckListBox.pas

+ 2 - 1
Components/NewCheckListBox.pas

@@ -1563,7 +1563,8 @@ var
 begin
   for I := 0 to Items.Count - 1 do
   begin
-    ItemStates[I].ThreadCache := [];
+    ItemStates[I].ThreadCache := [0];       //Doing ':= []' causes a "F2084 Internal Error: C21846" compiler error on Delphi 10.3 Rio }
+    Exclude(ItemStates[I].ThreadCache, 0);  //
     ItemStates[I].IsLastChild := False;
   end;
   for I := 0 to Items.Count - 1 do