pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Publish TShapeEx.Font

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8486 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-17 17:39:06 +00:00
parent d026204c55
commit eb6f23c3fa
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/exctrls/examples/ShapeEx/main.lfm
View File

@@ -43,7 +43,9 @@ object MainForm: TMainForm
Height = 104 Height = 104
Top = 120 Top = 120
Width = 98 Width = 98
Brush.Color = clTeal
Shape = stStar Shape = stStar
Font.Color = clWhite
Header.VertAlignment = taAlignTop Header.VertAlignment = taAlignTop
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
Text.Lines.Strings = ( Text.Lines.Strings = (
@@ -74,6 +76,8 @@ object MainForm: TMainForm
Height = 203 Height = 203
Top = 21 Top = 21
Width = 120 Width = 120
Brush.Color = clYellow
Pen.Color = clRed
Shape = stTriangle Shape = stTriangle
Header.Lines.Strings = ( Header.Lines.Strings = (
'Footer' 'Footer'
@@ -90,6 +94,7 @@ object MainForm: TMainForm
Height = 65 Height = 65
Top = 248 Top = 248
Width = 193 Width = 193
Pen.Style = psClear
Header.HorAlignment = taLeftJustify Header.HorAlignment = taLeftJustify
Header.Lines.Strings = ( Header.Lines.Strings = (
'Header (left-aligned)' 'Header (left-aligned)'
@@ -108,6 +113,7 @@ object MainForm: TMainForm
Height = 65 Height = 65
Top = 248 Top = 248
Width = 201 Width = 201
Pen.Style = psDot
Header.HorAlignment = taRightJustify Header.HorAlignment = taRightJustify
Header.Lines.Strings = ( Header.Lines.Strings = (
'Header (right-aligned)' 'Header (right-aligned)'

1
components/exctrls/source/exshape.pas
View File

@@ -60,6 +60,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Paint; override; procedure Paint; override;
published published
property Font;
property Header: TShapeText read FHeader write SetHeader; property Header: TShapeText read FHeader write SetHeader;
property HeaderFont: TFont read FHeaderFont write SetHeaderFont; property HeaderFont: TFont read FHeaderFont write SetHeaderFont;
property Text: TShapeText read FText write SetText; property Text: TShapeText read FText write SetText;