mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 09:38:13 +02:00
135 lines
3.1 KiB
Plaintext
135 lines
3.1 KiB
Plaintext
object FontFrame: TFontFrame
|
|
Left = 0
|
|
Height = 75
|
|
Top = 0
|
|
Width = 250
|
|
ClientHeight = 75
|
|
ClientWidth = 250
|
|
TabOrder = 0
|
|
DesignLeft = 332
|
|
DesignTop = 128
|
|
object cmbFontName: TComboBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 23
|
|
Top = 0
|
|
Width = 250
|
|
Anchors = [akTop, akLeft, akRight]
|
|
ItemHeight = 15
|
|
OnChange = cmbFontNameChange
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
end
|
|
object cmbFontSize: TComboBox
|
|
AnchorSideTop.Control = cbFontColor
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 23
|
|
Top = 30
|
|
Width = 94
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 15
|
|
OnChange = cmbFontSizeChange
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
end
|
|
object cbFontColor: TColorButton
|
|
AnchorSideTop.Control = cmbFontName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 218
|
|
Height = 25
|
|
Top = 29
|
|
Width = 32
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderWidth = 2
|
|
ButtonColorSize = 16
|
|
ButtonColor = clBlack
|
|
OnColorChanged = cbFontColorColorChanged
|
|
end
|
|
object cbBold: TCheckBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = cmbFontSize
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 0
|
|
Height = 19
|
|
Top = 59
|
|
Width = 45
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Bottom = 8
|
|
Caption = 'Bold'
|
|
Font.Style = [fsBold]
|
|
OnChange = cbBoldChange
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object cbItalic: TCheckBox
|
|
AnchorSideLeft.Control = cbBold
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = cbBold
|
|
Left = 53
|
|
Height = 19
|
|
Top = 59
|
|
Width = 45
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Italic'
|
|
Font.Style = [fsItalic]
|
|
OnChange = cbItalicChange
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
object cbUnderline: TCheckBox
|
|
AnchorSideLeft.Control = cbItalic
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = cbBold
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 106
|
|
Height = 19
|
|
Top = 59
|
|
Width = 78
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Underlined'
|
|
Font.Style = [fsUnderline]
|
|
OnChange = cbUnderlineChange
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
end
|
|
object lblOrientation: TLabel
|
|
AnchorSideLeft.Control = cmbFontSize
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = cbFontColor
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 106
|
|
Height = 15
|
|
Top = 34
|
|
Width = 31
|
|
BorderSpacing.Left = 12
|
|
Caption = 'Angle'
|
|
FocusControl = seOrientation
|
|
ParentColor = False
|
|
end
|
|
object seOrientation: TSpinEdit
|
|
AnchorSideLeft.Control = lblOrientation
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = cbFontColor
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 143
|
|
Height = 23
|
|
Top = 30
|
|
Width = 58
|
|
BorderSpacing.Left = 6
|
|
MaxValue = 360
|
|
MinValue = -360
|
|
OnChange = seOrientationChange
|
|
TabOrder = 2
|
|
end
|
|
end
|