home *** CD-ROM | disk | FTP | other *** search
- object PenDialog: TPenDialog
- Left = 437
- Top = 286
- Width = 277
- Height = 131
- ActiveControl = CBVisible
- BorderIcons = [biSystemMenu]
- Caption = 'Border Editor'
- Color = clBtnFace
- ParentFont = True
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object LWidth: TLabel
- Left = 176
- Top = 38
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = '&Width:'
- FocusControl = SEWidth
- end
- object Label1: TLabel
- Left = 99
- Top = 9
- Width = 26
- Height = 13
- Alignment = taRightJustify
- Caption = '&Style:'
- FocusControl = CBStyle
- end
- object CBVisible: TCheckBox
- Left = 6
- Top = 8
- Width = 69
- Height = 17
- HelpContext = 680
- Caption = '&Visible'
- TabOrder = 0
- OnClick = CBVisibleClick
- end
- object SEWidth: TEdit
- Left = 214
- Top = 34
- Width = 33
- Height = 21
- HelpContext = 1457
- TabOrder = 3
- Text = '1'
- OnChange = SEWidthChange
- end
- object BOk: TButton
- Left = 104
- Top = 72
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 5
- end
- object BCancel: TButton
- Left = 188
- Top = 72
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 6
- OnClick = BCancelClick
- end
- object UDWidth: TUpDown
- Left = 247
- Top = 34
- Width = 15
- Height = 21
- HelpContext = 1457
- Associate = SEWidth
- Min = 1
- Position = 1
- TabOrder = 4
- end
- object CBStyle: TComboFlat
- Left = 128
- Top = 6
- Width = 135
- Height = 22
- HelpContext = 1457
- Style = csOwnerDrawFixed
- ItemHeight = 16
- TabOrder = 1
- OnChange = CBStyleChange
- OnDrawItem = CBStyleDrawItem
- Items.Strings = (
- 'Solid'
- 'Dash'
- 'Dot'
- 'Dash Dot'
- 'Dash Dot Dot')
- end
- object BColor: TButtonColor
- Left = 6
- Top = 34
- HelpContext = 1457
- Caption = '&Color...'
- TabOrder = 2
- OnClick = BColorClick
- end
- object CBEndStyle: TComboFlat
- Left = 6
- Top = 73
- Width = 68
- HelpContext = 1828
- TabOrder = 7
- OnChange = CBEndStyleChange
- Items.Strings = (
- 'Round'
- 'Square'
- 'Flat')
- end
- end
-