INT FUNCTION ExitPageTrend(INT hAnTrend, INT TrendScNo)
INT i;
STRING sFile = "[Run]:\TREND_TK.INI";
WndPutFileProfile("Span_" + IntToStr(TrendScNo),"Span",IntToStr(TrnGetSpan(hAnTrend)), sFile);
FOR i = 1 TO 8 DO
WndPutFileProfile("Pen_" + IntToStr(TrendScNo), "Pen" + IntToStr(i), TrnGetPen(hAnTrend, i), sFile);
WndPutFileProfile("Pen_" + IntToStr(TrendScNo), "Scale_100_" + IntToStr(i), TrnGetScale(hAnTrend, i, 100), sFile);
WndPutFileProfile("Pen_" + IntToStr(TrendScNo), "Scale_000_" + IntToStr(i), TrnGetScale(hAnTrend, i, 0), sFile);
END
RETURN 0;
END
INT FUNCTION EntryPageTrend(INT hAnTrend, INT TrendScNo)
INT i,
iTemp;
STRING sFile = "[Run]:\TREND_TK.INI";
IF iFirstTime = 1 THEN
RETURN 0;
ELSE
iFirstTime = 1;
END
iTemp = StrToInt(WndGetFileProfile("Span_" + IntToStr(TrendScNo),"Span",0, sFile));
IF iTemp <> 0 THEN
TrnSetSpan(hAnTrend,iTemp);
END
FOR i = 1 TO 8 DO
TrnSetPen(hAnTrend, i, WndGetFileProfile("Pen_" + IntToStr(TrendScNo), "Pen" + IntToStr(i), "", sFile));
TrnSetScale(hAnTrend, i, 100, WndGetFileProfile("Pen_" + IntToStr(TrendScNo), "Scale_100_" + IntToStr(i), 32000, sFile) );
TrnSetScale(hAnTrend, i, 0 , WndGetFileProfile("Pen_" + IntToStr(TrendScNo), "Scale_000_" + IntToStr(i), 0, sFile));
END
RETURN 0;