Browse CVS Repository
Contents of /autocoast/src/gui/MForm.dfm
 Parent Directory
|  Revision Log
|  Revision Graph
Revision 1.3 -
( show annotations)
( download)
Sat Nov 13 14:49:23 2004 UTC
(19 years, 5 months ago)
by tmurakam
Branch: MAIN
CVS Tags: v0_3, v0_2, HEAD
Changes since 1.2: +63 -8 lines
update
| 1 |
object MainForm: TMainForm |
| 2 |
Left = 192 |
| 3 |
Top = 114 |
| 4 |
Width = 731 |
| 5 |
Height = 614 |
| 6 |
Caption = 'AutoCoast' |
| 7 |
Color = clBtnFace |
| 8 |
Font.Charset = SHIFTJIS_CHARSET |
| 9 |
Font.Color = clWindowText |
| 10 |
Font.Height = -12 |
| 11 |
Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 |
| 12 |
Font.Style = [] |
| 13 |
Menu = MainMenu |
| 14 |
OldCreateOrder = False |
| 15 |
PixelsPerInch = 96 |
| 16 |
TextHeight = 12 |
| 17 |
object StatusBar: TStatusBar |
| 18 |
Left = 0 |
| 19 |
Top = 541 |
| 20 |
Width = 723 |
| 21 |
Height = 19 |
| 22 |
Panels = <> |
| 23 |
SimplePanel = True |
| 24 |
end |
| 25 |
object ScrollBox: TScrollBox |
| 26 |
Left = 0 |
| 27 |
Top = 29 |
| 28 |
Width = 723 |
| 29 |
Height = 512 |
| 30 |
HorzScrollBar.Tracking = True |
| 31 |
VertScrollBar.Tracking = True |
| 32 |
Align = alClient |
| 33 |
TabOrder = 1 |
| 34 |
object PaintBox: TPaintBox |
| 35 |
Left = 0 |
| 36 |
Top = 0 |
| 37 |
Width = 553 |
| 38 |
Height = 409 |
| 39 |
Color = clWhite |
| 40 |
ParentColor = False |
| 41 |
OnMouseDown = PaintBoxMouseDown |
| 42 |
OnMouseMove = PaintBoxMouseMove |
| 43 |
OnMouseUp = PaintBoxMouseUp |
| 44 |
OnPaint = PaintBoxPaint |
| 45 |
end |
| 46 |
end |
| 47 |
object ToolBar: TToolBar |
| 48 |
Left = 0 |
| 49 |
Top = 0 |
| 50 |
Width = 723 |
| 51 |
Height = 29 |
| 52 |
Caption = 'ToolBar' |
| 53 |
TabOrder = 2 |
| 54 |
object ToolButton5: TToolButton |
| 55 |
Left = 0 |
| 56 |
Top = 2 |
| 57 |
Width = 8 |
| 58 |
Caption = 'ToolButton5' |
| 59 |
ImageIndex = 3 |
| 60 |
Style = tbsSeparator |
| 61 |
end |
| 62 |
object ToolButton1: TToolButton |
| 63 |
Left = 8 |
| 64 |
Top = 2 |
| 65 |
Caption = 'ToolButton1' |
| 66 |
ImageIndex = 0 |
| 67 |
OnClick = LoadGSHHSdataClick |
| 68 |
end |
| 69 |
object ToolButton2: TToolButton |
| 70 |
Left = 31 |
| 71 |
Top = 2 |
| 72 |
Width = 8 |
| 73 |
Caption = 'ToolButton2' |
| 74 |
ImageIndex = 1 |
| 75 |
Style = tbsSeparator |
| 76 |
end |
| 77 |
object ToolButton3: TToolButton |
| 78 |
Left = 39 |
| 79 |
Top = 2 |
| 80 |
Caption = 'ToolButton3' |
| 81 |
ImageIndex = 1 |
| 82 |
OnClick = ZoomInClick |
| 83 |
end |
| 84 |
object ToolButton4: TToolButton |
| 85 |
Left = 62 |
| 86 |
Top = 2 |
| 87 |
Caption = 'ToolButton4' |
| 88 |
ImageIndex = 2 |
| 89 |
OnClick = ZoomOutClick |
| 90 |
end |
| 91 |
end |
| 92 |
object MainMenu: TMainMenu |
| 93 |
Left = 24 |
| 94 |
Top = 56 |
| 95 |
object FileF1: TMenuItem |
| 96 |
Caption = 'File(&F)' |
| 97 |
object LoadGSHHSdata: TMenuItem |
| 98 |
Caption = 'Load GSHHS data...' |
| 99 |
OnClick = LoadGSHHSdataClick |
| 100 |
end |
| 101 |
end |
| 102 |
object ViewV1: TMenuItem |
| 103 |
Caption = 'View(&V)' |
| 104 |
object ZoomIn: TMenuItem |
| 105 |
Caption = 'Zoom In' |
| 106 |
OnClick = ZoomInClick |
| 107 |
end |
| 108 |
object ZoomOut: TMenuItem |
| 109 |
Caption = 'Zoom Out' |
| 110 |
OnClick = ZoomOutClick |
| 111 |
end |
| 112 |
end |
| 113 |
end |
| 114 |
object OpenDialog: TOpenDialog |
| 115 |
Filter = 'GSHHS binary(*.b)|*.b|All Files(*.*)|*.*' |
| 116 |
Left = 64 |
| 117 |
Top = 48 |
| 118 |
end |
| 119 |
object Timer: TTimer |
| 120 |
Interval = 20 |
| 121 |
OnTimer = OnTimer |
| 122 |
Left = 112 |
| 123 |
Top = 56 |
| 124 |
end |
| 125 |
end |
| 
Parent Directory
Revision Log
Revision Graph