lazarus-ccr/components/lazmapviewer/examples/fulldemo/gpslistform.lfm

object GPSListViewer: TGPSListViewer
  Left = 282
  Height = 356
  Top = 135
  Width = 753
  Caption = 'GPS points'
  ClientHeight = 356
  ClientWidth = 753
  LCLVersion = '2.3.0.0'
  object ListView: TListView
    Left = 6
    Height = 312
    Top = 6
    Width = 741
    Align = alClient
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    Checkboxes = True
    Columns = <    
      item
        Caption = 'ID'
      end    
      item
        Caption = 'Name'
        Width = 150
      end    
      item
        Caption = 'Latitude'
        Width = 150
      end    
      item
        Caption = 'Longitude'
        Width = 150
      end>
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object Panel1: TPanel
    Left = 0
    Height = 38
    Top = 318
    Width = 753
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 38
    ClientWidth = 753
    TabOrder = 1
    object BtnDeletePoint: TBitBtn
      AnchorSideLeft.Control = BtnGoToPoint
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 118
      Height = 26
      Top = 6
      Width = 110
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Delete point'
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000002F2FE7433535D2FF2525D7450000000000000000000000002828
        E8412F2FD1FF2525D74500000000000000000000000000000000000000000000
        0000000000004141DEFF3838DBFF2F2FD4FF2626DD43000000002929EF402E2E
        DDFF2C2CD8FF2F2FD1FF00000000000000000000000000000000000000000000
        0000000000003F3FF1454040E5FF3636DEFF2D2DD9FF2929ED802A2AE3FF2B2B
        E5FF2E2EDDFF2828E84100000000000000000000000000000000000000000000
        000000000000000000003939F0433C3CE7FF3131E5FF2B2BE6FF2A2AE8FF2A2A
        E3FF2929EF400000000000000000000000000000000000000000000000000000
        00000000000000000000000000002B2BEF803131ECFF2C2CEBFF2B2BE6FF2929
        ED80000000000000000000000000000000000000000000000000000000000000
        000000000000000000002929EF403333ECFF2F2FEDFF3030ECFF3131E5FF2D2D
        D9FF2626DD430000000000000000000000000000000000000000000000000000
        0000000000003030EF413838E7FF3232EBFF3333ECFF2B2BEF803C3CE7FF3636
        DEFF2F2FD4FF2525D74500000000000000000000000000000000000000000000
        0000000000004242E5FF3D3DE9FF3838E7FF2929EF40000000003939F0434040
        E5FF3838DBFF3535D2FF00000000000000000000000000000000000000000000
        0000000000003F3FF1454242E5FF3030EF410000000000000000000000003F3F
        F1454141DEFF2F2FE74300000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000
      }
      OnClick = BtnDeletePointClick
      TabOrder = 0
    end
    object BtnGoToPoint: TBitBtn
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 6
      Height = 26
      Top = 6
      Width = 106
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Go to point'
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000000000000000
        000000000000000000000696F2DC0696F2500000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000069AF3A90694F2FF0697F18400000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000595F1350697F3FB05A2F4F50699F29E0080FF040000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000069BF3D802DBFBFF04B1F6F5059AF3C40099
        EE0F000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000595F26004B0F6F200FEFFFF03BFF8F70699
        F2DE0991EE1E0000000000000000000000000000000000000000000000000000
        0000000000000000000000000000008EFF090698F2F301F1FDFF00FFFFFF03CF
        F9FC0598F2EE0593F034000000000000000000000000000000000594F2620694
        F2FF0694F2FF0694F2FF0694F2FF0694F2FF0694F2FF02D4FAFF00FFFFFF00FF
        FFFF02DEFBFE0599F2F40696F2500000000000000000000000000080FF06059A
        F3C204BDF7F600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
        FFFF00FFFFFF01EBFDFF059DF4F50697F1840000000000000000000000000099
        E60A069AF3D203C7F8F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
        FFFF00FFFFFF00FFFFFF01F4FEFF05A5F5F40699F2A20099FF05000000000000
        00000099F2140699F3E203CFF9FC00FFFFFF00FFFFFF00FFFFFF05A0F4FB0694
        F2FF0694F2FF0694F2FF0694F2FF0694F2FF0694F2FF0594F262000000000000
        0000000000000992F61C0598F3E902D7FAFD00FFFFFF00FFFFFF01E5FCFF0599
        F2F40893F3420000000000000000000000000000000000000000000000000000
        000000000000000000000791F1250599F2EF02E0FBFF00FFFFFF00FFFFFF01E5
        FCFF0599F2F40893F34200000000000000000000000000000000000000000000
        00000000000000000000000000000595F1350699F2F401E5FCFF00FFFFFF00FF
        FFFF01E5FCFF0599F2F40893F342000000000000000000000000000000000000
        0000000000000000000000000000000000000893F3420599F3F501EBFDFF00FF
        FFFF00FFFFFF01E5FCFF0599F2F40893F3420000000000000000000000000000
        000000000000000000000000000000000000000000000695F3570695F2FE0694
        F2FF0694F2FF0694F2FF0694F2FF0695F2E50000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000
      }
      OnClick = BtnGoToPointClick
      TabOrder = 1
    end
    object BtnClose: TBitBtn
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Panel1
      AnchorSideRight.Side = asrBottom
      Left = 672
      Height = 26
      Top = 6
      Width = 75
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Close'
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000B6420000C1B40000CBD10000CDDD0000CBD10000
        C1B40000B6420000000000000000000000000000000000000000000000000000
        00000000BF040000BBA20000E0EE0000FFFF0000FFFF0000FFFF0000FFFF0000
        FFFF0000E0EE0000BBA20000BF04000000000000000000000000000000000000
        00000000BBA20000F2FC0000FFFF0000FCFF0000DFEF0000D2E10000E0EF0000
        FCFF0000FFFF0000F2FC0000BBA2000000000000000000000000000000000000
        B3430000E0EE0000FFFF0000EEF60000BFBB0000AE2C0000AA060000AA2D0000
        BFBB0000EEF70000FFFF0000DFEE0000B4410000000000000000000000000000
        C1B50000FFFF0000FCFF0000BFBA000000000000000000000000000000000000
        00000000BFBB0000FCFF0000FFFF0000C1B40000000000000000000000000000
        CBD20000FFFF0000DFEE0000AC2B000000000000000000000000000000000000
        00000000AA2D0000DFEF0000FFFF0000CBD20000000000000000000000000000
        CDDC0000FFFF0000D3E10000AA09000000000000000000000000000000000000
        00000000AA090000D3E20000FFFF0000CEDB0000000000000000000000000000
        CBCC0000FFFF0000E4F50000AC34000000000000B7E40000CEE00000B7E40000
        00000000AF360000E4F40000FFFF0000CBCC0000000000000000000000000000
        C0B30000FEFF0000FCFF0000BFBA000000000000CEE00000FFFF0000CEE00000
        00000000C0BA0000FCFF0000FEFF0000C0B10000000000000000000000000000
        B43A0000DFEE0000FFFF0000D2E30000B30A0000CEE00000FFFF0000CEE00000
        00000000CDDA0000FFFF0000DEEE0000B3390000000000000000000000000000
        00000000BC9B0000F1F90000D3E20000A20B0000CEE00000FFFF0000CEE00000
        00000000CDDA0000F0FB0000BD9B000000000000000000000000000000000000
        0000000080020000BC9F0000BBE90000A20B0000CEE00000FFFF0000CEE00000
        00000000B9E40000BC9B00008002000000000000000000000000000000000000
        000000000000000000000000AC34000080020000CEE00000FFFF0000CEE00000
        00000000AC2B0000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000CEE00000FFFF0000CEE00000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000B7E40000CEE00000B7E40000
        0000000000000000000000000000000000000000000000000000
      }
      OnClick = BtnCloseClick
      TabOrder = 2
    end
    object BtnCalcDistance: TButton
      AnchorSideLeft.Control = BtnDeletePoint
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 234
      Height = 25
      Top = 6
      Width = 203
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Calc distance between two points'
      OnClick = BtnCalcDistanceClick
      TabOrder = 3
    end
    object BtnSavePts: TButton
      AnchorSideLeft.Control = BtnCalcDistance
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 443
      Height = 25
      Top = 6
      Width = 86
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Save points'
      OnClick = BtnSavePtsClick
      TabOrder = 4
    end
    object BtnLoadTrack: TButton
      AnchorSideLeft.Control = BtnSavePts
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 535
      Height = 25
      Top = 6
      Width = 81
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Load track'
      OnClick = BtnLoadTrackClick
      TabOrder = 5
    end
  end
  object SaveDialog: TSaveDialog
    Title = 'Save gps points as'
    DefaultExt = '.*.gps'
    Filter = 'GPS points (*.gps)|*.gps|All files (*.*)|*.*'
    Left = 472
    Top = 256
  end
  object OpenDialog: TOpenDialog
    Title = 'Open gps points file'
    DefaultExt = '.gps'
    Filter = 'GPS files (*.gps)|*.gps|All files (*.*)|*.*'
    Left = 560
    Top = 256
  end
end