ColorPick.dfm

object ColorForm: TColorForm
  Left = 191
  Top = 214
  BorderStyle = bsDialog
  Caption = 'Color adjustment'
  ClientHeight = 262
  ClientWidth = 936
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Shape30: TShape
    Tag = 30
    Left = 788
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape29: TShape
    Tag = 29
    Left = 652
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape28: TShape
    Tag = 28
    Left = 564
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape27: TShape
    Tag = 27
    Left = 452
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape26: TShape
    Tag = 26
    Left = 364
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape25: TShape
    Tag = 25
    Left = 292
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape24: TShape
    Tag = 24
    Left = 244
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape23: TShape
    Tag = 23
    Left = 156
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape22: TShape
    Tag = 22
    Left = 92
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape21: TShape
    Tag = 21
    Left = 3
    Top = 136
    Width = 25
    Height = 19
    OnMouseDown = Shape1MouseDown
    OnMouseEnter = Shape21MouseEnter
  end
  object Shape20: TShape
    Tag = 20
    Left = 788
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape19: TShape
    Tag = 19
    Left = 652
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape18: TShape
    Tag = 18
    Left = 564
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape17: TShape
    Tag = 17
    Left = 452
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape16: TShape
    Tag = 16
    Left = 364
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape15: TShape
    Tag = 15
    Left = 292
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape14: TShape
    Tag = 14
    Left = 244
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape13: TShape
    Tag = 13
    Left = 156
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape12: TShape
    Tag = 12
    Left = 92
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape11: TShape
    Tag = 11
    Left = 3
    Top = 178
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
  end
  object Shape10: TShape
    Tag = 10
    Left = 788
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape9: TShape
    Tag = 9
    Left = 652
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape8: TShape
    Tag = 8
    Left = 564
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape7: TShape
    Tag = 7
    Left = 452
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape6: TShape
    Tag = 6
    Left = 364
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape5: TShape
    Tag = 5
    Left = 292
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape4: TShape
    Tag = 4
    Left = 244
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape3: TShape
    Tag = 3
    Left = 156
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape2: TShape
    Tag = 2
    Left = 92
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
    OnMouseMove = Shape1MouseMove
  end
  object Shape1: TShape
    Tag = 1
    Left = 3
    Top = 154
    Width = 25
    Height = 25
    OnMouseDown = Shape1MouseDown
  end
  object Image1: TImage
    Left = 16
    Top = 8
    Width = 785
    Height = 121
    OnMouseDown = Image1MouseDown
  end
  object Label1: TLabel
    Left = 807
    Top = 32
    Width = 42
    Height = 13
    Caption = 'Specular'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 808
    Top = 56
    Width = 33
    Height = 13
    Caption = 'Diffuse'
  end
  object Label3: TLabel
    Left = 8
    Top = 209
    Width = 662
    Height = 13
    Caption = 
      '(Rightclick on sliders to change the colors. Usage of keyboard w' +
      'hen cursor is over a slider: (c) copy colors, (v) paste colors, ' +
      '(b) paste 1 color)'
  end
  object Label4: TLabel
    Left = 808
    Top = 32
    Width = 54
    Height = 13
    Caption = 'Inside color'
    Visible = False
  end
  object SpeedButton1: TSpeedButton
    Left = 877
    Top = 179
    Width = 22
    Height = 22
    Hint = 'Reference for diffuse colors'
    Glyph.Data = {
      D6020000424DD6020000000000003600000028000000100000000E0000000100
      180000000000A0020000120B0000120B0000000000000000000043FD35000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000000000000000000000000000000000000
      000000000000000000000000000000000000000000000043FD35}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
    OnMouseDown = SpeedButton1MouseDown
  end
  object SpeedButton2: TSpeedButton
    Tag = 1
    Left = 877
    Top = 154
    Width = 22
    Height = 22
    Hint = 'Reference for specular colors'
    Glyph.Data = {
      D6020000424DD6020000000000003600000028000000100000000E0000000100
      180000000000A0020000120B0000120B0000000000000000000043FD35000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000080808080808080808080808080808080
      808080808080808080808080808080808080808000000043FD3543FD35000000
      8080808080808080808080808080808080808080808080808080808080808080
      8080808000000043FD3543FD3500000000000000000000000000000000000000
      000000000000000000000000000000000000000000000043FD35}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
    OnMouseDown = SpeedButton1MouseDown
  end
  object Label5: TLabel
    Left = 807
    Top = 8
    Width = 65
    Height = 13
    Caption = 'Transparency'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Shape31: TShape
    Left = 117
    Top = 235
    Width = 22
    Height = 22
    Brush.Style = bsClear
  end
  object CheckBox1: TCheckBox
    Left = 709
    Top = 214
    Width = 81
    Height = 17
    Hint = 
      'If glued, the sliders behaves like sticked together with a rubbe' +
      'r band.'
    Caption = 'Glue sliders'
    Checked = True
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 0
  end
  object Button1: TButton
    Left = 823
    Top = 179
    Width = 51
    Height = 22
    Hint = 'generate random diffuse colors'
    Caption = 'Random'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 823
    Top = 154
    Width = 51
    Height = 22
    Hint = 'generate random specular colors according to the diffuse colors'
    Caption = 'Random'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 837
    Top = 232
    Width = 87
    Height = 25
    Caption = 'Update Image'
    TabOrder = 3
    OnClick = Button3Click
  end
  object RadioGroup1: TRadioGroup
    Left = 840
    Top = 72
    Width = 81
    Height = 57
    Caption = 'Object colors'
    ItemIndex = 0
    Items.Strings = (
      'Outside'
      'Inside')
    TabOrder = 4
    OnClick = RadioGroup1Click
  end
  object CheckBox2: TCheckBox
    Left = 709
    Top = 238
    Width = 113
    Height = 17
    Caption = 'Auto update image'
    Checked = True
    State = cbChecked
    TabOrder = 5
  end
  object Edit1: TEdit
    Left = 903
    Top = 180
    Width = 29
    Height = 21
    Hint = 'Random multiplier'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Text = '0.5'
  end
  object Edit2: TEdit
    Left = 903
    Top = 155
    Width = 29
    Height = 21
    Hint = 'Random multiplier'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Text = '1.0'
  end
  object TrackBarEx1: TTrackBarEx
    Left = 589
    Top = 135
    Width = 91
    Height = 21
    Max = 255
    PositionToolTip = ptTop
    TabOrder = 8
    ThumbLength = 18
    TickMarks = tmTopLeft
    TickStyle = tsNone
    Visible = False
    OnChange = TrackBarEx1Change
    OnExit = TrackBarEx1Exit
    OnMouseUp = TrackBarEx1MouseUp
  end
  object CheckBox3: TCheckBox
    Left = 16
    Top = 237
    Width = 89
    Height = 17
    Alignment = taLeftJustify
    Caption = 'Paint on image'
    TabOrder = 9
    OnClick = CheckBox3Click
  end
  object ColorDialog1: TColorDialog
    CustomColors.Strings = (
      'ColorA=F0A070')
    Options = [cdFullOpen]
    Left = 880
    Top = 24
  end
end