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