Отправлено =AK= 17 января 2005 г. 14:34 В ответ на: Есть такое дело... отправлено =AK= 17 января 2005 г. 13:41

object Form1: TForm1
Left = 257
Top = 112
Width = 336
Height = 235
Caption = 'Bitmap Compressor'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 328
Height = 170
Align = alClient
Caption = 'No bitmap loaded'
TabOrder = 0
object Image1: TImage
Left = 2
Top = 15
Width = 324
Height = 153
Hint = 'Double click to inver picture'
Align = alClient
ParentShowHint = False
ShowHint = True
OnDblClick = Image1DblClick
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 170
Width = 328
Height = 19
Panels = <>
SimplePanel = True
end
object MainMenu1: TMainMenu
Left = 144
Top = 24
object File1: TMenuItem
Caption = 'File'
object Open1: TMenuItem
Caption = 'Open'
OnClick = Open1Click
end
object SaveCompressed1: TMenuItem
Caption = 'Save'
OnClick = SaveCompressed1Click
end
object SaveAs1: TMenuItem
Caption = 'Save As'
OnClick = SaveAs1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
end
object OpenPictureDialog1: TOpenPictureDialog
Filter = 'Bitmaps (*.bmp)|*.bmp|All files|*.*'
InitialDir = '.\Bitmaps'
Left = 144
Top = 56
end
object SaveDialog1: TSaveDialog
Filter = 'Compressed bitmap .bmc|*.bmc|All files|*.*'
InitialDir = '.'
Title = 'Save converted file as'
Left = 192
Top = 56
end
end