* some more case fixes by Ondrej, mantis #34267

git-svn-id: trunk@39744 -

packages/fcl-image/src/fpimage.pp

@@ -31,7 +31,7 @@ type
   FPImageException = class (exception);
 
   TFPColor = record
-    red,green,blue,alpha : word;
+    Red,Green,Blue,Alpha : word;
   end;
   PFPColor = ^TFPColor;
 
@@ -125,8 +125,8 @@ type
                          PercentDone: Byte;  RedrawNow: Boolean; const R: TRect;
                          const Msg: AnsiString; var Continue: Boolean); Virtual;
     public
-      constructor create (AWidth,AHeight:integer); virtual;
-      destructor destroy; override;
+      constructor Create (AWidth,AHeight:integer); virtual;
+      destructor Destroy; override;
       procedure Assign(Source: TPersistent); override;
       // Image handlers
       class function FindHandlerFromStream(Str:TStream): TIHData;
@@ -184,8 +184,8 @@ type
       procedure SetInternalPixel (x,y:integer; Value:integer); override;
       function GetInternalPixel (x,y:integer) : integer; override;
     public
-      constructor create (AWidth,AHeight:integer); override;
-      destructor destroy; override;
+      constructor Create (AWidth,AHeight:integer); override;
+      destructor Destroy; override;
       procedure SetSize (AWidth, AHeight : integer); override;
   end;
 
@@ -397,7 +397,7 @@ Type
   end;
 
   TFPCompactImgGrayAlpha16BitValue = packed record
-    g,a: word;
+    G,A: word;
   end;
   PFPCompactImgGrayAlpha16BitValue = ^TFPCompactImgGrayAlpha16BitValue;
 
@@ -432,7 +432,7 @@ Type
   end;
 
   TFPCompactImgGrayAlpha8BitValue = packed record
-    g,a: byte;
+    G,A: byte;
   end;
   PFPCompactImgGrayAlpha8BitValue = ^TFPCompactImgGrayAlpha8BitValue;
 
@@ -452,7 +452,7 @@ Type
   end;
 
   TFPCompactImgRGBA8BitValue = packed record
-    r,g,b,a: byte;
+    R,G,B,A: byte;
   end;
   PFPCompactImgRGBA8BitValue = ^TFPCompactImgRGBA8BitValue;
 
@@ -472,7 +472,7 @@ Type
   end;
 
   TFPCompactImgRGB8BitValue = packed record
-    r,g,b: byte;
+    R,G,B: byte;
   end;
   PFPCompactImgRGB8BitValue = ^TFPCompactImgRGB8BitValue;
 
@@ -492,7 +492,7 @@ Type
   end;
 
   TFPCompactImgRGB16BitValue = packed record
-    r,g,b: word;
+    R,G,B: word;
   end;
   PFPCompactImgRGB16BitValue = ^TFPCompactImgRGB16BitValue;
 
@@ -562,7 +562,7 @@ FuzzyDepth: word = 4): TFPCustomImage;
 
 function TryHtmlToFPColor(const S: String; out FPColor: TFPColor): Boolean;
 function HtmlToFPColorDef(const S: String; out FPColor: TFpColor; Def: TFPColor): TFPColor;
-function HtmlToFpColor(const S: String): TFPColor;
+function HtmlToFPColor(const S: String): TFPColor;
 
 
 implementation