天气图制作软件【美产，有锋线，可导入地图】【不知道放在什么地方又放在.net了】

fatcat916 · 发表于 2012-8-8 15:01:44

不语-承受发表于 2012-8-8 09:49

登录/注册后可看大图

看图标猜软件是什么开发的时代已经过去了，翻翻设置文件就发现一堆
xxxx.xxx.xx=xx
您觉得这不是.net和 ...

肯定是Delphi
这是主界面资源文件。

object Form1: TForm1
  Left = 263
  Top = 106
  Width = 696
  Height = 517
  Caption = 'Front Painter v2.0a'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
Left = 0
Top = 292
Width = 688
Height = 179
Align = alBottom
TabOrder = 0
object StatusText: TLabel
   Left = 12
   Top = 4
   Width = 17
   Height = 13
   Caption = 'Idle'
end
object ColdFront: TSpeedButton
   Left = 12
   Top = 28
   Width = 101
   Height = 25
   GroupIndex = 1
   Down = True
   Caption = 'Cold front'
   OnClick = ColdFrontClick
end
object WarmFront: TSpeedButton
   Left = 12
   Top = 56
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Warm front'
   OnClick = WarmFrontClick
end
object OccludedFront: TSpeedButton
   Left = 12
   Top = 84
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Occluded front'
   OnClick = OccludedFrontClick
end
object StationaryFront: TSpeedButton
   Left = 12
   Top = 112
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Stationary front'
   OnClick = StationaryFrontClick
end
object Trough: TSpeedButton
   Left = 120
   Top = 28
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Trough'
   OnClick = TroughClick
end
object Dryline: TSpeedButton
   Left = 120
   Top = 56
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Dryline'
   OnClick = DrylineClick
end
object Label333: TLabel
   Left = 12
   Top = 148
   Width = 288
   Height = 13
   Caption = 'Draw all features AWAY from cyclones for correct orientation.'
end
object Label7: TLabel
   Left = 12
   Top = 160
   Width = 385
   Height = 13
   Caption =
      'Stationary fronts are drawn with cold air behind and to RIGHT of' +
      ' line being drawn.'
end
object Label8: TLabel
   Left = 496
   Top = 4
   Width = 53
   Height = 13
   Caption = 'Map maker'
end
object LButton: TSpeedButton
   Left = 120
   Top = 84
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'L'
   OnClick = LButtonClick
end
object HButton: TSpeedButton
   Left = 120
   Top = 112
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'H'
   OnClick = HButtonClick
end
object Isopleth: TSpeedButton
   Left = 240
   Top = 28
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Isopleth ='
   OnClick = IsoplethClick
end
object TextButton: TSpeedButton
   Left = 240
   Top = 112
   Width = 101
   Height = 25
   GroupIndex = 1
   Caption = 'Text'
   OnClick = TextButtonClick
end
object Panel2: TPanel
   Left = 496
   Top = 20
   Width = 181
   Height = 129
   TabOrder = 0
   object Label1: TLabel
      Left = 12
      Top = 6
      Width = 38
      Height = 13
      Caption = 'Latitude'
   end
   object Label2: TLabel
      Left = 92
      Top = 6
      Width = 47
      Height = 13
      Caption = 'Longitude'
   end
   object Label3: TLabel
      Left = 12
      Top = 88
      Width = 27
      Height = 13
      Caption = 'Zoom'
   end
   object Label4: TLabel
      Left = 12
      Top = 48
      Width = 53
      Height = 13
      Caption = 'Chart width'
   end
   object Label5: TLabel
      Left = 76
      Top = 64
      Width = 5
      Height = 13
      Caption = 'x'
   end
   object Label6: TLabel
      Left = 92
      Top = 48
      Width = 57
      Height = 13
      Caption = 'Chart height'
   end
   object LatEdit: TEdit
      Left = 12
      Top = 20
      Width = 73
      Height = 21
      TabOrder = 0
      Text = 'LatEdit'
   end
   object LonEdit: TEdit
      Left = 92
      Top = 20
      Width = 73
      Height = 21
      TabOrder = 1
      Text = 'Edit1'
   end
   object ZoomEdit: TEdit
      Left = 12
      Top = 104
      Width = 73
      Height = 21
      TabOrder = 2
      Text = 'Edit1'
   end
   object XEdit: TEdit
      Left = 12
      Top = 61
      Width = 57
      Height = 21
      TabOrder = 3
      Text = 'XEdit'
   end
   object YEdit: TEdit
      Left = 92
      Top = 61
      Width = 73
      Height = 21
      TabOrder = 4
      Text = 'YEdit'
   end
   object GenerateButton: TButton
      Left = 92
      Top = 96
      Width = 75
      Height = 29
      Caption = '&Generate'
      TabOrder = 5
      OnClick = GenerateButtonClick
   end
