home *** CD-ROM | disk | FTP | other *** search
- object PalForm: TPalForm
- Left = 416
- Top = 229
- AutoScroll = False
- Caption = 'Palette Window'
- ClientHeight = 248
- ClientWidth = 291
- Ctl3D = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnMouseUp = FormMouseUp
- OnPaint = FormPaint
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 291
- Height = 248
- Align = alClient
- Visible = False
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 291
- Height = 248
- Lines.Strings = (
- 'True color Images Have no Palette, instead each element'
- 'or pixel dot contains red/green/blue quantities.'
- ''
- 'For 256 color images with palettes, you should be'
- 'in 256 color mode and then the program will create'
- '256 color bitmaps with palettes by default.'
- ''
- 'The same holds true for 16 colors.'
- ''
- 'This program was designed for True Color '
- 'and High Color use in 16, 24, or 32 bit color mode.'
- ''
- 'Use an image conversion program like Paint Shop Pro'
- 'to convert images to 256 color and 16 color.')
- TabOrder = 0
- Visible = False
- end
- object obut: TBitBtn
- Left = 88
- Top = 200
- Width = 75
- Height = 25
- TabOrder = 1
- Visible = False
- OnClick = obutClick
- Kind = bkOK
- end
- object MainMenu1: TMainMenu
- Left = 76
- Top = 8
- object File1: TMenuItem
- Caption = '&File'
- object Open1: TMenuItem
- Caption = '&Open Palette...'
- OnClick = Open1Click
- object PaintShopPro1: TMenuItem
- Caption = 'Paint Shop Pro...'
- OnClick = PaintShopPro1Click
- end
- object NeopPaint1: TMenuItem
- Caption = 'Neopaint...'
- OnClick = NeopPaint1Click
- end
- object Windows256color1: TMenuItem
- Caption = ' 256 color Logpalette...'
- OnClick = Windows256color1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object FromBMPFIle1: TMenuItem
- Caption = 'From BMP FIle'
- OnClick = FromBMPFIle1Click
- end
- end
- object SaveAs1: TMenuItem
- Caption = 'Save &As...'
- OnClick = SaveAs1Click
- object PaintShopPro2561: TMenuItem
- Caption = 'Paint Shop Pro 256...'
- OnClick = PaintShopPro2561Click
- end
- object N256ColorLogpalette1: TMenuItem
- Caption = '256 Color Logpalette...'
- OnClick = N256ColorLogpalette1Click
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- object UsePalette1: TMenuItem
- Caption = 'Use Palette'
- object ForPaintBook1: TMenuItem
- Caption = 'For Paint Book'
- OnClick = ForPaintBook1Click
- end
- end
- object Help1: TMenuItem
- Caption = 'Help'
- object PaletteHelp1: TMenuItem
- Caption = 'Palette Help'
- OnClick = PaletteHelp1Click
- end
- end
- end
- object OpenDlg: TOpenDialog
- FileName = 'GifWeb256.Pal'
- Filter = 'Palette Files (*.pal)|*.pal|All Files (*.*)|*.*'
- Title = 'Load Palette'
- Left = 20
- Top = 8
- end
- object SaveDlg: TSaveDialog
- DefaultExt = 'inc'
- Filter = 'Palette Files|*.PAL|All Files (*.*)|*.*'
- Title = 'Save Palette As Include'
- Left = 48
- Top = 8
- end
- object OpenPictureDialog1: TOpenPictureDialog
- DefaultExt = 'bmp'
- FileName = '*.bmp'
- Filter = 'Bitmaps|*.bmp'
- Left = 120
- Top = 8
- end
- end
-