Browse Source

* 24-bit byteswap color constants. Due to Opengl vs GDI conventions confusion?

(cherry picked from commit 742ec5680f8edfdae744382f565a3fda804b0e5c)
marcoonthegit 3 years ago
parent
commit
bcdfa7c926
1 changed files with 119 additions and 119 deletions
  1. 119 119
      packages/rtl-objpas/src/inc/system.uitypes.pp

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

@@ -31,154 +31,154 @@ Type
                  class operator := (AColor : TColorRec): TColor; inline;
                  class operator := (AColor : TColorRec): TColor; inline;
       const
       const
       // 140 HTML colors.
       // 140 HTML colors.
-      AliceBlue          = TColor($F0F8FF);
-      AntiqueWhite       = TColor($FAEBD7);
-      Aqua               = TColor($00FFFF);
-      Aquamarine         = TColor($7FFFD4);
-      Azure              = TColor($F0FFFF);
-      Beige              = TColor($F5F5DC);
-      Bisque             = TColor($FFE4C4);
+      AliceBlue          = TColor($FFF8F0);
+      AntiqueWhite       = TColor($D7EBFA);
+      Aqua               = TColor($FFFF00);
+      Aquamarine         = TColor($D4FF7F);
+      Azure              = TColor($FFFFF0);
+      Beige              = TColor($DCF5F5);
+      Bisque             = TColor($C4E4FF);
       Black              = TColor($000000);
       Black              = TColor($000000);
-      BlanchedAlmond     = TColor($FFEBCD);
-      Blue               = TColor($0000FF);
-      BlueViolet         = TColor($8A2BE2);
-      Brown              = TColor($A52A2A);
-      BurlyWood          = TColor($DEB887);
-      CadetBlue          = TColor($5F9EA0);
-      Chartreuse         = TColor($7FFF00);
-      Chocolate          = TColor($D2691E);
-      Coral              = TColor($FF7F50);
-      CornflowerBlue     = TColor($6495ED);
-      Cornsilk           = TColor($FFF8DC);
-      Crimson            = TColor($DC143C);
-      Cyan               = TColor($00FFFF);
-      DarkBlue           = TColor($00008B);
-      DarkCyan           = TColor($008B8B);
-      DarkGoldenRod      = TColor($B8860B);
+      BlanchedAlmond     = TColor($CDEBFF);
+      Blue               = TColor($FF0000);
+      BlueViolet         = TColor($E22B8A);
+      Brown              = TColor($2A2AA5);
+      BurlyWood          = TColor($87B8DE);
+      CadetBlue          = TColor($A09E5F);
+      Chartreuse         = TColor($00FF7F);
+      Chocolate          = TColor($1E69D2);
+      Coral              = TColor($507FFF);
+      CornflowerBlue     = TColor($ED9564);
+      Cornsilk           = TColor($DCF8FF);
+      Crimson            = TColor($3C14DC);
+      Cyan               = TColor($FFFF00);
+      DarkBlue           = TColor($8B0000);
+      DarkCyan           = TColor($8B8B00);
+      DarkGoldenRod      = TColor($0B86B8);
       DarkGray           = TColor($A9A9A9);
       DarkGray           = TColor($A9A9A9);
       DarkGreen          = TColor($006400);
       DarkGreen          = TColor($006400);
       DarkGrey           = TColor($A9A9A9);
       DarkGrey           = TColor($A9A9A9);
-      DarkKhaki          = TColor($BDB76B);
+      DarkKhaki          = TColor($6BB7BD);
       DarkMagenta        = TColor($8B008B);
       DarkMagenta        = TColor($8B008B);
-      DarkOliveGreen     = TColor($556B2F);
-      DarkOrange         = TColor($FF8C00);
-      DarkOrchid         = TColor($9932CC);
-      DarkRed            = TColor($8B0000);
-      DarkSalmon         = TColor($E9967A);
+      DarkOliveGreen     = TColor($2F6B55);
+      DarkOrange         = TColor($008CFF);
+      DarkOrchid         = TColor($CC3299);
+      DarkRed            = TColor($00008B);
+      DarkSalmon         = TColor($7A96E9);
       DarkSeaGreen       = TColor($8FBC8F);
       DarkSeaGreen       = TColor($8FBC8F);
