home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / delphi2.shr / UCOLREP.DFM / UCOLREP.txt
Encoding:
Text File  |  1996-08-01  |  5.0 KB  |  196 lines

  1. object Form1: TForm1
  2.   Left = 302
  3.   Top = 242
  4.   BorderStyle = bsSingle
  5.   Caption = 'Color Replace'
  6.   ClientHeight = 327
  7.   ClientWidth = 490
  8.   Color = clSilver
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Position = poScreenCenter
  15.   OnActivate = FormActivate
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Bevel1: TBevel
  20.     Left = 5
  21.     Top = 5
  22.     Width = 479
  23.     Height = 314
  24.     Shape = bsFrame
  25.   end
  26.   object GroupBox1: TGroupBox
  27.     Left = 305
  28.     Top = 14
  29.     Width = 171
  30.     Height = 296
  31.     Caption = ' Replacement Colour '
  32.     TabOrder = 1
  33.     object Color: TSpeedButton
  34.       Left = 14
  35.       Top = 131
  36.       Width = 144
  37.       Height = 38
  38.       Hint = 'Show Selected values above within Swatch Sample Below'
  39.       Caption = 'Test Color'
  40.       Glyph.Data = {
  41.         10010000424D1001000000000000760000002800000010000000100000000100
  42.         0400000000008000000000000000000000000000000000000000000000000000
  43.         80000080000000808000800000008000800080800000C0C0C000808080000000
  44.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  45.         77777CCCCCCCCCCCCCC77CEEEEEEEEEEEEC77CE1144433277EC77CE114443327
  46.         7EC77CE1144433277EC77CECC666999EEEC77CECC666999EEEC77CEAA2220004
  47.         4EC77CEAA22200044EC77CEAA22200044EC77CE99CCCBBBDDEC77CE99CCCBBBD
  48.         DEC77CEEEEEEEEEEEEC77CCCCCCCCCCCCCC77777777777777777000000000000
  49.         0000000000000000000000000000000000000000}
  50.       ParentShowHint = False
  51.       ShowHint = True
  52.       OnClick = ColorClick
  53.     end
  54.     object Label1: TLabel
  55.       Left = 21
  56.       Top = 26
  57.       Width = 29
  58.       Height = 13
  59.       Caption = 'Red:- '
  60.     end
  61.     object Label2: TLabel
  62.       Left = 17
  63.       Top = 62
  64.       Width = 38
  65.       Height = 13
  66.       Caption = 'Green:- '
  67.     end
  68.     object Label3: TLabel
  69.       Left = 18
  70.       Top = 100
  71.       Width = 30
  72.       Height = 13
  73.       Caption = 'Blue:- '
  74.     end
  75.     object RedVal: TSpinEdit
  76.       Left = 90
  77.       Top = 22
  78.       Width = 67
  79.       Height = 22
  80.       Hint = 'Select Red Color Content'
  81.       Color = clRed
  82.       Font.Color = clWhite
  83.       Font.Height = -11
  84.       Font.Name = 'MS Sans Serif'
  85.       Font.Style = []
  86.       MaxValue = 255
  87.       MinValue = 0
  88.       ParentFont = False
  89.       ParentShowHint = False
  90.       ShowHint = True
  91.       TabOrder = 0
  92.       Value = 0
  93.     end
  94.     object GreenVal: TSpinEdit
  95.       Left = 90
  96.       Top = 59
  97.       Width = 67
  98.       Height = 22
  99.       Hint = 'Select Green Color Content'
  100.       Color = clGreen
  101.       Font.Color = clWhite
  102.       Font.Height = -11
  103.       Font.Name = 'MS Sans Serif'
  104.       Font.Style = []
  105.       MaxValue = 255
  106.       MinValue = 0
  107.       ParentFont = False
  108.       ParentShowHint = False
  109.       ShowHint = True
  110.       TabOrder = 1
  111.       Value = 0
  112.     end
  113.     object BlueVal: TSpinEdit
  114.       Left = 90
  115.       Top = 99
  116.       Width = 67
  117.       Height = 22
  118.       Hint = 'Select Blue Color Content'
  119.       Color = clBlue
  120.       Font.Color = clWhite
  121.       Font.Height = -11
  122.       Font.Name = 'MS Sans Serif'
  123.       Font.Style = []
  124.       MaxValue = 255
  125.       MinValue = 0
  126.       ParentFont = False
  127.       ParentShowHint = False
  128.       ShowHint = True
  129.       TabOrder = 2
  130.       Value = 255
  131.     end
  132.     object Picbuf2: TPicbuf
  133.       Left = 14
  134.       Top = 180
  135.       Width = 144
  136.       Height = 106
  137.       ParentColor = False
  138.       TabOrder = 3
  139.       ControlData = {
  140.         00000100E20E0000F50A0000FD0000000008000080000000000023088FFB6401
  141.         1B1084ED08002B2EC713010100009001444201000D4D532053616E7320536572
  142.         6966000001000000000000000000000000000001000000000000010000000000
  143.         00000000000000000000000000FF000000000000000000000000010001000000
  144.         0001000A0000000000000000000000000000000000000000}
  145.     end
  146.   end
  147.   object Picbuf1: TPicbuf
  148.     Left = 14
  149.     Top = 15
  150.     Width = 279
  151.     Height = 295
  152.     Hint = 'Click on Image to Replace Color with Sample Swatch Color'
  153.     ParentColor = False
  154.     ParentShowHint = False
  155.     ShowHint = True
  156.     TabOrder = 0
  157.     OnMouseDown = Picbuf1MouseDown
  158.     ControlData = {
  159.       00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
  160.       CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
  161.       6966000001000000000000000000000000000001000000000000010000000000
  162.       00000000000000000000000000FF000000000000000000000000010001000000
  163.       0001000A0000000000000000000000000000000000000000}
  164.   end
  165.   object MainMenu1: TMainMenu
  166.     Left = 14
  167.     Top = 16
  168.     object File1: TMenuItem
  169.       Caption = 'File'
  170.       ShortCut = 0
  171.       object LoadImage: TMenuItem
  172.         Caption = 'Load Image'
  173.         ShortCut = 0
  174.         OnClick = LoadImageClick
  175.       end
  176.       object N1: TMenuItem
  177.         Caption = '-'
  178.         ShortCut = 0
  179.       end
  180.       object Exit: TMenuItem
  181.         Caption = 'Exit'
  182.         ShortCut = 16472
  183.         OnClick = ExitClick
  184.       end
  185.     end
  186.   end
  187.   object OpenDialog: TOpenDialog
  188.     FileEditStyle = fsEdit
  189.     Filter = 
  190.       '*.*|*.*|*.bmp|*.bmp|*.dib|*.dib|*.jpg|*.jpg|*.pcx|*.pcx|*.png|*.' +
  191.       'png|*.tga|*.tga|*.tif|*.tif'
  192.     Left = 44
  193.     Top = 16
  194.   end
  195. end
  196.