home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 192
- Top = 107
- BorderStyle = bsToolWindow
- Caption = 'TLine demo'
- ClientHeight = 386
- ClientWidth = 382
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 14
- object Line1: TLine
- Left = 12
- Top = 176
- Width = 357
- Height = 25
- LineColor = clBlue
- ArrowColor = clBlue
- LineWidth = 1
- Arrow1 = True
- Arrow2 = True
- ArrowFactor = 6
- end
- object Line3: TLine
- Left = 12
- Top = 24
- Width = 77
- Height = 1
- LineColor = clBlack
- ArrowColor = clBlack
- LineWidth = 1
- end
- object Shape1: TShape
- Left = 136
- Top = 84
- Width = 109
- Height = 81
- Brush.Color = 15856113
- Shape = stRoundRect
- end
- object Label2: TLabel
- Left = 144
- Top = 88
- Width = 46
- Height = 14
- Caption = 'Benefits'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Line4: TLine
- Left = 208
- Top = 56
- Width = 49
- Height = 29
- Direction = drTopRightBottomLeft
- LineColor = clBlack
- ArrowColor = 15856113
- LineWidth = 1
- Arrow1 = True
- ArrowFactor = 6
- end
- object Label3: TLabel
- Left = 264
- Top = 48
- Width = 92
- Height = 28
- Caption = '2 direction arrows capabilities lines.'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 12
- Top = 8
- Width = 76
- Height = 14
- Caption = 'Sample diagram'
- end
- object Line2: TLine
- Left = 88
- Top = 24
- Width = 65
- Height = 53
- Hint = 'This is the Hint'
- ParentShowHint = False
- ShowHint = True
- Direction = drTopLeftBottomRight
- LineColor = clBlack
- ArrowColor = clBlack
- LineWidth = 1
- Arrow2 = True
- ArrowFactor = 4
- end
- object Label8: TLabel
- Left = 144
- Top = 104
- Width = 93
- Height = 49
- AutoSize = False
- Caption = 'To create graphic diagrams, Gantt arrows, ...'
- Transparent = True
- WordWrap = True
- end
- object Label9: TLabel
- Left = 132
- Top = 172
- Width = 122
- Height = 14
- Caption = 'Sample configuration box'
- end
- object Label11: TLabel
- Left = 12
- Top = 364
- Width = 358
- Height = 14
- Caption =
- 'Developed by Gon Perez-Jimenez gon.perez@terra.es Canarys'#39 +
- ' Spain'
- end
- object GroupBox1: TGroupBox
- Left = 12
- Top = 204
- Width = 361
- Height = 157
- Caption = 'Simple configuration'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- object Label1: TLabel
- Left = 184
- Top = 12
- Width = 45
- Height = 14
- Caption = 'Preview'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object probe: TLine
- Left = 240
- Top = 16
- Width = 97
- Height = 65
- LineColor = clBlack
- ArrowColor = 15856113
- LineWidth = 1
- ArrowFactor = 8
- end
- object Label5: TLabel
- Left = 8
- Top = 64
- Width = 49
- Height = 14
- Caption = 'Direction'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 188
- Top = 100
- Width = 57
- Height = 14
- Caption = 'Line Color'
- end
- object Label7: TLabel
- Left = 188
- Top = 116
- Width = 68
- Height = 14
- Caption = 'Arrow Color'
- end
- object Label10: TLabel
- Left = 188
- Top = 134
- Width = 70
- Height = 14
- Caption = 'Arrow factor'
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 16
- Width = 97
- Height = 17
- Caption = 'Arrow 1 visible'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = ConfigTLine
- end
- object CheckBox2: TCheckBox
- Left = 8
- Top = 34
- Width = 97
- Height = 17
- Caption = 'Arrow 2 visible'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = ConfigTLine
- end
- object RadioButton1: TRadioButton
- Left = 8
- Top = 80
- Width = 113
- Height = 17
- Caption = 'Left to right'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- TabStop = True
- OnClick = ConfigTLine
- end
- object RadioButton2: TRadioButton
- Left = 8
- Top = 97
- Width = 113
- Height = 17
- Caption = 'Up to down'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = ConfigTLine
- end
- object RadioButton4: TRadioButton
- Left = 8
- Top = 133
- Width = 145
- Height = 17
- Caption = 'Top right to bottom left'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = ConfigTLine
- end
- object RadioButton3: TRadioButton
- Left = 8
- Top = 115
- Width = 149
- Height = 17
- Caption = 'Top left to bottom right'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = ConfigTLine
- end
- object Panel1: TPanel
- Left = 276
- Top = 100
- Width = 53
- Height = 13
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = ' '
- Color = clBlack
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 6
- OnClick = Panel1Click
- end
- object Panel2: TPanel
- Left = 276
- Top = 116
- Width = 53
- Height = 13
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = ' '
- Color = 15856113
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 7
- OnClick = Panel2Click
- end
- object Edit1: TEdit
- Left = 276
- Top = 132
- Width = 53
- Height = 20
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 8
- Text = '8'
- OnKeyPress = Edit1KeyPress
- OnKeyUp = Edit1KeyUp
- end
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 152
- Top = 256
- end
- end
-