1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
object FrmImage: TFrmImage
Left = 440
Height = 0
Top = 220
Width = 0
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'C-evo Map'
Color = clBlack
DesignTimePPI = 93
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'MS Sans Serif'
OnPaint = FormPaint
OnShow = FormOnShow
PopupMenu = PopupMenu1
Position = poDefault
LCLVersion = '2.2.2.0'
Scaled = False
object PopupMenu1: TPopupMenu
Left = 56
Top = 24
object SavetoJpeg: TMenuItem
Caption = 'Save as Jpeg'
Default = True
OnClick = SavetoJpegClick
end
end
object SDJpeg: TSaveDialog
DefaultExt = '.jpg'
Filter = 'Jpeg File|*.jpg'
Left = 24
Top = 56
end
end
|