-      DarkSlateBlue      = TColor($483D8B);
-      DarkSlateGray      = TColor($2F4F4F);
-      DarkSlateGrey      = TColor($2F4F4F);
-      DarkTurquoise      = TColor($00CED1);
-      DarkViolet         = TColor($9400D3);
-      DeepPink           = TColor($FF1493);
-      DeepSkyBlue        = TColor($00BFFF);
+      DarkSlateBlue      = TColor($8B3D48);
+      DarkSlateGray      = TColor($4F4F2F);
+      DarkSlateGrey      = TColor($4F4F2F);
+      DarkTurquoise      = TColor($D1CE00);
+      DarkViolet         = TColor($D30094);
+      DeepPink           = TColor($9314FF);
+      DeepSkyBlue        = TColor($FFBF00);
       DimGray            = TColor($696969);
       DimGray            = TColor($696969);
       DimGrey            = TColor($696969);
       DimGrey            = TColor($696969);
-      DodgerBlue         = TColor($1E90FF);
-      FireBrick          = TColor($B22222);
-      FloralWhite        = TColor($FFFAF0);
+      DodgerBlue         = TColor($FF901E);
+      FireBrick          = TColor($2222B2);
+      FloralWhite        = TColor($F0FAFF);
       ForestGreen        = TColor($228B22);
       ForestGreen        = TColor($228B22);
       Fuchsia            = TColor($FF00FF);
       Fuchsia            = TColor($FF00FF);
       Gainsboro          = TColor($DCDCDC);
       Gainsboro          = TColor($DCDCDC);
-      GhostWhite         = TColor($F8F8FF);
-      Gold               = TColor($FFD700);
-      GoldenRod          = TColor($DAA520);
+      GhostWhite         = TColor($FFF8F8);
+      Gold               = TColor($00D7FF);
+      GoldenRod          = TColor($20A5DA);
       Gray               = TColor($808080);
       Gray               = TColor($808080);
       Green              = TColor($008000);
       Green              = TColor($008000);
-      GreenYellow        = TColor($ADFF2F);
+      GreenYellow        = TColor($2FFFAD);
       Grey               = TColor($808080);
       Grey               = TColor($808080);
       HoneyDew           = TColor($F0FFF0);
       HoneyDew           = TColor($F0FFF0);
-      HotPink            = TColor($FF69B4);
-      IndianRed          = TColor($CD5C5C);
-      Indigo             = TColor($4B0082);
-      Ivory              = TColor($FFFFF0);
-      Khaki              = TColor($F0E68C);
-      Lavender           = TColor($E6E6FA);
-      LavenderBlush      = TColor($FFF0F5);
-      LawnGreen          = TColor($7CFC00);
-      LemonChiffon       = TColor($FFFACD);
-      LightBlue          = TColor($ADD8E6);
-      LightCoral         = TColor($F08080);
-      LightCyan          = TColor($E0FFFF);
-      LightGoldenRodYellow    = TColor($FAFAD2);
+      HotPink            = TColor($B469FF);
+      IndianRed          = TColor($5C5CCD);
+      Indigo             = TColor($82004B);
+      Ivory              = TColor($F0FFFF);
+      Khaki              = TColor($8CE6F0);
+      Lavender           = TColor($FAE6E6);
+      LavenderBlush      = TColor($F5F0FF);
+      LawnGreen          = TColor($00FC7C);
+      LemonChiffon       = TColor($CDFAFF);
+      LightBlue          = TColor($E6D8AD);
+      LightCoral         = TColor($8080F0);
+      LightCyan          = TColor($FFFFE0);
+      LightGoldenRodYellow    = TColor($D2FAFA);
       LightGray          = TColor($D3D3D3);
       LightGray          = TColor($D3D3D3);
       LightGreen         = TColor($90EE90);
       LightGreen         = TColor($90EE90);
       LightGrey          = TColor($D3D3D3);
       LightGrey          = TColor($D3D3D3);
