Explorar el Código

Merge branch source:main into main

Curtis Hamilton hace 2 semanas
padre
commit
60bc7a4662
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      packages/fcl-image/src/fpcolorspace.pas

+ 2 - 2
packages/fcl-image/src/fpcolorspace.pas

@@ -37,11 +37,11 @@ type
   TIlluminant = string[10];
 
   PXYZReferenceWhite = ^TXYZReferenceWhite;
-  TXYZReferenceWhite = packed record
+  TXYZReferenceWhite = record
     X, Y, Z: single;
     ObserverAngle: integer;
-    Illuminant: TIlluminant;
     L,M,S: single;
+    Illuminant: TIlluminant;
   end;
 
   TSpectralLocusPoint = record