end
object UndoButton: TButton
   Left = 376
   Top = 28
   Width = 85
   Height = 33
   Caption = 'Undo'
   TabOrder = 1
   OnClick = UndoButtonClick
end
object EraseButton: TButton
   Left = 376
   Top = 64
   Width = 85
   Height = 33
   Caption = 'Erase'
   TabOrder = 2
   OnClick = EraseButtonClick
end
object NewSegment: TButton
   Left = 376
   Top = 100
   Width = 85
   Height = 33
   Caption = 'New segment'
   TabOrder = 3
   OnClick = NewSegmentClick
end
object LineColor: TComboBox
   Left = 240
   Top = 60
   Width = 101
   Height = 21
   ItemHeight = 13
   TabOrder = 4
   Text = 'Black'
   Items.Strings = (
      'Black'
      'Green'
      'Red'
      'Yellow'
      'Blue')
end
object LineWidth: TComboBox
   Left = 240
   Top = 84
   Width = 101
   Height = 21
   ItemHeight = 13
   TabOrder = 5
   Text = '1 px'
   Items.Strings = (
      '1 px'
      '2 px'
      '3 px'
      '4 px'
      '5 px')
end
  end
  object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 688
Height = 292
Align = alClient
TabOrder = 1
object Image1: TImage
   Left = 0
   Top = 0
   Width = 401
   Height = 349
   OnMouseDown = Image1MouseDown
end
  end
  object MainMenu1: TMainMenu
Left = 434
Top = 14
object File1: TMenuItem
   Caption = '&File'
   object Preferences1: TMenuItem
      Caption = '&Preferences'
      ShortCut = 16464
      OnClick = Preferences1Click
   end
   object Exit1: TMenuItem
      Caption = 'E&xit'
      ShortCut = 16465
      OnClick = Exit1Click
   end
end
object Map1: TMenuItem
   Caption = '&Map'
   object CopyToClipboard: TMenuItem
      Caption = 'Copy to clipboard'
      ShortCut = 16451
      OnClick = CopyToClipboardClick
   end
   object N1: TMenuItem
      Caption = '-'
   end
   object Loadfromfile1: TMenuItem
      Caption = '&Load from file...'
      ShortCut = 16463
      OnClick = Loadfromfile1Click
   end
   object Savetofile1: TMenuItem
      Caption = '&Save to file...'
      ShortCut = 16467
      OnClick = Savetofile1Click
   end
end
object Help1: TMenuItem
   Caption = '&Help'
   object About1: TMenuItem
      Caption = '&About'
      OnClick = About1Click
   end
end
  end
  object OpenDialog1: TOpenDialog
Filter =
   'CompuServe GIF (*.gif)|*.gif|JPEG (*.jpg,*.jpeg)|*.jpg,*.jpeg|Wi' +
   'ndows bitmap (*.bmp)|*.bmp|All files|*.*'
Left = 538
Top = 38
  end
  object SaveDialog1: TSaveDialog
Filter =
   'CompuServe GIF (*.gif)|*.gif|JPEG (*.jpg)|*.jpg|Windows bitmap (' +
   '*.bmp)|*.bmp'
Left = 542
Top = 70
  end
end

fatcat916 · 发表于 2012-8-8 15:02:42

不语-承受发表于 2012-8-8 09:49

登录/注册后可看大图

看图标猜软件是什么开发的时代已经过去了，翻翻设置文件就发现一堆
xxxx.xxx.xx=xx
您觉得这不是.net和 ...

About窗体

