index f540395c8deddbc7b08f3b364f22e9c2367a9bbb..f7bb23703b23fde359fc8b0030d0c3ac58788b6f 100644 (file)
object SaveMiniMapForm: TSaveMiniMapForm
Left = 362
+ Height = 225
Top = 299
Width = 431
- Height = 225
Caption = 'Сохранить мини-карту'
+ ClientHeight = 225
+ ClientWidth = 431
Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
OnActivate = FormActivate
- PixelsPerInch = 96
+ Position = poScreenCenter
+ LCLVersion = '1.6.4.0'
object pbMiniMap: TPaintBox
Left = 185
+ Height = 225
Top = 0
- Width = 230
- Height = 187
+ Width = 246
Align = alClient
OnPaint = pbMiniMapPaint
end
object Panel1: TPanel
Left = 0
+ Height = 225
Top = 0
Width = 185
- Height = 187
Align = alLeft
BevelOuter = bvNone
+ ClientHeight = 225
+ ClientWidth = 185
TabOrder = 0
object LabelScale: TLabel
Left = 4
+ Height = 13
Top = 10
Width = 49
- Height = 13
Caption = 'Масштаб:'
+ ParentColor = False
end
object bSave: TButton
Left = 2
- Top = 128
- Width = 173
Height = 25
+ Top = 166
+ Width = 173
Anchors = [akLeft, akBottom]
Caption = 'Сохранить'
Default = True
- TabOrder = 1
OnClick = bSaveClick
+ TabOrder = 1
end
object cbScale: TComboBox
Left = 98
+ Height = 21
Top = 6
Width = 73
- Height = 21
- Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
- TabOrder = 0
- Text = '1/16'
- OnChange = cbScaleChange
Items.Strings = (
'1/16'
- '1/8')
+ '1/8'
+ )
+ OnChange = cbScaleChange
+ Style = csDropDownList
+ TabOrder = 0
+ Text = '1/16'
end
object bClose: TButton
Left = 2
- Top = 158
- Width = 173
Height = 25
+ Top = 196
+ Width = 173
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Закрыть'
- TabOrder = 2
OnClick = bCloseClick
+ TabOrder = 2
end
end
object SaveDialog: TSaveDialog
DefaultExt = '.bmp'
Filter = 'BMP files (*.bmp)|*.bmp|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
- Left = 8
- Top = 48
+ left = 8
+ top = 48
end
end