| sFilter | (String) Określa, które z właściwości przeglądarki zostaną zapisane do danych konfiguracyjnych.
Poszczególne wartości można łączyć. Przykład: "View;Trends;TimeMinMax;". "View;" - Zapisz wygląd przeglądarki poza obiektami tvTrend i poza czasami lewej i prawej krawędzi czasu przeglądarki.
"Trends;" - Zapisz tylko konfigurację obiektów tvTrend bez punktów danych
"TrendsNoConnect;" - Zapisz tylko konfigurację obiektów tvTrend bez punktów danych i bez parametrów połączenia. Parametry podłączenia określają właściwości ConnectionType, ConnectionServer, ConnectionGroup oraz ConnectionItem obiektu tvTrend. Opcja ta jest odpowiednia do wytwarzania pliku konfiguracyjnego do druku. Notatka! Jeżeli niektóra właściwość trendu, (na przykład tvTrend.Name, tvTrend.Unit, tvTrend.ValueMin, tvTrend.ValueMax lub tvGraph.Color), zawiera znacznik $default (oznaczający odczytanie wartości z serwera), wtedy znacznik ten zostanie zastąpiony przez rzeczywiście odczytaną wartość (bez podłączenia nie można jej odczytać).
"TrendsData;" - Zapisz tylko punkty danych obiektu tvTrend w bieżącej chwili wczytane przez przeglądarkę bez konfiguracji tego obiektu. Opcja ta jest odpowiednia do wytwarzania pliku konfiguracyjnego do druku.
"TimeMinMax;" - Zapisz czas lewej i prawej krawędzi przeglądarki.
"TimeZoom;" - Zapisz tylko długość osi czasu przeglądarki. |
|---|---|
| sCfgTitle | (String) Użytkownikiem okeślona nazwa konfiguracji. Zostanie zapisana do danych odczytu (tag <cfgtitle>). Jeżeli konfiguracja zostanie później wyświetlona w liście konfiguracji (przy pomocy metody LoadCfg), wtedy w liście zostanie wyświetlona również ta nazwa użytkownika konfiguracji. Pusty łańcuch ("") oznacza, że konfiguracja nie posiada nazwy użytkownika. |
var oTView = pMe.Items("../AxTrendsView");
var sCfg = oTView.GetCfg("Trends;TimeZoom;", "");
if (Pm.IsValid(sCfg))
{
if (pMe.PmPanel.Methods.SaveTrendCfg("SaveCfg.tg", sCfg))
{
Pm.MessageBox("Message OK", "Configuration file saved");
}
else
{
Pm.MessageBox("Message Error", "Configuration file NOT saved");
}
}
If pContext.User.TestInGroup("$ADMIN") Then
pResult = Pm.FileTextWrite("#cfg:" & sFile, sCfg, "mode:new;charset:utf-8;")
Else
pResult = false
End If