home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / Chip_2004-03_cd1.bin / tema / siggis / siGGis.exe / 0 / RCDATA / TVIEWMAP / TVIEWMAP.txt < prev   
Text File  |  2002-02-12  |  7KB  |  330 lines
  1. object ViewMap: TViewMap
  2.   Left = 285
  3.   Top = 105
  4.   Width = 561
  5.   Height = 458
  6.   Caption = 'ViewMap'
  7.   Color = clWhite
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   Position = poScreenCenter
  14.   Visible = True
  15.   OnActivate = FormActivate
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   OnHide = FormHide
  19.   OnKeyDown = FormKeyDown
  20.   OnMouseDown = FormMouseDown
  21.   OnMouseMove = FormMouseMove
  22.   OnMouseUp = FormMouseUp
  23.   OnPaint = FormPaint
  24.   OnResize = FormResize
  25.   OnShow = FormShow
  26.   PixelsPerInch = 96
  27.   TextHeight = 13
  28.   object BI: TBevel
  29.     Left = 24
  30.     Top = 48
  31.     Width = 25
  32.     Height = 26
  33.     Shape = bsFrame
  34.     Style = bsRaised
  35.     Visible = False
  36.   end
  37.   object SBTools: TSpeedButton
  38.     Left = 0
  39.     Top = 0
  40.     Width = 17
  41.     Height = 17
  42.     Caption = '∩┐╜'
  43.     Font.Color = clRed
  44.     Font.Height = -16
  45.     Font.Name = 'Wingdings'
  46.     Font.Style = []
  47.     ParentFont = False
  48.     OnClick = SBToolsClick
  49.   end
  50.   object GeoLabel: TPanel
  51.     Left = 232
  52.     Top = 32
  53.     Width = 185
  54.     Height = 17
  55.     BevelOuter = bvLowered
  56.     Enabled = False
  57.     Caption = 'GeoLabel'
  58.     Color = clSilver
  59.     TabOrder = 0
  60.     Visible = False
  61.   end
  62.   object SH: TStretchHandle
  63.     Left = 24
  64.     Top = 24
  65.     Width = 24
  66.     Height = 24
  67.     Enabled = False
  68.     Visible = False
  69.     OnDblClick = SHDblClick
  70.   end
  71.   object PButtons: TPanel
  72.     Left = 0
  73.     Top = 17
  74.     Width = 18
  75.     Height = 244
  76.     BevelOuter = bvNone
  77.     Color = clNone
  78.     TabOrder = 2
  79.     object SBPlus: TSpeedButton
  80.       Left = 0
  81.       Top = 1
  82.       Width = 19
  83.       Height = 17
  84.       Hint = 'Zoom In'
  85.       Caption = '+'
  86.       Font.Color = clBlack
  87.       Font.Height = -11
  88.       Font.Name = 'Symbol'
  89.       Font.Style = [fsBold]
  90.       ParentFont = False
  91.       ParentShowHint = False
  92.       ShowHint = True
  93.       OnClick = SBPlusClick
  94.     end
  95.     object SBminus: TSpeedButton
  96.       Left = 0
  97.       Top = 17
  98.       Width = 19
  99.       Height = 17
  100.       Hint = 'Zoom Out'
  101.       Caption = '-'
  102.       Font.Color = clBlack
  103.       Font.Height = -13
  104.       Font.Name = 'Symbol'
  105.       Font.Style = [fsBold]
  106.       ParentFont = False
  107.       ParentShowHint = False
  108.       ShowHint = True
  109.       OnClick = SBminusClick
  110.     end
  111.     object SBReset: TSpeedButton
  112.       Left = 0
  113.       Top = 33
  114.       Width = 19
  115.       Height = 17
  116.       Hint = 'Full Map'
  117.       Caption = '∩┐╜'
  118.       Font.Color = clBlack
  119.       Font.Height = -16
  120.       Font.Name = 'Wingdings'
  121.       Font.Style = []
  122.       ParentFont = False
  123.       ParentShowHint = False
  124.       ShowHint = True
  125.       OnClick = SBResetClick
  126.     end
  127.     object SBLSet: TSpeedButton
  128.       Left = 0
  129.       Top = 55
  130.       Width = 19
  131.       Height = 19
  132.       Hint = 'Set layer'
  133.       Caption = '@'
  134.       Font.Color = clBlack
  135.       Font.Height = -16
  136.       Font.Name = 'Webdings'
  137.       Font.Style = []
  138.       ParentFont = False
  139.       ParentShowHint = False
  140.       ShowHint = True
  141.       OnClick = SBLSetClick
  142.     end
  143.     object SBSel: TSpeedButton
  144.       Left = 0
  145.       Top = 74
  146.       Width = 19
  147.       Height = 19
  148.       Hint = 'Select layers,geoObjects'
  149.       Caption = 'F'
  150.       Font.Color = clBlack
  151.       Font.Height = -15
  152.       Font.Name = 'Webdings'
  153.       Font.Style = []
  154.       ParentFont = False
  155.       ParentShowHint = False
  156.       ShowHint = True
  157.       OnClick = SBSelClick
  158.     end
  159.     object SBLbl: TSpeedButton
  160.       Left = 0
  161.       Top = 93
  162.       Width = 19
  163.       Height = 19
  164.       Hint = 'Label info/draw/hide'
  165.       Caption = '∩┐╜'
  166.       Font.Color = clBlack
  167.       Font.Height = -16
  168.       Font.Name = 'Webdings'
  169.       Font.Style = []
  170.       ParentFont = False
  171.       ParentShowHint = False
  172.       ShowHint = True
  173.       OnClick = SBLblClick
  174.     end
  175.     object SBProj: TSpeedButton
  176.       Left = 0
  177.       Top = 138
  178.       Width = 19
  179.       Height = 20
  180.       Hint = 'Save GeoProject'
  181.       Caption = 'C'
  182.       Font.Color = clBlack
  183.       Font.Height = -19
  184.       Font.Name = 'Webdings'
  185.       Font.Style = []
  186.       ParentFont = False
  187.       ParentShowHint = False
  188.       ShowHint = True
  189.       OnClick = SBProjClick
  190.     end
  191.     object SBEvnt: TSpeedButton
  192.       Left = 0
  193.       Top = 158
  194.       Width = 19
  195.       Height = 20
  196.       Hint = 'Save GeoProject Monitor'
  197.       Caption = '`'
  198.       Font.Color = clBlack
  199.       Font.Height = -19
  200.       Font.Name = 'Webdings'
  201.       Font.Style = []
  202.       ParentFont = False
  203.       ParentShowHint = False
  204.       ShowHint = True
  205.       OnClick = SBEvntClick
  206.     end
  207.     object SBApl: TSpeedButton
  208.       Left = 0
  209.       Top = 118
  210.       Width = 19
  211.       Height = 20
  212.       Hint = 'Make applet cfg.File'
  213.       Caption = '"'
  214.       Font.Color = clBlack
  215.       Font.Height = -19
  216.       Font.Name = 'Webdings'
  217.       Font.Style = []
  218.       ParentFont = False
  219.       ParentShowHint = False
  220.       ShowHint = True
  221.       OnClick = SBAplClick
  222.     end
  223.     object SBAplS: TSpeedButton
  224.       Left = 0
  225.       Top = 184
  226.       Width = 19
  227.       Height = 20
  228.       Hint = 'Make applet cfg.File'
  229.       Caption = '"'
  230.       Font.Color = clPurple
  231.       Font.Height = -19
  232.       Font.Name = 'Webdings'
  233.       Font.Style = []
  234.       ParentFont = False
  235.       ParentShowHint = False
  236.       ShowHint = True
  237.       OnClick = SBAplSClick
  238.     end
  239.     object SBProjS: TSpeedButton
  240.       Left = 0
  241.       Top = 204
  242.       Width = 19
  243.       Height = 20
  244.       Hint = 'Save GeoProject'
  245.       Caption = 'C'
  246.       Font.Color = clPurple
  247.       Font.Height = -19
  248.       Font.Name = 'Webdings'
  249.       Font.Style = []
  250.       ParentFont = False
  251.       ParentShowHint = False
  252.       ShowHint = True
  253.       OnClick = SBProjSClick
  254.     end
  255.     object SBEventS: TSpeedButton
  256.       Left = 0
  257.       Top = 224
  258.       Width = 19
  259.       Height = 20
  260.       Hint = 'Save GeoProject Monitor'
  261.       Caption = '`'
  262.       Font.Color = clPurple
  263.       Font.Height = -19
  264.       Font.Name = 'Webdings'
  265.       Font.Style = []
  266.       ParentFont = False
  267.       ParentShowHint = False
  268.       ShowHint = True
  269.       OnClick = SBEventSClick
  270.     end
  271.   end
  272.   object PTools: TPanel
  273.     Left = 18
  274.     Top = 0
  275.     Width = 61
  276.     Height = 18
  277.     BevelOuter = bvNone
  278.     Color = clNone
  279.     TabOrder = 3
  280.     object SBImage: TSpeedButton
  281.       Left = 1
  282.       Top = 0
  283.       Width = 20
  284.       Height = 18
  285.       Hint = 'Image resize, move  (FotoMap)'
  286.       Caption = '∩┐╜'
  287.       Font.Color = clBlack
  288.       Font.Height = -15
  289.       Font.Name = 'Webdings'
  290.       Font.Style = []
  291.       ParentFont = False
  292.       ParentShowHint = False
  293.       ShowHint = True
  294.       OnClick = SBImageClick
  295.     end
  296.     object SBDigi: TSpeedButton
  297.       Left = 20
  298.       Top = 0
  299.       Width = 22
  300.       Height = 18
  301.       Hint = 'Digitize GeoObject'
  302.       Caption = '8'
  303.       Font.Color = clBlack
  304.       Font.Height = -19
  305.       Font.Name = 'Wingdings'
  306.       Font.Style = []
  307.       ParentFont = False
  308.       ParentShowHint = False
  309.       ShowHint = True
  310.       OnClick = SBDigiClick
  311.     end
  312.     object SBProp: TSpeedButton
  313.       Left = 41
  314.       Top = 0
  315.       Width = 20
  316.       Height = 18
  317.       Hint = 'Map Extent '
  318.       Caption = '2'
  319.       Font.Color = clBlack
  320.       Font.Height = -17
  321.       Font.Name = 'Webdings'
  322.       Font.Style = []
  323.       ParentFont = False
  324.       ParentShowHint = False
  325.       ShowHint = True
  326.       OnClick = SBPropClick
  327.     end
  328.   end
  329. end
  330.