object AboutForm: TAboutForm
  Left = 192
  Top = 107
  Width = 186
  Height = 169
  Caption = 'About'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
Left = 20
Top = 20
Width = 122
Height = 24
Caption = 'Front Painter'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
  end
  object Label2: TLabel
Left = 24
Top = 56
Width = 128
Height = 13
Caption = '(c) 2006 Weather Graphics'
  end
  object Label3: TLabel
Left = 24
Top = 72
Width = 101
Height = 13
Caption = 'weathergraphics.com'
  end
  object BitBtn1: TBitBtn
Left = 52
Top = 104
Width = 75
Height = 25
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkOK
  end
end

fatcat916 · 发表于 2012-8-8 15:03:43

不语-承受发表于 2012-8-8 09:49

登录/注册后可看大图

看图标猜软件是什么开发的时代已经过去了，翻翻设置文件就发现一堆
xxxx.xxx.xx=xx
您觉得这不是.net和 ...

配置窗体

object Pref: TPref
  Left = 192
  Top = 107
  Width = 576
  Height = 504
  Caption = 'Preferences'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
Left = 8
Top = 12
Width = 281
Height = 457
  end
  object Label1: TLabel
Left = 308
Top = 24
Width = 79
Height = 13
Caption = 'Graticule interval'
  end
  object Landmass: TLabel
Left = 20
Top = 176
Width = 48
Height = 13
Caption = 'Landmass'
  end
  object Ocean: TLabel
Left = 20
Top = 196
Width = 45
Height = 13
Caption = 'Ocean'
  end
  object LandmassColor: TShape
Left = 112
Top = 172
Width = 41
Height = 21
OnMouseDown = LandmassColorMouseDown
  end
  object OceanColor: TShape
Left = 112
Top = 192
Width = 41
Height = 21
OnMouseDown = OceanColorMouseDown
  end
  object GraticuleColor: TShape
Left = 112
Top = 232
Width = 41
Height = 21
OnMouseDown = GraticuleColorMouseDown
  end
  object InternationalColor: TShape
Left = 112
Top = 300
Width = 41
Height = 21
OnMouseDown = InternationalColorMouseDown
  end
  object StateColor: TShape
Left = 112
Top = 320
Width = 41
Height = 21
OnMouseDown = StateColorMouseDown
  end
  object LakeColor: TShape
Left = 112
Top = 380
Width = 41
Height = 21
OnMouseDown = LakeColorMouseDown
  end
  object IslandColor: TShape
Left = 112
Top = 400
Width = 41
Height = 21
OnMouseDown = IslandColorMouseDown
  end
  object RiverColor: TShape
Left = 112
Top = 420
Width = 41
Height = 21
OnMouseDown = RiverColorMouseDown
  end
  object CoastColor: TShape
Left = 112
Top = 440
Width = 41
Height = 21
OnMouseDown = CoastColorMouseDown
  end
  object Label2: TLabel
Left = 172
Top = 304
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label3: TLabel
Left = 172
Top = 324
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label4: TLabel
Left = 172
Top = 384
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label5: TLabel
Left = 172
Top = 404
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label6: TLabel
Left = 172
Top = 424
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label7: TLabel
Left = 172
Top = 444
Width = 48
Height = 13
Caption = 'Line width'
  end
  object BorderColor: TShape
Left = 112
Top = 256
Width = 41
Height = 21
OnMouseDown = BorderColorMouseDown
  end
  object Label8: TLabel
Left = 172
Top = 260
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Bevel2: TBevel
Left = 20
Top = 284
Width = 261
Height = 5
  end
  object Bevel3: TBevel
Left = 20
Top = 220
Width = 261
Height = 5
  end
  object Bevel4: TBevel
Left = 20
Top = 160
Width = 257
Height = 5
  end
  object Label444: TLabel
Left = 20
Top = 28
Width = 50
Height = 13
Caption = 'Cold fronts'
  end
  object Label10: TLabel
Left = 168
Top = 28
Width = 48
Height = 13
Caption = 'Line width'
  end
  object ColdColor: TShape
Left = 112
Top = 24
Width = 41
Height = 21
OnMouseDown = ColdColorMouseDown
  end
  object WarmColor: TShape
