tatukgis, speichern und laden Layer-Eigenschaften

Question

Wenn jemand Erfahrungen mit TatukGIS Entwickler Kernel-Produkt haben, können Sie erklären, wie Sie Layer-Eigenschaften wie in ihrem kostenlosen TatukGIS Viewer-Produkt programmgesteuert speichern und laden?

Die Umgebung verwende ich waren Delphi 7 und BDS 2006

dank

bearbeiten, dieser Code nicht funktionieren:

 
var 
    lyrPeta: TGIS_LayerSHP; 
begin 
    MapPath:= ExtractFilePath(Application.ExeName) + '\maps\'; 
    lyrPeta:= TGIS_LayerSHP.Create; 
    lyrPeta.Path:= MapPath + 'jabodetabek'+'_asjalan.shp'; 
    lyrPeta.Name:= 'jabodetabek'+'_asjalan.shp'; 
    lyrPeta.IgnoreShapeParams:= True; 
    lyrPeta.UseConfig:= True; 
    lyrPeta.ConfigName:= MapPath + 'jalan.ini'; 
    lyrPeta.ReadConfig; 
    GIS_Viewer.Add(lyrPeta); 

Answer 1

Wir tun dies, wie unten in VB6. I denken Unser Code basierte ursprünglich auf this FAQ entry. Es makes das Tatuk-Steuerelement speichern Sie eine INI-Datei mit den Layer-Eigenschaften. Ich glaube, dass die Layer-Eigenschaften beim nächsten Start der App automatisch neu geladen werden. Wenn Sie nur eine Datei statt einer Datei pro Ebene möchten, können Sie eine TTKGP-Datei try.

With layer ' the layer is an XGIS_LayerVector ' 
    .StoreParamsInProject = False 
    .ConfigName = "c:\test\mylayer.ini" ' a separate INI file for each layer ' 
    .WriteConfig 
    .SaveAll 
End With 

EDIT: Und Laden wieder - ich denke, das ist nach die Schicht mit dem GIS-Steuerelement hinzugefügt wurde.

With layer ' the layer is an XGIS_LayerVector ' 
    .StoreParamsInProject = False 
    .ConfigName = "c:\test\mylayer.ini" ' a separate INI file for each layer ' 
    .RereadConfig 
End With 

IMHO die Tatuk Hilfe und Proben sind schwer zu verstehen, auch wenn das Produkt selbst ziemlich stark ist. Es lohnt sich, die forum für Tatuk Fragen auch auszuprobieren, obwohl Sie eine Support-Vereinbarung benötigen, um darauf zuzugreifen :(