paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 04:56:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fix wmfreader not passing background color to fpvectorial

Browse Source 
git-svn-id: trunk@52805 -
This commit is contained in:
wp 2016-08-14 09:14:46 +00:00
parent e9cab2159d
commit eb894b68ae
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpvectorial/wmfvectorialreader.pas
View File

@ -54,7 +54,6 @@ type
FCurrTextAlign: Word;
FCurrPolyFillMode: Word;
FCurrRawFontHeight: Integer;
FBkColor: TFPColor;
FMapMode: Word;
FWindowOrigin: TPoint;
FWindowExtent: TPoint;
@ -74,7 +73,7 @@ type
function CreateRegion(const AParams: TParamArray): Integer;
procedure DeleteObj(const AParams: TParamArray);
procedure ReadArc(APage: TvVectorialpage; const AParams: TParamArray);
procedure ReadBkColor(const AParams: TParamArray);
procedure ReadBkColor(APage: TvVectorialPage; const AParams: TParamArray);
procedure ReadChord(APage: TvVectorialpage; const AParams: TParamArray);
function ReadColor(const AParams: TParamArray; AIndex: Integer): TFPColor;
procedure ReadExtTextOut(APage: TvVectorialPage; const AParams: TParamArray);
@ -204,7 +203,6 @@ begin
FCurrTextColor := colBlack;
FCurrTextAlign := 0; // Left + Top
FCurrPolyFillMode := ALTERNATE;
FBkColor := colWhite;
FMapMode := MM_ANISOTROPIC;
FUnitsPerInch := 96;
end;
@ -412,9 +410,10 @@ begin
path.Pen := FCurrPen;
end;
procedure TvWMFVectorialReader.ReadBkColor(const AParams: TParamArray);
procedure TvWMFVectorialReader.ReadBkColor(APage: TvVectorialPage;
const AParams: TParamArray);
begin
FBkColor := ReadColor(AParams, 0);
APage.BackgroundColor := ReadColor(AParams, 0);
end;
procedure TvWMFVectorialReader.ReadChord(APage: TvVectorialPage;
@ -867,7 +866,7 @@ begin
META_SCALEWINDOWEXT:
;
META_SETBKCOLOR:
ReadBkColor(params);
ReadBkColor(page, params);
META_SETBKMODE:
;
META_SETLAYOUT: