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

lcl: set default value for TPen.Cosmetic

Browse Source 
git-svn-id: trunk@18982 -
This commit is contained in:
paul 2009-03-13 15:54:41 +00:00
parent e349453a72
commit 27e3ec707f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/graphics.pp
View File

@ -626,7 +626,7 @@ type
procedure SetPattern(APattern: TPenPattern); reintroduce; procedure SetPattern(APattern: TPenPattern); reintroduce;
published published
property Color: TColor read FColor write SetColor default clBlack; property Color: TColor read FColor write SetColor default clBlack;
property Cosmetic: Boolean read FCosmetic write SetCosmetic; property Cosmetic: Boolean read FCosmetic write SetCosmetic default True;
property EndCap: TPenEndCap read FEndCap write SetEndCap default pecRound; property EndCap: TPenEndCap read FEndCap write SetEndCap default pecRound;
property JoinStyle: TPenJoinStyle read FJoinStyle write SetJoinStyle default pjsRound; property JoinStyle: TPenJoinStyle read FJoinStyle write SetJoinStyle default pjsRound;
property Mode default pmCopy; property Mode default pmCopy;