home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2008 September
/
PCWorld_2008-09_cd.bin
/
system
/
processmeter
/
procmeter.exe
/
processmeter.exe
/
0
/
RCDATA
/
TPENDIALOG
/
TPENDIALOG.txt
Wrap
Text File
|
2008-03-26
|
2KB
|
127 lines
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