-      LightPink          = TColor($FFB6C1);
-      LightSalmon        = TColor($FFA07A);
-      LightSeaGreen      = TColor($20B2AA);
-      LightSkyBlue       = TColor($87CEFA);
-      LightSlateGray     = TColor($778899);
-      LightSlateGrey     = TColor($778899);
-      LightSteelBlue     = TColor($B0C4DE);
-      LightYellow        = TColor($FFFFE0);
+      LightPink          = TColor($C1B6FF);
+      LightSalmon        = TColor($7AA0FF);
+      LightSeaGreen      = TColor($AAB220);
+      LightSkyBlue       = TColor($FACE87);
+      LightSlateGray     = TColor($998877);
+      LightSlateGrey     = TColor($998877);
+      LightSteelBlue     = TColor($DEC4B0);
+      LightYellow        = TColor($E0FFFF);
       Lime               = TColor($00FF00);
       Lime               = TColor($00FF00);
       LimeGreen          = TColor($32CD32);
       LimeGreen          = TColor($32CD32);
-      Linen              = TColor($FAF0E6);
+      Linen              = TColor($E6F0FA);
       Magenta            = TColor($FF00FF);
       Magenta            = TColor($FF00FF);
-      Maroon             = TColor($800000);
-      MediumAquaMarine   = TColor($66CDAA);
-      MediumBlue         = TColor($0000CD);
-      MediumOrchid       = TColor($BA55D3);
-      MediumPurple       = TColor($9370DB);
-      MediumSeaGreen     = TColor($3CB371);
-      MediumSlateBlue    = TColor($7B68EE);
-      MediumSpringGreen  = TColor($00FA9A);
-      MediumTurquoise    = TColor($48D1CC);
-      MediumVioletRed    = TColor($C71585);
-      MidnightBlue       = TColor($191970);
-      MintCream          = TColor($F5FFFA);
-      MistyRose          = TColor($FFE4E1);
-      Moccasin           = TColor($FFE4B5);
-      NavajoWhite        = TColor($FFDEAD);
-      Navy               = TColor($000080);
-      OldLace            = TColor($FDF5E6);
-      Olive              = TColor($808000);
-      OliveDrab          = TColor($6B8E23);
-      Orange             = TColor($FFA500);
-      OrangeRed          = TColor($FF4500);
-      Orchid             = TColor($DA70D6);
-      PaleGoldenRod      = TColor($EEE8AA);
+      Maroon             = TColor($000080);
+      MediumAquaMarine   = TColor($AACD66);
+      MediumBlue         = TColor($CD0000);
+      MediumOrchid       = TColor($D355BA);
+      MediumPurple       = TColor($DB7093);
+      MediumSeaGreen     = TColor($71B33C);
+      MediumSlateBlue    = TColor($EE687B);
+      MediumSpringGreen  = TColor($9AFA00);
+      MediumTurquoise    = TColor($CCD148);
+      MediumVioletRed    = TColor($8515C7);
+      MidnightBlue       = TColor($701919);
+      MintCream          = TColor($FAFFF5);
+      MistyRose          = TColor($E1E4FF);
+      Moccasin           = TColor($B5E4FF);
+      NavajoWhite        = TColor($ADDEFF);
+      Navy               = TColor($800000);
+      OldLace            = TColor($E6F5FD);
+      Olive              = TColor($008080);
+      OliveDrab          = TColor($238E6B);
+      Orange             = TColor($00A5FF);
+      OrangeRed          = TColor($0045FF);
+      Orchid             = TColor($D670DA);
+      PaleGoldenRod      = TColor($AAE8EE);
       PaleGreen          = TColor($98FB98);
       PaleGreen          = TColor($98FB98);
