uqpbar.dfm

componente muy bueno para controlar las barras de progreso

    font.Height = -11
    font.Name = 'MS Sans Serif'
    font.Style = []
    AutoCaption = False
    AutoHint = False
    ShowPosAsPct = False
  end
  object QProgressBar4: TQProgressBar
    Left = 464
    Top = 216
    width = 209
    height = 21
    orientation = boHorizontal
    barKind = bkCylinder
    barLook = blMetal
    roundCorner = True
    backgroundColor = clWhite
    barColor = 12710665
    startColor = 12710665
    finalColor = 12710665
    showInactivePos = False
    invertInactPos = False
    inactivePosColor = clGray
    shaped = True
    shapeColor = 7617536
    blockSize = 0
    spaceSize = 0
    showFullBlock = False
    maximum = 100
    position = 50
    captionAlign = taLeftJustify
    font.Charset = DEFAULT_CHARSET
    font.Color = clWindowText
    font.Height = -11
    font.Name = 'MS Sans Serif'
    font.Style = []
    AutoCaption = False
    AutoHint = False
    ShowPosAsPct = False
  end
  object QProgressBar5: TQProgressBar
    Left = 24
    Top = 392
    width = 313
    height = 33
    orientation = boHorizontal
    barKind = bkCylinder
    barLook = blMetal
    roundCorner = False
    backgroundColor = clGray
    barColor = 12651505
    startColor = 12651505
    finalColor = 12710665
    showInactivePos = True
    invertInactPos = False
    inactivePosColor = clSilver
    shaped = True
    shapeColor = clBlack
    blockSize = 5
    spaceSize = 2
    showFullBlock = False
    maximum = 100
    position = 0
    captionAlign = taLeftJustify
    font.Charset = DEFAULT_CHARSET
    font.Color = clWindowText
    font.Height = -11
    font.Name = 'MS Sans Serif'
    font.Style = []
    AutoCaption = False
    AutoHint = True
    ShowPosAsPct = True
  end
  object TrackBar2: TTrackBar
    Left = 40
    Top = 616
    Width = 241
    Height = 25
    Max = 100
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 6
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar2Change
  end
  object Panel1: TPanel
    Left = 712
    Top = 40
    Width = 169
    Height = 193
    Color = 5308416
    TabOrder = 7
    object QProgressBar6: TQProgressBar
      Left = 24
      Top = 16
      width = 25
      height = 165
      orientation = boVertical
      barKind = bkFlat
      barLook = blMetal
      roundCorner = False
      backgroundColor = 5308416
      barColor = clRed
      startColor = clRed
      finalColor = clLime
      showInactivePos = True
      invertInactPos = False
      inactivePosColor = 6569026
      shaped = True
      shapeColor = 5308416
      blockSize = 1
      spaceSize = 1
      showFullBlock = False
      maximum = 100
      position = 0
      captionAlign = taLeftJustify
      font.Charset = DEFAULT_CHARSET
      font.Color = clWindowText
      font.Height = -11
      font.Name = 'MS Sans Serif'
      font.Style = []
      AutoCaption = False
      AutoHint = False
      ShowPosAsPct = False
    end
    object QProgressBar7: TQProgressBar
      Left = 56
      Top = 16
      width = 25
      height = 165
      orientation = boVertical
      barKind = bkFlat
      barLook = blMetal
      roundCorner = False
      backgroundColor = 5308416
      barColor = clRed
      startColor = clRed
      finalColor = clLime
      showInactivePos = True
      invertInactPos = False
      inactivePosColor = 6569026
      shaped = True
      shapeColor = 5308416
      blockSize = 1
      spaceSize = 1
      showFullBlock = False
      maximum = 100
      position = 0
      captionAlign = taLeftJustify
      font.Charset = DEFAULT_CHARSET
      font.Color = clWindowText
      font.Height = -11
      font.Name = 'MS Sans Serif'
      font.Style = []
      AutoCaption = False
      AutoHint = False
      ShowPosAsPct = False
    end
    object QProgressBar8: TQProgressBar
      Left = 88
      Top = 16
      width = 25
      height = 165
      orientation = boVertical
      barKind = bkFlat
      barLook = blMetal
      roundCorner = False
      backgroundColor = 5308416
      barColor = clRed
      startColor = clRed
      finalColor = clLime
      showInactivePos = True
      invertInactPos = False
      inactivePosColor = 6569026
      shaped = True
      shapeColor = 5308416
      blockSize = 1
      spaceSize = 1
      showFullBlock = False
      maximum = 100
      position = 0
      captionAlign = taLeftJustify
      font.Charset = DEFAULT_CHARSET
      font.Color = clWindowText
      font.Height = -11
      font.Name = 'MS Sans Serif'
      font.Style = []
      AutoCaption = False
      AutoHint = False
      ShowPosAsPct = False
    end
    object QProgressBar9: TQProgressBar
      Left = 120
      Top = 16
      width = 25
      height = 165
      orientation = boVertical
      barKind = bkFlat
      barLook = blMetal
      roundCorner = False
      backgroundColor = 5308416
      barColor = clRed
      startColor = clRed
      finalColor = clLime
      showInactivePos = True
      invertInactPos = False
      inactivePosColor = 6569026
      shaped = True
      shapeColor = 5308416
      blockSize = 1
      spaceSize = 1
      showFullBlock = False
      maximum = 100
      position = 0
      captionAlign = taLeftJustify
      font.Charset = DEFAULT_CHARSET
      font.Color = clWindowText
      font.Height = -11
      font.Name = 'MS Sans Serif'
      font.Style = []
      AutoCaption = False
      AutoHint = False
      ShowPosAsPct = False
    end
  end
  object TrackBar3: TTrackBar
    Left = 704
    Top = 232
    Width = 177
    Height = 17
    Max = 100
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 8
    TickMarks = tmBoth
    TickStyle = tsNone
    OnChange = TrackBar3Change
  end
  object QProgressBar10: TQProgressBar
    Left = 68
    Top = 568
    width = 189
    height = 17
    orientation = boHorizontal
    barKind = bkCylinder
    barLook = blMetal
    roundCorner = False
    backgroundColor = clWhite
    barColor = 3162159
    startColor = 3162159
    finalColor = 33023
    showInactivePos = False
    invertInactPos = False
    inactivePosColor = clSilver
    shaped = False
    shapeColor = 2897976
    blockSize = 12
    spaceSize = 7
    showFullBlock = False
    maximum = 100
    position = 0
    captionAlign = taLeftJustify
    font.Charset = DEFAULT_CHARSET
    font.Color = clWindowText
    font.Height = -11
    font.Name = 'MS Sans Serif'
    font.Style = []
    AutoCaption = False
    AutoHint = True
    ShowPosAsPct = True
  end
  object QProgressBar11: TQProgressBar
    Left = 24
    Top = 456
    width = 313
    height = 33
    orientation = boHorizontal
    barKind = bkCylinder
    barLook = blGlass
    roundCorner = False
    backgroundColor = clGray
    barColor = 12651505
    startColor = 12651505
    finalColor = 12710665
    showInactivePos = True
    invertInactPos = False
    inactivePosColor = clSilver
    shaped = True
    shapeColor = clBlack
    blockSize = 5
    spaceSize = 2
    showFullBlock = False
    maximum = 100
    position = 0
    captionAlign = taLeftJustify
    font.Charset = DEFAULT_CHARSET
    font.Color = clWindowText
    font.Height = -11
    font.Name = 'MS Sans Serif'
    font.Style = []
    AutoCaption = False
    AutoHint = True
    ShowPosAsPct = True
  end
  object TrackBar4: TTrackBar
    Left = 424
    Top = 600
    Width = 241
    Height = 25
    Max = 100
    Orientation = trHorizontal
    Frequency = 1
    Position = 50
    SelEnd = 0
    SelStart = 0
    TabOrder = 11
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar4Change
  end
  object CheckBox1: TCheckBox
    Left = 408
    Top = 368
    Width = 129
    Height = 17
    Caption = 'roundCorners'
    Checked = True
    State = cbChecked
    TabOrder = 12
    OnClick = CheckBox1Click
  end
  object RadioGroup1: TRadioGroup
    Left = 408
    Top = 400
    Width = 129
    Height = 65
    Caption = ' barKind '
    ItemIndex = 0
    Items.Strings = (
      'bkFlat'
      'bkCylinder')
    TabOrder = 13
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 592
    Top = 400
    Width = 129
    Height = 65
    Caption = ' barLook'
    Enabled = False
    ItemIndex = 0
    Items.Strings = (
      'blMetal'
      'blGlass')
    TabOrder = 14
    OnClick = RadioGroup2Click
  end
  object CheckBox2: TCheckBox
    Left = 408
    Top = 480
    Width = 169
    Height = 17
    Caption = 'showInactivePositions'
    TabOrder = 15
    OnClick = CheckBox2Click
  end
  object CheckBox3: TCheckBox
    Left = 408
    Top = 504
    Width = 169
    Height = 17
    Caption = 'invertInactivePositions'
    Enabled = False
    TabOrder = 16
    OnClick = CheckBox3Click
  end
  object CheckBox4: TCheckBox
    Left = 592
    Top = 368
    Width = 81
    Height = 17
    Caption = 'shaped'
    Checked = True
    State = cbChecked
    TabOrder = 17
    OnClick = CheckBox4Click
  end
  object SpinEdit1: TSpinEdit
    Left = 592
    Top = 480
    Width = 41
    Height = 22
    MaxValue = 250
    MinValue = 0
    TabOrder = 18
    Value = 0
    OnChange = SpinEdit1Change
  end
  object SpinEdit2: TSpinEdit
    Left = 592
    Top = 504
    Width = 41
    Height = 22
    MaxValue = 250
    MinValue = 0
    TabOrder = 19
    Value = 0
    OnChange = SpinEdit2Change
  end
  object CheckBox5: TCheckBox
    Left = 592
    Top = 536
    Width = 97
    Height = 17
    Caption = 'showFullBlocks'
    TabOrder = 20
    OnClick = CheckBox5Click
  end
  object Panel2: TPanel
    Left = 408
    Top = 560
    Width = 21
    Height = 21
    Color = clBlue
    TabOrder = 21
    OnClick = Panel2Click
  end
  object Panel3: TPanel
    Left = 656
    Top = 560
    Width = 21
    Height = 21
    Color = clYellow
    TabOrder = 22
    OnClick = Panel3Click
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 8
  end
end