Procedure

TfrmGraphSettings.GetTypeList

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphSettings

Declaration

procedure GetTypeList(aList: TStrings);

Called-By Hierarchy


          TfrmGraphSettings.GetTypeList
                  DialogGraphSettings┘ 
         DialogOptionsGraphSettings┤   
TfrmOptions.btnGraphSettingsClick┘ │   
  TfrmGraphs.btnChangeSettingsClick┘   
   TfrmReports.btnChangeViewClick┘     

Called-By

Name Declaration Comments
DialogGraphSettings procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean; aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string); -


Source

403   procedure TfrmGraphSettings.GetTypeList(aList: TStrings);
404   var
405     i : integer;
406     dfntype, listline : string;
407   begin
408     FastAssign(GtslAllTypes, aList);
409     for i := 0 to aList.Count -1 do
410     begin
411       listline := aList[i];
412       dfntype := UpperCase(Piece(listline, '^', 1));
413       SetPiece(listline, '^', 1, dfntype);
414       aList[i] := listline;
415     end;
416   end;