Procedure TFrameCCDiagrams.AddTabSheets;
Var j:Integer;
Begin
// destroy greeting message; overlapped by diagrams
{ // dec. 14
objectExists := (LabelNoDataLoaded is TLabel);
if objectExists then LabelNoDataLoaded.Free;
}
// setup array lengths, depending on no. of diff't temperatures
SetLength(TabSheetCCDiagramsArray, CD.nTemp);
SetLength(FrameCCDiagramArray, CD.nTemp);
// create and setup diagrams
For j:=0
To Pred(CD.nTemp)
Do Begin
// 1. create, setup tab sheet
TabSheetCCDiagramsArray[j] := TTabSheet.Create(self);
TabSheetCCDiagramsArray[j].Parent := PageControlCCDiagrams;
TabSheetCCDiagramsArray[j].PageControl := PageControlCCDiagrams;
TabSheetCCDiagramsArray[j].Caption := CD.TempStr(j);
TabSheetCCDiagramsArray[j].
Name := '
TabSheet'+IntToStr(j);
// 2. create, setup CC container frame
FrameCCDiagramArray[j] := TFrameCCDiagram.Create(Self);
FrameCCDiagramArray[j].Parent := TabSheetCCDiagramsArray[j];
FrameCCDiagramArray[j].
Name := '
CCFrame'+IntToStr(j);
FrameCCDiagramArray[j].Top := 10;
FrameCCDiagramArray[j].Left := 10;
FrameCCDiagramArray[j].Height := TabSheetCCDiagramsArray[j].Height-5;
FrameCCDiagramArray[j].Width := TabSheetCCDiagramsArray[j].Width -20;
FrameCCDiagramArray[j].TIndex := j;
// 3. create and setup diagrams within diagram container frames
FrameCCDiagramArray[j].CreateDiagram;
ShowData(j);
// immer zuerst logarithmisch darstellen
FrameCCDiagramArray[j].CCDiagram.AutoMinMax;
FrameCCDiagramArray[j].CCDiagram.GF3 := False;
FrameCCDiagramArray[j].CCDiagram.EpmLocked := False;
FrameCCDiagramArray[j].CCDiagram.F1mLocked := False;
FrameCCDiagramArray[j].CCDiagram.ValidResults := False;
FrameCCDiagramArray[j].CCDiagram.Busy := False;
FrameCCDiagramArray[j].CCDiagram.Abort := False;
End;
End;