Просмотр исходного кода

* Remove packed from TXYZReferenceWhite and put Illuminant at the end

Michaël Van Canneyt 2 недель назад
Родитель
Сommit
5d768f725c
1 измененных файлов с 2 добавлено и 2 удалено
  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