tatukgis, save & load layer properties

Question

If someone have some experiences with TatukGIS developer kernel product, can you explain how to programmatically save and load layer properties like in their free TatukGIS viewer product?

The environment i use were Delphi 7 and BDS 2006

thanks

Edit, this code don't work:

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

We do this as below in VB6. I think our code was originally based on this FAQ entry. It makes the Tatuk control save an INI file with the layer properties. I believe it automatically reloads the layer properties when the app starts again. If you only want one file, rather than one file per layer, you could try a TTKGP file.

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: And loading again - I think this is after the layer has been added to the GIS control.

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 the Tatuk help and samples are hard to understand, although the product itself is pretty powerful. It's worth trying the forum for Tatuk questions as well, although you need a support agreement to access it :(