paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct location of fields

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-12 09:33:27 +02:00
parent f0dd99c65c
commit 682e11b140
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,6 +101,10 @@ type
FExtra : TStringlist;
FPalette : TFPPalette;
FHeight, FWidth : integer;
//Resolution
FResolutionUnit: TResolutionUnit;
FResolutionX,
FResolutionY: Single;
procedure SetHeight (Value : integer);
procedure SetWidth (Value : integer);
procedure SetExtra (const key:String; const AValue:string);
@ -116,13 +120,9 @@ type
procedure SetPixel (x,y:integer; Value:integer);
function GetPixel (x,y:integer) : integer;
function GetUsePalette : boolean;
protected
//Resolution
FResolutionUnit: TResolutionUnit;
FResolutionX,
FResolutionY: Single;
procedure SetResolutionUnit(AResolutionUnit: TResolutionUnit);
protected
function GetResolutionWidth: Single; virtual;
function GetResolutionHeight: Single; virtual;