-      PaleTurquoise      = TColor($AFEEEE);
-      PaleVioletRed      = TColor($DB7093);
-      PapayaWhip         = TColor($FFEFD5);
-      PeachPuff          = TColor($FFDAB9);
-      Peru               = TColor($CD853F);
-      Pink               = TColor($FFC0CB);
+      PaleTurquoise      = TColor($EEEEAF);
+      PaleVioletRed      = TColor($9370DB);
+      PapayaWhip         = TColor($D5EFFF);
+      PeachPuff          = TColor($B9DAFF);
+      Peru               = TColor($3F85CD);
+      Pink               = TColor($CBC0FF);
       Plum               = TColor($DDA0DD);
       Plum               = TColor($DDA0DD);
-      PowderBlue         = TColor($B0E0E6);
+      PowderBlue         = TColor($E6E0B0);
       Purple             = TColor($800080);
       Purple             = TColor($800080);
-      RebeccaPurple      = TColor($663399);
-      Red                = TColor($FF0000);
-      RosyBrown          = TColor($BC8F8F);
-      RoyalBlue          = TColor($4169E1);
-      SaddleBrown        = TColor($8B4513);
-      Salmon             = TColor($FA8072);
-      SandyBrown         = TColor($F4A460);
-      SeaGreen           = TColor($2E8B57);
-      SeaShell           = TColor($FFF5EE);
-      Sienna             = TColor($A0522D);
+      RebeccaPurple      = TColor($993366);
+      Red                = TColor($0000FF);
+      RosyBrown          = TColor($8F8FBC);
+      RoyalBlue          = TColor($E16941);
+      SaddleBrown        = TColor($13458B);
+      Salmon             = TColor($7280FA);
+      SandyBrown         = TColor($60A4F4);
+      SeaGreen           = TColor($578B2E);
+      SeaShell           = TColor($EEF5FF);
+      Sienna             = TColor($2D52A0);
       Silver             = TColor($C0C0C0);
       Silver             = TColor($C0C0C0);
-      SkyBlue            = TColor($87CEEB);
-      SlateBlue          = TColor($6A5ACD);
-      SlateGray          = TColor($708090);
-      SlateGrey          = TColor($708090);
-      Snow               = TColor($FFFAFA);
-      SpringGreen        = TColor($00FF7F);
-      SteelBlue          = TColor($4682B4);
-      Tan                = TColor($D2B48C);
-      Teal               = TColor($008080);
+      SkyBlue            = TColor($EBCE87);
+      SlateBlue          = TColor($CD5A6A);
+      SlateGray          = TColor($908070);
+      SlateGrey          = TColor($908070);
+      Snow               = TColor($FAFAFF);
+      SpringGreen        = TColor($7FFF00);
+      SteelBlue          = TColor($B48246);
+      Tan                = TColor($8CB4D2);
+      Teal               = TColor($808000);
       Thistle            = TColor($D8BFD8);
       Thistle            = TColor($D8BFD8);
-      Tomato             = TColor($FF6347);
-      Turquoise          = TColor($40E0D0);
+      Tomato             = TColor($4763FF);
+      Turquoise          = TColor($D0E040);
       Violet             = TColor($EE82EE);
       Violet             = TColor($EE82EE);
-      Wheat              = TColor($F5DEB3);
+      Wheat              = TColor($B3DEF5);
       White              = TColor($FFFFFF);
       White              = TColor($FFFFFF);
       WhiteSmoke         = TColor($F5F5F5);
       WhiteSmoke         = TColor($F5F5F5);
-      Yellow             = TColor($FFFF00);
-      YellowGreen        = TColor($9ACD32);
+      Yellow             = TColor($00FFFF);
+      YellowGreen        = TColor($32CD9A);
       // extended colors (from lazarus Graphics)
       // extended colors (from lazarus Graphics)
       MoneyGreen         = TColor($C0DCC0);
       MoneyGreen         = TColor($C0DCC0);
       Cream              = TColor($F0FBFF);
       Cream              = TColor($F0FBFF);