Left = 112
Top = 44
Width = 41
Height = 21
OnMouseDown = WarmColorMouseDown
  end
  object OccludedColor: TShape
Left = 112
Top = 64
Width = 41
Height = 21
OnMouseDown = OccludedColorMouseDown
  end
  object TroughColor: TShape
Left = 112
Top = 104
Width = 41
Height = 21
OnMouseDown = TroughColorMouseDown
  end
  object DrylineColor: TShape
Left = 112
Top = 124
Width = 41
Height = 21
OnMouseDown = DrylineColorMouseDown
  end
  object Label9: TLabel
Left = 20
Top = 48
Width = 57
Height = 13
Caption = 'Warm fronts'
  end
  object Label11: TLabel
Left = 20
Top = 68
Width = 75
Height = 13
Caption = 'Occluded fronts'
  end
  object Label12: TLabel
Left = 20
Top = 88
Width = 76
Height = 13
Caption = 'Stationary fronts'
  end
  object Label13: TLabel
Left = 20
Top = 108
Width = 39
Height = 13
Caption = 'Troughs'
  end
  object Label14: TLabel
Left = 20
Top = 128
Width = 37
Height = 13
Caption = 'Drylines'
  end
  object Label15: TLabel
Left = 168
Top = 48
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label16: TLabel
Left = 168
Top = 68
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label17: TLabel
Left = 168
Top = 88
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label18: TLabel
Left = 168
Top = 108
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label19: TLabel
Left = 168
Top = 128
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label20: TLabel
Left = 124
Top = 88
Width = 20
Height = 13
Caption = 'N/A'
  end
  object Label21: TLabel
Left = 448
Top = 24
Width = 18
Height = 13
Caption = 'deg'
  end
  object Label22: TLabel
Left = 308
Top = 88
Width = 89
Height = 13
Caption = 'JPEG compression'
  end
  object Label23: TLabel
Left = 460
Top = 88
Width = 8
Height = 13
Caption = '%'
  end
  object Label24: TLabel
Left = 328
Top = 108
Width = 191
Height = 13
Caption = '(0..100, 0=high quality, 100=poor quality)'
  end
  object CountyColor: TShape
Left = 112
Top = 340
Width = 41
Height = 21
OnMouseDown = CountyColorMouseDown
  end
  object HighwayColor: TShape
Left = 112
Top = 360
Width = 41
Height = 21
OnMouseDown = HighwayColorMouseDown
  end
  object Label25: TLabel
Left = 172
Top = 344
Width = 48
Height = 13
Caption = 'Line width'
  end
  object Label26: TLabel
Left = 172
Top = 364
Width = 48
Height = 13
Caption = 'Line width'
  end
  object GridSelect: TCheckBox
Left = 19
Top = 236
Width = 77
Height = 17
Caption = 'Graticule'
TabOrder = 0
  end
  object International: TCheckBox
Left = 19
Top = 304
Width = 81
Height = 17
Caption = 'International'
TabOrder = 1
  end
  object State: TCheckBox
Left = 19
Top = 324
Width = 77
Height = 17
Caption = 'State'
TabOrder = 2
  end
  object Lake: TCheckBox
Left = 19
Top = 384
Width = 77
Height = 17
Caption = 'Lake'
TabOrder = 3
  end
  object Island: TCheckBox
Left = 19
Top = 404
Width = 73
Height = 17
Caption = 'Island'
TabOrder = 4
  end
  object River: TCheckBox
Left = 19
Top = 424
Width = 73
Height = 17
Caption = 'River'
TabOrder = 5
  end
  object Coast: TCheckBox
Left = 19
Top = 444
Width = 73
Height = 17
Caption = 'Coast'
TabOrder = 6
  end
  object GraticuleType: TComboBox
Left = 172
Top = 232
Width = 112
Height = 21
ItemHeight = 13
TabOrder = 7
Text = 'GraticuleType'
Items.Strings = (
   'Line'
   'Dash'
   'Line'
   'Cross'
   'Mixed'
   'Dot')
  end
  object BitBtn1: TBitBtn
Left = 332
Top = 392
Width = 75
Height = 25
TabOrder = 8
OnClick = BitBtn1Click
Kind = bkOK
  end
  object BitBtn2: TBitBtn
