object SavePicture: TSavePicture Left = 243 Top = 189 ActiveControl = OkBtn BorderStyle = bsDialog Caption = 'Save as file' ClientHeight = 211 ClientWidth = 306 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Label5: TLabel Left = 8 Top = 136 Width = 60 Height = 13 Caption = 'File name:' end object LegendCB: TCheckBox Left = 216 Top = 128 Width = 81 Height = 17 Alignment = taLeftJustify Caption = 'Add legend' State = cbChecked TabOrder = 2 end object FileNameEdit: TEdit Left = 8 Top = 152 Width = 265 Height = 21 TabOrder = 3 end object FileNameBtn: TButton Left = 280 Top = 152 Width = 17 Height = 21 Caption = '...' TabOrder = 4 OnClick = FileNameBtnClick end object OkBtn: TButton Left = 40 Top = 182 Width = 97 Height = 22 Caption = '&Ok' Default = True ModalResult = 1 TabOrder = 5 OnClick = OkBtnClick OnKeyDown = FormKeyDown end object ExitBtn: TButton Left = 166 Top = 182 Width = 99 Height = 22 Caption = '&Cancel' ModalResult = 2 TabOrder = 6 OnKeyDown = FormKeyDown end object Panel1: TPanel Left = 8 Top = 8 Width = 289 Height = 36 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 24 Top = 12 Width = 42 Height = 13 Caption = 'Width:' end object Label2: TLabel Left = 160 Top = 12 Width = 41 Height = 13 Caption = 'Height:' end object WidthEdit: TEdit Left = 80 Top = 8 Width = 41 Height = 21 MaxLength = 4 TabOrder = 0 OnExit = WidthEditExit end object HeightEdit: TEdit Left = 216 Top = 8 Width = 41 Height = 21 MaxLength = 4 TabOrder = 1 OnExit = HeightEditExit end end object Panel2: TPanel Left = 8 Top = 48 Width = 289 Height = 73 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label3: TLabel Left = 7 Top = 14 Width = 52 Height = 13 Caption = 'File type:' end object Label4: TLabel Left = 7 Top = 45 Width = 76 Height = 13 Caption = 'Color scheme:' end object FileTypeCB: TComboBox Left = 66 Top = 10 Width = 217 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(*.bmp) Windows or OS/2 Bitmap' '(*.gif) CompuServe Grpahics Interchange' '(*.wmf) Windows Meta File' '(*.emf) Windows Enhanced MetaFile') TabOrder = 0 OnChange = FileTypeCBChange end object ColorSchemeCB: TComboBox Left = 98 Top = 42 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 end end object SaveDialog: TSaveDialog FileEditStyle = fsEdit Left = 8 Top = 176 end end