home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 302
- Top = 242
- BorderStyle = bsSingle
- Caption = 'Color Replace'
- ClientHeight = 327
- ClientWidth = 490
- Color = clSilver
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 5
- Top = 5
- Width = 479
- Height = 314
- Shape = bsFrame
- end
- object GroupBox1: TGroupBox
- Left = 305
- Top = 14
- Width = 171
- Height = 296
- Caption = ' Replacement Colour '
- TabOrder = 1
- object Color: TSpeedButton
- Left = 14
- Top = 131
- Width = 144
- Height = 38
- Hint = 'Show Selected values above within Swatch Sample Below'
- Caption = 'Test Color'
- Glyph.Data = {
- 10010000424D1001000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777CCCCCCCCCCCCCC77CEEEEEEEEEEEEC77CE1144433277EC77CE114443327
- 7EC77CE1144433277EC77CECC666999EEEC77CECC666999EEEC77CEAA2220004
- 4EC77CEAA22200044EC77CEAA22200044EC77CE99CCCBBBDDEC77CE99CCCBBBD
- DEC77CEEEEEEEEEEEEC77CCCCCCCCCCCCCC77777777777777777000000000000
- 0000000000000000000000000000000000000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = ColorClick
- end
- object Label1: TLabel
- Left = 21
- Top = 26
- Width = 29
- Height = 13
- Caption = 'Red:- '
- end
- object Label2: TLabel
- Left = 17
- Top = 62
- Width = 38
- Height = 13
- Caption = 'Green:- '
- end
- object Label3: TLabel
- Left = 18
- Top = 100
- Width = 30
- Height = 13
- Caption = 'Blue:- '
- end
- object RedVal: TSpinEdit
- Left = 90
- Top = 22
- Width = 67
- Height = 22
- Hint = 'Select Red Color Content'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 255
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Value = 0
- end
- object GreenVal: TSpinEdit
- Left = 90
- Top = 59
- Width = 67
- Height = 22
- Hint = 'Select Green Color Content'
- Color = clGreen
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 255
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Value = 0
- end
- object BlueVal: TSpinEdit
- Left = 90
- Top = 99
- Width = 67
- Height = 22
- Hint = 'Select Blue Color Content'
- Color = clBlue
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 255
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Value = 255
- end
- object Picbuf2: TPicbuf
- Left = 14
- Top = 180
- Width = 144
- Height = 106
- ParentColor = False
- TabOrder = 3
- ControlData = {
- 00000100E20E0000F50A0000FD0000000008000080000000000023088FFB6401
- 1B1084ED08002B2EC713010100009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- end
- object Picbuf1: TPicbuf
- Left = 14
- Top = 15
- Width = 279
- Height = 295
- Hint = 'Click on Image to Replace Color with Sample Swatch Color'
- ParentColor = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnMouseDown = Picbuf1MouseDown
- ControlData = {
- 00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
- CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- object MainMenu1: TMainMenu
- Left = 14
- Top = 16
- object File1: TMenuItem
- Caption = 'File'
- ShortCut = 0
- object LoadImage: TMenuItem
- Caption = 'Load Image'
- ShortCut = 0
- OnClick = LoadImageClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit: TMenuItem
- Caption = 'Exit'
- ShortCut = 16472
- OnClick = ExitClick
- end
- end
- end
- object OpenDialog: TOpenDialog
- FileEditStyle = fsEdit
- Filter =
- '*.*|*.*|*.bmp|*.bmp|*.dib|*.dib|*.jpg|*.jpg|*.pcx|*.pcx|*.png|*.' +
- 'png|*.tga|*.tga|*.tif|*.tif'
- Left = 44
- Top = 16
- end
- end
-