Chip 2002 June/Chip_2002-06_cd1.bin/zkuste/delphi/kompon/d3456/GPJTLINE.ZIP/demo/Unit1.dfm/Unit1.txt

Text File | 2002-04-04 | 7.1 KB | 343 lines

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    [e-mail]    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