paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed compilation with fpc 2.7.1

Browse Source 
git-svn-id: trunk@40258 -
This commit is contained in:
mattias 2013-02-10 21:44:09 +00:00
parent 2a584a5f61
commit fcc1d83bb8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/pen.inc
View File

@ -214,13 +214,17 @@ constructor TPen.Create;
begin
inherited Create;
DelayAllocate := True;
FJoinStyle := pjsRound;
FCosmetic := True;
{$IFDEF HasFPEndCap}
inherited SetEndCap(pecRound);
{$ELSE}
FEndCap := pecRound;
{$ENDIF}
{$IFDEF HasFPJoinStyle}
inherited SetJoinStyle(pjsRound);
{$ELSE}
FJoinStyle := pjsRound;
{$ENDIF}
inherited SetWidth(1);
inherited SetStyle(psSolid);
inherited SetMode(pmCopy);
@ -516,7 +520,7 @@ begin
inherited DoCopyProps(From);
FCosmetic := APen.Cosmetic;
EndCap := APen.EndCap;
FJoinStyle := APen.JoinStyle;
JoinStyle := APen.JoinStyle;
//TODO: query new parameters
Changed;
end else