Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/D1/DTOOLS30.ZIP/DEMOMISC.DFM/DEMOMISC.txt

Text File | 1995-11-06 | 4KB | 160 lines

object MiscGadgets: TMiscGadgets
  Left = 294
  Top = 110
  BorderIcons = [biMaximize]
  BorderStyle = bsDialog
  Caption = 'Misc. Gadgets'
  ClientHeight = 254
  ClientWidth = 425
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  TextHeight = 16
  object LEDLabel1: TLEDLabel
    Left = 80
    Top = 13
    Width = 51
    Height = 30
    Hint =
      'This is a TLEDLabel component.  The caption property is being se' +
      't automatically by the TRotaryKnob component.'
    UnlitColor = 16384
    Caption = '0'
    Columns = 3
  end
  object PieMeter1: TPieMeter
    Left = 145
    Top = 7
    Width = 45
    Height = 45
    Hint = 'This is a TPieMeter component.'
    Completed = 0
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ForeColor = clFuchsia
    ParentFont = False
    Percent = 0
  end
  object Image1: TImage
    Left = 319
    Top = 199
    Width = 33
    Height = 33
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object NeatoMeter1: TNeatoMeter
    Left = 8
    Top = 60
    Width = 185
    Height = 57
    Hint = 'This is a TNeatoMeter component.'
    Completed = 0
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    Percent = 0
  end
  object Image2: TImage
    Left = 8
    Top = 192
    Width = 183
    Height = 55
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object CheckBox2: TCheckBox
    Left = 217
    Top = 17
    Width = 186
    Height = 18
    Hint =
      'Determines whether or not to display the Caption property on the' +
      ' TPieMeter and TNeatoMeter components.'
    Caption = 'Caption in Meters'
    TabOrder = 0
    OnClick = CheckBox2Click
  end
  object RotaryKnob1: TRotaryKnob
    Left = 16
    Top = 6
    Width = 45
    Height = 45
    Hint = 'Turn the knob and the other gadgets will change!'
    Control = LEDLabel1
    Max = 100
    Position = 0
    OnChange = RotaryKnob1Change
  end
  object CheckBox3: TCheckBox
    Left = 217
    Top = 41
    Width = 185
    Height = 17
    Hint =
      'Determines whether or not to display the Percent completed on th' +
      'e TPieMeter and TNeatoMeter components.'
    Caption = 'Show Percent in Meters'
    State = cbChecked
    TabOrder = 1
    OnClick = CheckBox3Click
  end
  object RadioGroup1: TRadioGroup
    Left = 208
    Top = 72
    Width = 201
    Height = 121
    Hint = 'Set TNeatoMeter bitmap display options.'
    Caption = 'TNeatoMeter Bitmap Options'
    ItemIndex = 0
    Items.Strings = (
      'Standard'
      'Stretched Bitmap'
      'Tiled Bitmap'
      'Tiled Bitmap w/Invert')
    TabOrder = 2
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 124
    Width = 185
    Height = 65
    Hint =
      'Determines the direction TNeatoMeter will go to indicate progres' +
      's.'
    Caption = 'TNeatoMeter Direction'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'L->R'
      'R->L'
      'T->B'
      'B->T')
    TabOrder = 3
    OnClick = RadioGroup2Click
  end
  object ShadowButton1: TShadowButton
    Left = 168
    Top = 210
    Width = 89
    Height = 33
    Hint = 'Click me to make this window go away!'
    Cancel = True
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 4
  end
end