Left = 424
Top = 392
Width = 75
Height = 25
TabOrder = 9
OnClick = BitBtn2Click
Kind = bkCancel
  end
  object GridInterval: TEdit
Left = 396
Top = 20
Width = 45
Height = 21
TabOrder = 10
Text = 'GridInterval'
  end
  object BehindLand: TCheckBox
Left = 308
Top = 48
Width = 221
Height = 17
Caption = 'Draw graticules only behind land masses'
TabOrder = 11
  end
  object InternationalWidth: TEdit
Left = 232
Top = 300
Width = 29
Height = 21
TabOrder = 12
Text = 'InternationalWidth'
  end
  object StateWidth: TEdit
Left = 232
Top = 320
Width = 29
Height = 21
TabOrder = 13
Text = 'Edit1'
  end
  object LakeWidth: TEdit
Left = 232
Top = 380
Width = 29
Height = 21
TabOrder = 14
Text = 'Edit1'
  end
  object IslandWidth: TEdit
Left = 232
Top = 400
Width = 29
Height = 21
TabOrder = 15
Text = 'Edit1'
  end
  object RiverWidth: TEdit
Left = 232
Top = 420
Width = 29
Height = 21
TabOrder = 16
Text = 'Edit1'
  end
  object CoastWidth: TEdit
Left = 232
Top = 440
Width = 29
Height = 21
TabOrder = 17
Text = 'Edit1'
  end
  object Border: TCheckBox
Left = 20
Top = 260
Width = 85
Height = 17
Caption = 'Chart border'
TabOrder = 18
  end
  object BorderWidth: TEdit
Left = 232
Top = 256
Width = 29
Height = 21
TabOrder = 19
Text = 'InternationalWidth'
  end
  object ColdWidth: TEdit
Left = 228
Top = 24
Width = 29
Height = 21
TabOrder = 20
Text = 'InternationalWidth'
  end
  object WarmWidth: TEdit
Left = 228
Top = 44
Width = 29
Height = 21
TabOrder = 21
Text = 'InternationalWidth'
  end
  object OccludedWidth: TEdit
Left = 228
Top = 64
Width = 29
Height = 21
TabOrder = 22
Text = 'InternationalWidth'
  end
  object StationaryWidth: TEdit
Left = 228
Top = 84
Width = 29
Height = 21
TabOrder = 23
Text = 'InternationalWidth'
  end
  object TroughWidth: TEdit
Left = 228
Top = 104
Width = 29
Height = 21
TabOrder = 24
Text = 'InternationalWidth'
  end
  object DrylineWidth: TEdit
Left = 228
Top = 124
Width = 29
Height = 21
TabOrder = 25
Text = 'InternationalWidth'
  end
  object JPEGComp: TEdit
Left = 416
Top = 84
Width = 37
Height = 21
TabOrder = 26
Text = 'JPEGComp'
  end
  object CountyWidth: TEdit
Left = 232
Top = 340
Width = 29
Height = 21
TabOrder = 27
Text = 'CountyWidth'
  end
  object HighwayWidth: TEdit
Left = 232
Top = 360
Width = 29
Height = 21
TabOrder = 28
Text = 'Edit1'
  end
  object County: TCheckBox
Left = 19
Top = 344
Width = 77
Height = 17
Caption = 'County'
TabOrder = 29
  end
  object Highway: TCheckBox
Left = 19
Top = 364
Width = 77
Height = 17
Caption = 'Highway'
TabOrder = 30
  end
  object ColorDialog1: TColorDialog
Ctl3D = True
Left = 372
Top = 304
  end
end

不语-承受 · 发表于 2012-8-9 10:14:43

fatcat916 发表于 2012-8-8 15:03

登录/注册后可看大图

配置窗体

速度好快，做个汉化版呗~

我暂时没时间搞这个汉化

fatcat916 · 发表于 2012-8-9 15:06:10

本帖最后由 fatcat916 于 2012-8-9 15:09 编辑

不语-承受发表于 2012-8-9 10:14

登录/注册后可看大图

速度好快，做个汉化版呗~我暂时没时间搞这个汉化

		自动登录	找回密码
密码			立即注册