home *** CD-ROM | disk | FTP | other *** search
- object CandleEditor: TCandleEditor
- Left = 337
- Top = 182
- ActiveControl = RGStyle
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- ClientHeight = 164
- ClientWidth = 270
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- TextHeight = 13
- object Label1: TLabel
- Left = 12
- Top = 91
- Width = 75
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Candle &Width:'
- end
- object ShapeUp: TShape
- Left = 232
- Top = 8
- Width = 29
- Height = 25
- OnMouseUp = ShapeUpMouseUp
- end
- object ShapeDown: TShape
- Left = 232
- Top = 40
- Width = 29
- Height = 24
- OnMouseUp = ShapeDownMouseUp
- end
- object RGStyle: TRadioGroup
- Left = 8
- Top = 4
- Width = 75
- Height = 61
- HelpContext = 133
- Caption = 'Candle Style:'
- ItemIndex = 0
- Items.Strings = (
- '&Stick'
- '&Bar')
- TabOrder = 0
- OnClick = RGStyleClick
- end
- object BitBtn1: TBitBtn
- Left = 96
- Top = 8
- Width = 131
- Height = 25
- HelpContext = 661
- Caption = '&Up Close Color...'
- TabOrder = 1
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 96
- Top = 40
- Width = 131
- Height = 25
- HelpContext = 188
- Caption = '&Down Close Color...'
- TabOrder = 2
- OnClick = BitBtn2Click
- end
- object SEWidth: TEdit
- Left = 97
- Top = 87
- Width = 40
- Height = 21
- HelpContext = 134
- TabOrder = 3
- Text = '0'
- OnChange = SEWidthChange
- end
- object CBShowOpen: TCheckBox
- Left = 176
- Top = 76
- Width = 85
- Height = 17
- HelpContext = 434
- Caption = 'Show &Open'
- TabOrder = 4
- OnClick = CBShowOpenClick
- end
- object CBShowClose: TCheckBox
- Left = 176
- Top = 100
- Width = 85
- Height = 17
- HelpContext = 431
- Caption = 'Show &Close'
- TabOrder = 5
- OnClick = CBShowCloseClick
- end
- object Button1: TButton
- Left = 9
- Top = 129
- Width = 75
- Height = 25
- HelpContext = 375
- Caption = 'Bo&rder...'
- TabOrder = 6
- OnClick = Button1Click
- end
- object UDWidth: TUpDown
- Left = 137
- Top = 87
- Width = 15
- Height = 21
- TabOrder = 7
- Associate = SEWidth
- end
- object CBDraw3D: TCheckBox
- Left = 98
- Top = 131
- Width = 71
- Height = 17
- Caption = 'Draw &3D'
- TabOrder = 8
- OnClick = CBDraw3DClick
- end
- object CBDark3D: TCheckBox
- Left = 176
- Top = 131
- Width = 89
- Height = 17
- Caption = 'Dar&k 3D'
- TabOrder = 9
- OnClick = CBDark3DClick
- end
- end
-