home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 320
- Top = 160
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Optimize Palette - Use 8 Bit Images Only'
- ClientHeight = 300
- ClientWidth = 586
- Color = clSilver
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 14
- object GroupBox3: TGroupBox
- Left = 392
- Top = 4
- Width = 187
- Height = 290
- Caption = ' Destination'
- TabOrder = 2
- object Optimize: TSpeedButton
- Left = 9
- Top = 214
- Width = 170
- Height = 34
- Hint = 'Map Destination Image to Optimised Palette based on all Images'
- Caption = 'Optimize Palette'#39's'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- OnClick = OptimizeClick
- end
- object Picbufdest: TPicbuf
- Left = 6
- Top = 16
- Width = 175
- Height = 190
- Hint = 'Destination Image - 8 Bit Images Only'
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- ControlData = {
- 00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
- CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- end
- object GroupBox2: TGroupBox
- Left = 199
- Top = 4
- Width = 187
- Height = 290
- Caption = ' Source 2 '
- TabOrder = 1
- object RemapSrc2: TSpeedButton
- Left = 9
- Top = 214
- Width = 170
- Height = 34
- Hint = 'Map Image in Source 2 to Destination Image'#39's Palette'
- Caption = 'Remap Palette to Destination'#39's'
- ParentShowHint = False
- ShowHint = True
- OnClick = RemapSrc2Click
- end
- object DitherSrc2: TSpeedButton
- Left = 9
- Top = 250
- Width = 170
- Height = 34
- Hint = 'Dither Image in Source 2 to Destination Image'#39's Palette'
- Caption = 'Dither Palette to Destination'#39's'
- ParentShowHint = False
- ShowHint = True
- OnClick = DitherSrc2Click
- end
- object Picbufsrc2: TPicbuf
- Left = 6
- Top = 17
- Width = 175
- Height = 190
- Hint = 'Source 2 Image - 8 Bit Images Only'
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- ControlData = {
- 00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
- CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- end
- object GroupBox1: TGroupBox
- Left = 6
- Top = 4
- Width = 187
- Height = 290
- Caption = ' Source 1 '
- TabOrder = 0
- object RemapSrc1: TSpeedButton
- Left = 9
- Top = 214
- Width = 170
- Height = 34
- Hint = 'Map Image in Source 1 to Destination Image'#39's Palette'
- Caption = 'Remap Palette to Destination'#39's'
- ParentShowHint = False
- ShowHint = True
- OnClick = RemapSrc1Click
- end
- object DitherSrc1: TSpeedButton
- Left = 9
- Top = 250
- Width = 170
- Height = 34
- Hint = 'Dither Image in Source 1 to Destination Image'#39's Palette'
- Caption = 'Dither Palette to Destination'#39's'
- ParentShowHint = False
- ShowHint = True
- OnClick = DitherSrc1Click
- end
- object Picbufsrc1: TPicbuf
- Left = 6
- Top = 16
- Width = 175
- Height = 190
- Hint = 'Source 1 Image - 8 Bit Images Only'
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- ControlData = {
- 00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
- CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- end
- object MainMenu1: TMainMenu
- Left = 42
- Top = 21
- object File1: TMenuItem
- Caption = 'File'
- ShortCut = 0
- object LoadSourceImage1: TMenuItem
- Caption = 'Load Source Image 1'
- ShortCut = 0
- OnClick = LoadImage
- end
- object LoadSourceImage2: TMenuItem
- Tag = 1
- Caption = 'Load Source Image 2'
- ShortCut = 0
- OnClick = LoadImage
- end
- object LoadDestinationImage: TMenuItem
- Tag = 2
- Caption = 'Load Destination Image'
- ShortCut = 0
- OnClick = LoadImage
- 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 =
- '*.TIF|*.tif|*.TGA|*.tga|*.BMP|*.bmp|*.GIF|*.gif|*.DIB|*.dib|*.PC' +
- 'X|*.pcx|*.JPG|*.jpg|*.MSP|*.msp|*.FIF|*.fif|*.PNG|*.png'
- Left = 14
- Top = 21
- end
- end
-