Procedure

TfrmGraphs.GetSize

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure GetSize;

Calls Hierarchy


TfrmGraphs.GetSize
 ├rpcGetGraphSizing
 │ └onoff
 └Layout
   ├TfrmGraphs.splItemsTopMoved
   ├TfrmGraphs.chkDualViewsClick
   │ ├TfrmGraphs.lvwItemsTopClick
   │ │ ├GraphTurboOn
   │ │ ├TfrmGraphs.Switch
   │ │ │ ├rpcFastItems
   │ │ │ │ └onoff
   │ │ │ ├rpcFastData
   │ │ │ │ └onoff
   │ │ │ ├rpcFastLabs
   │ │ │ │ └onoff
   │ │ │ └TfrmGraphs.FastLab
   │ │ │   └TfrmGraphs.SaveTestData
   │ │ │     ├TfrmGraphs.ItemName
   │ │ │     └TfrmGraphs.LabData
   │ │ │       ├rpcGetItemData
   │ │ │       │ └onoff
   │ │ │       ├TfrmGraphs.SpecRefCheck
   │ │ │       │ └TfrmGraphs.RefUnits
   │ │ │       │   └TfrmGraphs.SelectRef
   │ │ │       │     └CheckRef
   │ │ │       ├TfrmGraphs.SpecRefSet
   │ │ │       │ └MultiRef
   │ │ │       ├TfrmGraphs.FileNameX
   │ │ │       ├TfrmGraphs.LabCheck
   │ │ │       ├TfrmGraphs.DateRangeMultiItems
   │ │ │       └TfrmGraphs.LabAdd
   │ │ └TfrmGraphs.ItemsClick
   │ │   ├TfrmGraphs.CheckExpandedLabs
   │ │   │ └TfrmGraphs.cboDateRangeChange
   │ │   │   ├TfrmGraphs.SelCopy
   │ │   │   ├TfrmGraphs.HideGraphs
   │ │   │   ├TfrmGraphs.DateSteps
   │ │   │   ├TfrmGraphs.FilterListView
   │ │   │   │ ├TfrmGraphs.TypeIsDisplayed
   │ │   │   │ ├TfrmGraphs.DateRangeItems
   │ │   │   │ │ ├rpcDateItem
   │ │   │   │ │ │ └onoff
   │ │   │   │ │ ├TfrmGraphs.FileNameX
   │ │   │   │ │ ├TfrmGraphs.UpdateView
   │ │   │   │ │ └TfrmGraphs.DateRangeMultiItems
   │ │   │   │ ├TfrmGraphs.FileNameX
   │ │   │   │ ├TfrmGraphs.UpdateView
   │ │   │   │ └TfrmGraphs.SortListView
   │ │   │   │   ├TfrmGraphs.lvwItemsTopColumnClick
   │ │   │   │   ├TfrmGraphs.lvwItemsBottomColumnClick
   │ │   │   │   └TfrmGraphs.AssignProfile
   │ │   │   │     └TfrmGraphs.SetProfile
   │ │   │   │       └TfrmGraphs.ProfileName
   │ │   │   │         └TfrmGraphs.DCName
   │ │   │   │           └rpcClass
   │ │   │   │             └onoff
   │ │   │   ├TfrmGraphs.SelReset
   │ │   │   ├TfrmGraphs.DisplayData
   │ │   │   │ ├TfrmGraphs.SetFontSize
   │ │   │   │ ├TfrmGraphs.ItemsClick...
   │ │   │   │ ├TfrmGraphs.MakeSeparate
   │ │   │   │ │ ├TfrmGraphs.chartBaseMouseMove
   │ │   │   │ │ │ └TfrmGraphs.InactivateHint
   │ │   │   │ │ ├TfrmGraphs.MakeSeparateItems
   │ │   │   │ │ │ ├TfrmGraphs.GraphTypeNum
   │ │   │   │ │ │ ├TfrmGraphs.TitleInfo
   │ │   │   │ │ │ │ └TfrmGraphs.RefUnits...
   │ │   │   │ │ │ ├TfrmGraphs.MakeChart
   │ │   │   │ │ │ │ ├TfrmGraphs.HideDates
   │ │   │   │ │ │ │ ├TfrmGraphs.ChartOnZoom
   │ │   │   │ │ │ │ │ ├TfrmGraphs.SizeDates
   │ │   │   │ │ │ │ │ │ ├TfrmGraphs.GraphFooter
   │ │   │   │ │ │ │ │ │ └TfrmGraphs.SeriesForLabels
   │ │   │   │ │ │ │ │ └TfrmGraphs.ZoomUpdateInfo
   │ │   │   │ │ │ │ │   ├TfrmGraphs.InfoMessage
   │ │   │   │ │ │ │ │   └TfrmGraphs.MergedLabsSelected
   │ │   │   │ │ │ │ ├TfrmGraphs.ChartOnUndoZoom
   │ │   │   │ │ │ │ │ ├TfrmGraphs.SizeDates...
   │ │   │   │ │ │ │ │ ├TfrmGraphs.InfoMessage
   │ │   │   │ │ │ │ │ └TfrmGraphs.MergedLabsSelected
   │ │   │   │ │ │ │ ├TfrmGraphs.chartBaseClickSeries
   │ │   │   │ │ │ │ │ ├TfrmGraphs.InactivateHint
   │ │   │   │ │ │ │ │ └TfrmGraphs.SeriesClicks
   │ │   │   │ │ │ │ │   ├TfrmGraphs.ValueText
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.NonNumText
   │ │   │   │ │ │ │ │   │ │ ├TfrmGraphs.FileNameX
   │ │   │   │ │ │ │ │   │ │ ├TfrmGraphs.ItemName
   │ │   │   │ │ │ │ │   │ │ └TfrmGraphs.SetRefNonNum
   │ │   │   │ │ │ │ │   │ │   └TfrmGraphs.RefUnits...
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.ItemCheck
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.CheckMedNum
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.FileNameX
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.ValueDates
   │ │   │   │ │ │ │ │   │ ├TfrmGraphs.ResultValue
   │ │   │   │ │ │ │ │   │ │ ├TfrmGraphs.serDatelineTopGetMarkText
   │ │   │   │ │ │ │ │   │ │ └TfrmGraphs.BPValue
   │ │   │   │ │ │ │ │   │ └TfrmGraphs.OtherInfo
   │ │   │   │ │ │ │ │   │   └TfrmGraphs.SetRef
   │ │   │   │ │ │ │ │   │     └TfrmGraphs.RefUnits...
   │ │   │   │ │ │ │ │   ├TfrmGraphs.LabNameResults
   │ │   │   │ │ │ │ │   └TfrmGraphs.AllTypeDate
   │ │   │   │ │ │ │ │     ├TfrmGraphs.CheckToAddData
   │ │   │   │ │ │ │ │     │ ├TfrmGraphs.LabData...
   │ │   │   │ │ │ │ │     │ └rpcGetItemData...
   │ │   │   │ │ │ │ │     ├TfrmGraphs.TempData
   │ │   │   │ │ │ │ │     │ ├TfrmGraphs.ItemName
   │ │   │   │ │ │ │ │     │ └TfrmGraphs.SetRef...
   │ │   │   │ │ │ │ │     └ReportBox
   │ │   │   │ │ │ │ │       └CreateReportBox
   │ │   │   │ │ │ │ │         └TfrmBase508Form.Create
   │ │   │   │ │ │ │ │           ├TfrmBase508Form.UpdateAccessibilityActions
   │ │   │   │ │ │ │ │           ├UnfocusableControlEnter
   │ │   │   │ │ │ │ │           └AdjustControls
   │ │   │   │ │ │ │ │             ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   │   │ │ │ │ │             └..(rec)..
   │ │   │   │ │ │ │ ├TfrmGraphs.chartBaseClickLegend
   │ │   │   │ │ │ │ │ └TfrmGraphs.ItemDateRange
   │ │   │   │ │ │ │ │   ├TfrmGraphs.ValueText...
   │ │   │   │ │ │ │ │   └ReportBox...
   │ │   │   │ │ │ │ ├TfrmGraphs.mnuPopGraphDetailsClick
   │ │   │   │ │ │ │ │ ├TfrmGraphs.ItemCheck
   │ │   │   │ │ │ │ │ ├TfrmGraphs.HSAbbrev
   │ │   │   │ │ │ │ │ ├TfrmGraphs.ValueText...
   │ │   │   │ │ │ │ │ ├TfrmGraphs.LabNameResults
   │ │   │   │ │ │ │ │ ├TfrmGraphs.AllTypeDate...
   │ │   │   │ │ │ │ │ ├TfrmGraphs.OneDayTypeDetails
   │ │   │   │ │ │ │ │ │ ├TfrmGraphs.FileNameX
   │ │   │   │ │ │ │ │ │ ├TfrmGraphs.ItemName
   │ │   │   │ │ │ │ │ │ ├rpcDetailDay
   │ │   │   │ │ │ │ │ │ │ └onoff
   │ │   │   │ │ │ │ │ │ ├TfrmGraphs.NotifyApps
   │ │   │   │ │ │ │ │ │ └ReportBox...
   │ │   │   │ │ │ │ │ └TfrmGraphs.AllDetails
   │ │   │   │ │ │ │ │   ├TfrmGraphs.HSAbbrev
   │ │   │   │ │ │ │ │   ├rpcDetailSelected
   │ │   │   │ │ │ │ │   │ └onoff
   │ │   │   │ │ │ │ │   ├TfrmGraphs.NotifyApps
   │ │   │   │ │ │ │ │   ├ReportBox...
   │ │   │   │ │ │ │ │   └TfrmGraphs.ItemDateRange...
   │ │   │   │ │ │ │ ├TfrmGraphs.chartBaseMouseDown
   │ │   │   │ │ │ │ │ ├TfrmGraphs.InactivateHint
   │ │   │   │ │ │ │ │ └TfrmGraphs.MouseClicks
   │ │   │   │ │ │ │ │   └TfrmGraphs.LabelClicks
   │ │   │   │ │ │ │ │     ├TfrmGraphs.mnuPopGraphDetailsClick...
   │ │   │   │ │ │ │ │     ├TfrmGraphs.ValueText...
   │ │   │   │ │ │ │ │     ├TfrmGraphs.LabNameResults
   │ │   │   │ │ │ │ │     └TfrmGraphs.AllTypeDate...
   │ │   │   │ │ │ │ ├TfrmGraphs.chartBaseMouseUp
   │ │   │   │ │ │ │ └TfrmGraphs.chartBaseMouseMove...
   │ │   │   │ │ │ ├TfrmGraphs.PadLeftEvent
   │ │   │   │ │ │ ├TfrmGraphs.MakeLineSeries
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo
   │ │   │   │ │ │ │ │ ├TfrmGraphs.GetData
   │ │   │   │ │ │ │ │ │ └TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ │ └TfrmGraphs.NextColor
   │ │   │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
   │ │   │   │ │ │ │ ├TfrmGraphs.BPCheck
   │ │   │   │ │ │ │ │ └TfrmGraphs.MakeSeriesBP
   │ │   │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ ├TfrmGraphs.HighLow
   │ │   │   │ │ │ │ │ └TfrmGraphs.FMToDateTime
   │ │   │   │ │ │ │ ├TfrmGraphs.BPAdd
   │ │   │   │ │ │ │ │ └TfrmGraphs.BorderValue
   │ │   │   │ │ │ │ ├TfrmGraphs.NumAdd
   │ │   │   │ │ │ │ │ ├TfrmGraphs.StdDev
   │ │   │   │ │ │ │ │ ├TfrmGraphs.BorderValue
   │ │   │   │ │ │ │ │ └TfrmGraphs.InvVal
   │ │   │   │ │ │ │ ├TfrmGraphs.NonNumSave
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesRef
   │ │   │   │ │ │ │ │ └TfrmGraphs.BorderValue
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │ │ ├TfrmGraphs.PainAdd
   │ │   │   │ │ │ │ └TfrmGraphs.FixedDates
   │ │   │   │ │ │ ├TfrmGraphs.MakeBarSeries
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
   │ │   │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
   │ │   │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ ├TfrmGraphs.HighLow...
   │ │   │   │ │ │ │ ├TfrmGraphs.InfoMessage
   │ │   │   │ │ │ │ ├TfrmGraphs.MergedLabsSelected
   │ │   │   │ │ │ │ └TfrmGraphs.FixedDates
   │ │   │   │ │ │ ├TfrmGraphs.MakeVisitGanttSeries
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
   │ │   │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ ├TfrmGraphs.HighLow...
   │ │   │   │ │ │ │ └TfrmGraphs.FixedDates
   │ │   │   │ │ │ ├TfrmGraphs.MakePointSeries
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
   │ │   │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
   │ │   │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ ├TfrmGraphs.HighLow...
   │ │   │   │ │ │ │ └TfrmGraphs.TempCheck
   │ │   │   │ │ │ ├TfrmGraphs.MakeGanttSeries
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
   │ │   │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
   │ │   │   │ │ │ │ ├TfrmGraphs.HighLow...
   │ │   │   │ │ │ │ └TfrmGraphs.FixedDates
   │ │   │   │ │ │ └TfrmGraphs.MakeOtherSeries
   │ │   │   │ │ │   ├TfrmGraphs.MakeNonNumerics
   │ │   │   │ │ │   │ ├TfrmGraphs.PadNonNum
   │ │   │   │ │ │   │ │ ├TfrmGraphs.StackNonNum
   │ │   │   │ │ │   │ │ └TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │   │ ├TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │   │ ├TfrmGraphs.PadLeftNonNumeric
   │ │   │   │ │ │   │ ├TfrmGraphs.ChartOnUndoZoom...
   │ │   │   │ │ │   │ └TfrmGraphs.MakeNonNumSeries
   │ │   │   │ │ │   │   └TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ │   ├TfrmGraphs.DisplayFreeText
   │ │   │   │ │ │   └TfrmGraphs.MakeComments
   │ │   │   │ │ │     └TfrmGraphs.MakeSeriesPoint
   │ │   │   │ │ └TfrmGraphs.AdjustTimeframe
   │ │   │   │ │   └TfrmGraphs.BottomAxis
   │ │   │   │ │     └..(rec)..
   │ │   │   │ ├TfrmGraphs.MakeTogetherMaybe
   │ │   │   │ │ ├TfrmGraphs.MakeSeparate...
   │ │   │   │ │ └TfrmGraphs.MakeTogether
   │ │   │   │ │   ├TfrmGraphs.GraphTypeNum
   │ │   │   │ │   ├TfrmGraphs.MakeChart...
   │ │   │   │ │   ├TfrmGraphs.PortionSize
   │ │   │   │ │   ├TfrmGraphs.SizeTogether
   │ │   │   │ │   ├TfrmGraphs.MakeTogetherNoLines
   │ │   │   │ │   │ ├TfrmGraphs.GraphTypeNum
   │ │   │   │ │   │ └TfrmGraphs.MakeDateline
   │ │   │   │ │   │   ├TfrmGraphs.MakeBarSeries...
   │ │   │   │ │   │   ├TfrmGraphs.MakeVisitGanttSeries...
   │ │   │   │ │   │   ├TfrmGraphs.MakePointSeries...
   │ │   │   │ │   │   └TfrmGraphs.MakeGanttSeries...
   │ │   │   │ │   ├TfrmGraphs.MakeTogetherOnlyLines
   │ │   │   │ │   │ ├TfrmGraphs.TitleInfo...
   │ │   │   │ │   │ ├TfrmGraphs.MakeLineSeries...
   │ │   │   │ │   │ └TfrmGraphs.DisplayFreeText
   │ │   │   │ │   ├TfrmGraphs.MakeTogetherAnyLines
   │ │   │   │ │   │ ├TfrmGraphs.SingleLabTest
   │ │   │   │ │   │ ├TfrmGraphs.TitleInfo...
   │ │   │   │ │   │ ├TfrmGraphs.GraphTypeNum
   │ │   │   │ │   │ ├TfrmGraphs.MakeLineSeries...
   │ │   │   │ │   │ ├TfrmGraphs.DisplayFreeText
   │ │   │   │ │   │ └TfrmGraphs.MakeDateline...
   │ │   │   │ │   ├TfrmGraphs.MakeOtherSeries...
   │ │   │   │ │   └TfrmGraphs.GraphBoundry
   │ │   │   │ │     ├TfrmGraphs.chartBaseMouseMove...
   │ │   │   │ │     └TfrmGraphs.AdjustTimeframe...
   │ │   │   │ └TfrmGraphs.DisplayDataInfo
   │ │   │   │   ├TfrmGraphs.ChangeStyle
   │ │   │   │   │ ├TfrmGraphs.ChartStyle
   │ │   │   │   │ │ └TfrmGraphs.HideDates
   │ │   │   │   │ └TfrmGraphs.ChartColor
   │ │   │   │   ├TfrmGraphs.InfoMessage
   │ │   │   │   └TfrmGraphs.MergedLabsSelected
   │ │   │   ├TfrmGraphs.lstViewsTopChange
   │ │   │   │ └TfrmGraphs.ViewsChange
   │ │   │   │   ├TfrmGraphs.InactivateHint
   │ │   │   │   ├TfrmGraphs.DisplayData...
   │ │   │   │   ├TfrmGraphs.CheckProfile
   │ │   │   │   │ ├GetGraphProfiles
   │ │   │   │   │ │ └rpcGetGraphProfiles
   │ │   │   │   │ │   └onoff
   │ │   │   │   │ ├GetATestGroup
   │ │   │   │   │ │ └rpcATestGroup
   │ │   │   │   │ ├TfrmGraphs.ExpandTax
   │ │   │   │   │ │ └rpcTaxonomy
   │ │   │   │   │ │   └onoff
   │ │   │   │   │ └TfrmGraphs.LoadDisplayCheck
   │ │   │   │   │   ├TfrmGraphs.TypeIsLoaded
   │ │   │   │   │   ├TfrmGraphs.LoadType
   │ │   │   │   │   │ ├TfrmGraphs.FileNameX
   │ │   │   │   │   │ └rpcGetItems
   │ │   │   │   │   │   └onoff
   │ │   │   │   │   ├TfrmGraphs.TypeIsDisplayed
   │ │   │   │   │   └TfrmGraphs.DisplayType
   │ │   │   │   │     └TfrmGraphs.FileNameX
   │ │   │   │   ├TfrmGraphs.cboDateRangeChange...
   │ │   │   │   ├TfrmGraphs.ViewDefinition
   │ │   │   │   ├TfrmGraphs.AssignProfile...
   │ │   │   │   ├TfrmGraphs.lvwItemsTopColumnClick
   │ │   │   │   ├TfrmGraphs.lvwItemsBottomColumnClick
   │ │   │   │   └TfrmGraphs.AutoSelect
   │ │   │   │     ├TfrmGraphs.lvwItemsTopClick...
   │ │   │   │     └TfrmGraphs.lvwItemsBottomClick
   │ │   │   │       ├GraphTurboOn
   │ │   │   │       ├TfrmGraphs.Switch...
   │ │   │   │       └TfrmGraphs.ItemsClick...
   │ │   │   └TfrmGraphs.lstViewsBottomChange
   │ │   │     └TfrmGraphs.ViewsChange...
   │ │   ├TfrmGraphs.HideGraphs
   │ │   ├TfrmGraphs.CheckToAddData...
   │ │   ├TfrmGraphs.DisplayData...
   │ │   └TfrmGraphs.ZoomUpdate
   │ │     ├TfrmGraphs.ZoomTo
   │ │     │ └TfrmGraphs.SizeDates...
   │ │     └TfrmGraphs.ZoomUpdateInfo...
   │ └TfrmGraphs.lvwItemsBottomClick...
   └SetWidth

