1 object SaveMiniMapForm: TSaveMiniMapForm
2 Left = 362
3 Height = 225
4 Top = 299
5 Width = 431
6 Caption = 'Сохранить мини-карту'
7 ClientHeight = 225
8 ClientWidth = 431
9 Color = clBtnFace
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 OnActivate = FormActivate
14 Position = poScreenCenter
15 LCLVersion = '1.6.4.0'
16 object pbMiniMap: TPaintBox
17 Left = 185
18 Height = 225
19 Top = 0
20 Width = 246
21 Align = alClient
22 OnPaint = pbMiniMapPaint
23 end
24 object Panel1: TPanel
25 Left = 0
26 Height = 225
27 Top = 0
28 Width = 185
29 Align = alLeft
30 BevelOuter = bvNone
31 ClientHeight = 225
32 ClientWidth = 185
33 TabOrder = 0
34 object LabelScale: TLabel
35 Left = 4
36 Height = 13
37 Top = 10
38 Width = 49
39 Caption = 'Масштаб:'
40 ParentColor = False
41 end
42 object bSave: TButton
43 Left = 2
44 Height = 25
45 Top = 166
46 Width = 173
47 Anchors = [akLeft, akBottom]
48 Caption = 'Сохранить'
49 Default = True
50 OnClick = bSaveClick
51 TabOrder = 1
52 end
53 object cbScale: TComboBox
54 Left = 98
55 Height = 21
56 Top = 6
57 Width = 73
58 ItemHeight = 13
59 ItemIndex = 0
60 Items.Strings = (
61 '1/16'
62 '1/8'
63 )
64 OnChange = cbScaleChange
65 Style = csDropDownList
66 TabOrder = 0
67 Text = '1/16'
68 end
69 object bClose: TButton
70 Left = 2
71 Height = 25
72 Top = 196
73 Width = 173
74 Anchors = [akLeft, akBottom]
75 Cancel = True
76 Caption = 'Закрыть'
77 OnClick = bCloseClick
78 TabOrder = 2
79 end
80 end
81 object SaveDialog: TSaveDialog
82 DefaultExt = '.bmp'
83 Filter = 'BMP files (*.bmp)|*.bmp|All files (*.*)|*.*'
84 Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
85 left = 8
86 top = 48
87 end
88 end