paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 00:27:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* some more case fixes by Ondrej, mantis #34267

Browse Source 
git-svn-id: trunk@39744 -
This commit is contained in:
marco 2018-09-12 12:39:05 +00:00
parent 7833dbf6a4
commit 6fbff7f7a6
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-image/src/fpimage.pp
View File

@ -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