Called-By Hierarchy


   TfrmGraphs.GetSize
TfrmGraphs.FormShow┘ 

Calls

Name Declaration Comments
Layout procedure Layout(name, FR: string; v1, v2, v3, v4: integer); -
rpcGetGraphSizing function rpcGetGraphSizing: TStrings; -

Called-By

Name Declaration Comments
TfrmGraphs.FormShow procedure FormShow(Sender: TObject); -


Source

818   procedure TfrmGraphs.GetSize;
819   
820     procedure SetWidth(aListView: TListView; v1, v2, v3, v4: integer);
821     begin
822       if v1 > 0 then aListView.Column[0].Width := v1;
823       if v2 > 0 then aListView.Column[1].Width := v2;
824       if v3 > 0 then aListView.Column[2].Width := v3;
825       if v4 > 0 then aListView.Column[3].Width := v4;
826     end;
827   
828     procedure Layout(name, FR: string; v1, v2, v3, v4: integer);
829     begin  // FR indicates Float or Report graph
830       if name = (FR + 'WIDTH') then
831       begin
832         if v1 > 0 then
833         begin
834           pnlItemsTop.Width := v1;
835           splItemsTopMoved(self);
836         end;
837       end
838       else if name = (FR + 'BOTTOM') then
839       begin
840         if v1 > 0 then
841         begin
842           chkDualViews.Checked := true;
843           chkDualViewsClick(self);
844           pnlBottom.Height := v1;
845         end;
846       end
847       else if name = (FR + 'COLUMN') then
848         SetWidth(lvwItemsTop, v1, v2, v3, v4)
849       else if name = (FR + 'BCOLUMN') then
850         SetWidth(lvwItemsBottom, v1, v2, v3, v4);
851     end;
852   
853   
854   var
855     i, v1, v2, v3, v4: integer;
856     name, settings, value: string;
857     aList: TStrings;
858   begin
859     aList := TStringList.Create;
860     FastAssign(rpcGetGraphSizing, aList);
861     for i := 0 to aList.Count - 1 do
862     begin
863       settings := aList[i];
864       name := Piece(settings, '^', 1);
865       value := Piece(settings, '^', 2);
866       if length(value) > 1 then
867       begin
868         v1 := strtointdef(Piece(value, ',', 1), 0);
869         v2 := strtointdef(Piece(value, ',', 2), 0);
870         v3 := strtointdef(Piece(value, ',', 3), 0);
871         v4 := strtointdef(Piece(value, ',', 4), 0);
872         if FGraphType = GRAPH_FLOAT then
873         begin
874           if name = 'FBOUNDS' then
875           begin
876             if value = '0,0,0,0' then
877               WindowState := wsMaximized
878             else
879             begin
880               if v1 > 0 then Left :=   v1;
881               if v2 > 0 then Top :=    v2;
882               if v3 > 0 then Width :=  v3;
883               if v4 > 0 then Height := v4;
884             end;
885           end
886           else
887             Layout(name, 'F', v1, v2, v3, v4);
888         end
889         else
890           Layout(name, 'R', v1, v2, v3, v4);
891       end;
892     end;
893     FreeAndNil(aList);
894   end;