Explorar el Código

* Remove packed from TXYZReferenceWhite and put Illuminant at the end

Michaël Van Canneyt hace 2 semanas
padre
commit
5d768f725c
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];
   TIlluminant = string[10];
 
 
   PXYZReferenceWhite = ^TXYZReferenceWhite;
   PXYZReferenceWhite = ^TXYZReferenceWhite;
-  TXYZReferenceWhite = packed record
+  TXYZReferenceWhite = record
     X, Y, Z: single;
     X, Y, Z: single;
     ObserverAngle: integer;
     ObserverAngle: integer;
-    Illuminant: TIlluminant;
     L,M,S: single;
     L,M,S: single;
+    Illuminant: TIlluminant;
   end;
   end;
 
 
   TSpectralLocusPoint = record
   TSpectralLocusPoint = record