paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 14:50:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* X,YPelsPerMeter properties. Kept old (not logical) default of 100 out of compatibility. Bug #29852

Browse Source 
git-svn-id: trunk@33291 -
This commit is contained in:
marco 2016-03-19 20:40:55 +00:00
parent 66608fec02
commit 02dbec2085
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpreadbmp.pp
View File

@ -62,6 +62,8 @@ type
public
constructor Create; override;
destructor Destroy; override;
property XPelsPerMeter : integer read BFI.XPelsPerMeter;
property YPelsPerMeter : integer read BFI.YPelsPerMeter;
end;
implementation

10
packages/fcl-image/src/fpwritebmp.pp
View File

@ -37,6 +37,8 @@ type
BFH : TBitMapFileHeader;
BFI : TBitMapInfoHeader;
Colinfo : array of TColorRGBA;
fXPelsPerMeter,
fYPelsPerMeter : integer;
procedure SetColorSize (AValue : Byte);
function GetColorSize : byte;
procedure SetBpp (const abpp : byte);
@ -54,6 +56,8 @@ type
public
constructor Create; override;
property BitsPerPixel : byte read FBpp write SetBpp;
property XPelsPerMeter : integer read fXPelsPerMeter write fXPelsPerMeter;
property YPelsPerMeter : integer read fYPelsPerMeter write fYPelsPerMeter;
property RLECompress : boolean read FRleCompress write FRleCompress;
end;
@ -86,6 +90,8 @@ end;
constructor TFPWriterBMP.create;
begin
inherited create;
fXPelsPerMeter:=100;
fYPelsPerMeter:=100;
FBpp:=24;
FRleCompress:=false;
end;
@ -247,8 +253,8 @@ begin
Planes:=1;
if FBpp=15 then BitCount:=16
else BitCount:=FBpp;
XPelsPerMeter:=100;
YPelsPerMeter:=100;
XPelsPerMeter:=fXPelsPerMeter;
YPelsPerMeter:=fYPelsPerMeter;
ClrImportant:=0;
end;
with BFH do