Ver Fonte

UITypes: fix SizeOf() of sets for LCL compatibility

(cherry picked from commit 72fd08df038e0fc004614d75ff49d83466d154b0)
Ondrej Pokorny há 2 anos atrás
pai
commit
d03f3cdcf8
1 ficheiros alterados com 3 adições e 0 exclusões
  1. 3 0
      packages/rtl-objpas/src/inc/system.uitypes.pp

+ 3 - 0
packages/rtl-objpas/src/inc/system.uitypes.pp

@@ -16,6 +16,9 @@
 unit System.UITypes;
 {$mode delphi}
 
+// LCL defined all sets with SizeOf()=4
+{$PACKSET FIXED}
+
 interface
 
 Type