Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

fGraphs.pas@ 823

Last change on this file since 823 was 460, checked in by Kevin Toppenberg, 17 years ago
Uploading from OR_30_258
File size: 205.5 KB

Rev	Line
[460]	1	unit fGraphs;
	2
	3	interface
	4
	5	uses
	6	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
	7	ExtCtrls, StdCtrls, ORCtrls, Menus, TeeProcs, TeEngine, Series, Chart, Math,
	8	ComCtrls, GanttCh, ClipBrd, StrUtils, ORFn, ORDtTmRng, DateUtils, Printers,
	9	OleServer, Variants, Word97, Word2000, ArrowCha, ORDtTm, uGraphs;
	10
	11	type
	12	TfrmGraphs = class(TForm)
	13	btnChangeSettings: TButton;
	14	btnClose: TButton;
	15	btnGraphSelections: TButton;
	16	bvlBottomLeft: TBevel;
	17	bvlBottomRight: TBevel;
	18	bvlTopLeft: TBevel;
	19	bvlTopRight: TBevel;
	20	calDateRange: TORDateRangeDlg;
	21	cboDateRange: TORComboBox;
	22	chartBase: TChart;
	23	chartDatelineBottom: TChart;
	24	chartDatelineTop: TChart;
	25	chkDualViews: TCheckBox;
	26	chkItemsBottom: TCheckBox;
	27	chkItemsTop: TCheckBox;
	28	dlgDate: TORDateTimeDlg;
	29	lblDateRange: TLabel;
	30	lblViewsBottom: TOROffsetLabel;
	31	lblViewsTop: TOROffsetLabel;
	32	lstAllTypes: TListBox;
	33	lstCheck: TListBox;
	34	lstData: TListBox;
	35	lstDrugClass: TListBox;
	36	lstItems: TListBox;
	37	lstItemsTemp: TListBox;
	38	lstMultiSpec: TListBox;
	39	lstNonNumeric: TListBox;
	40	lstScratchLab: TListBox;
	41	lstScratchSwap: TListBox;
	42	lstScratchTemp: TListBox;
	43	lstSelCopyBottom: TListBox;
	44	lstSelCopyTop: TListBox;
	45	lstSpec1: TListBox;
	46	lstSpec2: TListBox;
	47	lstSpec3: TListBox;
	48	lstSpec4: TListBox;
	49	lstTemp: TListBox;
	50	lstTempCheck: TListBox;
	51	lstTestSpec: TListBox;
	52	lstTypes: TListBox;
	53	lstViews: TListBox;
	54	lstZoomHistory: TListBox;
	55	lvwItemsBottom: TListView;
	56	lvwItemsTop: TListView;
	57	mnumedsasgantt: TMenuItem;
	58	mnumedsasganttvertheight: TMenuItem;
	59	mnuPopGraph3D: TMenuItem;
	60	mnuPopGraphClear: TMenuItem;
	61	mnuPopGraphCopy: TMenuItem;
	62	mnuPopGraphDates: TMenuItem;
	63	mnuPopGraphDefineViews: TMenuItem;
	64	mnuPopGraphDetails: TMenuItem;
	65	mnuPopGraphDualViews: TMenuItem;
	66	mnuPopGraphGradient: TMenuItem;
	67	mnuPopGraphFixed: TMenuItem;
	68	mnuPopGraphHints: TMenuItem;
	69	mnuPopGraphHorizontal: TMenuItem;
	70	mnuPopGraphIsolate: TMenuItem;
	71	mnuPopGraphLegend: TMenuItem;
	72	mnuPopGraphLines: TMenuItem;
	73	mnuPopGraphPrint: TMenuItem;
	74	mnuPopGraphRemove: TMenuItem;
	75	mnuPopGraphReset: TMenuItem;
	76	mnuPopGraphSeparate1: TMenuItem;
	77	mnuPopGraphSort: TMenuItem;
	78	mnuPopGraphSplit: TMenuItem;
	79	mnuPopGraphStayOnTop: TMenuItem;
	80	mnuPopGraphStuff: TPopupMenu;
	81	mnuPopGraphSwap: TMenuItem;
	82	mnuPopGraphToday: TMenuItem;
	83	mnuPopGraphValues: TMenuItem;
	84	mnuPopGraphVertical: TMenuItem;
	85	mnuPopGraphZoomBack: TMenuItem;
	86	N1: TMenuItem;
	87	N2: TMenuItem;
	88	N3: TMenuItem;
	89	N4: TMenuItem;
	90	pnlBlankBottom: TPanel;
	91	pnlBlankTop: TPanel;
	92	pnlBottom: TPanel;
	93	pnlBottomRightPad: TPanel;
	94	pnlData: TPanel;
	95	pnlDatelineBottom: TPanel;
	96	pnlDatelineBottomSpacer: TORAutoPanel;
	97	pnlDatelineTop: TPanel;
	98	pnlDatelineTopSpacer: TORAutoPanel;
	99	pnlFooter: TPanel;
	100	pnlHeader: TPanel;
	101	pnlInfo: TORAutoPanel;
	102	pnlItemsBottom: TPanel;
	103	pnlItemsBottomInfo: TPanel;
	104	pnlItemsTop: TPanel;
	105	pnlItemsTopInfo: TPanel;
	106	pnlMain: TPanel;
	107	pnlScrollBottomBase: TPanel;
	108	pnlScrollTopBase: TPanel;
	109	pnlTemp: TPanel;
	110	pnlTop: TPanel;
	111	pnlTopRightPad: TPanel;
	112	scrlBottom: TScrollBox;
	113	scrlTop: TScrollBox;
	114	serDatelineBottom: TGanttSeries;
	115	serDatelineTop: TGanttSeries;
	116	splGraphs: TSplitter;
	117	splItemsBottom: TSplitter;
	118	splItemsTop: TSplitter;
	119	timHintPause: TTimer;
	120	lstSelPrevTop: TListBox;
	121	lstSelPrevBottom: TListBox;
	122	lstComp: TListBox;
	123	pnlViewsTopSpacer: TPanel;
	124	cboViewsTop: TORComboBox;
	125	pnlViewsTopSpacerRight: TPanel;
	126	pnlViewsBottomSpacer: TPanel;
	127	cboViewsBottom: TORComboBox;
	128	pnlViewsBottomSpacerRight: TPanel;
	129	testcount1: TMenuItem;
	130	procedure FormCreate(Sender: TObject);
	131	procedure FormShow(Sender: TObject);
	132	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	133
	134	procedure btnCloseClick(Sender: TObject);
	135	procedure btnChangeSettingsClick(Sender: TObject);
	136	procedure btnGraphSelectionsClick(Sender: TObject);
	137
	138	procedure chkDualViewsClick(Sender: TObject);
	139	procedure chkItemsTopClick(Sender: TObject);
	140	procedure chkItemsBottomClick(Sender: TObject);
	141
	142	procedure mnuMedsasganttClick(Sender: TObject);
	143	procedure mnuPopGraph3DClick(Sender: TObject);
	144	procedure mnuPopGraphClearClick(Sender: TObject);
	145	procedure mnuPopGraphCopyClick(Sender: TObject);
	146	procedure mnuPopGraphDatesClick(Sender: TObject);
	147	procedure mnuPopGraphDetailsClick(Sender: TObject);
	148	procedure mnuPopGraphDualViewsClick(Sender: TObject);
	149	procedure mnuPopGraphFixedClick(Sender: TObject);
	150	procedure mnuPopGraphGradientClick(Sender: TObject);
	151	procedure mnuPopGraphHintsClick(Sender: TObject);
	152	procedure mnuPopGraphIsolateClick(Sender: TObject);
	153	procedure mnuPopGraphLegendClick(Sender: TObject);
	154	procedure mnuPopGraphLinesClick(Sender: TObject);
	155	procedure mnuPopGraphPrintClick(Sender: TObject);
	156	procedure mnuPopGraphRemoveClick(Sender: TObject);
	157	procedure mnuPopGraphResetClick(Sender: TObject);
	158	procedure mnuPopGraphSeparate1Click(Sender: TObject);
	159	procedure mnuPopGraphStayOnTopClick(Sender: TObject);
	160	procedure mnuPopGraphSortClick(Sender: TObject);
	161	procedure mnuPopGraphSplitClick(Sender: TObject);
	162	procedure mnuPopGraphStuffPopup(Sender: TObject);
	163	procedure mnuPopGraphSwapClick(Sender: TObject);
	164	procedure mnuPopGraphTodayClick(Sender: TObject);
	165	procedure mnuPopGraphValuesClick(Sender: TObject);
	166	procedure mnuPopGraphHorizontalClick(Sender: TObject);
	167	procedure mnuPopGraphVerticalClick(Sender: TObject);
	168	procedure mnuPopGraphZoomBackClick(Sender: TObject);
	169
	170	procedure splGraphsMoved(Sender: TObject);
	171	procedure splItemsBottomMoved(Sender: TObject);
	172	procedure splItemsTopMoved(Sender: TObject);
	173
	174	procedure GetSize;
	175	procedure SetSize;
	176
	177	procedure lvwItemsBottomClick(Sender: TObject);
	178	procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn);
	179	procedure lvwItemsBottomCompare(Sender: TObject; Item1,
	180	Item2: TListItem; Data: Integer; var Compare: Integer);
	181	procedure lvwItemsTopClick(Sender: TObject);
	182	procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn);
	183	procedure lvwItemsTopCompare(Sender: TObject; Item1, Item2: TListItem;
	184	Data: Integer; var Compare: Integer);
	185
	186	procedure cboDateRangeChange(Sender: TObject);
	187	procedure cboViewsBottomChange(Sender: TObject);
	188	procedure cboViewsTopChange(Sender: TObject);
	189
	190	procedure pnlScrollTopBaseResize(Sender: TObject);
	191
	192	procedure chartBaseClickLegend(Sender: TCustomChart;
	193	Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	194	procedure chartBaseClickSeries(Sender: TCustomChart; Series: TChartSeries;
	195	ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	196	procedure chartBaseMouseDown(Sender: TObject; Button: TMouseButton;
	197	Shift: TShiftState; X, Y: Integer);
	198	procedure chartBaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	199	procedure serDatelineTopGetMarkText(Sender: TChartSeries;
	200	ValueIndex: Integer; var MarkText: String);
	201
	202	procedure ChartOnUndoZoom(Sender: TObject);
	203	procedure ChartOnZoom(Sender: TObject);
	204	procedure DisplayData(aSection: string);
	205	procedure HideDates(aChart: TChart);
	206	procedure SourcesDefault;
	207	procedure StayOnTop;
	208
	209	procedure timHintPauseTimer(Sender: TObject);
	210	procedure ZoomUpdate;
	211	procedure ZoomUpdateInfo(SmallTime, BigTime: TDateTime);
	212	procedure ZoomTo(SmallTime, BigTime: TDateTime);
	213	procedure lvwItemsTopChange(Sender: TObject; Item: TListItem;
	214	Change: TItemChange);
	215	procedure lvwItemsTopKeyDown(Sender: TObject; var Key: Word;
	216	Shift: TShiftState);
	217	procedure lvwItemsBottomChange(Sender: TObject; Item: TListItem;
	218	Change: TItemChange);
	219	procedure testcount1Click(Sender: TObject);
	220	procedure cboDateRangeDropDown(Sender: TObject);
	221	procedure cboViewsTopDropDown(Sender: TObject);
	222	procedure cboViewsTopDropDownClose(Sender: TObject);
	223	procedure cboViewsBottomDropDown(Sender: TObject);
	224	procedure cboViewsBottomDropDownClose(Sender: TObject);
	225	procedure FormDestroy(Sender: TObject);
	226	procedure lvwItemsTopEnter(Sender: TObject);
	227	procedure lvwItemsBottomEnter(Sender: TObject);
	228	procedure chkItemsBottomEnter(Sender: TObject);
	229	procedure cboViewsBottomEnter(Sender: TObject);
	230
	231	private
	232	{ Private declarations }
	233	FBSortAscending: boolean;
	234	FBSortCol: integer;
	235	FDate1: Double;
	236	FDate2: Double;
	237	FSortAscending: boolean;
	238	FSortCol: integer;
	239
	240	FActiveGraph: TChart;
	241	FArrowKeys: boolean;
	242	FBHighTime, FBLowTime: Double;
	243	FCreate: boolean;
	244	FFirstClick: boolean;
	245	FFirstSwitch: boolean;
	246	FGraphClick: TCustomChart;
	247	FGraphSeries: TChartSeries;
	248	FGraphValueIndex: integer;
	249	FGraphSetting: TGraphSetting;
	250	FGraphType: char;
	251	FItemsSortedTop: boolean;
	252	FItemsSortedBottom: boolean;
	253	FMouseDown: boolean;
	254	FMTimestamp: string;
	255	FMToday: TFMDateTime;
	256	FMyProfiles, FProfiles: TStringList;
	257	FNonNumerics: boolean; // used with pnlItemsTop.Tag & pnlItemsBottom.Tag
	258	FOnLegend: integer;
	259	FOnSeries: integer;
	260	FOnValue: integer;
	261	FPrevEvent: string;
	262	FRetainZoom: boolean;
	263	FSources: TStrings;
	264	FSourcesDefault: TStrings;
	265	FTHighTime, FTLowTime: Double;
	266	FWarning: boolean;
	267	FX, FY: integer;
	268	FYMinValue: Double;
	269	FYMaxValue: Double;
	270
	271	procedure AdjustTimeframe;
	272	procedure AllTypeDate(aType, aTypeName, firstline, secondline: string; aDate, aDate2: double);
	273	procedure AllDetails(aDate1, aDate2: TFMDateTime; aTempList: TStrings);
	274	procedure AssignProfile(aProfile, aSection: string);
	275	procedure AutoSelect(aListView: TListView);
	276	procedure BaseResize(aScrollBox: TScrollBox);
	277	procedure BottomAxis(aScrollBox: TScrollBox);
	278	procedure ChangeStyle;
	279	procedure ChartStyle(aChart: TChart);
	280	procedure CheckProfile(var aProfile: string; var Updated: boolean);
	281	procedure CheckToAddData(aListView: TListView; aSection, TypeToCheck: string);
	282	procedure CreatePatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string);
	283	procedure DateRangeItems(oldestdate, newestdate: double; filenum: string);
	284	procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView);
	285	procedure DisplayType(itemtype, displayed: string);
	286	procedure FillViews;
	287	procedure FilterListView(oldestdate, newestdate: double);
	288	procedure FixedDates(var adatetime, adatetime1: TDateTime);
	289	procedure GetData(aString: string);
	290	procedure HideGraphs(action: boolean);
	291	procedure HighLow(fmtime, fmtime1: string; aChart: TChart; var adatetime, adatetime1: TDateTime);
	292	procedure InactivateHint;
	293	procedure ItemCheck(aListView: TListView; aItemName: string;
	294	var aNum: integer; var aTypeItem: string);
	295	procedure ItemsClick(Sender: TObject; aListView, aOtherListView: TListView;
	296	aCheckBox: TCheckBox; aComboBox: TORComboBox; aList: TListBox; aSection: string);
	297	procedure ItemDateRange(Sender: TCustomChart);
	298	procedure LabData(aItemType, aItemName, aSection: string);
	299	procedure LoadDateRange;
	300	procedure LoadDisplayCheck(typeofitem: string; var updated: boolean);
	301	procedure LoadType(itemtype, displayed: string);
	302	procedure NextPointerStyle(aSeries: TChartSeries; aSerCnt: integer);
	303	procedure OneDayTypeDetails(aTypeItem: string);
	304	procedure RefUnits(aItem, aSpec: string; var low, high, units: string);
	305	procedure ResetSpec(aListBox: TListBox; aItemNum, aNewItemNum, aNewItemName, aNewString: string);
	306	procedure TempCheck(typeitem: string; var levelseq: double);
	307	procedure SelCopy(aListView: TListView; aListBox: TListBox);
	308	procedure SelReset(aListbox: TListBox; aListView: TListView);
	309	procedure SelectItem(aListView: TListView; typeitem: string);
	310	procedure SetProfile(aProfile, aName: string; aListView: TListView);
	311	procedure SizeDates(aChart: TChart; aSmallTime, aBigTime: TDateTime);
	312	procedure SizeTogether(onlylines, nolines, anylines: Boolean; aScroll: TScrollBox;
	313	aChart: TChart; aPanel, aPanelBase: TPanel; portion: Double);
	314	procedure ViewsChange(aListView: TListView; aComboBox: TORComboBox; aSection: string);
	315
	316	procedure MakeDateline(section, aTitle, aFileType: string; aChart: TChart; graphtype: integer;
	317	var bcnt, pcnt, gcnt, vcnt, acnt: integer);
	318	procedure MakeSeparate(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string);
	319	procedure MakeTogether(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string);
	320
	321	procedure MakeAGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	322	procedure MakeArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	323	procedure MakeBarSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	324	procedure MakeGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	325	procedure MakeLineSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt, aNonCnt: integer; multiline: boolean);
	326	procedure MakeManyGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); // good one
	327	procedure MakePointSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	328	procedure MakeVisitGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	329	procedure MakeWeightedArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	330	procedure MakeWeightedGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	331
	332	function BPValue(aDateTime: TDateTime): string;
	333	function DateRangeMultiItems(aOldDate, aNewDate: double; aMultiItem: string): boolean;
	334	function DCName(aDCien: string): string;
	335	function ExpandTax(profile: string): string;
	336	function FileNameX(filenum: string): string;
	337	function FMCorrectedDate(fmtime: string): string;
	338	function GraphTypeNum(aType: string): integer;
	339	function HSAbbrev(aType: string): boolean;
	340	function InvVal(value: double): double;
	341	function ItemName(filenum, itemnum: string): string;
	342	function NextColor(aCnt: integer): TColor;
	343	function PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt, acnt: integer): double;
	344	function SelectRef(aRef: string): string;
	345	function StdDev(value, high, low: double): double;
	346	function TypeIsDisplayed(itemtype: string): boolean;
	347	function TypeIsLoaded(itemtype: string): boolean;
	348	function Vfactor(aTitle: string): double;
	349	function ValueText(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer): string;
	350
	351	public
	352	{ Public declarations }
	353	procedure InitialData;
	354	procedure Initialize;
	355	procedure InitialRetain;
	356	procedure LoadListView(aList: TStrings);
	357	procedure SourceContext;
	358	procedure ViewSelections;
	359	procedure SetFontSize(FontSize: integer);
	360	function FMToDateTime(FMDateTime: string): TDateTime;
	361	end;
	362
	363	var
	364	frmGraphs: TfrmGraphs;
	365	FHintWin: THintWindow;
	366	FHintWinActive: boolean;
	367	FHintStop: boolean;
	368
	369	implementation
	370
	371	uses fGraphSettings, fGraphProfiles, rGraphs,
	372	ComObj, ActiveX, ShellAPI, fFrame, uCore, rCore, fRptBox, fReports,
	373	uFormMonitor;
	374
	375	{$R *.DFM}
	376
	377	type
	378	TGraphItem = class
	379	public
	380	Values: string;
	381	end;
	382
	383	procedure TfrmGraphs.FormCreate(Sender: TObject);
	384	var
	385	i: integer;
	386	dfntype, listline, settings, settings1, t1, t2: string;
	387	aList: TStrings;
	388	begin
	389	FMToday := DateTimeToFMDateTime(Date);
	390	FHintWinActive := false;
	391	FHintStop := false;
	392	FNonNumerics := false;
	393	FMouseDown := false;
	394	FItemsSortedTop := false;
	395	FItemsSortedBottom := false;
	396	FRetainZoom := false;
	397	FFirstClick := true;
	398	FArrowKeys := false;
	399	FCreate := true;
	400	FGraphType := Char(32);
	401	aList := TStringList.Create;
	402	FastAssign(rpcGetGraphSettings, aList);
	403	btnClose.Tag := 0;
	404	if aList.Count < 1 then
	405	begin
	406	Screen.Cursor := crDefault;
	407	showmessage('CPRS is not configured for graphing.');
	408	btnClose.Tag := 1;
	409	FreeAndNil(aList);
	410	Close;
	411	Exit;
	412	end;
	413	t1 := aList[0]; t2 := aList[1]; // hint are current, t1 are personal, t2 public settings
	414	if length(frmFrame.mnuToolsGraphing.Hint) > 0 then settings := frmFrame.mnuToolsGraphing.Hint
	415	else if length(t1) > 0 then settings := t1
	416	else settings := t2;
	417	SetPiece(settings, '\|', 8, Piece(t2, '\|', 8)); //??????????
	418	frmFrame.mnuToolsGraphing.Hint := settings;
	419	settings1 := Piece(settings, '\|', 1);
	420	FSources := TStringList.Create;
	421	FSourcesDefault := TStringList.Create;
	422	FMyProfiles := TStringList.Create;
	423	FProfiles := TStringList.Create;
	424	FYMinValue := 0;
	425	FYMaxValue := 0;
	426	FTHighTime := 0;
	427	FTLowTime := BIG_NUMBER;
	428	FBHighTime := 0;
	429	FBLowTime := BIG_NUMBER;
	430	pnlInfo.Caption := TXT_INFO;
	431	FOnLegend := BIG_NUMBER;
	432	FOnSeries := BIG_NUMBER;
	433	FOnValue := BIG_NUMBER;
	434	FHintWin := THintWindow.Create(self);
	435	FHintWin.Color := clInfoBk;
	436	FHintWin.Canvas.Font.Color := clInfoBk;
	437	FX := 0; FY :=0;
	438	FastAssign(rpcGetTypes('0', false), lstAllTypes.Items);
	439	for i := 0 to lstAllTypes.Items.Count - 1 do
	440	begin
	441	listline := lstAllTypes.Items[i];
	442	dfntype := UpperCase(Piece(listline, '^', 1));
	443	SetPiece(listline, '^', 1, dfntype);
	444	lstAllTypes.Items[i] := listline;
	445	end;
	446	FGraphSetting := GraphSettingsInit(settings);
	447	for i := 0 to BIG_NUMBER do
	448	begin
	449	dfntype := Piece(settings1, ';', i);
	450	if length(dfntype) = 0 then break;
	451	listline := dfntype + '^' + FileNameX(dfntype) + '^1';
	452	FSources.Add(listline);
	453	FSourcesDefault.Add(listline);
	454	end;
	455	serDatelineTop.Active := false;
	456	serDatelineBottom.Active := false;
	457	chartDatelineTop.Gradient.EndColor := clGradientActiveCaption;
	458	chartDatelineTop.Gradient.StartColor := clWindow;
	459	chartDatelineBottom.Gradient.EndColor := clGradientActiveCaption;
	460	chartDatelineBottom.Gradient.StartColor := clWindow;
	461	LoadDateRange;
	462	chkItemsTop.Checked := true;
	463	chkItemsBottom.Checked := true;
	464	FastAssign(rpcGetTestSpec, lstTestSpec.Items);
	465	FillViews;
	466	FreeAndNil(aList);
	467	end;
	468
	469	procedure TfrmGraphs.SourcesDefault;
	470	var
	471	i: integer;
	472	dfntype, listline, settings, settings1, t1, t2: string;
	473	aList: TStrings;
	474	begin
	475	aList := TStringList.Create;
	476	FastAssign(rpcGetGraphSettings, aList);
	477	t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings
	478	if length(frmFrame.mnuToolsGraphing.Hint) > 0 then settings := frmFrame.mnuToolsGraphing.Hint
	479	else if length(t1) > 0 then settings := t1
	480	else settings := t2;
	481	SetPiece(settings, '\|', 8, Piece(t2, '\|', 8));
	482	settings1 := Piece(settings, '\|', 1);
	483	FGraphSetting := GraphSettingsInit(settings);
	484	for i := 0 to BIG_NUMBER do
	485	begin
	486	dfntype := Piece(settings1, ';', i);
	487	if length(dfntype) = 0 then break;
	488	listline := dfntype + '^' + FileNameX(dfntype) + '^1';
	489	FSourcesDefault.Add(listline);
	490	end;
	491	FreeAndNil(aList);
	492	end;
	493
	494	procedure TfrmGraphs.Initialize;
	495	var
	496	i: integer;
	497	rptview1, rptview2, rptviews: string;
	498	begin
	499	InitialData;
	500	SourceContext;
	501	LoadListView(lstItems.Items);
	502	if pnlMain.Tag > 0 then
	503	begin
	504	rptviews := MixedCase(rpcReportParams(pnlMain.Tag));
	505	if length(rptviews) > 1 then
	506	begin
	507	rptview1 := Piece(rptviews, '^', 1);
	508	rptview2 := Piece(rptviews, '^', 2);
	509	if length(rptview1) > 0 then
	510	begin
	511	for i := 0 to cboViewsTop.Items.Count - 1 do
	512	if Piece(cboViewsTop.Items[i], '^', 2) = rptview1 then
	513	begin
	514	cboViewsTop.ItemIndex := i;
	515	break;
	516	end;
	517	end;
	518	if length(rptview2) > 0 then
	519	begin
	520	chkDualViews.Checked := true;
	521	chkDualViewsClick(self);
	522	for i := 0 to cboViewsBottom.Items.Count - 1 do
	523	if Piece(cboViewsBottom.Items[i], '^', 2) = rptview2 then
	524	begin
	525	cboViewsBottom.ItemIndex := i;
	526	break;
	527	end;
	528	end;
	529	end;
	530	end;
	531	if cboViewsTop.ItemIndex > -1 then
	532	cboViewsTopChange(self)
	533	else
	534	lvwItemsTopClick(self);
	535	if cboViewsBottom.ItemIndex > -1 then
	536	cboViewsbottomChange(self)
	537	else
	538	lvwItemsBottomClick(self);
	539	if pnlMain.Tag > 0 then
	540	begin
	541	pnlMain.Tag := 0;
	542	cboDateRangeChange(self);
	543	if cboViewsTop.ItemIndex > -1 then
	544	cboViewsTopChange(self)
	545	else
	546	lvwItemsTopClick(self);
	547	if cboViewsBottom.ItemIndex > -1 then
	548	cboViewsbottomChange(self)
	549	else
	550	lvwItemsBottomClick(self);
	551	end;
	552	end;
	553
	554	procedure TfrmGraphs.InitialRetain;
	555	//var
	556	//i: integer;
	557	begin
	558	{//
	559	allview=false
	560	fullview=false
	561	noview=true
	562	go thru items
	563	if selected
	564	if view
	565	noview=false
	566	else
	567	allview=false
	568
	569	else
	570	if view
	571	allview=false
	572	fullview=false
	573	noview=false
	574	else
	575	//
	576	if noview
	577	//
	578	if allview
	579	//
	580	if fullview
	581	//
	582	else //partial view
	583	//
	584	//}
	585	end;
	586
	587	procedure TfrmGraphs.FillViews;
	588	var
	589	i: integer;
	590	begin
	591	with cboViewsTop do
	592	begin
	593	Items.Clear;
	594	Sorted := false;
	595	lstTemp.Sorted := true;
	596	FastAssign(rpcGetGraphProfiles('1', '0', 0), lstTemp.Items);
	597	if lstTemp.Items.Count > 0 then
	598	begin
	599	for i := 0 to lstTemp.Items.Count - 1 do
	600	Items.Add('-1^' + lstTemp.Items[i] + '^');
	601	end;
	602	FastAssign(rpcGetGraphProfiles('1', '1', 0), lstTemp.Items);
	603	if lstTemp.Items.Count > 0 then
	604	begin
	605	Items.Add(LLS_LINE);
	606	for i := 0 to lstTemp.Items.Count - 1 do
	607	Items.Add('-2^' + lstTemp.Items[i] + '^');
	608	end;
	609	Items.Insert(0, '^<clear all selections>^0');
	610	Items.Insert(1, '^<select items>^0');
	611	end;
	612	FastAssign(cboViewsTop.Items, cboViewsBottom.Items);
	613	end;
	614
	615	procedure TfrmGraphs.SourceContext;
	616	begin
	617	if frmFrame.GraphContext = '' then exit;
	618	frmFrame.GraphContext := '';
	619	end;
	620
	621	procedure TfrmGraphs.FormShow(Sender: TObject);
	622	begin
	623	Font := MainFont;
	624	ChangeStyle;
	625	StayOnTop;
	626	mnuPopGraphResetClick(self);
	627	if pnlFooter.Tag = 1 then // do not show footer controls on reports tab
	628	begin
	629	pnlFooter.Visible := false;
	630	if FCreate then
	631	begin
	632	FGraphType := GRAPH_REPORT;
	633	FCreate := false;
	634	GetSize;
	635	end;
	636	end
	637	else
	638	begin
	639	chkDualViews.Checked := false;
	640	chkDualViewsClick(self);
	641	if FCreate then
	642	begin
	643	FGraphType := GRAPH_FLOAT;
	644	FCreate := false;
	645	GetSize;
	646	end;
	647	end;
	648	if cboDateRange.ItemIndex < 0 then
	649	cboDateRange.ItemIndex := cboDateRange.Items.Count - 1;
	650	cboDateRangeChange(self);
	651	lvwItemsTopClick(self);
	652	if lvwItemsTop.Items.Count = 0 then
	653	begin
	654	cboViewsTop.ItemIndex := 0;
	655	cboViewsTop.Text := '';
	656	end;
	657	//else
	658	// lvwItemsTop.SetFocus;
	659	//chkItemsTop.SetFocus;
	660	cboViewsTop.SetFocus;
	661	//Perform(WM_NextDlgCtl, 0, 0);
	662	end;
	663
	664	procedure TfrmGraphs.FormClose(Sender: TObject; var Action: TCloseAction);
	665	begin
	666	SetSize;
	667	timHintPause.Enabled := false;
	668	InactivateHint;
	669	frmFrame.GraphFloatActive := false;
	670	end;
	671
	672	procedure TfrmGraphs.GetSize;
	673	var
	674	i, v1, v2, v3, v4: integer;
	675	name, settings, value: string;
	676	aList: TStrings;
	677	begin
	678	aList := TStringList.Create;
	679	FastAssign(rpcGetGraphSizing, aList);
	680	for i := 0 to aList.Count - 1 do
	681	begin
	682	settings := aList[i];
	683	name := Piece(settings, '^', 1);
	684	value := Piece(settings, '^', 2);
	685	if length(value) > 1 then
	686	begin
	687	v1 := strtointdef(Piece(value, ',', 1), 0);
	688	v2 := strtointdef(Piece(value, ',', 2), 0);
	689	v3 := strtointdef(Piece(value, ',', 3), 0);
	690	v4 := strtointdef(Piece(value, ',', 4), 0);
	691	if FGraphType = GRAPH_FLOAT then
	692	begin
	693	if name = 'FBOUNDS' then
	694	begin
	695	if value = '0,0,0,0' then
	696	WindowState := wsMaximized
	697	else
	698	begin
	699	if v1 > 0 then Left := v1;
	700	if v2 > 0 then Top := v2;
	701	if v3 > 0 then Width := v3;
	702	if v4 > 0 then Height := v4;
	703	end;
	704	end
	705	else if name = 'FWIDTH' then
	706	begin
	707	if v1 > 0 then
	708	begin
	709	pnlItemsTop.Width := v1;
	710	splItemsTopMoved(self);
	711	end;
	712	end
	713	else if name = 'FBOTTOM' then
	714	begin
	715	if v1 > 0 then
	716	begin
	717	chkDualViews.Checked := true;
	718	chkDualViewsClick(self);
	719	pnlBottom.Height := v1;
	720	end;
	721	end
	722	else if name = 'FCOLUMN' then
	723	begin
	724	if v1 > 0 then lvwItemsTop.Column[0].Width := v1;
	725	if v2 > 0 then lvwItemsTop.Column[1].Width := v2;
	726	if v3 > 0 then lvwItemsTop.Column[2].Width := v3;
	727	if v4 > 0 then lvwItemsTop.Column[3].Width := v4;
	728	end
	729	else if name = 'FBCOLUMN' then
	730	begin
	731	if v1 > 0 then lvwItemsBottom.Column[0].Width := v1;
	732	if v2 > 0 then lvwItemsBottom.Column[1].Width := v2;
	733	if v3 > 0 then lvwItemsBottom.Column[2].Width := v3;
	734	if v4 > 0 then lvwItemsBottom.Column[3].Width := v4;
	735	end;
	736	end
	737	else
	738	begin
	739	if name = 'RWIDTH' then
	740	begin
	741	if v1 > 0 then
	742	begin
	743	pnlItemsTop.Width := v1;
	744	splItemsTopMoved(self);
	745	end;
	746	end
	747	else if name = 'RBOTTOM' then
	748	begin
	749	if v1 > 0 then
	750	begin
	751	pnlBottom.Height := v1;
	752	splGraphsMoved(splGraphs);
	753	end;
	754	end
	755	else if name = 'RCOLUMN' then
	756	begin
	757	if v1 > 0 then lvwItemsTop.Column[0].Width := v1;
	758	if v2 > 0 then lvwItemsTop.Column[1].Width := v2;
	759	if v3 > 0 then lvwItemsTop.Column[2].Width := v3;
	760	if v4 > 0 then lvwItemsTop.Column[3].Width := v4;
	761	end
	762	else if name = 'RBCOLUMN' then
	763	begin
	764	if v1 > 0 then lvwItemsBottom.Column[0].Width := v1;
	765	if v2 > 0 then lvwItemsBottom.Column[1].Width := v2;
	766	if v3 > 0 then lvwItemsBottom.Column[2].Width := v3;
	767	if v4 > 0 then lvwItemsBottom.Column[3].Width := v4;
	768	end;
	769	end;
	770	end;
	771	end;
	772	FreeAndNil(aList);
	773	end;
	774
	775	procedure TfrmGraphs.SetSize;
	776	var
	777	name, v1, v2, v3, v4: string;
	778	aList: TStrings;
	779	begin
	780	aList := TStringList.Create;
	781	if FGraphType = GRAPH_FLOAT then
	782	begin
	783	name := 'FBOUNDS';
	784	v1 := inttostr(Left);
	785	v2 := inttostr(Top);
	786	v3 := inttostr(Width);
	787	v4 := inttostr(Height);
	788	if WindowState = wsMaximized then
	789	aList.Add(name + '^0,0,0,0')
	790	else
	791	aList.Add(name + '^' + v1 +',' + v2 +',' + v3 +',' + v4);
	792	name := 'FWIDTH';
	793	v1 := inttostr(splItemsTop.Left);
	794	aList.Add(name + '^' + v1);
	795	name := 'FBOTTOM';
	796	if chkDualViews.Checked then
	797	v1 := inttostr(pnlBottom.Height)
	798	else
	799	v1 := '0';
	800	aList.Add(name + '^' + v1);
	801	name := 'FCOLUMN';
	802	v1 := inttostr(lvwItemsTop.Column[0].Width);
	803	v2 := inttostr(lvwItemsTop.Column[1].Width);
	804	v3 := inttostr(lvwItemsTop.Column[2].Width);
	805	v4 := inttostr(lvwItemsTop.Column[3].Width);
	806	aList.Add(name + '^' + v1 +',' + v2 +',' + v3 +',' + v4);
	807	name := 'FBCOLUMN';
	808	v1 := inttostr(lvwItemsBottom.Column[0].Width);
	809	v2 := inttostr(lvwItemsBottom.Column[1].Width);
	810	v3 := inttostr(lvwItemsBottom.Column[2].Width);
	811	v4 := inttostr(lvwItemsBottom.Column[3].Width);
	812	aList.Add(name + '^' + v1 +',' + v2 +',' + v3 +',' + v4);
	813	end
	814	else
	815	begin
	816	name := 'RWIDTH';
	817	v1 := inttostr(splItemsTop.Left);
	818	aList.Add(name + '^' + v1);
	819	name := 'RBOTTOM';
	820	if chkDualViews.Checked then
	821	v1 := inttostr(pnlBottom.Height)
	822	else
	823	v1 := '0';
	824	aList.Add(name + '^' + v1);
	825	name := 'RCOLUMN';
	826	v1 := inttostr(lvwItemsTop.Column[0].Width);
	827	v2 := inttostr(lvwItemsTop.Column[1].Width);
	828	v3 := inttostr(lvwItemsTop.Column[2].Width);
	829	v4 := inttostr(lvwItemsTop.Column[3].Width);
	830	aList.Add(name + '^' + v1 +',' + v2 +',' + v3 +',' + v4);
	831	name := 'RBCOLUMN';
	832	v1 := inttostr(lvwItemsBottom.Column[0].Width);
	833	v2 := inttostr(lvwItemsBottom.Column[1].Width);
	834	v3 := inttostr(lvwItemsBottom.Column[2].Width);
	835	v4 := inttostr(lvwItemsBottom.Column[3].Width);
	836	aList.Add(name + '^' + v1 +',' + v2 +',' + v3 +',' + v4);
	837	end;
	838	rpcSetGraphSizing(aList);
	839	FreeAndNil(aList);
	840	end;
	841
	842	procedure TfrmGraphs.btnCloseClick(Sender: TObject);
	843	begin
	844	Close;
	845	end;
	846
	847	procedure TfrmGraphs.btnChangeSettingsClick(Sender: TObject);
	848	var
	849	needtoupdate, okbutton: boolean;
	850	conv, i, preconv: integer;
	851	PreMaxGraphs: integer;
	852	PreMaxSelect: integer;
	853	PreMinGraphHeight: integer;
	854	PreSortColumn: integer;
	855	PreFixedDateRange: boolean;
	856	aSettings, filetype, sourcetype: string;
	857	PreSources: TStrings;
	858	begin
	859	okbutton := false;
	860	conv := btnChangeSettings.Tag;
	861	preconv := conv;
	862	with FGraphSetting do
	863	begin
	864	PreMaxGraphs := MaxGraphs;
	865	PreMaxSelect := MaxSelect;
	866	PreMinGraphHeight := MinGraphHeight;
	867	PreSortColumn := SortColumn;
	868	PreFixedDateRange := FixedDateRange;
	869	MaxSelectMin := Max(Max(lvwItemsTop.SelCount, lvwItemsBottom.SelCount), 1);
	870	end;
	871	PreSources := TStringList.Create;
	872	PreSources.Assign(FSources);
	873	DialogGraphSettings(Font.Size, okbutton, FGraphSetting, FSources, conv, aSettings);
	874	if not okbutton then exit;
	875	if length(aSettings) > 0 then frmFrame.mnuToolsGraphing.Hint := aSettings;
	876	btnChangeSettings.Tag := conv;
	877	pnlInfo.Font.Size := lblViewsTop.Font.Size;
	878	SetFontSize(lblViewsTop.Font.Size);
	879	pnlInfo.Visible := conv > 0;
	880	if conv > 0 then
	881	begin
	882	pnlInfo.Caption := TXT_WARNING;
	883	pnlInfo.Color := COLOR_WARNING;
	884	end;
	885	pnlHeader.Visible := pnlInfo.Visible;
	886	StayOnTop;
	887	needtoupdate := (conv <> preconv);
	888	for i := 0 to FSources.Count - 1 do
	889	begin
	890	sourcetype := FSources[i];
	891	if Copy(sourcetype, 1, 1) = '*' then
	892	begin
	893	FSources[i] := Pieces(sourcetype, '^', 2, 4);
	894	filetype := Piece(FSources[i], '^', 1);
	895	lstItems.Items.AddStrings(rpcGetItems(filetype, Patient.DFN));
	896	needtoupdate := true;
	897	end;
	898	if not needtoupdate then
	899	if Piece(PreSources[i], '^', 3) = '0' then
	900	needtoupdate := TypeIsDisplayed(Piece(sourcetype, '^', 1))
	901	else
	902	needtoupdate := not TypeIsDisplayed(Piece(sourcetype, '^', 1));
	903	end;
	904	if not needtoupdate then
	905	with FGraphSetting do
	906	if MaxGraphs <> PreMaxGraphs then
	907	needtoupdate := true
	908	else if MaxSelect <> PreMaxSelect then
	909	needtoupdate := true
	910	else if MinGraphHeight <> PreMinGraphHeight then
	911	needtoupdate := true
	912	else if SortColumn <> PreSortColumn then
	913	needtoupdate := true
	914	else if FixedDateRange <> PreFixedDateRange then
	915	needtoupdate := true;
	916	if needtoupdate then
	917	begin
	918	cboDateRangeChange(self);
	919	end;
	920	ChangeStyle;
	921	if lvwItemsTop.SelCount = 0 then
	922	begin
	923	cboViewsTop.ItemIndex := -1;
	924	cboViewsTop.Text := '';
	925	end;
	926	if lvwItemsBottom.SelCount = 0 then
	927	begin
	928	cboViewsBottom.ItemIndex := -1;
	929	cboViewsBottom.Text := '';
	930	end;
	931	end;
	932
	933	procedure TfrmGraphs.chkDualViewsClick(Sender: TObject);
	934	begin
	935	if chkDualViews.Checked then
	936	begin
	937	pnlBottom.Height := pnlMain.Height div 2;
	938	lvwItemsTopClick(self);
	939	end
	940	else
	941	begin
	942	lvwItemsBottom.ClearSelection;
	943	lvwItemsBottomClick(self);
	944	pnlBottom.Height := 1;
	945	end;
	946	mnuPopGraphDualViews.Checked := chkDualViews.Checked;
	947	with pnlMain.Parent do
	948	if BorderWidth <> 1 then // only do on Graph in Reports tab
	949	frmReports.chkDualViews.Checked := chkDualViews.Checked;
	950	end;
	951
	952	procedure TfrmGraphs.LoadListView(aList: TStrings);
	953	var
	954	i: integer;
	955	filename, filenum, itemnum: string;
	956	begin
	957	lvwItemsTop.Items.Clear;
	958	lvwItemsBottom.Items.Clear;
	959	lvwItemsTop.SortType := stNone; // if Sorting during load then potential error
	960	lvwItemsBottom.SortType := stNone; // if Sorting during load then potential error
	961	with lvwItemsTop do
	962	for i := 0 to aList.Count - 1 do
	963	begin
	964	filenum := Piece(aList[i], '^', 1);
	965	filename := FileNameX(filenum); // change rpc **********
	966	itemnum := Piece(aList[i], '^', 2);
	967	UpdateView(filename, filenum, itemnum, aList[i], lvwItemsTop);
	968	end;
	969	lvwItemsBottom.Items.Assign(lvwItemsTop.Items);
	970	lvwItemsTop.SortType := stBoth;
	971	lvwItemsBottom.SortType := stBoth;
	972	if not FItemsSortedTop then
	973	begin
	974	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
	975	FItemsSortedTop := true;
	976	end;
	977	if not FItemsSortedBottom then
	978	begin
	979	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
	980	FItemsSortedBottom := true;
	981	end;
	982	with FGraphSetting do
	983	if SortColumn > 0 then
	984	begin
	985	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[SortColumn]);
	986	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[SortColumn]);
	987	FItemsSortedTop := false;
	988	FItemsSortedBottom := false;
	989	end;
	990	end;
	991
	992	procedure TfrmGraphs.FilterListView(oldestdate, newestdate: double);
	993	var
	994	colnum, i: integer;
	995	lastdate: double;
	996	aProfile, filename, filenum, itemnum: string;
	997	begin
	998	lvwItemsTop.Scroll(-BIG_NUMBER, -BIG_NUMBER); //faster to set scroll at top
	999	lvwItemsBottom.Scroll(-BIG_NUMBER, -BIG_NUMBER);
	1000	lvwItemsTop.Items.Clear;
	1001	lvwItemsBottom.Items.Clear;
	1002	lvwItemsTop.SortType := stNone; // if Sorting during load then potential error
	1003	lvwItemsBottom.SortType := stNone; // if Sorting during load then potential error
	1004	if (cboDateRange.ItemIndex > 0) and (cboDateRange.ItemIndex < 9) then
	1005	begin
	1006	with lvwItemsTop do
	1007	if TypeIsDisplayed('405') then
	1008	DateRangeItems(oldestdate, newestdate, '405'); // does not matter for all results ******************
	1009	if TypeIsDisplayed('52') then
	1010	DateRangeItems(oldestdate, newestdate, '52'); // does not matter for all results ******************
	1011	if TypeIsDisplayed('55') then
	1012	DateRangeItems(oldestdate, newestdate, '55');
	1013	if TypeIsDisplayed('55NVA') then
	1014	DateRangeItems(oldestdate, newestdate, '55NVA');
	1015	if TypeIsDisplayed('9999911') then
	1016	DateRangeItems(oldestdate, newestdate, '9999911');
	1017	for i := 0 to lstItems.Items.Count - 1 do
	1018	begin
	1019	filenum := UpperCase(Piece(lstItems.Items[i], '^', 1));
	1020	if filenum <> '405' then
	1021	if filenum <> '52' then
	1022	if filenum <> '55' then
	1023	if filenum <> '55NVA' then
	1024	if filenum <> '9999911' then
	1025	if TypeIsDisplayed(filenum) then
	1026	begin
	1027	lastdate := strtofloatdef(Piece(lstItems.Items[i], '^', 6), -BIG_NUMBER);
	1028	if (lastdate > oldestdate) and (lastdate < newestdate) then
	1029	begin
	1030	filename := FileNameX(filenum);
	1031	itemnum := Piece(lstItems.Items[i], '^', 2);
	1032	UpdateView(filename, filenum, itemnum, lstItems.Items[i], lvwItemsTop);
	1033	end;
	1034	end;
	1035	end;
	1036	end
	1037	else if (cboDateRange.ItemIndex = 0) or (cboDateRange.ItemIndex > 8) then
	1038	begin // manual date range selection
	1039	for i := 0 to lstAllTypes.Items.Count - 1 do
	1040	begin
	1041	filenum := Piece(lstAllTypes.Items[i], '^', 1);
	1042	if TypeIsDisplayed(filenum) then
	1043	begin
	1044	DateRangeItems(oldestdate, newestdate, filenum);
	1045	end;
	1046	end;
	1047	end;
	1048	lvwItemsBottom.Items.Assign(lvwItemsTop.Items);
	1049	lvwItemsTop.SortType := stBoth;
	1050	lvwItemsBottom.SortType := stBoth;
	1051	colnum := 0;
	1052	if not FItemsSortedTop then
	1053	begin
	1054	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
	1055	FItemsSortedTop := true;
	1056	end;
	1057	if not FItemsSortedBottom then
	1058	begin
	1059	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
	1060	FItemsSortedBottom := true;
	1061	end;
	1062	with FGraphSetting do
	1063	if SortColumn > 0 then
	1064	begin
	1065	colnum := SortColumn;
	1066	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[SortColumn]);
	1067	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[SortColumn]);
	1068	FItemsSortedTop := false;
	1069	FItemsSortedBottom := false;
	1070	end;
	1071	if cboViewsTop.ItemIndex > 1 then // sort by view
	1072	begin
	1073	aProfile := cboViewsTop.Items[cboViewsTop.ItemIndex];
	1074	AssignProfile(aProfile, 'top');
	1075	if not FItemsSortedTop then lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[colnum]);
	1076	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[2]);
	1077	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[2]);
	1078	FItemsSortedTop := false;
	1079	end;
	1080	if cboViewsBottom.ItemIndex > 1 then // sort by view
	1081	begin
	1082	aProfile := cboViewsBottom.Items[cboViewsBottom.ItemIndex];
	1083	AssignProfile(aProfile, 'bottom');
	1084	if not FItemsSortedBottom then lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[colnum]);
	1085	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[2]);
	1086	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[2]);
	1087	FItemsSortedBottom := false;
	1088	end;
	1089	end;
	1090
	1091	procedure TfrmGraphs.DateRangeItems(oldestdate, newestdate: double; filenum: string);
	1092	var
	1093	i, j: integer;
	1094	filename, itemnum, itemstuff, mitemnum: string;
	1095	begin
	1096	FastAssign(rpcDateItem(oldestdate, newestdate, filenum, Patient.DFN), lstScratchTemp.Items);
	1097	filename := FileNameX(filenum);
	1098	with lvwItemsTop do
	1099	for i := 0 to lstScratchTemp.Items.Count - 1 do
	1100	begin
	1101	itemstuff := lstScratchTemp.Items[i];
	1102	itemnum := UpperCase(Piece(itemstuff, '^',2));
	1103	for j := 0 to lstItems.Items.Count - 1 do
	1104	if (filenum = UpperCase(Piece(lstItems.Items[j], '^', 1))) and (itemnum = UpperCase(Piece(lstItems.Items[j], '^', 2))) then
	1105	UpdateView(filename, filenum, itemnum, lstItems.Items[j], lvwItemsTop);
	1106	if filenum = '63' then
	1107	for j := 0 to lstMultiSpec.Items.Count - 1 do
	1108	begin
	1109	mitemnum := Piece(lstMultiSpec.Items[j], '^', 2);
	1110	if itemnum = Piece(mitemnum, '.', 1) then
	1111	if DateRangeMultiItems(oldestdate, newestdate, mitemnum) then //******** check specific date range
	1112	UpdateView(filename, filenum, mitemnum, lstMultiSpec.Items[j], lvwItemsTop);
	1113	end;
	1114	end;
	1115	end;
	1116
	1117	procedure TfrmGraphs.UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView);
	1118	var
	1119	drugclass, itemname, itemqualifier: string;
	1120	aGraphItem: TGraphItem;
	1121	aListItem: TListItem;
	1122	begin
	1123	itemname := Piece(aString, '^', 4);
	1124	itemqualifier := Pieces(aString, '^', 5, 9);
	1125	itemqualifier := filenum + '^' + itemnum + '^' + itemqualifier;
	1126	drugclass := Piece(aString, '^', 8);
	1127	aListItem := aListView.Items.Add;
	1128	with aListItem do
	1129	begin
	1130	Caption := itemname;
	1131	SubItems.Add(filename);
	1132	SubItems.Add('');
	1133	SubItems.Add(drugclass);
	1134	aGraphItem := TGraphItem.Create;
	1135	aGraphItem.Values := itemqualifier;
	1136	SubItems.AddObject('info object', aGraphItem);
	1137	end;
	1138	end;
	1139
	1140	function TfrmGraphs.DateRangeMultiItems(aOldDate, aNewDate: double; aMultiItem: string): boolean;
	1141	var
	1142	i: integer;
	1143	checkdate: double;
	1144	fileitem: string;
	1145	begin
	1146	Result := false;
	1147	fileitem := '63^' + aMultiItem;
	1148	for i := 0 to lstData.Items.Count - 1 do
	1149	if Pieces(lstData.Items[i], '^', 1, 2) = fileitem then
	1150	begin
	1151	checkdate := strtofloatdef(Piece(lstData.Items[i], '^', 3), BIG_NUMBER);
	1152	if checkdate <> BIG_NUMBER then
	1153	if checkdate >= aOldDate then
	1154	if checkdate <= aNewDate then
	1155	begin
	1156	Result := true;
	1157	break;
	1158	end;
	1159	end;
	1160	end;
	1161
	1162	function TfrmGraphs.FileNameX(filenum: string): string;
	1163	var
	1164	i: integer;
	1165	typestring: string;
	1166	begin
	1167	Result := '';
	1168	with lstAllTypes do
	1169	for i := 0 to Items.Count - 1 do
	1170	begin
	1171	typestring := Items[i];
	1172	if Piece(typestring, '^', 1) = filenum then
	1173	begin
	1174	Result := Piece(Items[i], '^', 2);
	1175	break;
	1176	end;
	1177	end;
	1178	if Result = '' then
	1179	begin
	1180	with lstAllTypes do
	1181	for i := 0 to Items.Count - 1 do
	1182	begin
	1183	typestring := Items[i];
	1184	if lowercase(Piece(typestring, '^', 1)) = filenum then
	1185	begin
	1186	Result := Piece(Items[i], '^', 2);
	1187	break;
	1188	end;
	1189	end;
	1190	end;
	1191	end;
	1192
	1193	function TfrmGraphs.ItemName(filenum, itemnum: string): string;
	1194	var
	1195	i: integer;
	1196	typestring: string;
	1197	begin
	1198	Result := '';
	1199	filenum := UpperCase(filenum);
	1200	itemnum := UpperCase(itemnum);
	1201	with lstItems do
	1202	for i := 0 to Items.Count - 1 do
	1203	begin
	1204	typestring := UpperCase(Items[i]);
	1205	if (Piece(typestring, '^', 1) = filenum) and
	1206	(Piece(typestring, '^', 2) = itemnum) then
	1207	begin
	1208	Result := Piece(typestring, '^', 4);
	1209	break;
	1210	end;
	1211	end;
	1212	end;
	1213
	1214	procedure TfrmGraphs.InitialData;
	1215	var
	1216	i, total: integer;
	1217	dfntype, listline: string;
	1218	begin
	1219	total := pnlData.ControlCount - 1;
	1220	with pnlData do
	1221	for i:= 0 to total do
	1222	if Controls[i] is TListBox then
	1223	if Controls[i] <> lstAllTypes then
	1224	if Controls[i] <> lstTestSpec then
	1225	(Controls[i] as TListBox).Items.Clear;
	1226	SourcesDefault;
	1227	FSources.Assign(FSourcesDefault);
	1228	btnChangeSettings.Tag :=0;
	1229	btnClose.Tag := 0;
	1230	cboViewsTop.Tag :=0;
	1231	chartDatelineTop.Tag :=0;
	1232	lvwItemsBottom.Tag :=0;
	1233	lvwItemsTop.Tag :=0;
	1234	pnlFooter.Parent.Tag :=0;
	1235	pnlItemsBottom.Tag :=0;
	1236	pnlItemsTop.Tag :=0;
	1237	pnlTop.Tag :=0;
	1238	scrlTop.Tag :=0;
	1239	splGraphs.Tag :=0;
	1240	cboViewsTop.ItemIndex := -1;
	1241	cboViewsBottom.ItemIndex := -1;
	1242	FastAssign(rpcGetTypes(Patient.DFN, false), lstTypes.Items);
	1243	for i := 0 to lstTypes.Items.Count - 1 do
	1244	begin
	1245	dfntype := UpperCase(Piece(lstTypes.Items[i], '^', 1));
	1246	if TypeIsLoaded(dfntype) then
	1247	lstItems.Items.AddStrings(rpcGetItems(dfntype, Patient.DFN));
	1248	listline := lstTypes.Items[i];
	1249	dfntype := UpperCase(Piece(listline, '^', 1));
	1250	SetPiece(listline, '^', 1, dfntype);
	1251	lstTypes.Items[i] := listline;
	1252	end;
	1253	lstTypes.Hint := Patient.DFN; // use to check for patient change
	1254	FMTimestamp := floattostr(FMNow);
	1255	FPrevEvent := '';
	1256	FWarning := false;
	1257	FFirstSwitch := true;
	1258	end;
	1259
	1260	function TfrmGraphs.TypeIsLoaded(itemtype: string): boolean;
	1261	var
	1262	i: integer;
	1263	filetype: string;
	1264	begin
	1265	Result := false;
	1266	for i := 0 to FSources.Count - 1 do
	1267	begin
	1268	filetype := Piece(FSources[i], '^', 1);
	1269	if itemtype = filetype then
	1270	begin
	1271	Result := true;
	1272	break;
	1273	end;
	1274	end;
	1275	end;
	1276
	1277	function TfrmGraphs.TypeIsDisplayed(itemtype: string): boolean;
	1278	var
	1279	i: integer;
	1280	displayed, filetype: string;
	1281	begin
	1282	Result := false;
	1283	for i := 0 to FSources.Count - 1 do
	1284	begin
	1285	filetype := Piece(FSources[i], '^', 1);
	1286	displayed := Piece(FSources[i], '^', 3);
	1287	if (itemtype = filetype) then
	1288	begin
	1289	if displayed = '1' then Result := true;
	1290	break;
	1291	end;
	1292	end;
	1293	end;
	1294
	1295	procedure TfrmGraphs.LoadDateRange;
	1296	var
	1297	defaults, defaultrange: string;
	1298	begin
	1299	FastAssign(rpcGetGraphDateRange('OR_GRAPHS'), cboDateRange.Items);
	1300	with cboDateRange do
	1301	begin
	1302	defaults := Items[Items.Count - 1];
	1303	defaultrange := Piece(defaults, '^', 1);
	1304	//get report views - param 1 and param 2
	1305	lvwItemsTop.Hint := Piece(defaults,'^', 8); // top view
	1306	lvwItemsBottom.Hint := Piece(defaults,'^', 9); // bottom view
	1307	//check if default range already exists
	1308	if strtointdef(defaultrange, BIG_NUMBER) = BIG_NUMBER then
	1309	ItemIndex := Items.Count - 1;
	1310	end;
	1311	end;
	1312
	1313	procedure TfrmGraphs.LoadType(itemtype, displayed: string);
	1314	var
	1315	needtoadd: boolean;
	1316	i: integer;
	1317	filename, filetype: string;
	1318	begin
	1319	if displayed <> '1' then displayed := '';
	1320	needtoadd := true;
	1321	for i := 0 to FSources.Count - 1 do
	1322	begin
	1323	filetype := Piece(FSources[i], '^', 1);
	1324	if itemtype = filetype then
	1325	begin
	1326	needtoadd := false;
	1327	break;
	1328	end;
	1329	end;
	1330	if needtoadd then
	1331	begin
	1332	filename := FileNameX(itemtype);
	1333	FSources.Add(itemtype + '^' + filename + '^' + displayed);
	1334	lstItems.Items.AddStrings(rpcGetItems(itemtype, Patient.DFN));
	1335	end;
	1336	end;
	1337
	1338	procedure TfrmGraphs.DisplayType(itemtype, displayed: string);
	1339	var
	1340	i: integer;
	1341	filename, filetype: string;
	1342	begin
	1343	if displayed <> '1' then displayed := '';
	1344	for i := 0 to FSources.Count - 1 do
	1345	begin
	1346	filetype := Piece(FSources[i], '^', 1);
	1347	if itemtype = filetype then
	1348	begin
	1349	filename := FileNameX(itemtype);
	1350	FSources[i] := itemtype + '^' + filename + '^' + displayed;
	1351	break;
	1352	end;
	1353	end;
	1354	end;
	1355
	1356	procedure TfrmGraphs.DisplayData(aSection: string);
	1357	var
	1358	aChart: TChart;
	1359	aCheckBox: TCheckBox;
	1360	aListView, aOtherListView: TListView;
	1361	aDateline, aRightPad: TPanel;
	1362	aScrollBox: TScrollBox;
	1363	begin
	1364	FHintStop := true;
	1365	SetFontSize(lblViewsTop.Font.Size);
	1366	if aSection = 'top' then
	1367	begin
	1368	aListView := lvwItemsTop;
	1369	aOtherListView := lvwItemsBottom;
	1370	aDateline := pnlDatelineTop;
	1371	aRightPad := pnlTopRightPad;
	1372	aScrollBox := scrlTop;
	1373	aChart := chartDatelineTop;
	1374	aCheckBox := chkItemsTop;
	1375	end
	1376	else
	1377	begin
	1378	aListView := lvwItemsBottom;
	1379	aOtherListView := lvwItemsTop;
	1380	aDateline := pnlDatelineBottom;
	1381	aRightPad := pnlBottomRightPad;
	1382	aScrollBox := scrlBottom;
	1383	aChart := chartDatelineBottom;
	1384	aCheckBox := chkItemsBottom;
	1385	end;
	1386	if aListView.SelCount < 1 then
	1387	begin
	1388	if not FFirstClick then
	1389	begin
	1390	FFirstClick := true;
	1391	while aScrollBox.ControlCount > 0 do
	1392	aScrollBox.Controls[0].Free;
	1393	exit;
	1394	end;
	1395	FFirstClick := false;
	1396	aDateline.Visible := false;
	1397	while aScrollBox.ControlCount > 0 do
	1398	aScrollBox.Controls[0].Free;
	1399	if aOtherListView.SelCount > 0 then
	1400	if aOtherListView = lvwItemsTop then
	1401	ItemsClick(self, lvwItemsTop, lvwItemsBottom, chkItemsTop, cboViewsTop, lstSelCopyTop, 'top')
	1402	else
	1403	ItemsClick(self, lvwItemsBottom, lvwItemsTop, chkItemsBottom, cboViewsBottom, lstSelCopyBottom, 'bottom');
	1404	exit;
	1405	end;
	1406	aScrollBox.VertScrollBar.Visible := false;
	1407	aScrollBox.HorzScrollBar.Visible := false;
	1408	aChart.RemoveAllSeries; // this would leave bottom dateline visible on date change
	1409	//chartDatelineTop.RemoveAllSeries; // do both
	1410	//chartDatelineBottom.RemoveAllSeries; // do both
	1411	lstNonNumeric.Items.Clear;
	1412	if aCheckBox.Checked then
	1413	MakeSeparate(aScrollBox, aListView, aRightPad, aSection)
	1414	else
	1415	begin
	1416	MakeTogether(aScrollBox, aListView, aRightPad, aSection);
	1417	end;
	1418	ChangeStyle;
	1419	pnlInfo.Font.Size := lblViewsTop.Font.Size;
	1420	if ((lvwItemsTop.SelCount > MAX_ITEM_DISCLAIMER) and (not chkItemsTop.Checked))
	1421	or ((lvwItemsBottom.SelCount > MAX_ITEM_DISCLAIMER) and (not chkItemsBottom.Checked)) then
	1422	begin
	1423	pnlInfo.Caption := TXT_DISCLAIMER;
	1424	pnlInfo.Color := COLOR_WARNING;
	1425	pnlInfo.Visible := true;
	1426	end
	1427	else
	1428	pnlInfo.Visible := false;
	1429	if btnChangeSettings.Tag > 0 then
	1430	begin
	1431	pnlInfo.Caption := TXT_WARNING;
	1432	pnlInfo.Color := COLOR_WARNING;
	1433	pnlInfo.Visible := true;
	1434	end;
	1435	//if copy(pnlInfo.Caption, 1, 7) = 'Warning' then
	1436	if FWarning then
	1437	pnlInfo.Visible := true;
	1438	pnlHeader.Visible := pnlInfo.Visible;
	1439	aScrollBox.VertScrollBar.Visible := true;
	1440	aScrollBox.HorzScrollBar.Visible := false;
	1441	end;
	1442
	1443	procedure TfrmGraphs.chkItemsTopClick(Sender: TObject);
	1444	begin
	1445	Screen.Cursor := crHourGlass;
	1446	DisplayData('top');
	1447	if FFirstSwitch then // this code makes events appear better (on first click was not displaying bar)
	1448	begin
	1449	chartBaseMouseDown(chartDatelineTop, mbLeft, [], 1, 1);
	1450	DisplayData('top');
	1451	FFirstSwitch := false;
	1452	end;
	1453	Screen.Cursor := crDefault;
	1454	end;
	1455
	1456	procedure TfrmGraphs.chkItemsBottomClick(Sender: TObject);
	1457	begin
	1458	Screen.Cursor := crHourGlass;
	1459	DisplayData('bottom');
	1460	if FFirstSwitch then // this code makes events appear better (on first click was not displaying bar)
	1461	begin
	1462	chartBaseMouseDown(chartDatelineBottom, mbLeft, [], 1, 1);
	1463	DisplayData('bottom');
	1464	FFirstSwitch := false;
	1465	end;
	1466	Screen.Cursor := crDefault;
	1467	end;
	1468
	1469	procedure TfrmGraphs.BottomAxis(aScrollBox: TScrollBox);
	1470	var
	1471	i: integer;
	1472	ChildControl: TControl;
	1473	begin
	1474	for i := 0 to aScrollBox.ControlCount - 1 do
	1475	begin
	1476	ChildControl := aScrollBox.Controls[i];
	1477	with (ChildControl as TChart).BottomAxis do
	1478	begin
	1479	Automatic := false;
	1480	Minimum := 0;
	1481	Maximum := chartDatelineTop.BottomAxis.Maximum;
	1482	Minimum := chartDatelineTop.BottomAxis.Minimum;
	1483	end;
	1484	end;
	1485	end;
	1486
	1487	procedure TfrmGraphs.AdjustTimeframe;
	1488	begin
	1489	with FGraphSetting do
	1490	begin
	1491	if HighTime = 0 then exit; // no data to chart clear form ???
	1492	chartDatelineTop.BottomAxis.Minimum := 0; // avoid possible error
	1493	chartDatelineTop.BottomAxis.Maximum := HighTime;
	1494	if LowTime < HighTime then
	1495	chartDatelineTop.BottomAxis.Minimum := LowTime;
	1496	chartDatelineBottom.BottomAxis.Minimum := 0; // avoid possible error
	1497	chartDatelineBottom.BottomAxis.Maximum := HighTime;
	1498	if HighTime > FMDateTimeToDateTime(FMStopDate) then
	1499	chartDatelineTop.BottomAxis.Maximum := FMDateTimeToDateTime(FMStopDate);
	1500	if LowTime < FMDateTimeToDateTime(FMStartDate) then
	1501	chartDatelineTop.BottomAxis.Minimum := FMDateTimeToDateTime(FMStartDate); // *****
	1502	end;
	1503	BottomAxis(scrlTop);
	1504	BottomAxis(scrlBottom);
	1505	end;
	1506
	1507	procedure TfrmGraphs.ChartOnZoom(Sender: TObject);
	1508	var
	1509	i: integer;
	1510	padding: double;
	1511	datehx: string;
	1512	BigTime, SmallTime: TDateTime;
	1513	ChildControl: TControl;
	1514	begin
	1515	if not (Sender is TChart) then exit;
	1516	if not FGraphSetting.VerticalZoom then
	1517	begin
	1518	padding := 0; //(FYMaxValue - FYMinValue) * ((100 - ZOOM_PERCENT) * 0.01);
	1519	(Sender as TChart).LeftAxis.Maximum := BIG_NUMBER; // avoid min>max error
	1520	(Sender as TChart).LeftAxis.Minimum := -BIG_NUMBER;
	1521	(Sender as TChart).LeftAxis.Maximum := FYMaxValue + padding; //padding 0?
	1522	(Sender as TChart).LeftAxis.Minimum := FYMinValue - padding; //padding 0?
	1523	end;
	1524	SmallTime := (Sender as TChart).BottomAxis.Minimum;
	1525	BigTime := (Sender as TChart).BottomAxis.Maximum;
	1526	if BigTime < SmallTime then BigTime := SmallTime; // avoid min>max error
	1527	for i := 0 to scrlTop.ControlCount - 1 do
	1528	begin
	1529	ChildControl := scrlTop.Controls[i];
	1530	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	1531	end;
	1532	SizeDates(chartDatelineTop, SmallTime, BigTime);
	1533	for i := 0 to scrlBottom.ControlCount - 1 do
	1534	begin
	1535	ChildControl := scrlBottom.Controls[i];
	1536	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	1537	end;
	1538	SizeDates(chartDatelineBottom, SmallTime, BigTime);
	1539	if FMouseDown and (Sender as TChart).Zoomed then
	1540	begin
	1541	datehx := FloatToStr(SmallTime) + '^' + FloatToStr(BigTime);
	1542	lstZoomHistory.Items.Add(datehx);
	1543	mnuPopGraphZoomBack.Enabled := true;
	1544	FMouseDown := false;
	1545	ZoomUpdateinfo(SmallTime, BigTime);
	1546	end;
	1547	end;
	1548
	1549	procedure TfrmGraphs.ChartOnUndoZoom(Sender: TObject);
	1550	var
	1551	i: integer;
	1552	padding: double;
	1553	BigTime, SmallTime: TDateTime;
	1554	ChildControl: TControl;
	1555	begin
	1556	if not (Sender is TChart) then exit;
	1557	FRetainZoom := false;
	1558	mnuPopGraphZoomBack.Enabled := false;
	1559	lstZoomHistory.Items.Clear;
	1560	if not FGraphSetting.VerticalZoom then
	1561	begin
	1562	padding := 0; //(FYMaxValue - FYMinValue) * ((100 - ZOOM_PERCENT) * 0.01);
	1563	(Sender as TChart).LeftAxis.Maximum := BIG_NUMBER; // avoid min>max error
	1564	(Sender as TChart).LeftAxis.Minimum := -BIG_NUMBER;
	1565	(Sender as TChart).LeftAxis.Maximum := FYMaxValue + padding; //padding 0?
	1566	(Sender as TChart).LeftAxis.Minimum := FYMinValue - padding; //padding 0?
	1567	end;
	1568	SmallTime := (Sender as TChart).BottomAxis.Minimum;
	1569	BigTime := (Sender as TChart).BottomAxis.Maximum;
	1570	if BigTime < SmallTime then BigTime := SmallTime; // avoid min>max error
	1571	for i := 0 to scrlTop.ControlCount - 1 do
	1572	begin
	1573	ChildControl := scrlTop.Controls[i];
	1574	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	1575	end;
	1576	SizeDates(chartDatelineTop, SmallTime, BigTime);
	1577	for i := 0 to scrlBottom.ControlCount - 1 do
	1578	begin
	1579	ChildControl := scrlBottom.Controls[i];
	1580	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	1581	end;
	1582	SizeDates(chartDatelineBottom, SmallTime, BigTime);
	1583	if FMouseDown then
	1584	begin
	1585	FMouseDown := false;
	1586	pnlInfo.Caption := '';
	1587	pnlInfo.Color := COLOR_INFO;
	1588	pnlInfo.Visible := false;
	1589	pnlHeader.Visible := false;
	1590	end;
	1591	end;
	1592
	1593	procedure TfrmGraphs.SizeDates(aChart: TChart; aSmallTime, aBigTime: TDateTime);
	1594	var
	1595	datediff, yeardiff: integer;
	1596	begin
	1597	with aChart.BottomAxis do
	1598	begin
	1599	Automatic := false;
	1600	Maximum := BIG_NUMBER; // avoid min>max error
	1601	Minimum := -BIG_NUMBER;
	1602	Minimum := aSmallTime;
	1603	Maximum := aBigTime;
	1604	Increment := DateTimeStep[dtOneMinute];
	1605	datediff := DaysBetween(aBigTime, aSmallTime);
	1606	yeardiff := datediff div 365;
	1607	DateTimeFormat := '';
	1608	Labels := true;
	1609	if yeardiff > 0 then
	1610	begin
	1611	if (pnlScrollTopBase.Width div yeardiff) < DWIDTH_MDY then
	1612	DateTimeFormat := DFORMAT_MYY;
	1613	if (pnlScrollTopBase.Width div yeardiff) < DWIDTH_MYY then
	1614	DateTimeFormat := DFORMAT_YY;
	1615	if (pnlScrollTopBase.Width div yeardiff) < DWIDTH_YY then
	1616	Labels := false;
	1617	end;
	1618	end;
	1619	if datediff < 1 then
	1620	begin
	1621	if not aChart.Foot.Visible then
	1622	begin
	1623	aChart.Foot.Text.Clear;
	1624	aChart.Foot.Text.Insert(0, FormatDateTime('mmm d, yyyy', aSmallTime));
	1625	aChart.Foot.Font.Color := clBtnText;
	1626	aChart.Foot.Visible := true;
	1627	end;
	1628	end
	1629	else
	1630	aChart.Foot.Visible := false;
	1631	end;
	1632
	1633	procedure TfrmGraphs.MakeSeparate(aScrollBox: TScrollBox; aListView:
	1634	TListView; aPadPanel: TPanel; section: string);
	1635	var
	1636	acnt, bcnt, displayheight, displaynum, gcnt, graphtype, i, j, lcnt, ncnt, pcnt, vcnt: integer;
	1637	aTitle, checkdata, filetype, high, low, specimen, specnum, typeitem, units: string;
	1638	newchart: TChart;
	1639	aGraphItem: TGraphItem;
	1640	begin
	1641	FNonNumerics := false;
	1642	if section = 'top' then pnlItemsTop.Tag := 0 else pnlItemsBottom.Tag := 0;
	1643	while aScrollBox.ControlCount > 0 do
	1644	aScrollBox.Controls[0].Free;
	1645	aPadPanel.Visible := false;
	1646	if FGraphSetting.Hints then //**************
	1647	begin
	1648	chartDatelineTop.OnMouseMove := chartBaseMouseMove;
	1649	chartDatelineBottom.OnMouseMove := chartBaseMouseMove;
	1650	end
	1651	else
	1652	begin
	1653	chartDatelineTop.OnMouseMove := nil;
	1654	chartDatelineBottom.OnMouseMove := nil;
	1655	end;
	1656	pcnt := 0; gcnt := 0; vcnt := 0; lcnt := 0; ncnt := 0; bcnt := 0; acnt := 0;
	1657	for j := 0 to aListView.Items.Count - 1 do
	1658	if aListView.Items[j].Selected then
	1659	begin
	1660	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	1661	filetype := UpperCase(Piece(aGraphItem.Values, '^', 1));
	1662	typeitem := UpperCase(Piece(aGraphItem.Values, '^', 2));
	1663	graphtype := GraphTypeNum(filetype); //*****strtointdef(Piece(aListBox.Items[j], '^', 2), 1);
	1664	if (filetype = '63') and (lstData.Items.Count > 0) then
	1665	begin
	1666	checkdata := '';
	1667	for i := 0 to lstData.Items.Count - 1 do
	1668	begin
	1669	checkdata := lstData.Items[i];
	1670	if (Piece(checkdata, '^', 1) = '63') and (Piece(checkdata, '^', 2) = typeitem) then
	1671	break;
	1672	end;
	1673	specnum := Piece(checkdata, '^', 7);
	1674	specimen := Piece(checkdata, '^', 8);
	1675	RefUnits(typeitem, specnum, low, high, units);
	1676	units := LowerCase(units);
	1677	if units = '' then units := ' ';
	1678	end
	1679	else
	1680	begin
	1681	specimen := ''; low := ''; high := ''; units := '';
	1682	end;
	1683	aTitle := filetype + '^' + typeitem + '^' + aListView.Items[j].Caption + '^' +
	1684	specimen + '^' + low + '^' + high + '^' + units;
	1685	newchart := TChart.Create(self);
	1686	with newchart do
	1687	begin
	1688	Parent := aScrollBox;
	1689	View3D := false;
	1690	height := 170;
	1691	Align := alBottom;
	1692	Align := alTop;
	1693	AllowPanning := pmNone;
	1694	Legend.LegendStyle := lsSeries;
	1695	Legend.ShadowSize := 1;
	1696	Legend.Color := clCream;
	1697	Legend.VertMargin := 0;
	1698	Legend.Alignment := laTop;
	1699	Legend.Visible := true;
	1700	Gradient.EndColor := clGradientActiveCaption;
	1701	//SetPiece(aTitle, '^', 3, 'zzzz: ' + Piece(aTitle, '^', 3)); // test prefix
	1702	if (graphtype = 1) and (btnChangeSettings.Tag = 1) then
	1703	LeftAxis.Title.Caption := 'StdDev'
	1704	else if (graphtype = 1) and (btnChangeSettings.Tag = 2) then
	1705	begin
	1706	LeftAxis.Title.Caption := '1/' + units;
	1707	SetPiece(aTitle, '^', 3, 'Inverse ' + Piece(aTitle, '^', 3));
	1708	end
	1709	else
	1710	LeftAxis.Title.Caption := units;
	1711	if graphtype <> 1 then
	1712	begin
	1713	LeftAxis.Visible := false;
	1714	MarginLeft := round((50 / (pnlScrollTopBase.Width + 1)) * 100); // ************* marginleft is a %
	1715	end;
	1716	BottomAxis.ExactDateTime := true;
	1717	BottomAxis.Increment := DateTimeStep[dtOneMinute];
	1718	HideDates(newchart);
	1719	BevelOuter := bvNone;
	1720	OnZoom := ChartOnZoom;
	1721	OnUndoZoom := ChartOnUndoZoom;
	1722	OnClickSeries := chartBaseClickSeries;
	1723	OnClickLegend := chartBaseClickLegend;
	1724	OnDblClick := mnuPopGraphDetailsClick;
	1725	OnMouseDown := chartBaseMouseDown;
	1726	if FGraphSetting.Hints then //*****
	1727	OnMouseMove := chartBaseMouseMove
	1728	else
	1729	OnMouseMove := nil;
	1730	end;
	1731	splGraphs.Tag := 1; // show ref ranges
	1732	if graphtype = 4 then graphtype := 2; // change points to be bars
	1733	case graphtype of
	1734	1: MakeLineSeries(newchart, aTitle, filetype, lcnt, ncnt, false);
	1735	2: MakeBarSeries(newchart, aTitle, filetype, bcnt);
	1736	3: MakeVisitGanttSeries(newchart, aTitle, filetype, vcnt);
	1737	4: MakePointSeries(newchart, aTitle, filetype, pcnt);
	1738	5: MakeArrowSeries(newchart, aTitle, filetype, acnt);
	1739	6: MakeGanttSeries(newchart, aTitle, filetype, gcnt);
	1740	7: MakeAGanttSeries(newchart, aTitle, filetype, gcnt);
	1741	8: MakeManyGanttSeries(newchart, aTitle, filetype, gcnt);
	1742	9: MakeWeightedArrowSeries(newchart, aTitle, filetype, acnt);
	1743	10: MakeWeightedGanttSeries(newchart, aTitle, filetype, gcnt);
	1744	end;
	1745	end;
	1746	if section = 'top' then
	1747	begin
	1748	pnlDatelineTop.Align := alBottom;
	1749	pnlDatelineTop.Height := 30;
	1750	scrlTop.Align := alClient;
	1751	pnlDatelineTop.Visible := false;
	1752	end
	1753	else
	1754	begin
	1755	pnlDatelineBottom.Align := alBottom;
	1756	pnlDatelineBottom.Height := 30;
	1757	scrlBottom.Align := alClient;
	1758	pnlDatelineBottom.Visible := false;
	1759	end;
	1760	with aScrollBox do
	1761	begin
	1762	if ControlCount < FGraphSetting.MaxGraphs then //**** formating should be made for top & bottom
	1763	displaynum := ControlCount
	1764	else
	1765	displaynum := FGraphSetting.MaxGraphs;
	1766	if displaynum = 0 then
	1767	displaynum := 3;
	1768	if (Height div displaynum) < FGraphSetting.MinGraphHeight then
	1769	displayheight := FGraphSetting.MinGraphHeight
	1770	else
	1771	displayheight := (Height div displaynum);
	1772	for i := 0 to aScrollBox.ControlCount - 1 do
	1773	Controls[i].height := displayheight;
	1774	end;
	1775	if (FGraphSetting.HighTime = FGraphSetting.LowTime)
	1776	or (lcnt = 1) or (pcnt = 1) or (bcnt = 1) or (vcnt = 1) then
	1777	begin
	1778	FGraphSetting.HighTime := FGraphSetting.HighTime + 1;
	1779	FGraphSetting.LowTime := FGraphSetting.LowTime - 1;
	1780	end;
	1781	AdjustTimeframe;
	1782	if chartDatelineTop.Visible then chartDatelineTop.ZoomPercent(ZOOM_PERCENT);
	1783	if chartDatelineBottom.Visible then chartDatelineBottom.ZoomPercent(ZOOM_PERCENT);
	1784	if FNonNumerics then
	1785	if section = 'top' then pnlItemsTop.Tag := 1
	1786	else pnlItemsBottom.Tag := 1;
	1787	end;
	1788
	1789	procedure TfrmGraphs.MakeTogether(aScrollBox: TScrollBox; aListView:
	1790	TListView; aPadPanel: TPanel; section: string);
	1791	var
	1792	anylines, nolines, onlylines, singlelabtest: boolean;
	1793	acnt, bcnt, cnt, gcnt, graphtype, i, j, lcnt, ncnt, pcnt, vcnt: integer;
	1794	portion: double;
	1795	aTitle, checkdata, filetype, high, low, specimen, specnum, typeitem, units: string;
	1796	newchart: TChart;
	1797	aGraphItem: TGraphItem;
	1798	begin
	1799	pcnt := 0; gcnt := 0; lcnt := 0; ncnt := 0; bcnt := 0; acnt := 0;
	1800	onlylines := true;
	1801	anylines := false;
	1802	nolines := true;
	1803	FNonNumerics := false;
	1804	if section = 'top' then pnlItemsTop.Tag := 0 else pnlItemsBottom.Tag := 0;
	1805	if FGraphSetting.Hints then //******
	1806	begin
	1807	chartDatelineTop.OnMouseMove := chartBaseMouseMove;
	1808	chartDatelineBottom.OnMouseMove := chartBaseMouseMove;
	1809	end
	1810	else
	1811	begin
	1812	chartDatelineTop.OnMouseMove := nil;
	1813	chartDatelineBottom.OnMouseMove := nil;
	1814	end;
	1815	for j := 0 to aListView.Items.Count - 1 do
	1816	if aListView.Items[j].Selected then
	1817	begin
	1818	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	1819	filetype := UpperCase(Piece(aGraphItem.Values, '^', 1));
	1820	typeitem := UpperCase(Piece(aGraphItem.Values, '^', 2));
	1821	if aListView.SelCount = 1 then // one lab test - make separate
	1822	begin
	1823	if filetype = '63' then
	1824	begin
	1825	MakeSeparate(aScrollBox, aListView, aPadPanel, section);
	1826	exit;
	1827	end;
	1828	end;
	1829	graphtype := GraphTypeNum(filetype);
	1830	case graphtype of
	1831	1: lcnt := lcnt + 1;
	1832	2: bcnt := bcnt + 1;
	1833	3: vcnt := vcnt + 1;
	1834	4: pcnt := pcnt + 1;
	1835	5: acnt := acnt + 1;
	1836	6: gcnt := gcnt + 1;
	1837	7: gcnt := gcnt + 1;
	1838	8: gcnt := gcnt + 1;
	1839	9: acnt := acnt + 1;
	1840	end;
	1841	if graphtype = 1 then
	1842	begin
	1843	anylines := true;
	1844	nolines := false;
	1845	end
	1846	else
	1847	onlylines := false;
	1848	end;
	1849	if section = 'top' then
	1850	chkItemsTop.Checked := false
	1851	else
	1852	chkItemsBottom.Checked := false;
	1853	lstTempCheck.Items.Clear;
	1854	while aScrollBox.ControlCount > 0 do
	1855	aScrollBox.Controls[0].Free;
	1856	newchart := TChart.Create(self); // whynot use base?
	1857	with newchart do // if a single line graph do lab stuff (ref range, units) ****************************************
	1858	begin
	1859	Parent := aScrollBox;
	1860	View3D := false;
	1861	Chart3DPercent := 10;
	1862	AllowPanning := pmNone;
	1863	Align := alClient;
	1864	Gradient.EndColor := clGradientActiveCaption;
	1865	Legend.LegendStyle := lsSeries;
	1866	Legend.ShadowSize := 1;
	1867	Legend.Color := clCream;
	1868	Legend.VertMargin := 0;
	1869	Legend.Alignment := laTop;
	1870	Legend.Visible := true;
	1871	LeftAxis.Title.Caption := ' ';
	1872	BottomAxis.ExactDateTime := true;
	1873	BottomAxis.Increment := DateTimeStep[dtOneMinute];
	1874	HideDates(newchart);
	1875	BevelOuter := bvNone;
	1876	OnZoom := ChartOnZoom;
	1877	OnUndoZoom := ChartOnUndoZoom;
	1878	OnClickSeries := chartBaseClickSeries;
	1879	OnClickLegend := chartBaseClickLegend;
	1880	OnDblClick := mnuPopGraphDetailsClick;
	1881	OnMouseDown := chartBaseMouseDown;
	1882	if FGraphSetting.Hints then //******
	1883	OnMouseMove := chartBaseMouseMove
	1884	else
	1885	OnMouseMove := nil;
	1886	Visible := false;
	1887	end;
	1888	aPadPanel.Visible := true;
	1889	portion := PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt, acnt);
	1890	if section = 'top' then
	1891	SizeTogether(onlylines, nolines, anylines, scrlTop, newchart,
	1892	pnlDatelineTop, pnlScrollTopBase, portion)
	1893	else
	1894	SizeTogether(onlylines, nolines, anylines, scrlBottom, newchart,
	1895	pnlDatelineBottom, pnlScrollBottomBase, portion);
	1896	if btnChangeSettings.Tag = 1 then splGraphs.Tag := 1 // show ref ranges
	1897	else splGraphs.Tag := 0;
	1898
	1899	if nolines then
	1900	begin
	1901	pcnt := 0; gcnt := 0; vcnt := 0; bcnt := 0; acnt := 0;
	1902	for j := 0 to aListView.Items.Count - 1 do
	1903	if aListView.Items[j].Selected then
	1904	begin
	1905	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	1906	filetype := Piece(aGraphItem.Values, '^', 1);
	1907	typeitem := Piece(aGraphItem.Values, '^', 2);
	1908	aTitle := filetype + '^' + typeitem + '^' + aListView.Items[j].Caption + '^';
	1909	graphtype := GraphTypeNum(filetype);
	1910	if section = 'top' then
	1911	MakeDateline(section, aTitle, filetype, chartDatelineTop, graphtype, bcnt, pcnt, gcnt, vcnt, acnt)
	1912	else
	1913	MakeDateline(section, aTitle, filetype, chartDatelineBottom, graphtype, bcnt, pcnt, gcnt, vcnt, acnt);
	1914	end;
	1915	if section = 'top' then
	1916	begin
	1917	scrlTop.Align := alTop;
	1918	scrlTop.Height := 1; //pnlScrollTopBase.Height div 4;
	1919	pnlDatelineTop.Align := alClient;
	1920	pnlDatelineTop.Visible := true;
	1921	end
	1922	else
	1923	begin
	1924	scrlBottom.Align := alTop;
	1925	scrlBottom.Height := 1; //pnlScrollBottomBase.Height div 4;
	1926	pnlDatelineBottom.Align := alClient;
	1927	pnlDatelineBottom.Visible := true;
	1928	end;
	1929	end
	1930	else if onlylines then
	1931	begin
	1932	lcnt := 0;
	1933	for j := 0 to aListView.Items.Count - 1 do
	1934	if aListView.Items[j].Selected then
	1935	begin
	1936	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	1937	filetype := Piece(aGraphItem.Values, '^', 1);
	1938	typeitem := Piece(aGraphItem.Values, '^', 2);
	1939	if (filetype = '63') and (lstData.Items.Count > 0) then //***********
	1940	begin
	1941	checkdata := '';
	1942	for i := 0 to lstData.Items.Count - 1 do
	1943	begin
	1944	checkdata := lstData.Items[i];
	1945	if (Piece(checkdata, '^', 1) = '63') and (Piece(checkdata, '^', 2) = typeitem) then
	1946	break;
	1947	end;
	1948	specnum := Piece(checkdata, '^', 7);
	1949	specimen := Piece(checkdata, '^', 8);
	1950	RefUnits(typeitem, specnum, low, high, units);
	1951	units := LowerCase(units);
	1952	if units = '' then units := ' ';
	1953	end
	1954	else
	1955	begin
	1956	specimen := ''; low := ''; high := ''; units := '';
	1957	end;
	1958	aTitle := filetype + '^' + typeitem + '^' + aListView.Items[j].Caption + '^' +
	1959	specimen + '^' + low + '^' + high + '^' + units;
	1960	MakeLineSeries(newchart, aTitle, filetype, lcnt, ncnt, true)
	1961	end;
	1962	if section = 'top' then
	1963	begin
	1964	pnlDatelineTop.Align := alBottom;
	1965	pnlDatelineTop.Height := 5;
	1966	scrlTop.Align := alClient;
	1967	pnlDatelineTop.Visible := false;
	1968	end
	1969	else
	1970	begin
	1971	pnlDatelineBottom.Align := alBottom;
	1972	pnlDatelineBottom.Height := 5;
	1973	scrlBottom.Align := alClient;
	1974	pnlDatelineBottom.Visible := false;
	1975	end;
	1976	with newchart do
	1977	begin
	1978	if btnChangeSettings.Tag = 1 then
	1979	LeftAxis.Title.Caption := 'StdDev';
	1980	Visible := true;
	1981	end;
	1982	end
	1983	else if anylines then
	1984	begin
	1985	pcnt := 0; gcnt := 0; vcnt := 0; lcnt := 0; ncnt := 0; bcnt := 0; acnt := 0;
	1986	cnt := 0;
	1987	for j := 0 to aListView.Items.Count - 1 do
	1988	if aListView.Items[j].Selected then
	1989	begin
	1990	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	1991	filetype := Piece(aGraphItem.Values, '^', 1);
	1992	if filetype = '120.5' then
	1993	begin
	1994	cnt := BIG_NUMBER;
	1995	break;
	1996	end;
	1997	if filetype = '63' then
	1998	cnt := cnt + 1;
	1999	if cnt > 1 then
	2000	break;
	2001	end;
	2002	singlelabtest := cnt = 1;
	2003	for j := 0 to aListView.Items.Count - 1 do
	2004	if aListView.Items[j].Selected then
	2005	begin
	2006	aGraphItem := TGraphItem(aListView.Items.Item[j].SubItems.Objects[3]);
	2007	filetype := Piece(aGraphItem.Values, '^', 1);
	2008	typeitem := Piece(aGraphItem.Values, '^', 2);
	2009	if (filetype = '63') and (lstData.Items.Count > 0) then //***********
	2010	begin
	2011	checkdata := '';
	2012	for i := 0 to lstData.Items.Count - 1 do
	2013	begin
	2014	checkdata := lstData.Items[i];
	2015	if (Piece(checkdata, '^', 1) = '63') and (Piece(checkdata, '^', 2) = typeitem) then
	2016	break;
	2017	end;
	2018	specnum := Piece(checkdata, '^', 7);
	2019	specimen := Piece(checkdata, '^', 8);
	2020	RefUnits(typeitem, specnum, low, high, units);
	2021	units := LowerCase(units);
	2022	if units = '' then units := ' ';
	2023	end
	2024	else
	2025	begin
	2026	specimen := ''; low := ''; high := ''; units := '';
	2027	end;
	2028	aTitle := filetype + '^' + typeitem + '^' + aListView.Items[j].Caption + '^' +
	2029	specimen + '^' + low + '^' + high + '^' + units;
	2030	graphtype := GraphTypeNum(filetype);
	2031	if graphtype = 1 then
	2032	begin
	2033	if btnChangeSettings.Tag = 1 then
	2034	newchart.LeftAxis.Title.Caption := 'StdDev'
	2035	else
	2036	newchart.LeftAxis.Title.Caption := units;
	2037	if singlelabtest then
	2038	splGraphs.Tag := 1
	2039	else
	2040	splGraphs.Tag := 0;
	2041	MakeLineSeries(newchart, aTitle, filetype, lcnt, ncnt, true);
	2042	end
	2043	else if section = 'top' then
	2044	MakeDateline(section, aTitle, filetype, chartDatelineTop, graphtype, bcnt, pcnt, gcnt, vcnt, acnt)
	2045	else
	2046	MakeDateline(section, aTitle, filetype, chartDatelineBottom, graphtype, bcnt, pcnt, gcnt, vcnt, acnt);
	2047	end;
	2048	if section = 'top' then
	2049	begin
	2050	scrlTop.Align := alTop;
	2051	pnlDatelineTop.Align := alBottom;
	2052	pnlDatelineTop.Height := pnlScrollTopBase.Height div 2;
	2053	scrlTop.Align := alClient;
	2054	pnlDatelineTop.Visible := true;
	2055	end
	2056	else
	2057	begin
	2058	scrlBottom.Align := alTop;
	2059	pnlDatelineBottom.Align := alBottom;
	2060	pnlDatelineBottom.Height := pnlScrollBottomBase.Height div 2;
	2061	scrlBottom.Align := alClient;
	2062	pnlDatelineBottom.Visible := true;
	2063	end;
	2064	with newchart do
	2065	begin
	2066	if btnChangeSettings.Tag = 1 then
	2067	LeftAxis.Title.Caption := 'StdDev';
	2068	Visible := true;
	2069	end;
	2070	end;
	2071	if (FGraphSetting.HighTime = FGraphSetting.LowTime)
	2072	or (lcnt = 1) or (pcnt = 1) or (bcnt = 1) or (acnt = 1) or (vcnt = 1) then
	2073	begin
	2074	FGraphSetting.HighTime := FGraphSetting.HighTime + 1;
	2075	FGraphSetting.LowTime := FGraphSetting.LowTime - 1;
	2076	chartDatelineTop.LeftAxis.Minimum := chartDatelineTop.LeftAxis.Minimum - 0.5;
	2077	chartDatelineTop.LeftAxis.Maximum := chartDatelineTop.LeftAxis.Maximum + 0.5;
	2078	chartDatelineBottom.LeftAxis.Minimum := chartDatelineBottom.LeftAxis.Minimum - 0.5;
	2079	chartDatelineBottom.LeftAxis.Maximum := chartDatelineBottom.LeftAxis.Maximum + 0.5;
	2080	end;
	2081	AdjustTimeframe;
	2082	if chartDatelineTop.Visible then chartDatelineTop.ZoomPercent(ZOOM_PERCENT);
	2083	if chartDatelineBottom.Visible then chartDatelineBottom.ZoomPercent(ZOOM_PERCENT);
	2084	if FNonNumerics then
	2085	if section = 'top' then pnlItemsTop.Tag := 1
	2086	else pnlItemsBottom.Tag := 1;
	2087	end;
	2088
	2089	function TfrmGraphs.PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt, acnt: integer): double;
	2090	var
	2091	etotal, evalue, dvalue, value: double;
	2092	begin
	2093	dvalue := (gcnt + vcnt + acnt);
	2094	evalue := (pcnt + bcnt) / 2;
	2095	etotal := dvalue + evalue;
	2096	if etotal > 0 then
	2097	begin
	2098	value := lcnt / etotal;
	2099	if value > 4 then Result := 0.2
	2100	else if etotal < 5 then Result := 0.2
	2101	else if value < 0.25 then Result := 0.8
	2102	else if value < 0.4 then Result := 0.6
	2103	else Result := 0.5;
	2104	end
	2105	else
	2106	Result := 0;
	2107	end;
	2108
	2109	procedure TfrmGraphs.MakeDateline(section, aTitle, aFileType: string; aChart: TChart; graphtype: integer;
	2110	var bcnt, pcnt, gcnt, vcnt, acnt: integer);
	2111	begin
	2112	aChart.LeftAxis.Automatic := true;
	2113	aChart.LeftAxis.Visible := true;
	2114	//if graphtype = 4 then graphtype := 2; // makes all points into bars
	2115	case graphtype of
	2116	2: MakeBarSeries(aChart, aTitle, aFileType, bcnt);
	2117	3: MakeVisitGanttSeries(aChart, aTitle, aFileType, vcnt);
	2118	4: MakePointSeries(aChart, aTitle, aFileType, pcnt);
	2119	5: MakeArrowSeries(aChart, aTitle, aFileType, acnt);
	2120	6: MakeGanttSeries(aChart, aTitle, aFileType, gcnt);
	2121	7: MakeAGanttSeries(aChart, aTitle, aFileType, gcnt);
	2122	8: MakeManyGanttSeries(aChart, aTitle, aFileType, gcnt);
	2123	9: MakeWeightedArrowSeries(aChart, aTitle, aFileType, acnt);
	2124	10: MakeWeightedGanttSeries(aChart, aTitle, aFileType, gcnt);
	2125	end;
	2126	end;
	2127
	2128	procedure TfrmGraphs.SizeTogether(onlylines, nolines, anylines: Boolean; aScroll: TScrollBox;
	2129	aChart: TChart; aPanel, aPanelBase: TPanel; portion: Double);
	2130	begin
	2131	if onlylines then //top &bottom
	2132	begin
	2133	aScroll.Align := alTop;
	2134	aScroll.Height := 1;
	2135	aChart.Visible := false;
	2136	aPanel.Align := alClient;
	2137	aPanel.Visible := true;
	2138	end
	2139	else if nolines then
	2140	begin
	2141	aPanel.Align := alBottom;
	2142	aPanel.Height := 5;
	2143	aScroll.Align := alClient;
	2144	aPanel.Visible := false;
	2145	if btnChangeSettings.Tag = 1 then
	2146	aChart.LeftAxis.Title.Caption := 'StdDev';
	2147	end
	2148	else if anylines then
	2149	begin
	2150	aScroll.Align := alTop;
	2151	aPanel.Align := alBottom;
	2152	aPanel.Height := round(aPanelBase.Height * portion);
	2153	if aPanel.Height < 60 then
	2154	if aPanelBase.Height > 100 then aPanel.Height := 60; //***
	2155	aScroll.Align := alClient;
	2156	aPanel.Visible := true;
	2157	if btnChangeSettings.Tag = 1 then
	2158	aChart.LeftAxis.Title.Caption := 'StdDev';
	2159	end;
	2160	end;
	2161
	2162	function TfrmGraphs.Vfactor(aTitle: string): double; // returns first numbers in string
	2163	var
	2164	firstnum: boolean;
	2165	i: integer;
	2166	vfactor: string;
	2167	begin
	2168	vfactor := '';
	2169	firstnum := false;
	2170	for i := 0 to length(aTitle) - 1 do
	2171	if IsDelimiter('1234567890.', aTitle, i) then
	2172	begin
	2173	vfactor := vfactor + aTitle[i];
	2174	firstnum := true;
	2175	end
	2176	else
	2177	if firstnum = true then break;
	2178	Result := strtofloatdef(vfactor, 1);
	2179	end;
	2180
	2181	function TfrmGraphs.NextColor(aCnt: integer): TColor;
	2182	begin
	2183	case (aCnt mod NUM_COLORS) of
	2184	1: Result := clRed;
	2185	2: Result := clBlue;
	2186	3: Result := clYellow;
	2187	4: Result := clGreen;
	2188	5: Result := clFuchsia;
	2189	6: Result := clMoneyGreen;
	2190	7: Result := clOlive;
	2191	8: Result := clLime;
	2192	9: Result := clMedGray;
	2193	10: Result := clNavy;
	2194	11: Result := clAqua;
	2195	12: Result := clGray;
	2196	13: Result := clSkyBlue;
	2197	14: Result := clTeal;
	2198	15: Result := clBlack;
	2199	0: Result := clPurple;
	2200	16: Result := clMaroon;
	2201	17: Result := clCream;
	2202	18: Result := clSilver;
	2203	else
	2204	Result := clWhite;
	2205	end;
	2206	end;
	2207
	2208
	2209	procedure TfrmGraphs.mnuPopGraphSwapClick(Sender: TObject);
	2210	var
	2211	tempcheck: boolean;
	2212	bottomview, i, j, topview: integer;
	2213	typeitem: string;
	2214	aGraphItem: TGraphItem;
	2215	begin
	2216	FFirstClick := true;
	2217	if (lvwItemsTop.SelCount = 0) and (lvwItemsBottom.SelCount = 0) then exit;
	2218	topview := cboViewsTop.ItemIndex;
	2219	bottomview := cboViewsBottom.ItemIndex;
	2220	HideGraphs(true);
	2221	with chkDualViews do
	2222	if not Checked then
	2223	begin
	2224	Checked := true;
	2225	Click;
	2226	end;
	2227	tempcheck := chkItemsTop.Checked;
	2228	chkItemsTop.Checked := chkItemsBottom.Checked;
	2229	chkItemsBottom.Checked := tempcheck;
	2230	pnlBottom.Height := pnlMain.Height - pnlBottom.Height;
	2231	lstScratchSwap.Items.Clear;
	2232	if topview < 1 then
	2233	with lvwItemsTop do
	2234	for i := 0 to Items.Count - 1 do
	2235	if Items[i].Selected then
	2236	begin
	2237	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2238	lstScratchSwap.Items.Add(aGraphItem.Values);
	2239	end;
	2240	if bottomview > 0 then
	2241	begin
	2242	cboViewsTop.ItemIndex := bottomview;
	2243	cboViewsTopChange(self);
	2244	end
	2245	else
	2246	begin
	2247	cboViewsTop.ItemIndex := -1;
	2248	cboViewsTop.Text := '';
	2249	lvwItemsTop.ClearSelection;
	2250	with lvwItemsBottom do
	2251	for i := 0 to Items.Count - 1 do
	2252	if Items[i].Selected then
	2253	begin
	2254	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2255	typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
	2256	for j := 0 to lvwItemsTop.Items.Count - 1 do
	2257	begin
	2258	aGraphItem := TGraphItem(lvwItemsTop.Items[j].SubItems.Objects[3]);
	2259	if typeitem = Pieces(aGraphItem.Values, '^', 1, 2) then
	2260	begin
	2261	lvwItemsTop.Items[j].Selected := true;
	2262	break;
	2263	end;
	2264	end;
	2265	end;
	2266	lvwItemsTopClick(self);
	2267	end;
	2268	if topview > 0 then
	2269	begin
	2270	cboViewsBottom.ItemIndex := topview;
	2271	cboViewsBottomChange(self);
	2272	end
	2273	else
	2274	begin
	2275	cboViewsBottom.ItemIndex := -1;
	2276	cboViewsBottom.Text := '';
	2277	lvwItemsBottom.ClearSelection;
	2278	with lstScratchSwap do
	2279	for i := 0 to Items.Count - 1 do
	2280	for j := 0 to lvwItemsBottom.Items.Count - 1 do
	2281	begin
	2282	aGraphItem := TGraphItem(lvwItemsBottom.Items.Item[j].SubItems.Objects[3]);
	2283	if aGraphItem.Values = Items[i] then
	2284	begin
	2285	lvwItemsBottom.Items[j].Selected := true;
	2286	break;
	2287	end;
	2288	end;
	2289	lvwItemsBottomClick(self);
	2290	end;
	2291	lstScratchSwap.Items.Clear;
	2292	HideGraphs(false);
	2293	end;
	2294
	2295	procedure TfrmGraphs.mnuPopGraphSplitClick(Sender: TObject);
	2296	var
	2297	i: integer;
	2298	typeitem, typenum: string;
	2299	aGraphItem: TGraphItem;
	2300	begin
	2301	FFirstClick := true;
	2302	if (lvwItemsTop.SelCount = 0) and (lvwItemsBottom.SelCount = 0) then exit;
	2303	HideGraphs(true);
	2304	with chkDualViews do
	2305	if not Checked then
	2306	begin
	2307	Checked := true;
	2308	Click;
	2309	end;
	2310	with cboViewsTop do
	2311	if ItemIndex > -1 then
	2312	begin
	2313	ItemIndex := -1;
	2314	Text := '';
	2315	end;
	2316	with cboViewsBottom do
	2317	if ItemIndex > -1 then
	2318	begin
	2319	ItemIndex := -1;
	2320	Text := '';
	2321	end;
	2322	chkItemsTop.Checked := true;
	2323	chkItemsBottom.Checked := false;
	2324	pnlBottom.Height := pnlMain.Height - pnlBottom.Height;
	2325	lstScratchSwap.Items.Clear;
	2326	with lvwItemsTop do
	2327	for i := 0 to Items.Count - 1 do
	2328	if Items[i].Selected then
	2329	begin
	2330	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2331	typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
	2332	lstScratchSwap.Items.Add(typeitem);
	2333	end;
	2334	with lvwItemsBottom do
	2335	for i := 0 to Items.Count - 1 do
	2336	if Items[i].Selected then
	2337	begin
	2338	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2339	typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
	2340	lstScratchSwap.Items.Add(typeitem);
	2341	end;
	2342	lvwItemsTop.ClearSelection;
	2343	lvwItemsBottom.ClearSelection;
	2344	with lstScratchSwap do
	2345	for i := 0 to Items.Count - 1 do
	2346	begin
	2347	typeitem := Items[i];
	2348	typenum := Piece(typeitem, '^', 1);
	2349	if (typenum = '63') or (typenum = '120.5') then
	2350	SelectItem(lvwItemsTop, typeitem)
	2351	else
	2352	SelectItem(lvwItemsBottom, typeitem);
	2353	end;
	2354	lvwItemsTopClick(self);
	2355	lvwItemsBottomClick(self);
	2356	lstScratchSwap.Items.Clear;
	2357	HideGraphs(false);
	2358	end;
	2359
	2360	procedure TfrmGraphs.SelectItem(aListView: TListView; typeitem: string);
	2361	var
	2362	i: integer;
	2363	aGraphItem: TGraphItem;
	2364	begin
	2365	with aListView do
	2366	for i := 0 to Items.Count - 1 do
	2367	begin
	2368	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2369	if typeitem = Pieces(aGraphItem.Values, '^', 1, 2) then
	2370	Items[i].Selected := true;
	2371	end;
	2372	end;
	2373
	2374	procedure TfrmGraphs.mnuPopGraphLinesClick(Sender: TObject);
	2375	begin
	2376	with FGraphSetting do Lines := not Lines;
	2377	ChangeStyle;
	2378	end;
	2379
	2380	procedure TfrmGraphs.mnuPopGraph3DClick(Sender: TObject);
	2381	begin
	2382	with FGraphSetting do View3D := not View3D;
	2383	ChangeStyle;
	2384	end;
	2385
	2386	procedure TfrmGraphs.mnuPopGraphValuesClick(Sender: TObject);
	2387	begin
	2388	with FGraphSetting do Values := not Values;
	2389	ChangeStyle;
	2390	end;
	2391
	2392	procedure TfrmGraphs.mnuPopGraphSortClick(Sender: TObject);
	2393	begin
	2394	with FGraphSetting do
	2395	begin
	2396	if SortColumn = 1 then SortColumn := 0
	2397	else SortColumn := 1;
	2398	mnuPopGraphSort.Checked := SortColumn = 1;
	2399	if not FItemsSortedTop then
	2400	begin
	2401	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
	2402	FItemsSortedTop := true;
	2403	end;
	2404	if not FItemsSortedBottom then
	2405	begin
	2406	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
	2407	FItemsSortedBottom := true;
	2408	end;
	2409	if SortColumn > 0 then
	2410	begin
	2411	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[SortColumn]);
	2412	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[SortColumn]);
	2413	FItemsSortedTop := false;
	2414	FItemsSortedBottom := false;
	2415	end;
	2416	end;
	2417	end;
	2418
	2419	procedure TfrmGraphs.mnuPopGraphClearClick(Sender: TObject);
	2420	begin
	2421	with FGraphSetting do
	2422	begin
	2423	ClearBackground := not ClearBackground;
	2424	if ClearBackground then Gradient := false;
	2425	end;
	2426	ChangeStyle;
	2427	// redisplay if nonnumericonly graph exists
	2428	if pnlItemsTop.Tag = 1 then lvwItemsTopClick(self);
	2429	if pnlItemsBottom.Tag = 1 then lvwItemsBottomClick(self);
	2430	end;
	2431
	2432	procedure TfrmGraphs.mnuPopGraphHorizontalClick(Sender: TObject);
	2433	begin
	2434	with FGraphSetting do
	2435	begin
	2436	HorizontalZoom := not HorizontalZoom;
	2437	mnuPopGraphHorizontal.Checked := HorizontalZoom;
	2438	if not HorizontalZoom then mnuPopGraphResetClick(self);
	2439	end;
	2440	end;
	2441
	2442	procedure TfrmGraphs.mnuPopGraphVerticalClick(Sender: TObject);
	2443	begin
	2444	with FGraphSetting do
	2445	begin
	2446	VerticalZoom := not VerticalZoom;
	2447	mnuPopGraphVertical.Checked := VerticalZoom;
	2448	if not VerticalZoom then mnuPopGraphResetClick(self);
	2449	end;
	2450	end;
	2451
	2452	procedure TfrmGraphs.mnuPopGraphDatesClick(Sender: TObject);
	2453	begin
	2454	with FGraphSetting do Dates := not Dates;
	2455	ChangeStyle;
	2456	end;
	2457
	2458	procedure TfrmGraphs.mnuPopGraphDualViewsClick(Sender: TObject);
	2459	begin
	2460	chkDualViews.Checked := not chkDualViews.Checked;
	2461	chkDualViewsClick(self);
	2462	end;
	2463
	2464	procedure TfrmGraphs.mnuPopGraphSeparate1Click(Sender: TObject);
	2465	begin
	2466	with mnuPopGraphSeparate1 do
	2467	Checked := not Checked;
	2468	with chkItemsTop do
	2469	begin
	2470	Checked := mnuPopGraphSeparate1.Checked;
	2471	Click;
	2472	end;
	2473	with chkItemsBottom do
	2474	begin
	2475	Checked := mnuPopGraphSeparate1.Checked;
	2476	Click;
	2477	end;
	2478	end;
	2479
	2480	procedure TfrmGraphs.mnuPopGraphGradientClick(Sender: TObject);
	2481	begin
	2482	with FGraphSetting do
	2483	begin
	2484	Gradient := not Gradient;
	2485	if Gradient then ClearBackground := false;
	2486	end;
	2487	ChangeStyle;
	2488	end;
	2489
	2490	procedure TfrmGraphs.mnuPopGraphHintsClick(Sender: TObject);
	2491	begin
	2492	with FGraphSetting do
	2493	Hints := not Hints;
	2494	ChangeStyle;
	2495	end;
	2496
	2497	procedure TfrmGraphs.mnuPopGraphLegendClick(Sender: TObject);
	2498	begin
	2499	with FGraphSetting do Legend := not Legend;
	2500	ChangeStyle;
	2501	end;
	2502
	2503	procedure TfrmGraphs.ChartStyle(aChart: TChart);
	2504	var
	2505	j: integer;
	2506	begin
	2507	with aChart do
	2508	begin
	2509	View3D := FGraphSetting.View3D;
	2510	Chart3DPercent := 10;
	2511	AllowZoom := FGraphSetting.HorizontalZoom;
	2512	Gradient.Visible := FGraphSetting.Gradient;
	2513	Legend.Visible := FGraphSetting.Legend;
	2514	HideDates(aChart);
	2515	pnlHeader.Visible := pnlInfo.Visible;
	2516	if FGraphSetting.ClearBackground then
	2517	begin
	2518	Color := clWindow;
	2519	Legend.Color := clWindow;
	2520	pnlBlankTop.Color := clWindow;
	2521	pnlBlankBottom.Color := clWindow;
	2522	end
	2523	else
	2524	begin
	2525	Color := clBtnFace;
	2526	Legend.Color := clCream;
	2527	pnlBlankTop.Color := clBtnFace;
	2528	pnlBlankBottom.Color := clBtnFace;
	2529	end;
	2530	for j := 0 to SeriesCount - 1 do
	2531	begin
	2532	if Series[j] is TLineSeries then
	2533	with (Series[j] as TLineSeries) do
	2534	begin
	2535	Marks.Visible := FGraphSetting.Values;
	2536	LinePen.Visible := FGraphSetting.Lines;
	2537	end;
	2538	if Series[j] is TPointSeries then
	2539	with (Series[j] as TPointSeries) do
	2540	begin
	2541	Marks.Visible := FGraphSetting.Values;
	2542	LinePen.Visible := FGraphSetting.Lines;
	2543	end;
	2544	if Series[j] is TBarSeries then
	2545	with (Series[j] as TBarSeries) do
	2546	begin
	2547	Marks.Visible := FGraphSetting.Values;
	2548	end;
	2549	if Series[j] is TArrowSeries then
	2550	with (Series[j] as TArrowSeries) do
	2551	begin
	2552	Marks.Visible := FGraphSetting.Values;
	2553	end;
	2554	if Series[j] is TGanttSeries then
	2555	with (Series[j] as TGanttSeries) do
	2556	begin
	2557	Marks.Visible := FGraphSetting.Values;
	2558	LinePen.Visible := FGraphSetting.Lines;
	2559	end;
	2560	end;
	2561	end;
	2562	end;
	2563
	2564	procedure TfrmGraphs.ChangeStyle;
	2565	var
	2566	i: integer;
	2567	ChildControl: TControl;
	2568	OriginalColor, ClearColor: TColor;
	2569	begin
	2570	OriginalColor := pnlItemsTopInfo.Color;
	2571	ClearColor := clWindow;
	2572	for i := 0 to scrlTop.ControlCount - 1 do
	2573	begin
	2574	ChildControl := scrlTop.Controls[i];
	2575	ChartStyle(ChildControl as TChart);
	2576	end;
	2577	for i := 0 to scrlBottom.ControlCount - 1 do
	2578	begin
	2579	ChildControl := scrlBottom.Controls[i];
	2580	ChartStyle(ChildControl as TChart);
	2581	end;
	2582	if pnlDateLineTop.Visible then // not visible when separate graphs
	2583	ChartStyle(chartDateLineTop);
	2584	if pnlDateLineBottom.Visible then
	2585	ChartStyle(chartDateLineBottom);
	2586	if FGraphSetting.ClearBackground then
	2587	begin
	2588	chartDatelineTop.Color := ClearColor;
	2589	chartDatelineTop.Legend.Color := ClearColor;
	2590	pnlDatelineTopSpacer.Color := ClearColor;
	2591	scrlTop.Color := ClearColor;
	2592	pnlTopRightPad.Color := ClearColor;
	2593	pnlScrollTopBase.Color := ClearColor;
	2594	pnlBlankTop.Color := ClearColor;
	2595	chartDatelineBottom.Color := ClearColor;
	2596	chartDatelineBottom.Legend.Color := ClearColor;
	2597	pnlDatelineBottomSpacer.Color := ClearColor;
	2598	scrlBottom.Color := ClearColor;
	2599	pnlBottomRightPad.Color := ClearColor;
	2600	pnlScrollBottomBase.Color := ClearColor;
	2601	pnlBlankBottom.Color := ClearColor;
	2602	end
	2603	else
	2604	begin
	2605	chartDatelineTop.Color := OriginalColor;
	2606	chartDatelineTop.Legend.Color := clCream;
	2607	pnlDatelineTopSpacer.Color := OriginalColor;
	2608	scrlTop.Color := OriginalColor;
	2609	pnlTopRightPad.Color := OriginalColor;
	2610	pnlScrollTopBase.Color := OriginalColor;
	2611	pnlBlankTop.Color := OriginalColor;
	2612	chartDatelineBottom.Color := OriginalColor;
	2613	chartDatelineBottom.Legend.Color := clCream;
	2614	pnlDatelineBottomSpacer.Color := OriginalColor;
	2615	scrlBottom.Color := OriginalColor;
	2616	pnlBottomRightPad.Color := OriginalColor;
	2617	pnlScrollBottomBase.Color := OriginalColor;
	2618	pnlBlankBottom.Color := OriginalColor;
	2619	end;
	2620	mnuPopGraphLines.Checked := FGraphSetting.Lines;
	2621	mnuPopGraph3D.Checked := FGraphSetting.View3D;
	2622	mnuPopGraphValues.Checked := FGraphSetting.Values;
	2623	mnuPopGraphDates.Checked := FGraphSetting.Dates;
	2624	mnuPopGraphFixed.Checked := FGraphSetting.FixedDateRange;
	2625	mnuPopGraphGradient.Checked := FGraphSetting.Gradient;
	2626	mnuPopGraphHints.Checked := FGraphSetting.Hints;
	2627	mnuPopGraphStayOnTop.Checked := FGraphSetting.StayOnTop;
	2628	mnuPopGraphLegend.Checked := FGraphSetting.Legend;
	2629	mnuPopGraphSort.Checked := FGraphSetting.SortColumn = 1;
	2630	mnuPopGraphClear.Checked := FGraphSetting.ClearBackground;
	2631	mnuPopGraphVertical.Checked := FGraphSetting.VerticalZoom;
	2632	mnuPopGraphHorizontal.Checked := FGraphSetting.HorizontalZoom;
	2633	end;
	2634
	2635	procedure TfrmGraphs.chartBaseClickSeries(Sender: TCustomChart; Series: TChartSeries;
	2636	ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	2637	var
	2638	dttm, seriestitle, textvalue, textvalue1, textvalue2, typename, typenum: string;
	2639	begin
	2640	timHintPause.Enabled := false;
	2641	InactivateHint;
	2642	FGraphClick := Sender;
	2643	FGraphSeries := Series;
	2644	FGraphValueIndex := ValueIndex;
	2645	chartDateLineTop.Tag := 1; // indicates a series click
	2646	if (Series is TGanttSeries) then
	2647	begin
	2648	FDate1 := (Series as TGanttSeries).StartValues[ValueIndex];
	2649	FDate2 := (Series as TGanttSeries).EndValues[ValueIndex];
	2650	end
	2651	else
	2652	begin
	2653	FDate1 := Series.XValue[ValueIndex];
	2654	FDate2 := FDate1;
	2655	end;
	2656	seriestitle := Series.Title;
	2657	if Button <> mbRight then
	2658	begin
	2659	textvalue := ValueText(Sender, Series, ValueIndex);
	2660	dttm := Piece(textvalue, '^', 3);
	2661	if copy(textvalue, length(textvalue) - 5, length(textvalue)) = ' 00:00' then
	2662	dttm := Pieces(dttm, ' ', 1, 3);
	2663	textvalue1 := Piece(textvalue, '^', 2) + ' ' + dttm;
	2664	textvalue2 := Piece(textvalue, '^', 4) + ' ' + Piece(textvalue, '^', 5);
	2665	typenum := trim(Piece(textvalue, '^', 1));
	2666	typename := Piece(textvalue, '^', 2);
	2667	AllTypeDate(typenum, typename, textvalue1, textvalue2, FDate1, FDate2);
	2668	end
	2669	else
	2670	begin
	2671	mnuPopGraphIsolate.Enabled := true;
	2672	if pnlTop.Tag = 1 then
	2673	mnuPopGraphIsolate.Caption := 'Move - ' + seriestitle + ' - from Top to Bottom'
	2674	else
	2675	mnuPopGraphIsolate.Caption := 'Move - ' + seriestitle + ' - from Bottom to Top';
	2676	scrlTop.Hint := 'Details - for ' + seriestitle + ' for ' +
	2677	FormatDateTime('mmm d, yyyy h:nn am/pm', FDate1);
	2678	scrlTop.Tag := ValueIndex + 1;
	2679	mnuPopGraphIsolate.Hint := seriestitle;
	2680	mnuPopGraphRemove.Enabled := true;
	2681	mnuPopGraphRemove.Caption := 'Remove - ' + seriestitle;
	2682	mnuPopGraphDetails.Caption := 'Details - ' + seriestitle;
	2683	end;
	2684	FMouseDown := false;
	2685	end;
	2686
	2687	procedure TfrmGraphs.AllTypeDate(aType, aTypeName, firstline, secondline: string; aDate, aDate2: double);
	2688	var
	2689	i: integer;
	2690	dttm, datax, datex1, datex2, fmdate1, fmdate2, newdata, newline, oldline, spacer, titlemsg: string;
	2691	dt1, dt2, dtdata, dtdata1, dtdata2: double;
	2692	tmpOtherList, templist: TStringList;
	2693	begin
	2694	Screen.Cursor := crHourGlass;
	2695	tmpOtherList := TStringList.Create;
	2696	templist := TStringList.Create;
	2697	datex1 := floattostr(DateTimeToFMDateTime(aDate));
	2698	datex1 := Piece(datex1, '.', 1);
	2699	if aDate <> aDate2 then
	2700	datex2 := Piece(floattostr(DateTimeToFMDateTime(aDate2)), '.', 1) + '.23595959'
	2701	else
	2702	datex2 := datex1 + '.23595959';
	2703	dt1 := strtofloatdef(datex1, BIG_NUMBER);
	2704	dt2 := strtofloatdef(datex2, BIG_NUMBER);
	2705	CheckToAddData(lvwItemsTop, 'top', aType); // if type is not loaded - load data
	2706	for i := 0 to lstData.Items.Count - 1 do
	2707	begin
	2708	datax := lstData.Items[i];
	2709	if Piece(datax, '^', 1) = aType then
	2710	begin
	2711	if (length(Piece(datax, '^', 4))> 0) then // date/times of episodes
	2712	begin
	2713	dtdata1 := strtofloatdef(Piece(datax, '^', 3), -1);
	2714	fmdate1 := FormatFMDateTime('mm/dd/yy hh:nn', dtdata1);
	2715	if copy(fmdate1, length(fmdate1) - 5, length(fmdate1)) = ' 00:00' then
	2716	fmdate1 := copy(fmdate1, 1, length(fmdate1) - 5) + ' ';
	2717	dtdata2 := strtofloatdef(Piece(datax, '^', 4), -1);
	2718	fmdate2 := FormatFMDateTime('mm/dd/yy hh:nn', dtdata2);
	2719	if copy(fmdate2, length(fmdate2) - 5, length(fmdate2)) = ' 00:00' then
	2720	fmdate2 := copy(fmdate2, 1, length(fmdate2) - 5) + ' ';
	2721	if (dtdata2 > dt1) and (dtdata1 < dt2) then
	2722	begin
	2723	newdata := Piece(datax, '^', 3) + '^' +
	2724	Piece(datax, '^', 2) + '^' +
	2725	fmdate1 + ' - ' +
	2726	fmdate2 + '^' +
	2727	ItemName(aType, Piece(datax, '^', 2)) + '^' +
	2728	Piece(datax, '^', 5);
	2729	tmpOtherList.Add(MixedCase(newdata));
	2730	end;
	2731	end
	2732	else
	2733	begin
	2734	dtdata := strtofloatdef(Piece(datax, '^', 3), -1);
	2735	if (dtdata >= dt1) and (dtdata < dt2) then
	2736	begin
	2737	if length(Piece(Piece(datax, '^', 3), '.', 2)) > 0 then
	2738	dttm := FormatFMDateTime('mm/dd/yy hh:nn', dtdata)
	2739	else
	2740	dttm := FormatFMDateTime('mm/dd/yy', dtdata);
	2741	newdata := Piece(datax, '^', 3) + '^' +
	2742	Piece(datax, '^', 2) + '^' +
	2743	Piece(datax, '^', 5) + '^' +
	2744	dttm + '^' +
	2745	ItemName(aType, Piece(datax, '^', 2));
	2746	tmpOtherList.Add(MixedCase(newdata));
	2747	end;
	2748	end;
	2749	end;
	2750	end;
	2751	with tmpOtherList do
	2752	begin
	2753	Sort;
	2754	for i := Count - 1 downto 0 do
	2755	begin
	2756	newline := '';
	2757	oldline := tmpOtherList[i];
	2758	newline := Piece(oldline, '^', 4) + ' ' +
	2759	Piece(oldline, '^', 5);
	2760	spacer := Copy(BIG_SPACES, 1, 40 - length(newline));
	2761	newline := newline + spacer + ' ' +
	2762	Piece(oldline, '^', 3);
	2763	templist.Add(newline);
	2764	end;
	2765	Clear;
	2766	Assign(templist);
	2767	if aDate <> aDate2 then
	2768	titlemsg := aTypeName + ' occurences for ' + FormatDateTime('mmm d, yyyy', aDate) +
	2769	' - ' + FormatDateTime('mmm d, yyyy', aDate2)
	2770	else
	2771	titlemsg := aTypeName + ' occurences for ' + FormatDateTime('mmm d, yyyy', aDate);
	2772	Insert(0, firstline);
	2773	Insert(1, secondline);
	2774	Insert(2, '');
	2775	Insert(3, 'All ' + titlemsg + ':');
	2776	Insert(4, '');
	2777	Insert(0, TXT_REPORT_DISCLAIMER);
	2778	Insert(1, '');
	2779	ReportBox(tmpOtherList, titlemsg, true);
	2780	end;
	2781	tmpOtherList.Free;
	2782	templist.Free;
	2783	Screen.Cursor := crDefault;
	2784	end;
	2785
	2786
	2787	procedure TfrmGraphs.ItemDateRange(Sender: TCustomChart);
	2788	var
	2789	bpnotdone, ok: boolean;
	2790	i, j: integer;
	2791	prevtype, results, seriestitle, seriestype, spacer, textvalue, typenum: string;
	2792	tmpOtherList: TStringList;
	2793	begin
	2794	Screen.Cursor := crHourGlass;
	2795	prevtype := '';
	2796	tmpOtherList := TStringList.Create;
	2797	with tmpOtherList do
	2798	begin
	2799	Add('Date Range: ' + cboDateRange.Text);
	2800	Add('Selected Items from ' +
	2801	FormatDateTime('mm/dd/yy', FGraphSetting.LowTime) + ' to ' +
	2802	FormatDateTime('mm/dd/yy', FGraphSetting.HighTime));
	2803	Add('');
	2804	end;
	2805	bpnotdone := true;
	2806	for i := 0 to Sender.SeriesCount - 1 do
	2807	begin
	2808	if Sender.Series[i].Count > 0 then
	2809	begin
	2810	textvalue := ValueText(Sender, Sender.Series[i], 0);
	2811	seriestype := Piece(textvalue, '^', 2);
	2812	if (seriestype <> '') and (seriestype <> prevtype) then
	2813	begin
	2814	tmpOtherList.Add(' ' + seriestype); // type
	2815	prevtype := seriestype;
	2816	end;
	2817	end;
	2818	ok := true;
	2819	seriestitle := Sender.Series[i].Title;
	2820	if seriestitle = 'Blood Pressure' then
	2821	if bpnotdone = false then ok := false;
	2822	if ok then
	2823	begin
	2824	for j := 0 to Sender.Series[i].Count - 1 do
	2825	begin
	2826	textvalue := ValueText(Sender, Sender.Series[i], j);
	2827	seriestitle := Piece(textvalue, '^', 4);
	2828	typenum := Piece(textvalue, '^', 1);
	2829	if (typenum = '120.5') and (seriestitle = 'Blood Pressure') then bpnotdone := false;
	2830	if length(typenum) > 0 then
	2831	begin
	2832	spacer := Copy(BIG_SPACES, 1, 30 - length(seriestitle));
	2833	results := seriestitle + ': ' + //spacer +
	2834	Piece(textvalue, '^', 5); //LowerCase(Piece(textvalue, '^', 5));
	2835	spacer := Copy(BIG_SPACES, 1, 40 - length(results));
	2836	results := results + ' ' + spacer + Piece(textvalue, '^', 6);
	2837	if copy(results, length(results) - 5, length(results)) = ' 00:00' then
	2838	results := copy(results, 1, length(results) - 5);
	2839	tmpOtherList.Add(results); // item occurrence
	2840	end;
	2841	end;
	2842	end;
	2843	end; // same items are not being sorted by date
	2844	if tmpOtherList.Count > 0 then
	2845	begin
	2846	tmpOtherList.Insert(0, TXT_REPORT_DISCLAIMER);
	2847	tmpOtherList.Insert(1, '');
	2848	ReportBox(tmpOtherList, 'Selected Items from Graph', true);
	2849	end;
	2850	tmpOtherList.Free;
	2851	FMouseDown := false;
	2852	Screen.Cursor := crDefault;
	2853	end;
	2854
	2855	procedure TfrmGraphs.mnuPopGraphIsolateClick(Sender: TObject);
	2856	var
	2857	i, j, selnum: integer;
	2858	aSection, aOtherSection, typeitem: string;
	2859	aGraphItem: TGraphItem;
	2860	aListView, aOtherListView: TListView;
	2861	begin
	2862	FFirstClick := true;
	2863	cboViewsTop.ItemIndex := -1;
	2864	cboViewsTop.Text := '';
	2865	cboViewsBottom.ItemIndex := -1;
	2866	cboViewsBottom.Text := '';
	2867	if pnlTop.Tag = 1 then
	2868	begin
	2869	aListView := lvwItemsTop;
	2870	aOtherListView := lvwItemsBottom;
	2871	aSection := 'top';
	2872	aOtherSection := 'bottom';
	2873	end
	2874	else
	2875	begin
	2876	aListView := lvwItemsBottom;
	2877	aOtherListView := lvwItemsTop;
	2878	aSection := 'bottom';
	2879	aOtherSection := 'top';
	2880	end;
	2881	if aListView.SelCount = 0 then exit;
	2882	if StripHotKey(mnuPopGraphIsolate.Caption) = ('Move all selections to ' + aOtherSection) then
	2883	begin
	2884	with aListView do
	2885	for i := 0 to Items.Count - 1 do
	2886	if Items[i].Selected then
	2887	begin
	2888	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]);
	2889	typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
	2890	for j := 0 to aOtherListView.Items.Count - 1 do
	2891	begin
	2892	aGraphItem := TGraphItem(aOtherListView.Items.Item[j].SubItems.Objects[3]);
	2893	if Pieces(aGraphItem.Values, '^', 1, 2) = typeitem then
	2894	aOtherListView.Items[j].Selected := true;
	2895	end;
	2896	Items[i].Selected := false;
	2897	end;
	2898	with chkDualViews do
	2899	if not Checked then
	2900	begin
	2901	Checked := true;
	2902	Click;
	2903	end;
	2904	ChangeStyle;
	2905	DisplayData(aSection);
	2906	DisplayData(aOtherSection);
	2907	end
	2908	else
	2909	begin
	2910	ItemCheck(lvwItemsTop, mnuPopGraphIsolate.Hint, selnum, typeitem);
	2911	if selnum = -1 then exit;
	2912	for i := 0 to aOtherListView.Items.Count - 1 do
	2913	begin
	2914	aGraphItem := TGraphItem(aOtherListView.Items.Item[i].SubItems.Objects[3]);
	2915	if Pieces(aGraphItem.Values, '^', 1, 2) = typeitem then
	2916	aOtherListView.Items[i].Selected := true;
	2917	end;
	2918	aListView.Items[selnum].Selected := false;
	2919	with chkDualViews do
	2920	if not Checked then
	2921	begin
	2922	Checked := true;
	2923	Click;
	2924	end;
	2925	ChangeStyle;
	2926	DisplayData(aSection);
	2927	DisplayData(aOtherSection);
	2928	end;
	2929	mnuPopGraphIsolate.Enabled := false;
	2930	end;
	2931
	2932	procedure TFrmGraphs.ItemCheck(aListView: TListView; aItemName: string;
	2933	var aNum: integer; var aTypeItem: string);
	2934	var
	2935	i: integer;
	2936	aGraphItem: TGraphItem;
	2937	begin
	2938	aNum := -1;
	2939	aTypeItem := '';
	2940	with aListView do
	2941	for i := 0 to Items.Count - 1 do
	2942	if Items[i].Caption = aItemName then
	2943	begin
	2944	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]); //get file^ien match
	2945	aNum := i;
	2946	aTypeItem := Pieces(aGraphItem.Values, '^', 1, 2);
	2947	break;
	2948	end;
	2949	if aNum = -1 then
	2950	begin
	2951	aItemName := ReverseString(aItemName);
	2952	aItemName := Pieces(aItemName, '(', 2, DelimCount(aItemName, '(') + 1);
	2953	aItemName := Copy(aItemName, 2, length(aItemName) - 1);
	2954	aItemName := ReverseString(aItemName);
	2955	with aListView do
	2956	for i := 0 to Items.Count - 1 do
	2957	if Items[i].Caption = aItemName then // match without (specimen)
	2958	begin
	2959	aGraphItem := TGraphItem(Items.Item[i].SubItems.Objects[3]); //get file^ien match
	2960	aNum := i;
	2961	aTypeItem := Pieces(aGraphItem.Values, '^', 1, 2);
	2962	break;
	2963	end;
	2964	end;
	2965	end;
	2966
	2967	procedure TfrmGraphs.chartBaseMouseDown(Sender: TObject; Button: TMouseButton;
	2968	Shift: TShiftState; X, Y: Integer);
	2969	begin
	2970	FHintStop := true;
	2971	timHintPause.Enabled := false;
	2972	InactivateHint;
	2973	chartDatelineTop.Tag := 0; // not legend or series click
	2974	scrlTop.Hint := '';
	2975	scrlTop.Tag := 0;
	2976	FYMinValue := (Sender as TChart).MinYValue((Sender as TChart).LeftAxis);
	2977	FYMaxValue := (Sender as TChart).MaxYValue((Sender as TChart).LeftAxis);
	2978	pnlTop.Tag := 1;
	2979	if (Sender as TControl).Parent = pnlBottom then pnlTop.Tag := 0;
	2980	if ((Sender as TControl).Parent as TControl) = pnlBottom then pnlTop.Tag := 0;
	2981	if (((Sender as TControl).Parent as TControl).Parent as TControl).Parent = pnlBottom then pnlTop.Tag := 0;
	2982	if pnlTop.Tag = 1 then
	2983	begin
	2984	mnuPopGraphIsolate.Caption := 'Move all selections to bottom';
	2985	mnuPopGraphRemove.Caption := 'Remove all selections from top';
	2986	end
	2987	else
	2988	begin
	2989	mnuPopGraphIsolate.Caption := 'Move all selections to top';
	2990	mnuPopGraphRemove.Caption := 'Remove all selections from bottom';
	2991	end;
	2992	If Button = mbLeft then
	2993	FMouseDown := true;
	2994	end;
	2995
	2996	procedure TfrmGraphs.mnuPopGraphStuffPopup(Sender: TObject);
	2997	begin
	2998	if scrlTop.Tag = 0 then scrlTop.Hint := '';
	2999	if (lvwItemsTop.SelCount = 0) and (lvwItemsBottom.SelCount = 0) then scrlTop.Hint := '';
	3000	if scrlTop.Hint = '' then
	3001	begin
	3002	if Pieces(mnuPopGraphIsolate.Caption, ' ', 1, 3) = 'Move all selections' then
	3003	mnuPopGraphIsolate.Enabled := true
	3004	else
	3005	begin
	3006	mnuPopGraphIsolate.Caption := 'Move';
	3007	mnuPopGraphIsolate.Enabled := false;
	3008	end;
	3009	if Pieces(mnuPopGraphRemove.Caption, ' ', 1, 3) = 'Remove all selections' then
	3010	mnuPopGraphRemove.Enabled := true
	3011	else
	3012	begin
	3013	mnuPopGraphRemove.Caption := 'Remove';
	3014	mnuPopGraphRemove.Enabled := false;
	3015	end;
	3016	mnuPopGraphDetails.Caption := 'Details...';
	3017	mnuPopGraphDetails.Enabled := (lvwItemsTop.SelCount > 0) or (lvwItemsBottom.SelCount > 0);
	3018	end
	3019	else
	3020	begin
	3021	mnuPopGraphIsolate.Enabled := true;
	3022	mnuPopGraphRemove.Enabled := true;
	3023	mnuPopGraphDetails.Enabled := true;
	3024	end;
	3025	mnuPopGraphSwap.Enabled := (lvwItemsTop.SelCount > 0) or (lvwItemsBottom.SelCount > 0);
	3026	mnuPopGraphReset.Enabled := mnuPopGraphSwap.Enabled;
	3027	mnuPopGraphCopy.Enabled := mnuPopGraphSwap.Enabled;
	3028	mnuPopGraphPrint.Enabled := mnuPopGraphSwap.Enabled;
	3029
	3030	with pnlMain.Parent do
	3031	if BorderWidth <> 1 then // only do on float Graph
	3032	mnuPopGraphStayOnTop.Enabled :=false
	3033	else
	3034	mnuPopGraphStayOnTop.Enabled :=true;
	3035	end;
	3036
	3037	procedure TfrmGraphs.mnuPopGraphDetailsClick(Sender: TObject);
	3038	var
	3039	aGraphItem: TGraphItem;
	3040	tmpList: TStringList;
	3041	date1, date2: TFMDateTime;
	3042	teststring, typeitem, textvalue, textvalue1, textvalue2, typenum, typename: string;
	3043	i, selnum: integer;
	3044	begin
	3045	if chartDatelineTop.Tag = 1 then // series
	3046	begin
	3047	ItemCheck(lvwItemsTop, mnuPopGraphIsolate.Hint, selnum, typeitem);
	3048	if selnum < 0 then exit;
	3049	if not HSAbbrev(Piece(typeitem, '^', 1)) then
	3050	begin
	3051	if (FGraphSeries is TGanttSeries) then
	3052	begin
	3053	FDate1 := (FGraphSeries as TGanttSeries).StartValues[FGraphValueIndex];
	3054	FDate2 := (FGraphSeries as TGanttSeries).EndValues[FGraphValueIndex];
	3055	end
	3056	else
	3057	begin
	3058	FDate1 := FGraphSeries.XValue[FGraphValueIndex];
	3059	FDate2 := FDate1;
	3060	end;
	3061	textvalue := ValueText(FGraphClick, FGraphSeries, FGraphValueIndex);
	3062	textvalue1 := Piece(textvalue, '^', 2) + ' ' + Piece(textvalue, '^', 3);
	3063	textvalue2 := Piece(textvalue, '^', 4) + ' ' + Piece(textvalue, '^', 5);
	3064	typenum := trim(Piece(textvalue, '^', 1));
	3065	typename := Piece(textvalue, '^', 2);
	3066	AllTypeDate(typenum, typename, textvalue1, textvalue2, FDate1, FDate2);
	3067	exit;
	3068	end
	3069	else
	3070	OneDayTypeDetails(typeitem);
	3071	end
	3072	else // legend
	3073	begin
	3074	date1 := DateTimeToFMDateTime(FGraphSetting.HighTime);
	3075	date2 := DateTimeToFMDateTime(FGraphSetting.LowTime);
	3076	tmpList := TStringList.Create;
	3077	if pnlTop.Tag = 1 then
	3078	for i := 0 to lvwItemsTop.Items.Count - 1 do
	3079	begin
	3080	if lvwItemsTop.Items[i].Selected then
	3081	begin
	3082	aGraphItem := TGraphItem(lvwItemsTop.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	3083	teststring := aGraphItem.Values;
	3084	tmpList.Add(teststring);
	3085	end;
	3086	end
	3087	else
	3088	for i := 0 to lvwItemsBottom.Items.Count - 1 do
	3089	begin
	3090	if lvwItemsBottom.Items[i].Selected then
	3091	begin
	3092	aGraphItem := TGraphItem(lvwItemsBottom.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	3093	teststring := aGraphItem.Values;
	3094	tmpList.Add(teststring);
	3095	end;
	3096	end;
	3097	if tmpList.Count > 0 then
	3098	AllDetails(date1, date2, tmplist);
	3099	tmpList.Free;
	3100	end;
	3101	FMouseDown := false;
	3102	end;
	3103
	3104	procedure TfrmGraphs.AllDetails(aDate1, aDate2: TFMDateTime; aTempList: TStrings);
	3105	var
	3106	TypeList: TStringList;
	3107	i: integer;
	3108	detailsok: boolean;
	3109	testnum, teststring, testtype: string;
	3110	begin
	3111	detailsok := true;
	3112	TypeList := TStringList.Create;
	3113	for i := 0 to aTempList.Count -1 do
	3114	begin
	3115	teststring := aTempList[i];
	3116	testtype := Piece(teststring, '^', 1);
	3117	if not HSAbbrev(testtype) then
	3118	detailsok := false;
	3119	if testtype = '63' then
	3120	begin
	3121	testnum := Piece(teststring, '^', 2);
	3122	testnum := Piece(testnum, '.', 1);
	3123	TypeList.Add('63^' + testnum);
	3124	end
	3125	else
	3126	TypeList.Add(teststring);
	3127	end;
	3128	if detailsok then
	3129	ReportBox(rpcDetailSelected(Patient.DFN, aDate1, aDate2, TypeList, true), 'Graph results on ' + Patient.Name, True)
	3130	else
	3131	ItemDateRange(FGraphClick);
	3132	TypeList.Free;
	3133	end;
	3134
	3135	procedure TfrmGraphs.OneDayTypeDetails(aTypeItem: string);
	3136	var
	3137	strdate1, strdate2, titleitem, titletype: string;
	3138	date1, date2: TFMDateTime;
	3139	tmpList: TStringList;
	3140	begin
	3141	tmpList := TStringList.Create;
	3142	strdate1 := FormatDateTime('mm/dd/yyyy', FDate1);
	3143	strdate2 := FormatDateTime('mm/dd/yyyy', FDate2);
	3144	FDate1 := StrToDateTime(strdate1);
	3145	FDate2 := StrToDateTime(strdate2);
	3146	date1 := DateTimeToFMDateTime(FDate1 + 1);
	3147	date2 := DateTimeToFMDateTime(FDate2);
	3148	titletype := FileNameX(Piece(aTypeItem, '^', 1));
	3149	titleitem := ItemName(Piece(aTypeItem, '^', 1), Piece(aTypeItem, '^', 2));
	3150	rpcDetailDay(tmpList, Patient.DFN, date1, date2, aTypeItem, true);
	3151	ReportBox(tmpList, titletype + ': ' + titleitem + ' on ' + Patient.Name + ' for ' + FormatFMDateTime('mmm d, yyyy', date1), True);
	3152	tmpList.Free;
	3153	end;
	3154
	3155	procedure TfrmGraphs.mnuPopGraphCopyClick(Sender: TObject);
	3156	var
	3157	i: integer;
	3158	StrForFooter, StrForHeader, aTitle, aWarning, aDateRange: String;
	3159	aHeader: TStringList;
	3160	wrdApp, wrdDoc: Variant;
	3161	ChildControl: TControl;
	3162	begin
	3163	try
	3164	wrdApp := CreateOleObject('Word.Application');
	3165	except
	3166	raise Exception.Create('Cannot start MS Word!');
	3167	end;
	3168	Screen.Cursor := crHourGlass;
	3169	aTitle := 'CPRS Graphing';
	3170	aWarning := pnlInfo.Caption;
	3171	aDateRange := 'Date Range: ' + cboDateRange.Text + ' Selected Items from ' +
	3172	FormatDateTime('mm/dd/yy', FGraphSetting.LowTime) + ' to ' +
	3173	FormatDateTime('mm/dd/yy', FGraphSetting.HighTime);
	3174	aHeader := TStringList.Create;
	3175	CreatePatientHeader(aHeader, aTitle, aWarning, aDateRange);
	3176	StrForHeader := '';
	3177	for i := 0 to aHeader.Count -1 do
	3178	StrForHeader := StrForHeader + aHeader[i] + Chr(13);
	3179	StrForFooter := aTitle + ' - * WORK COPY ONLY *' + Chr(13);
	3180	wrdApp.Visible := False;
	3181	wrdApp.Documents.Add;
	3182	wrdDoc := wrdApp.Documents.Item(1);
	3183	wrdDoc := wrdDoc.Sections.Item(1);
	3184	wrdDoc := wrdDoc.Headers.Item(1).Range;
	3185	wrdDoc.Font.Name := 'Courier New';
	3186	wrdDoc.Font.Size := 9;
	3187	wrdDoc.Text := StrForHeader;
	3188	wrdDoc := wrdApp.Documents.Item(1);
	3189	wrdDoc := wrdDoc.Sections.Item(1);
	3190	wrdDoc := wrdDoc.Footers.Item(1);
	3191	wrdDoc.Range.Font.Name := 'Courier New';
	3192	wrdDoc.Range.Font.Size := 9;
	3193	wrdDoc.Range.Text := StrForFooter;
	3194	wrdDoc.PageNumbers.Add;
	3195	wrdDoc := wrdApp.Documents.Item(1);
	3196	wrdDoc.Range.Font.Name := 'Courier New';
	3197	wrdDoc.Range.Font.Size := 9;
	3198	wrdDoc.Range.Text := StrForHeader;
	3199	wrdDoc.Range.InsertParagraphAfter;
	3200	for i := 0 to scrlTop.ControlCount - 1 do // goes from top to bottom
	3201	begin
	3202	ChildControl := scrlTop.Controls[i];
	3203	if (ChildControl as TChart).Visible then
	3204	begin
	3205	(ChildControl as TChart).CopyToClipboardBitmap;
	3206	wrdDoc.Range.InsertParagraphAfter;
	3207	wrdDoc.Paragraphs.Last.Range.Paste;
	3208	end;
	3209	end;
	3210	if (chartDatelineTop.SeriesCount > 0) and (not chkItemsTop.Checked) then
	3211	begin
	3212	chartDatelineTop.CopyToClipboardBitmap;
	3213	wrdDoc.Range.InsertParagraphAfter;
	3214	wrdDoc.Paragraphs.Last.Range.Paste;
	3215	end;
	3216	wrdDoc.Range.InsertParagraphAfter;
	3217	wrdDoc.Paragraphs.Last.Range.Text := ' ';
	3218	for i := 0 to scrlBottom.ControlCount - 1 do
	3219	begin
	3220	ChildControl := scrlBottom.Controls[i];
	3221	if (ChildControl as TChart).Visible then
	3222	begin
	3223	(ChildControl as TChart).CopyToClipboardBitmap;
	3224	wrdDoc.Range.InsertParagraphAfter;
	3225	wrdDoc.Paragraphs.Last.Range.Paste;
	3226	end;
	3227	end;
	3228	if (chartDatelineBottom.SeriesCount > 0) and (chkDualViews.Checked)
	3229	and (not chkItemsBottom.Checked) then
	3230	begin
	3231	chartDatelineBottom.CopyToClipboardBitmap;
	3232	wrdDoc.Range.InsertParagraphAfter;
	3233	wrdDoc.Paragraphs.Last.Range.Paste;
	3234	end;
	3235	wrdDoc.Range.WholeStory;
	3236	wrdDoc.Range.Copy;
	3237	wrdDoc.Close(false);
	3238	wrdApp.DisplayAlerts := false;
	3239	wrdApp.Quit;
	3240	wrdApp := Unassigned; // releases variant
	3241	aHeader.Free;
	3242	Screen.Cursor := crDefault;
	3243	end;
	3244
	3245	procedure TfrmGraphs.CreatePatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string);
	3246	// this procedure modified from rReports
	3247	var
	3248	tmpStr, tmpItem: string;
	3249	begin
	3250	if Warning = TXT_INFO then Warning := ' ';
	3251	with HeaderList do
	3252	begin
	3253	Add(' ');
	3254	Add(StringOfChar(' ', (74 - Length(PageTitle)) div 2) + PageTitle);
	3255	Add(' ');
	3256	tmpStr := Patient.Name + ' ' + Patient.SSN;
	3257	tmpItem := tmpStr + StringOfChar(' ', 39 - Length(tmpStr)) + Encounter.LocationName;
	3258	tmpStr := FormatFMDateTime('mmm dd, yyyy', Patient.DOB) + ' (' + IntToStr(Patient.Age) + ')';
	3259	tmpItem := tmpItem + StringOfChar(' ', 74 - (Length(tmpItem) + Length(tmpStr))) + tmpStr;
	3260	Add(tmpItem);
	3261	Add(StringOfChar('=', 74));
	3262	Add('* WORK COPY ONLY *' + StringOfChar(' ', 24) + 'Printed: '
	3263	+ FormatFMDateTime('mmm dd, yyyy hh:nn', FMNow));
	3264	Add(TXT_COPY_DISCLAIMER);
	3265	Add(StringOfChar(' ', (74 - Length(DateRange)) div 2) + DateRange);
	3266	Add(StringOfChar(' ', (74 - Length(Warning)) div 2) + Warning);
	3267	Add(' ');
	3268	end;
	3269	end;
	3270
	3271	procedure TfrmGraphs.GetData(aString: string);
	3272	var
	3273	i: integer;
	3274	filenum, itemdata, itemid: string;
	3275	aDate, aDate1: double;
	3276	begin
	3277	lstTemp.Items.Clear;
	3278	itemid := UpperCase(Pieces(aString, '^', 1, 2));
	3279	with lstData do
	3280	for i := Items.Count - 1 downto 0 do
	3281	if itemid = UpperCase(Pieces(Items[i], '^', 1, 2)) then
	3282	begin
	3283	itemdata := Items[i];
	3284	filenum := Piece(itemdata, '^', 1);
	3285	if (filenum = '52') or (filenum = '55') or (filenum = '55NVA')
	3286	or (filenum = '9999911') or (filenum = '405') or (filenum = '9000010') then
	3287	begin
	3288	aDate := strtofloat(FMCorrectedDate(Piece(itemdata, '^', 3)));
	3289	aDate1 := strtofloat(FMCorrectedDate(Piece(itemdata, '^', 4)));
	3290	if (aDate < FGraphSetting.FMStopDate) and (aDate > FGraphSetting.FMStartDate) then
	3291	lstTemp.Items.Add(Items[i])
	3292	else if (aDate < FGraphSetting.FMStopDate) and (aDate1 > FGraphSetting.FMStartDate) then
	3293	lstTemp.Items.Add(Items[i])
	3294	else if (aDate < FGraphSetting.FMStartDate) and (aDate1 > FGraphSetting.FMStopDate) then
	3295	lstTemp.Items.Add(Items[i]);
	3296	end
	3297	else if Piece(itemdata, '^', 3) <> '' then
	3298	begin
	3299	aDate := strtofloat(FMCorrectedDate(Piece(itemdata, '^', 3)));
	3300	if (aDate < FGraphSetting.FMStopDate) and (aDate > FGraphSetting.FMStartDate) then
	3301	if Copy(itemdata, 1, 4) = '63MI' then
	3302	lstTemp.Items.Add(Pieces(Items[i], '^', 1, 4))
	3303	else if Copy(itemdata, 1, 4) = '63AP' then
	3304	lstTemp.Items.Add(Pieces(Items[i], '^', 1, 4))
	3305	//else lstTemp.Items.Add(Pieces(Items[i], '^', 1, 5)); // add in non micro, ap
	3306	else lstTemp.Items.Add(Items[i]); // add in non micro, ap
	3307	end;
	3308	end;
	3309	end;
	3310
	3311	function TfrmGraphs.FMToDateTime(FMDateTime: string): TDateTime;
	3312	var
	3313	x, Year: string;
	3314	begin
	3315	{ Note: TDateTime cannot store month only or year only dates }
	3316	x := FMDateTime + '0000000';
	3317	if Length(x) > 12 then x := Copy(x, 1, 12);
	3318	if StrToInt(Copy(x, 9, 4)) > 2359 then x := Copy(x, 1, 7) + '.2359';
	3319	Year := IntToStr(17 + StrToInt(Copy(x, 1, 1))) + Copy(x, 2, 2);
	3320	x := Copy(x, 4, 2) + '/' + Copy(x, 6, 2) + '/' + Year + ' ' + Copy(x, 9, 2) + ':' + Copy(x, 11, 2);
	3321	Result := StrToDateTime(x);
	3322	end;
	3323
	3324	function TfrmGraphs.GraphTypeNum(aType: string): integer;
	3325	var
	3326	i: integer;
	3327	begin
	3328	Result := 4;
	3329	if (aType = '52') or (aType = '55') or (aType = '55NVA') or (aType = '9999911') then
	3330	if mnuMedsasgantt.Checked then Result := 8
	3331	else if mnuMedsasganttvertheight.Checked then Result := 3
	3332	else Result := 8
	3333	else
	3334	for i := 0 to lstAllTypes.Items.Count - 1 do
	3335	if aType = Piece(lstAllTypes.Items[i], '^', 1) then
	3336	begin
	3337	Result := strtointdef(Piece(lstAllTypes.Items[i], '^', 3), 4);
	3338	break;
	3339	end;
	3340	end;
	3341
	3342	function TfrmGraphs.HSAbbrev(aType: string): boolean;
	3343	var
	3344	i: integer;
	3345	begin
	3346	Result := false;
	3347	for i := 0 to lstTypes.Items.Count - 1 do
	3348	if Piece(lstTypes.Items[i], '^', 1) = aType then
	3349	begin
	3350	Result := length(Piece(lstTypes.Items[i], '^', 8)) > 0;
	3351	break;
	3352	end;
	3353	end;
	3354
	3355	procedure TfrmGraphs.TempCheck(typeitem: string; var levelseq: double);
	3356	var
	3357	done, previous: boolean;
	3358	j: integer;
	3359	begin
	3360	previous := false;
	3361	done := false;
	3362	j := 0;
	3363	with lstTempCheck do
	3364	while not done do
	3365	begin
	3366	if Items.Count = j then done := true
	3367	else if Items[j] = typeitem then
	3368	begin
	3369	previous := true;
	3370	levelseq := j + 1;
	3371	done := true;
	3372	end
	3373	else j := j + 1;
	3374	end;
	3375	if not previous then
	3376	begin
	3377	lstTempCheck.Items.Add(UpperCase(typeitem));
	3378	levelseq := lstTempCheck.Items.Count;
	3379	end;
	3380	end;
	3381
	3382	function TfrmGraphs.DCName(aDCien: string): string;
	3383	var
	3384	i: integer;
	3385	begin
	3386	if lstDrugClass.Items.Count < 1 then
	3387	FastAssign(rpcClass('50.605'), lstDrugClass.Items);
	3388	Result := '';
	3389	for i := 0 to lstDrugClass.Items.Count - 1 do
	3390	if Piece(lstDrugClass.Items[i], '^', 2) = aDCien then
	3391	begin
	3392	Result := 'Drug - ' + Piece(lstDrugClass.Items[i], '^', 3);
	3393	break;
	3394	end;
	3395	end;
	3396
	3397	procedure TfrmGraphs.splItemsBottomMoved(Sender: TObject);
	3398	begin
	3399	chkItemsBottom.Left := pnlItemsBottom.Width - chkItemsBottom.Width - 2;
	3400	pnlItemsTop.Width := pnlItemsBottom.Width;
	3401	chkItemsTop.Left := pnlItemsTop.Width - chkItemsTop.Width - 2;
	3402	end;
	3403
	3404	procedure TfrmGraphs.splItemsTopMoved(Sender: TObject);
	3405	begin
	3406	chkItemsTop.Left := pnlItemsTop.Width - chkItemsTop.Width - 2;
	3407	pnlItemsBottom.Width := pnlItemsTop.Width;
	3408	chkItemsBottom.Left := pnlItemsBottom.Width - chkItemsBottom.Width - 2;
	3409	end;
	3410
	3411	procedure TfrmGraphs.cboDateRangeChange(Sender: TObject);
	3412	var
	3413	datetag: integer;
	3414	endofday: double;
	3415	dateranges, manualstart, manualstop: string;
	3416	begin
	3417	endofday := FMDateTimeOffsetBy(FMToday, 1);
	3418	SelCopy(lvwItemsTop, lstSelCopyTop);
	3419	SelCopy(lvwItemsBottom, lstSelCopyBottom);
	3420	dateranges := '';
	3421	if (cboDateRange.ItemID = 'S') then
	3422	begin
	3423	with calDateRange do
	3424	begin
	3425	if Execute then
	3426	if Length(TextOfStart) > 0 then
	3427	if Length(TextOfStop) > 0 then
	3428	begin
	3429	dateranges :=
	3430	'^' + UpperCase(TextOfStart) + ' to ' + UpperCase(TextOfStop) +
	3431	'^^^' + RelativeStart + ';' + RelativeStop +
	3432	'^' + floattostr(FMDateStart) + '^' + floattostr(FMDateStop);
	3433	cboDateRange.Items.Append(dateranges);
	3434	cboDateRange.ItemIndex := cboDateRange.Items.Count - 1;
	3435	end
	3436	else
	3437	cboDateRange.ItemIndex := -1
	3438	else
	3439	cboDateRange.ItemIndex := -1
	3440	else
	3441	cboDateRange.ItemIndex := -1;
	3442	end;
	3443	end;
	3444	HideGraphs(true);
	3445	datetag := cboDateRange.ItemIEN;
	3446	with FGraphSetting do
	3447	case datetag of
	3448	0: begin
	3449	if cboDateRange.ItemIndex > 8 then // selected date range
	3450	begin
	3451	if dateranges = '' then dateranges := cboDateRange.Items[cboDateRange.ItemIndex];
	3452	manualstart := Piece(dateranges, '^' , 6);
	3453	manualstop := Piece(dateranges, '^' , 7);
	3454	if (manualstop <> '') and (length(Piece(manualstop, '.', 2)) = 0) then
	3455	manualstop := manualstop + '.2359';
	3456	FMStartDate := MakeFMDateTime(manualstart);
	3457	FMStopDate := MakeFMDateTime(manualstop);
	3458	if (manualstart <> '') and (length(Piece(manualstart, '.', 2)) = 0) then
	3459	begin
	3460	FMStartDate := FMDateTimeOffsetBy(FMStartDate, -1);
	3461	manualstart := floattostr(FMStartDate) + '.2359';
	3462	FMStartDate := MakeFMDateTime(manualstart);
	3463	end;
	3464	end;
	3465	end;
	3466	1: begin
	3467	FMStartDate := FMToday;
	3468	FMStopDate := endofday;
	3469	end;
	3470	2: begin
	3471	FMStartDate := FMDateTimeOffsetBy(FMToday, -7);
	3472	FMStopDate := endofday;
	3473	end;
	3474	3: begin
	3475	FMStartDate := FMDateTimeOffsetBy(FMToday, -14);
	3476	FMStopDate := endofday;
	3477	end;
	3478	4: begin
	3479	FMStartDate := FMDateTimeOffsetBy(FMToday, -30);
	3480	FMStopDate := endofday;
	3481	end;
	3482	5: begin
	3483	FMStartDate := FMDateTimeOffsetBy(FMToday, -183);
	3484	FMStopDate := endofday;
	3485	end;
	3486	6: begin
	3487	FMStartDate := FMDateTimeOffsetBy(FMToday, -365);
	3488	FMStopDate := endofday;
	3489	end;
	3490	7: begin
	3491	FMStartDate := FMDateTimeOffsetBy(FMToday, -730);
	3492	FMStopDate := endofday;
	3493	end;
	3494	8: begin
	3495	FMStartDate := FM_START_DATE; // earliest recorded values
	3496	FMStopDate := endofday;
	3497	end;
	3498	else
	3499	begin
	3500	if dateranges = '' then dateranges := cboDateRange.Items[cboDateRange.ItemIndex];
	3501	manualstart := Piece(dateranges, '^' , 6);
	3502	manualstop := Piece(dateranges, '^' , 7);
	3503	if (manualstop <> '') and (length(Piece(manualstop, '.', 2)) = 0) then manualstop := manualstop + '.2359';
	3504	FMStartDate := MakeFMDateTime(manualstart);
	3505	FMStopDate := MakeFMDateTime(manualstop);
	3506	if (manualstart <> '') and (length(Piece(manualstart, '.', 2)) = 0) then
	3507	begin
	3508	FMStartDate := FMDateTimeOffsetBy(FMStartDate, -1);
	3509	manualstart := floattostr(FMStartDate) + '.2359';
	3510	FMStartDate := MakeFMDateTime(manualstart);
	3511	end;
	3512	end;
	3513	end;
	3514	FilterListView(FGraphSetting.FMStartDate, FGraphSetting.FMStopDate);
	3515	SelReset(lstSelCopyTop, lvwItemsTop);
	3516	SelReset(lstSelCopyBottom, lvwItemsBottom);
	3517	DisplayData('top');
	3518	DisplayData('bottom');
	3519	if cboViewsTop.ItemIndex > 1 then cboViewsTopChange(self);
	3520	if cboViewsBottom.ItemIndex > 1 then cboViewsBottomChange(self);
	3521	HideGraphs(false);
	3522	end;
	3523
	3524	function TfrmGraphs.StdDev(value, high, low: double): double;
	3525	begin
	3526	if high - low <> 0 then
	3527	begin
	3528	Result := (value - (low + ((high - low) / 2)))/((high - low) / 4);
	3529	Result := RoundTo(Result, -2);
	3530	end
	3531	else
	3532	Result := 0;
	3533	end;
	3534
	3535	function TfrmGraphs.InvVal(value: double): double;
	3536	begin
	3537	if value = 0 then value := 0.0001;
	3538	Result := 1 / value;
	3539	Result := RoundTo(Result, -2);
	3540	end;
	3541
	3542	procedure TfrmGraphs.lvwItemsTopCompare(Sender: TObject; Item1,
	3543	Item2: TListItem; Data: Integer; var Compare: Integer);
	3544	begin
	3545	if not(Sender is TListView) then exit;
	3546	if FsortAscending then
	3547	begin
	3548	if FSortCol = 0 then
	3549	Compare := CompareStr(Item1.Caption, Item2.Caption)
	3550	else
	3551	Compare := CompareStr(Item1.SubItems[FsortCol - 1],
	3552	Item2.SubItems[FsortCol - 1]);
	3553	end
	3554	else
	3555	begin
	3556	if FSortCol = 0 then
	3557	Compare := CompareStr(Item2.Caption, Item1.Caption)
	3558	else
	3559	Compare := CompareStr(Item2.SubItems[FsortCol - 1],
	3560	Item1.SubItems[FsortCol - 1]);
	3561	end;
	3562	end;
	3563
	3564	procedure TfrmGraphs.lvwItemsTopColumnClick(Sender: TObject;
	3565	Column: TListColumn);
	3566	begin
	3567	if FSortCol = Column.Index then
	3568	FSortAscending := not FSortAscending
	3569	else
	3570	FSortAscending := true;
	3571	FSortCol := Column.Index;
	3572	(Sender as TListView).AlphaSort;
	3573	end;
	3574
	3575	procedure TfrmGraphs.lvwItemsBottomCompare(Sender: TObject; Item1,
	3576	Item2: TListItem; Data: Integer; var Compare: Integer);
	3577	begin
	3578	if not(Sender is TListView) then exit;
	3579	if FBSortAscending then
	3580	begin
	3581	if FBSortCol = 0 then
	3582	Compare := CompareStr(Item1.Caption, Item2.Caption)
	3583	else
	3584	Compare := CompareStr(Item1.SubItems[FBSortCol - 1],
	3585	Item2.SubItems[FBSortCol - 1]);
	3586	end
	3587	else
	3588	begin
	3589	if FBSortCol = 0 then
	3590	Compare := CompareStr(Item2.Caption, Item1.Caption)
	3591	else
	3592	Compare := CompareStr(Item2.SubItems[FBSortCol - 1],
	3593	Item1.SubItems[FBSortCol - 1]);
	3594	end;
	3595	end;
	3596
	3597	procedure TfrmGraphs.lvwItemsBottomColumnClick(Sender: TObject;
	3598	Column: TListColumn);
	3599	begin
	3600	if FBSortCol = Column.Index then
	3601	FBSortAscending := not FBSortAscending
	3602	else
	3603	FBSortAscending := true;
	3604	FBSortCol := Column.Index;
	3605	(Sender as TListView).AlphaSort;
	3606	end;
	3607
	3608	procedure TfrmGraphs.btnGraphSelectionsClick(Sender: TObject);
	3609	var
	3610	actionOK, checkaction: boolean;
	3611	counter, i, listnum: integer;
	3612	profile, profilestring, section, selections, specnum, typeitem: string;
	3613	aGraphItem: TGraphItem;
	3614	begin
	3615	selections := '';
	3616	for i := 0 to lvwItemsTop.Items.Count - 1 do
	3617	if lvwItemsTop.Items[i].Selected then
	3618	begin
	3619	aGraphItem := TGraphItem(lvwItemsTop.Items.Item[i].SubItems.Objects[3]);
	3620	typeitem := UpperCase(aGraphItem.Values);
	3621	if Piece(typeitem, '^', 1) = '63' then
	3622	begin
	3623	specnum := Piece(Piece(typeitem, '^', 2), '.', 2);
	3624	if length(specnum) > 0 then // mulispecimen
	3625	if specnum = '1' then typeitem := Piece(typeitem, '.', 1)
	3626	else typeitem := '';
	3627	end;
	3628	if length(typeitem) > 0 then
	3629	selections := selections + Piece(typeitem, '^', 1) + '~' + Piece(typeitem, '^', 2) +'~\|';
	3630	end;
	3631	checkaction := chkDualViews.Checked;
	3632	actionOK := false;
	3633	profile := '*';
	3634	counter := cboViewsTop.Tag;
	3635	// load lstItems with all patient items and pass to Define View ????
	3636	DialogGraphProfiles(Font.Size, actionOK, checkaction, FGraphSetting,
	3637	profile, profilestring, section, Patient.DFN, counter, selections);
	3638	if (not actionOK) then exit;
	3639	FillViews;
	3640	if (section = 'niether') then exit;
	3641	cboViewsTop.Tag := counter;
	3642
	3643	lstViews.Items.Add(profilestring);
	3644	listnum := lstViews.Items.Count + 1;
	3645	for i := 0 to lstViews.Items.Count - 1 do
	3646	begin
	3647	profilestring := lstViews.Items[i];
	3648	cboViewsTop.Items.Insert(i + 2, profilestring);
	3649	cboViewsBottom.Items.Insert(i + 2, profilestring);
	3650	end;
	3651	if (section = 'bottom') or (section = 'both') then
	3652	lvwItemsBottom.Tag := listnum;
	3653	if (section = 'top') or (section = 'both') then
	3654	lvwItemsTop.Tag := listnum;
	3655	ViewSelections;
	3656	end;
	3657
	3658	procedure TfrmGraphs.ViewSelections;
	3659	var
	3660	i: integer;
	3661	begin // uses lvwItems... Tag as index for view selection
	3662	with lvwItemsBottom do
	3663	begin
	3664	if (Tag = 0) and (length(lvwItemsBottom.Hint) > 0) then
	3665	begin
	3666	for i := 0 to cboViewsBottom.Items.Count - 1 do
	3667	begin
	3668	showmessage(cboViewsBottom.Items[i]);
	3669	if lvwItemsBottom.Hint = Piece(cboViewsBottom.Items[i], '^', 2) then
	3670	begin
	3671	Tag := i;
	3672	break;
	3673	end;
	3674	end;
	3675	end;
	3676	if Tag > 0 then
	3677	begin
	3678	if not chkDualViews.Checked then
	3679	begin
	3680	chkDualViews.Checked := true;
	3681	chkDualViewsClick(self);
	3682	end;
	3683	ClearSelection;
	3684	cboViewsBottom.ItemIndex := Tag;
	3685	Tag := 0;
	3686	Hint := '';
	3687	cboViewsBottomChange(self);
	3688	end;
	3689	end;
	3690	with lvwItemsTop do
	3691	begin
	3692	if (Tag = 0) and (length(lvwItemsTop.Hint) > 0) then
	3693	begin
	3694	for i := 0 to cboViewsTop.Items.Count - 1 do
	3695	begin
	3696	if lvwItemsTop.Hint = Piece(cboViewsTop.Items[i], '^', 2) then
	3697	begin
	3698	Tag := i;
	3699	break;
	3700	end;
	3701	end;
	3702	end;
	3703	if Tag > 0 then
	3704	begin
	3705	ClearSelection;
	3706	cboViewsTop.ItemIndex := Tag;
	3707	Tag := 0;
	3708	Hint := '';
	3709	cboViewsTopChange(self);
	3710	end;
	3711	end;
	3712	end;
	3713
	3714	procedure TfrmGraphs.ItemsClick(Sender: TObject; aListView, aOtherListView: TListView;
	3715	aCheckBox: TCheckBox; aComboBox: TORComboBox; aList: TListBox; aSection: string);
	3716	begin
	3717	FRetainZoom := (lstZoomHistory.Count > 0);
	3718	FWarning := false;
	3719	Screen.Cursor := crHourGlass;
	3720	HideGraphs(true);
	3721	if Sender = aListView then
	3722	begin
	3723	aComboBox.ItemIndex := -1;
	3724	aComboBox.Text := '';
	3725	end;
	3726	if (Sender is TListView) then // clear out selcopy list
	3727	aList.Items.Clear;
	3728	if aOtherListView.SelCount < 1 then
	3729	begin
	3730	FGraphSetting.HighTime := 0;
	3731	FGraphSetting.LowTime := BIG_NUMBER;
	3732	end
	3733	else if (FBHighTime <> 0) and (aSection = 'top') then
	3734	begin
	3735	if FBHighTime < FTHighTime then FGraphSetting.HighTime := FBHighTime;
	3736	if FBLowTime > FTLowTime then FGraphSetting.LowTime := FBLowTime;
	3737	end
	3738	else if (FTHighTime <> 0) and (aSection = 'bottom') then
	3739	begin
	3740	if FTHighTime < FBHighTime then FGraphSetting.HighTime := FTHighTime;
	3741	if FTLowTime > FBLowTime then FGraphSetting.LowTime := FTLowTime;
	3742	end;
	3743	if aSection = 'top' then
	3744	begin
	3745	FTHighTime := 0;
	3746	FTLowTime := BIG_NUMBER;
	3747	end
	3748	else if aSection = 'bottom' then
	3749	begin
	3750	FBHighTime := 0;
	3751	FBLowTime := BIG_NUMBER;
	3752	end;
	3753	CheckToAddData(aListView, aSection, 'SELECT');
	3754	DisplayData(aSection);
	3755	if (aListView.SelCount = 1) and (aOtherListView.SelCount = 0) then
	3756	begin
	3757	lstZoomHistory.Items.Clear;
	3758	FRetainZoom := false;
	3759	mnuPopGraphZoomBack.Enabled := false;
	3760	end
	3761	else if FRetainZoom and (lstZoomHistory.Count > 0) then
	3762	ZoomUpdate;
	3763	HideGraphs(false);
	3764	if FWarning then
	3765	FWarning := false;
	3766	Screen.Cursor := crDefault;
	3767	end;
	3768
	3769	procedure TfrmGraphs.CheckToAddData(aListView: TListView; aSection, TypeToCheck: string);
	3770	var
	3771	done, ok, previous, singletype: boolean;
	3772	i, j: integer;
	3773	itemname, typeitem: string;
	3774	aGraphItem: TGraphItem;
	3775	begin
	3776	TypeToCheck := UpperCase(TypeToCheck);
	3777	if (TypeToCheck = 'SELECT') and (lvwItemsTop.SelCount = 0)
	3778	and (lvwItemsBottom.SelCount = 0) then exit;
	3779	singletype := length(Piece(TypeToCheck, '^', 2)) = 0;
	3780	for i := 0 to aListView.Items.Count - 1 do
	3781	begin
	3782	ok := false;
	3783	if (TypeToCheck = 'ALL') then ok := true;
	3784	if (TypeToCheck = 'SELECT') and aListView.Items[i].Selected then ok := true;
	3785	aGraphItem := TGraphItem(aListView.Items.Item[i].SubItems.Objects[3]);
	3786	typeitem := UpperCase(Pieces(aGraphItem.Values, '^', 1, 2));
	3787	if not ok then
	3788	if TypeToCheck = typeitem then ok := true
	3789	else if (TypeToCheck = Piece(typeitem, '^', 1)) and
	3790	singletype then ok := true;
	3791	if ok then
	3792	begin
	3793	previous := false;
	3794	done := false;
	3795	j := 0;
	3796	with lstCheck do
	3797	while not done do
	3798	begin
	3799	if Items.Count = j then done := true
	3800	else if lstCheck.Items[j] = typeitem then
	3801	begin
	3802	previous := true;
	3803	done := true;
	3804	end
	3805	else j := j + 1;
	3806	end;
	3807	if not previous then
	3808	begin
	3809	lstCheck.Items.Add(typeitem);
	3810	itemname := aListView.Items[i].Caption;
	3811	if Piece(typeitem, '^', 1) = '63' then
	3812	LabData(typeitem, itemname, aSection)
	3813	else
	3814	lstData.Items.AddStrings(rpcGetItemData(typeitem, FMTimeStamp, Patient.DFN));
	3815	end;
	3816	end;
	3817	end;
	3818	end;
	3819
	3820	procedure TfrmGraphs.lvwItemsTopClick(Sender: TObject);
	3821	var
	3822	i: integer;
	3823	begin
	3824	FFirstClick := true;
	3825	with FGraphSetting do
	3826	if lvwItemsTop.SelCount > MaxSelect then
	3827	begin
	3828	pnlItemsTopInfo.Tag := 1;
	3829	lvwItemsTop.ClearSelection;
	3830	showmessage('Too many items to graph');
	3831	for i := 0 to lstSelPrevTop.Items.Count - 1 do
	3832	lvwItemsTop.Items[strtoint(lstSelPrevTop.Items[i])].Selected := true;
	3833	pnlItemsTopInfo.Tag := 0;
	3834	end
	3835	else
	3836	begin
	3837	lstSelPrevTop.Clear;
	3838	for i := 0 to lvwItemsTop.Items.Count - 1 do
	3839	if lvwItemsTop.Items[i].Selected then lstSelPrevTop.Items.Add(inttostr(i));
	3840	ItemsClick(Sender, lvwItemsTop, lvwItemsBottom, chkItemsTop, cboViewsTop, lstSelCopyTop, 'top');
	3841	end;
	3842	end;
	3843
	3844	procedure TfrmGraphs.lvwItemsBottomClick(Sender: TObject);
	3845	var
	3846	i: integer;
	3847	begin
	3848	FFirstClick := true;
	3849	with FGraphSetting do
	3850	if lvwItemsBottom.SelCount > MaxSelect then
	3851	begin
	3852	pnlItemsBottomInfo.Tag := 1;
	3853	lvwItemsBottom.ClearSelection;
	3854	showmessage('Too many items to graph');
	3855	for i := 0 to lstSelPrevBottom.Items.Count - 1 do
	3856	lvwItemsBottom.Items[strtoint(lstSelPrevBottom.Items[i])].Selected := true;
	3857	pnlItemsBottomInfo.Tag := 0;
	3858	end
	3859	else
	3860	begin
	3861	lstSelPrevBottom.Clear;
	3862	for i := 0 to lvwItemsBottom.Items.Count - 1 do
	3863	if lvwItemsBottom.Items[i].Selected then lstSelPrevBottom.Items.Add(inttostr(i));
	3864	ItemsClick(Sender, lvwItemsBottom, lvwItemsTop, chkItemsBottom, cboViewsBottom, lstSelCopyBottom, 'bottom');
	3865	end;
	3866	end;
	3867
	3868	procedure TfrmGraphs.SelCopy(aListView: TListView; aListBox: TListBox);
	3869	var
	3870	i: integer;
	3871	aGraphItem: TGraphItem;
	3872	begin
	3873	if aListView.Items.Count > 0 then
	3874	begin
	3875	for i := 0 to aListView.Items.Count - 1 do
	3876	if aListView.Items[i].Selected then
	3877	begin
	3878	aGraphItem := TGraphItem(aListView.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	3879	aListBox.Items.Add(aGraphItem.Values);
	3880	end;
	3881	end;
	3882	end;
	3883
	3884	procedure TfrmGraphs.SelReset(aListbox: TListBox; aListView: TListView);
	3885	var
	3886	i, j: integer;
	3887	typeitem, itemtype: string;
	3888	aGraphItem: TGraphItem;
	3889	begin
	3890	for i := 0 to aListView.Items.Count - 1 do
	3891	begin
	3892	aGraphItem := TGraphItem(aListView.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	3893	typeitem := UpperCase(Pieces(aGraphItem.Values, '^', 1, 3));
	3894	for j := 0 to aListBox.Items.Count - 1 do
	3895	begin
	3896	itemtype := UpperCase(Pieces(aListBox.Items[j], '^', 1, 3));
	3897	if itemtype = typeitem then
	3898	begin
	3899	aListView.Items[i].Selected := true;
	3900	break;
	3901	end;
	3902	end
	3903	end;
	3904	end;
	3905
	3906	procedure TfrmGraphs.ViewsChange(aListView: TListView; aComboBox: TORComboBox; aSection: string);
	3907	var
	3908	Updated: boolean;
	3909	aProfile: string;
	3910	begin
	3911	timHintPause.Enabled := false;
	3912	InactivateHint;
	3913	if aComboBox.ItemIndex = -1 then exit; // or clear graph ***************************
	3914	if aComboBox.ItemIndex = 0 then // <clear all selections>
	3915	begin
	3916	aComboBox.Text := '';
	3917	aListView.ClearSelection;
	3918	if aSection = 'top' then
	3919	begin
	3920	FTHighTime := 0;
	3921	FTLowTime := BIG_NUMBER;
	3922	end
	3923	else
	3924	begin
	3925	FBHighTime := 0;
	3926	FBLowTime := BIG_NUMBER;
	3927	end;
	3928	DisplayData(aSection);
	3929	exit;
	3930	end;
	3931	if aComboBox.ItemIndex = 1 then // <make selections>
	3932	begin
	3933	btnGraphSelectionsClick(self);
	3934	if aComboBox.ItemIndex = -1 then
	3935	aComboBox.Text := '';
	3936	exit;
	3937	end; // view selected
	3938	aListView.ClearSelection;
	3939	Updated := false;
	3940	aProfile := aComboBox.Items[aComboBox.ItemIndex];
	3941	if (length(Piece(aProfile, '^', 3)) = 0) or (length(Piece(aProfile, '^', 1)) = 0) then //or <custom>
	3942	CheckProfile(aProfile, Updated);
	3943	aComboBox.Text := Piece(aProfile, '^', 2);
	3944	if Updated then
	3945	cboDateRangeChange(self);
	3946	if aSection = 'top' then
	3947	begin
	3948	AssignProfile(aProfile, 'top');
	3949	if not FItemsSortedTop then
	3950	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
	3951	if FGraphSetting.SortColumn > 0 then
	3952	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[FGraphSetting.SortColumn]);
	3953	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[2]);
	3954	lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[2]);
	3955	FItemsSortedTop := false;
	3956	end
	3957	else
	3958	begin
	3959	AssignProfile(aProfile, 'bottom');
	3960	if not FItemsSortedBottom then
	3961	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
	3962	if FGraphSetting.SortColumn > 0 then
	3963	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[FGraphSetting.SortColumn]);
	3964	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[2]);
	3965	lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[2]);
	3966	FItemsSortedBottom := false;
	3967	end;
	3968	aListView.ClearSelection;
	3969	AutoSelect(aListView);
	3970	DisplayData(aSection);
	3971	end;
	3972
	3973	procedure TfrmGraphs.cboViewsTopChange(Sender: TObject);
	3974	begin
	3975	ViewsChange(lvwItemsTop, cboViewsTop, 'top');
	3976	end;
	3977
	3978	procedure TfrmGraphs.cboViewsBottomChange(Sender: TObject);
	3979	begin
	3980	ViewsChange(lvwItemsBottom, cboViewsBottom, 'bottom');
	3981	end;
	3982
	3983	procedure TfrmGraphs.AssignProfile(aProfile, aSection: string);
	3984	var
	3985	profilename: string;
	3986	begin
	3987	profilename := Piece(aProfile, '^', 2);
	3988	aProfile := UpperCase(Piece(aProfile, '^', 3));
	3989	if length(aProfile) = 0 then exit;
	3990	if aSection = 'top' then
	3991	SetProfile(aProfile, profilename, lvwItemsTop)
	3992	else
	3993	SetProfile(aProfile, profilename, lvwItemsBottom);
	3994	end;
	3995
	3996	procedure TfrmGraphs.SetProfile(aProfile, aName: string; aListView: TListView);
	3997	var
	3998	i, j: integer;
	3999	dcnm, itemdrugclass, itempart, itempart1, itempart2, itemnums: string;
	4000	itemstring, itemstring1, itemstringnums, profname: string;
	4001	aGraphItem: TGraphItem;
	4002	begin
	4003	if aProfile = '0' then
	4004	for i := 0 to aListView.Items.Count - 1 do
	4005	aListView.Items[i].SubItems[1] := ''
	4006	else
	4007	for i := 0 to aListView.Items.Count - 1 do
	4008	begin
	4009	profname := '';
	4010	aGraphItem := TGraphItem(aListView.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	4011	itemstring := aGraphItem.Values;
	4012	itemstring1 := UpperCase(Piece(itemstring, '^', 1));
	4013	itemdrugclass := Piece(itemstring, '^', 6);
	4014	itemstringnums := UpperCase(Pieces(itemstring, '^', 1, 2));
	4015	for j := 1 to BIG_NUMBER do
	4016	begin
	4017	itempart := Piece(aProfile, '\|', j);
	4018	if itempart = '' then break;
	4019	itempart1 := Piece(itempart, '~', 1);
	4020	itempart2 := Piece(itempart, '~', 2);
	4021	itemnums := itempart1 + '^' + itempart2;
	4022	if (itempart1 = '50.605') and (length(itemdrugclass) > 0) then
	4023	begin
	4024	dcnm := DCName(itempart2);
	4025	if dcnm = itemdrugclass then
	4026	begin
	4027	profname := aName;
	4028	break;
	4029	end;
	4030	end
	4031	else if itempart1 = '63' then
	4032	begin
	4033	if itemnums = Piece(itemstringnums, '.', 1) then
	4034	begin
	4035	profname := aName;
	4036	break;
	4037	end;
	4038	end
	4039	else
	4040	begin
	4041	if itemnums = itemstringnums then
	4042	begin
	4043	profname := aName;
	4044	break;
	4045	end;
	4046	end;
	4047	if (itempart1 = '0') and (itempart2 = itemstring1) then
	4048	begin
	4049	profname := aName;
	4050	break;
	4051	end
	4052	else if (itempart1 = '0') and (length(Piece(itempart2, ';', 2)) > 0) then // subtypes
	4053	if copy(itempart2, 1, length(itemstring1)) = Piece(itempart2, ';', 1) then
	4054	if Piece(itempart2, ';', 2) = UpperCase(Piece(Piece(itemstring, '^', 2), ';', 2)) then
	4055	begin
	4056	profname := aName;
	4057	break;
	4058	end;
	4059	end;
	4060	aListView.Items[i].SubItems[1] := profname;
	4061	end;
	4062	end;
	4063
	4064	function TfrmGraphs.ExpandTax(profile: string): string;
	4065	var
	4066	i: integer;
	4067	itempart, itempart1, itempart2, newprofile: string;
	4068	taxonomies: TStrings;
	4069	expandedcodes: TStrings;
	4070	taxonomycodes: TStrings;
	4071	begin // '811.2~123~\|0~63~\|' or '55~12~\|0~811.2~\|0~63~\|'
	4072	Result := profile;
	4073	if Pos('811.2~', profile) = 0 then exit;
	4074	taxonomies := TStringList.Create;
	4075	expandedcodes := TStringList.Create;
	4076	taxonomycodes := TStringList.Create;
	4077	newprofile := '';
	4078	for i := 1 to BIG_NUMBER do
	4079	begin
	4080	itempart := Piece(profile, '\|', i);
	4081	if length(itempart) = 0 then break;
	4082	if Pos('811.2~', itempart) = 0 then
	4083	newprofile := newprofile + '\|'
	4084	else
	4085	taxonomies.Add(itempart);
	4086	end;
	4087	for i := 0 to taxonomies.Count -1 do
	4088	begin
	4089	itempart := taxonomies[i];
	4090	if (Piece(itempart, '~', 1) = '0') and (Piece(itempart, '~', 2) = '811.2') then
	4091	begin
	4092	// this is Reminder Taxonomy <any> and would bring back a ton of codes
	4093	//FastAssign(rpcTaxonomy(true, nil), expandedcodes);
	4094	break;
	4095	end
	4096	else if Piece(itempart, '~', 1) = '811.2' then
	4097	taxonomycodes.Add(Piece(itempart, '~', 2));
	4098	end;
	4099	if taxonomycodes.Count > 0 then
	4100	FastAssign(rpcTaxonomy(false, taxonomycodes), expandedcodes);
	4101	for i := 1 to expandedcodes.Count -1 do
	4102	begin
	4103	itempart := expandedcodes[i];
	4104	itempart1 := Piece(itempart, ';', 1);
	4105	itempart2 := Piece(itempart, ';', 2);
	4106	newprofile := newprofile + itempart1 + '~' + itempart2 + '~\|'
	4107	end;
	4108	Result := newprofile;
	4109	end;
	4110
	4111	procedure TfrmGraphs.CheckProfile(var aProfile: string; var Updated: boolean);
	4112	var
	4113	i, j: integer;
	4114	itempart, itempart1, itempart2, profile, profilename, profiletype, xprofile: string;
	4115	begin
	4116	profiletype := Piece(aProfile, '^', 1);
	4117	profilename := Piece(aProfile, '^', 2);
	4118	if profiletype = '-2' then
	4119	FastAssign(rpcGetGraphProfiles(UpperCase(profilename), '1', 0), lstTemp.Items)
	4120	else if profiletype = '-1' then
	4121	FastAssign(rpcGetGraphProfiles(UpperCase(profilename), '0', 0), lstTemp.Items);
	4122	if profiletype <> '' then
	4123	begin
	4124	for i := 0 to lstTemp.Items.Count - 1 do
	4125	aProfile := aProfile + lstTemp.Items[i];
	4126	lstTemp.Items.Clear;
	4127	end;
	4128	Updated := false;
	4129	profile := UpperCase(Piece(aProfile, '^', 3));
	4130	xprofile := ExpandTax(profile);
	4131	if xprofile <> profile then
	4132	begin // taxonomies
	4133	profile := xprofile;
	4134	LoadDisplayCheck('45DX', Updated);
	4135	LoadDisplayCheck('45OP', Updated);
	4136	LoadDisplayCheck('9000010.07', Updated);
	4137	LoadDisplayCheck('9000010.18', Updated);
	4138	LoadDisplayCheck('9000011', Updated);
	4139	//LoadDisplayCheck('9999911', Updated); // problems as durations not being used
	4140	end;
	4141	aProfile := Pieces(aProfile, '^', 1, 2) + '^' + profile;
	4142	for j := 1 to BIG_NUMBER do
	4143	begin
	4144	itempart := Piece(profile, '\|', j);
	4145	if itempart = '' then break;
	4146	itempart1 := Piece(itempart, '~', 1);
	4147	itempart2 := Piece(itempart, '~', 2);
	4148	if itempart1 = '0' then // <any> type
	4149	LoadDisplayCheck(itempart2, Updated)
	4150	else if itempart1 = '50.605' then // drug class
	4151	begin
	4152	LoadDisplayCheck('52', Updated);
	4153	LoadDisplayCheck('55', Updated);
	4154	//LoadDisplayCheck('55NVAE', Updated); // nonvameds as events are not being used
	4155	LoadDisplayCheck('55NVA', Updated);
	4156	LoadDisplayCheck('53.79', Updated);
	4157	end
	4158	else if itempart1 <> '0' then // all others
	4159	LoadDisplayCheck(itempart1, Updated);
	4160	end;
	4161	end;
	4162
	4163	procedure TfrmGraphs.LoadDisplayCheck(typeofitem: string; var Updated: boolean);
	4164	begin
	4165	if not TypeIsLoaded(typeofitem) then
	4166	begin
	4167	LoadType(typeofitem, '1');
	4168	Updated := true;
	4169	end;
	4170	if not TypeIsDisplayed(typeofitem) then
	4171	begin
	4172	DisplayType(typeofitem, '1');
	4173	Updated := true;
	4174	end;
	4175	end;
	4176
	4177	procedure TfrmGraphs.AutoSelect(aListView: TListView);
	4178	var
	4179	counter, i: integer;
	4180	begin
	4181	counter := 0;
	4182	for i := 0 to aListView.Items.Count - 1 do
	4183	begin
	4184	if length(aListView.Items[i].SubItems[1]) > 0 then
	4185	counter := counter + 1;
	4186	end;
	4187	if counter <= FGraphSetting.MaxSelect then
	4188	for i := 0 to aListView.Items.Count - 1 do
	4189	begin
	4190	if length(aListView.Items[i].SubItems[1]) > 0 then
	4191	aListView.Items[i].Selected := true;
	4192	end
	4193	else
	4194	begin
	4195	if aListView = lvwItemsTop then
	4196	lvwItemsTop.ClearSelection
	4197	else if aListView = lvwItemsBottom then
	4198	lvwItemsBottom.ClearSelection;
	4199	end;
	4200	if aListView = lvwItemsTop then
	4201	lvwItemsTopClick(self)
	4202	else if aListView = lvwItemsBottom then
	4203	lvwItemsBottomClick(self);
	4204	end;
	4205
	4206	procedure TfrmGraphs.LabData(aItemType, aItemName, aSection: string);
	4207	var
	4208	singlespec: boolean;
	4209	i, oldlisting: integer;
	4210	checkitem, checkstring, datastring, filename, itemnum, newitemname, newitemnum, newstring: string;
	4211	spec1, spec2, spec3, spec4: string;
	4212	aGraphItem: TGraphItem;
	4213	aListItem: TListItem;
	4214	begin
	4215	singlespec := true;
	4216	spec1 := ''; spec2 := ''; spec3 := ''; spec4 := '';
	4217	lstSpec1.Items.Clear; lstSpec2.Items.Clear; lstSpec3.Items.Clear; lstSpec4.Items.Clear;
	4218	FastAssign(rpcGetItemData(aItemType, FMTimeStamp, Patient.DFN), lstScratchLab.Items);
	4219	for i := 0 to lstScratchLab.Items.Count - 1 do
	4220	begin
	4221	datastring := lstScratchLab.Items[i];
	4222	checkstring := Pieces(datastring, '^', 1, 2) + '^' + Pieces(datastring, '^', 7, 8);
	4223	if length(spec1) = 0 then
	4224	begin
	4225	spec1 := checkstring;
	4226	lstSpec1.Items.Add(datastring)
	4227	end
	4228	else if spec1 = checkstring then
	4229	lstSpec1.Items.Add(datastring)
	4230	else if length(spec2) = 0 then
	4231	begin
	4232	singlespec := false;
	4233	spec2 := checkstring;
	4234	lstSpec2.Items.Add(datastring)
	4235	end
	4236	else if spec2 = checkstring then
	4237	lstSpec2.Items.Add(datastring)
	4238	else if length(spec3) = 0 then
	4239	begin
	4240	spec3 := checkstring;
	4241	lstSpec3.Items.Add(datastring)
	4242	end
	4243	else if spec3 = checkstring then
	4244	lstSpec3.Items.Add(datastring)
	4245	else
	4246	begin
	4247	spec4 := checkstring;
	4248	lstSpec4.Items.Add(datastring)
	4249	end;
	4250	end;
	4251	if singlespec then
	4252	lstData.Items.AddStrings(lstScratchLab.Items)
	4253	else
	4254	begin
	4255	lstMultiSpec.Items.Clear;
	4256	itemnum := Piece(aItemType, '^', 2);
	4257	if length(spec1) > 0 then
	4258	begin
	4259	newitemnum := itemnum + '.1';
	4260	newitemname := aItemName + ' (' + LowerCase(Piece(spec1, '^', 4)) + ')';
	4261	for i := 0 to lstItems.Items.Count - 1 do
	4262	if aItemType = Pieces(lstItems.Items[i], '^', 1, 2) then
	4263	begin
	4264	newstring := lstItems.Items[i];
	4265	lstItems.Items.Delete(i);
	4266	break;
	4267	end;
	4268	for i := 0 to lstData.Items.Count - 1 do
	4269	if aItemType = Pieces(lstData.Items[i], '^', 1, 2) then
	4270	lstData.Items.Delete(i);
	4271	ResetSpec(lstSpec1, itemnum, newitemnum, newitemname, newstring);
	4272	end;
	4273	if length(spec2) > 0 then
	4274	begin
	4275	newitemnum := itemnum + '.2';
	4276	newitemname := aItemName + ' (' + LowerCase(Piece(spec2, '^', 4)) + ')';
	4277	ResetSpec(lstSpec2, itemnum, newitemnum, newitemname, newstring);
	4278	end;
	4279	if length(spec3) > 0 then
	4280	begin
	4281	newitemnum := itemnum + '.3';
	4282	newitemname := aItemName + ' (' + LowerCase(Piece(spec3, '^', 4)) + ')';
	4283	ResetSpec(lstSpec3, itemnum, newitemnum, newitemname, newstring);
	4284	end;
	4285	if length(spec4) > 0 then
	4286	begin
	4287	newitemnum := itemnum + '.4';
	4288	newitemname := aItemName + ' (other)'; // not specific after 3 specimens (from same time)
	4289	ResetSpec(lstSpec4, itemnum, newitemnum, newitemname, newstring);
	4290	end;
	4291	oldlisting := 0;
	4292	lvwItemsTop.SortType := stNone; // avoids out of bounds error
	4293	for i := 0 to lvwItemsTop.Items.Count - 1 do
	4294	begin
	4295	aGraphItem := TGraphItem(lvwItemsTop.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	4296	checkitem := Pieces(aGraphItem.Values, '^', 1, 2);
	4297	if aItemType = checkitem then
	4298	begin
	4299	oldlisting := i;
	4300	lvwItemsTop.Items.Delete(i);
	4301	break;
	4302	end;
	4303	end;
	4304	filename := FileNameX('63');
	4305	for i := 0 to lstMultiSpec.Items.Count - 1 do
	4306	begin
	4307	lstCheck.Items.Add(UpperCase(Pieces(lstMultiSpec.Items[i], '^', 1, 2)));
	4308	if (FGraphSetting.FMStartDate = FM_START_DATE)
	4309	or DateRangeMultiItems(FGraphSetting.FMStartDate, FGraphSetting.FMStopDate, Piece(lstMultiSpec.Items[i], '^', 2)) then
	4310	begin
	4311	with lvwItemsTop do
	4312	aListItem := Items.Insert(oldlisting);
	4313	aListItem.Caption := Piece(lstMultiSpec.Items[i], '^', 4);
	4314	aListItem.SubItems.Add(filename);
	4315	aListItem.SubItems.Add('');
	4316	aListItem.SubItems.Add('');
	4317	aGraphItem := TGraphItem.Create;
	4318	aGraphItem.Values := lstMultiSpec.Items[i];
	4319	aListItem.SubItems.AddObject('info object', aGraphItem);
	4320	if aSection = 'top' then lvwItemsTop.Items[oldlisting].Selected := true;
	4321	end;
	4322	end;
	4323	lvwItemsTop.SortType := stBoth;
	4324	oldlisting := 0;
	4325	lvwItemsBottom.SortType := stNone; // avoids out of bounds error
	4326	for i := 0 to lvwItemsBottom.Items.Count - 1 do
	4327	begin
	4328	aGraphItem := TGraphItem(lvwItemsBottom.Items.Item[i].SubItems.Objects[3]); //get file^ien match
	4329	checkitem := Pieces(aGraphItem.Values, '^', 1, 2);
	4330	if aItemType = checkitem then
	4331	begin
	4332	oldlisting := i;
	4333	lvwItemsBottom.Items.Delete(i);
	4334	break;
	4335	end;
	4336	end;
	4337	for i := 0 to lstMultiSpec.Items.Count - 1 do
	4338	begin
	4339	aListItem := lvwItemsBottom.Items.Insert(oldlisting);
	4340	aListItem.Caption := Piece(lstMultiSpec.Items[i], '^', 4);
	4341	aListItem.SubItems.Add(filename);
	4342	aListItem.SubItems.Add('');
	4343	aListItem.SubItems.Add('');
	4344	aGraphItem := TGraphItem.Create;
	4345	aGraphItem.Values := lstMultiSpec.Items[i];
	4346	aListItem.SubItems.AddObject('info object', aGraphItem);
	4347	if aSection = 'bottom' then lvwItemsBottom.Items[oldlisting].Selected := true;
	4348	end;
	4349	lvwItemsBottom.SortType := stBoth;
	4350	end;
	4351	end;
	4352
	4353	procedure TfrmGraphs.RefUnits(aItem, aSpec: string; var low, high, units: string);
	4354	var
	4355	i: integer;
	4356	item2: double;
	4357	itemspec, specstring: string;
	4358	begin
	4359	item2 := strtofloatdef(aItem, -BIG_NUMBER);
	4360	if item2 <> -BIG_NUMBER then
	4361	begin
	4362	item2 := round(item2);
	4363	aItem := floattostr(item2);
	4364	end;
	4365	itemspec := aItem + '^' + aSpec;
	4366	for i := 0 to lstTestSpec.Items.Count - 1 do
	4367	if itemspec = Pieces(lstTestSpec.Items[i], '^', 1, 2) then
	4368	begin
	4369	specstring := lstTestSpec.Items[i];
	4370	low := Piece(specstring, '^', 3);
	4371	high := Piece(specstring, '^', 4);
	4372	units := Piece(specstring, '^', 8);
	4373	if (Copy(low, 1, 3) = '$S(') then low := SelectRef(low);
	4374	if (Copy(high, 1, 3) = '$S(') then high := SelectRef(high);
	4375	break;
	4376	end;
	4377	end;
	4378
	4379	function TfrmGraphs.SelectRef(aRef: string): string;
	4380	// check ref range for AGE and SEX variables in $S statement
	4381
	4382	procedure CheckRef(selection: string; var value: string; var ok: boolean);
	4383	var
	4384	age: integer;
	4385	part1, part2, part3: string;
	4386	begin
	4387	value := '';
	4388	ok := false;
	4389	if pos('$S', selection) > 0 then exit;
	4390	if pos(':', selection) = 0 then exit;
	4391	part1 := Piece(selection, ':', 1);
	4392	part2 := Piece(selection, ':', 2);
	4393	part3 := Piece(selection, ':', 3);
	4394	if length(part1) = 0 then exit;
	4395	if length(part2) = 0 then exit;
	4396	if length(part3) <> 0 then exit;
	4397	ok := true;
	4398	value := part2;
	4399	if part1 = '1' then exit;
	4400	if copy(part1, 1, 4) = 'SEX=' then
	4401	begin
	4402	if (part1 = 'SEX="M"') and (Patient.Sex = 'M') then exit;
	4403	if (part1 = 'SEX="F"') and (Patient.Sex = 'F') then exit; //?? check for '= '> '< ??
	4404	value := '';
	4405	end
	4406	else if copy(part1, 1, 3) = 'AGE' then
	4407	begin
	4408	part3 := copy(part1, 5, length(part1));
	4409	age := strtointdef(part3, BIG_NUMBER);
	4410	if age <> BIG_NUMBER then
	4411	begin
	4412	part3 := copy(part1, 1, 4);
	4413	if (part3 = 'AGE>') and (Patient.Age > age) then exit;
	4414	if (part3 = 'AGE<') and (Patient.Age < age) then exit;
	4415	if (part3 = 'AGE=') and (Patient.Age = age) then exit;
	4416	end;
	4417	value := '';
	4418	end
	4419	else
	4420	value:= '';
	4421	end;
	4422
	4423	var
	4424	ok: boolean;
	4425	i: integer;
	4426	selection, selections: string;
	4427	begin
	4428	Result := '';
	4429	if copy(aRef, length(aRef), 1) = ')' then
	4430	begin
	4431	selections := copy(aRef, 4, length(aRef) - 4);
	4432	for i := 1 to BIG_NUMBER do
	4433	begin
	4434	selection := Piece(selections, ',', i);
	4435	if selection = '' then break;
	4436	ok := true;
	4437	CheckRef(selection, Result, ok);
	4438	if not ok then break;
	4439	if length(Result) > 0 then break;
	4440	end;
	4441	end;
	4442	end;
	4443
	4444	procedure TfrmGraphs.ResetSpec(aListBox: TListBox; aItemNum, aNewItemNum, aNewItemName, aNewString: string);
	4445	var //also add itemx
	4446	i: integer;
	4447	checkdate, newdate: double;
	4448	newestdate, newstring: string;
	4449	begin
	4450	lstTemp.Items.Clear;
	4451	newdate := 0;
	4452	for i := 0 to aListBox.Items.Count - 1 do
	4453	begin
	4454	newstring := aListBox.Items[i];
	4455	newestdate := FMCorrectedDate(Piece(newstring, '^', 3));
	4456	checkdate := strtofloatdef(newestdate, -BIG_NUMBER);
	4457	if checkdate > newdate then newdate := checkdate;
	4458	SetPiece(newstring, '^', 2, aNewItemNum);
	4459	lstTemp.Items.Add(newstring);
	4460	end;
	4461	lstData.Items.AddStrings(lstTemp.Items);
	4462	newestdate := floattostr(newdate);
	4463	SetPiece(aNewString, '^', 2, aNewItemNum);
	4464	SetPiece(aNewString, '^', 4, aNewItemName);
	4465	SetPiece(aNewString, '^', 6, newestdate);
	4466	lstItems.Items.Add(aNewString);
	4467	lstMultiSpec.Items.Add(aNewString);
	4468	end;
	4469
	4470	procedure TfrmGraphs.chartBaseClickLegend(Sender: TCustomChart;
	4471	Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	4472	var
	4473	seriestitle: string;
	4474	begin
	4475	FGraphClick := Sender;
	4476	chartDatelineTop.Tag := -1; // indicates a legend click
	4477	if Button <> mbRight then
	4478	ItemDateRange(Sender)
	4479	else
	4480	begin
	4481	mnuPopGraphIsolate.Enabled := true;
	4482	if pnlTop.Tag = 1 then
	4483	begin
	4484	if chkItemsTop.Checked then
	4485	begin
	4486	seriestitle := Sender.SeriesTitleLegend(0);
	4487	scrlTop.Hint := 'Details - for ' + seriestitle;
	4488	scrlTop.Tag := 1;
	4489	mnuPopGraphIsolate.Caption := 'Move - ' + seriestitle + ' - from Top to Bottom';
	4490	mnuPopGraphIsolate.Hint := seriestitle;
	4491	mnuPopGraphRemove.Enabled := true;
	4492	mnuPopGraphRemove.Caption := 'Remove - ' + seriestitle;
	4493	mnuPopGraphDetails.Caption := 'Details - ' + seriestitle;
	4494	end
	4495	else
	4496	begin
	4497	mnuPopGraphIsolate.Caption := 'Move all selections to bottom';
	4498	mnuPopGraphRemove.Caption := 'Remove all selections from top';
	4499	end;
	4500	end
	4501	else
	4502	begin
	4503	if chkItemsBottom.Checked then
	4504	begin
	4505	seriestitle := Sender.SeriesTitleLegend(0);
	4506	scrlTop.Hint := 'Details - for ' + seriestitle;
	4507	scrlTop.Tag := 1;
	4508	mnuPopGraphIsolate.Caption := 'Move - ' + seriestitle + ' - from Bottom to Top';
	4509	mnuPopGraphIsolate.Hint := seriestitle;
	4510	mnuPopGraphRemove.Enabled := true;
	4511	mnuPopGraphRemove.Caption := 'Remove - ' + seriestitle;
	4512	mnuPopGraphDetails.Caption := 'Details - ' + seriestitle;
	4513	end
	4514	else
	4515	begin
	4516	mnuPopGraphIsolate.Caption := 'Move all selections to top';
	4517	mnuPopGraphRemove.Caption := 'Remove all selections from bottom';
	4518	end;
	4519	end;
	4520	end;
	4521	end;
	4522
	4523	function TfrmGraphs.BPValue(aDateTime: TDateTime): string;
	4524	var
	4525	i: integer;
	4526	fmdatetime: double;
	4527	datastring, datecheck, fmstring: string;
	4528	begin
	4529	Result := '';
	4530	fmdatetime := datetimetofmdatetime(aDateTime);
	4531	fmstring := floattostr(fmdatetime);
	4532	for i := 0 to lstData.Items.Count - 1 do
	4533	begin
	4534	datastring := lstData.Items[i];
	4535	if Pieces(datastring, '^', 1, 2) = '120.5^1' then //********** get item # for bp instead of 1
	4536	begin
	4537	datecheck := Piece(datastring, '^', 3);
	4538	if length(Piece(datecheck, '.', 2)) > 0 then
	4539	datecheck := Piece(datecheck, '.', 1) + '.' + copy(Piece(datecheck, '.', 2), 1, 4);
	4540	if fmstring = datecheck then
	4541	begin
	4542	Result := Piece(datastring, '^', 5);
	4543	break;
	4544	end;
	4545	end;
	4546	end;
	4547	end;
	4548
	4549	procedure TfrmGraphs.mnuMedsasganttClick(Sender: TObject);
	4550	begin
	4551	(Sender as TMenuItem).Checked := true;
	4552	lvwItemsTopClick(self);
	4553	lvwItemsBottomClick(self);
	4554	end;
	4555
	4556	procedure TfrmGraphs.mnuPopGraphResetClick(Sender: TObject);
	4557	begin
	4558	FFirstClick := true;
	4559	lstZoomHistory.Items.Clear;
	4560	FRetainZoom := false;
	4561	mnuPopGraphZoomBack.Enabled := false;
	4562	lvwItemsTopClick(self);
	4563	end;
	4564
	4565	procedure TfrmGraphs.serDatelineTopGetMarkText(Sender: TChartSeries;
	4566	ValueIndex: Integer; var MarkText: String);
	4567	var
	4568	cnt, i: integer;
	4569	checktag, nonstring: string;
	4570	begin // ********* listing one series' values is ok but no multiple ???
	4571	MarkText := Sender.Title;
	4572	if Copy(MarkText, 1, 4) = 'Ref ' then
	4573	MarkText := '';
	4574	if Sender.Title = '(non-numeric)' then
	4575	begin
	4576	if Sender.Tag > 0 then
	4577	begin
	4578	checktag := inttostr(Sender.Tag);
	4579	cnt := -1;
	4580	for i := 0 to lstNonNumeric.Items.Count - 1 do
	4581	begin
	4582	nonstring := lstNonNumeric.Items[i];
	4583	if checktag = Piece(nonstring, '^', 3) then
	4584	begin
	4585	cnt := cnt + 1;
	4586	if cnt = ValueIndex then
	4587	begin
	4588	MarkText := Piece(nonstring, '^', 2);
	4589	break;
	4590	end;
	4591	end;
	4592	end;
	4593	if MarkText = '(non-numeric)' then
	4594	beep;
	4595	end;
	4596	end;
	4597	end;
	4598
	4599	procedure TfrmGraphs.mnuPopGraphRemoveClick(Sender: TObject);
	4600	var
	4601	i, selnum: integer;
	4602	aSection, typeitem: string;
	4603	aComboBox: TORComboBox;
	4604	aListView: TListView;
	4605	begin
	4606	FFirstClick := true;
	4607	if pnlTop.Tag = 1 then
	4608	begin
	4609	aComboBox := cboViewsTop;
	4610	aListView := lvwItemsTop;
	4611	aSection := 'top';
	4612	end
	4613	else
	4614	begin
	4615	aComboBox := cboViewsBottom;
	4616	aListView := lvwItemsBottom;
	4617	aSection := 'bottom';
	4618	end;
	4619	aComboBox.ItemIndex := -1;
	4620	aComboBox.Text := '';
	4621	if aListView.SelCount = 0 then exit;
	4622	if StripHotKey(mnuPopGraphRemove.Caption) = ('Remove all selections from ' + aSection) then
	4623	begin
	4624	with aListView do
	4625	for i := 0 to Items.Count - 1 do
	4626	if Items[i].Selected then
	4627	begin
	4628	Items[i].Selected := false;
	4629	end;
	4630	DisplayData('top');
	4631	DisplayData('bottom');
	4632	end
	4633	else
	4634	begin
	4635	ItemCheck(aListView, mnuPopGraphIsolate.Hint, selnum, typeitem);
	4636	if selnum = -1 then exit;
	4637	aListView.Items[selnum].Selected := false;
	4638	DisplayData('top');
	4639	DisplayData('bottom');
	4640	end;
	4641	mnuPopGraphRemove.Enabled := false;
	4642	mnuPopGraphResetClick(self);
	4643	end;
	4644
	4645	procedure TfrmGraphs.mnuPopGraphTodayClick(Sender: TObject);
	4646	begin
	4647	with dlgDate do
	4648	begin
	4649	FMDateTime := FMToday;
	4650	if Execute then FMToday := FMDateTime;
	4651	end;
	4652	end;
	4653
	4654	procedure TfrmGraphs.BaseResize(aScrollBox: TScrollBox);
	4655	var
	4656	displayheight, displaynum, i: integer;
	4657	begin
	4658	ChartOnZoom(chartDatelineTop);
	4659	with aScrollBox do
	4660	begin
	4661	if ControlCount < FGraphSetting.MaxGraphs then
	4662	displaynum := ControlCount
	4663	else
	4664	displaynum := FGraphSetting.MaxGraphs;
	4665	displayheight := FGraphSetting.MinGraphHeight;
	4666	if displaynum > 0 then
	4667	if (Height div displaynum) < FGraphSetting.MinGraphHeight then
	4668	displayheight := FGraphSetting.MinGraphHeight
	4669	else
	4670	displayheight := (Height div displaynum);
	4671	for i := 0 to aScrollBox.ControlCount - 1 do
	4672	Controls[i].height := displayheight;
	4673	end;
	4674	end;
	4675
	4676	procedure TfrmGraphs.pnlScrollTopBaseResize(Sender: TObject);
	4677	begin
	4678	ChartOnZoom(chartDatelineTop);
	4679	BaseResize(scrlTop);
	4680	BaseResize(scrlBottom);
	4681	end;
	4682
	4683	procedure TfrmGraphs.NextPointerStyle(aSeries: TChartSeries; aSerCnt: integer);
	4684	var
	4685	colors1, colors2, colors3, colors4, colors5, colors6: integer;
	4686	begin
	4687	colors1 := NUM_COLORS + 1;
	4688	colors2 := NUM_COLORS * 2 + 1;
	4689	colors3 := NUM_COLORS * 3 + 1;
	4690	colors4 := NUM_COLORS * 4 + 1;
	4691	colors5 := NUM_COLORS * 5 + 1;
	4692	colors6 := NUM_COLORS * 6 + 1;
	4693	if aSeries is TLineSeries then
	4694	begin
	4695	with (aSeries as TLineSeries) do
	4696	if aSerCnt < colors1 then
	4697	Pointer.Style := psCircle
	4698	else if aSerCnt < colors2 then
	4699	Pointer.Style := psTriangle
	4700	else if aSerCnt < colors3 then
	4701	Pointer.Style := psRectangle
	4702	else if aSerCnt < colors4 then
	4703	Pointer.Style := psStar
	4704	else if aSerCnt < colors5 then
	4705	Pointer.Style := psDownTriangle
	4706	else if aSerCnt < colors6 then
	4707	Pointer.Style := psCross
	4708	else
	4709	Pointer.Style := psDiagCross;
	4710	end
	4711	else if aSeries is TBarSeries then
	4712	begin
	4713	with (aSeries as TBarSeries) do
	4714	if aSerCnt < colors1 then
	4715	BarStyle := bsPyramid
	4716	else if aSerCnt < colors2 then
	4717	BarStyle := bsInvPyramid
	4718	else if aSerCnt < colors3 then
	4719	BarStyle := bsArrow
	4720	else if aSerCnt < colors4 then
	4721	BarStyle := bsEllipse
	4722	else
	4723	BarStyle := bsRectangle;
	4724	end
	4725	else if aSeries is TPointSeries then
	4726	begin
	4727	with (aSeries as TPointSeries) do
	4728	if aSerCnt < colors1 then
	4729	Pointer.Style := psRectangle
	4730	else if aSerCnt < colors2 then
	4731	Pointer.Style := psTriangle
	4732	else if aSerCnt < colors3 then
	4733	Pointer.Style := psCircle
	4734	else if aSerCnt < colors4 then
	4735	Pointer.Style := psStar
	4736	else if aSerCnt < colors5 then
	4737	Pointer.Style := psDownTriangle
	4738	else if aSerCnt < colors6 then
	4739	Pointer.Style := psCross
	4740	else
	4741	Pointer.Style := psDiagCross;
	4742	end;
	4743	end;
	4744
	4745	function TfrmGraphs.FMCorrectedDate(fmtime: string): string;
	4746	begin
	4747	if Copy(fmtime, 4, 4) = '0000' then Result := Copy(fmtime, 1, 3) + '0101'
	4748	else if Copy(fmtime, 6, 2) = '00' then Result := Copy(fmtime, 1, 5) + '01'
	4749	else Result := fmtime;
	4750	end;
	4751
	4752	procedure TfrmGraphs.FixedDates(var adatetime, adatetime1: TDateTime);
	4753	begin
	4754	if FGraphSetting.FMStartDate <> FM_START_DATE then
	4755	begin // do not use when All Results
	4756	adatetime := FMDateTimeToDateTime(FGraphSetting.FMStopDate);
	4757	adatetime1 := FMDateTimeToDateTime(FGraphSetting.FMStartDate);
	4758	FGraphSetting.HighTime := adatetime;
	4759	FGraphSetting.LowTime := adatetime1;
	4760	FTHighTime := adatetime;
	4761	FTLowTime := adatetime1;
	4762	FBHighTime := adatetime;
	4763	FBLowTime := adatetime1;
	4764	end;
	4765	end;
	4766
	4767	procedure TfrmGraphs.HighLow(fmtime, fmtime1: string; aChart: TChart; var adatetime, adatetime1: TDateTime);
	4768	begin
	4769	adatetime1 := 0;
	4770	adatetime := FMToDateTime(fmtime);
	4771	if adatetime > FGraphSetting.HighTime then FGraphSetting.HighTime := adatetime;
	4772	if adatetime < FGraphSetting.LowTime then FGraphSetting.LowTime := adatetime;
	4773	if aChart = chartDatelineTop then
	4774	begin
	4775	if adatetime > FTHighTime then FTHighTime := adatetime;
	4776	if adatetime < FTLowTime then FTLowTime := adatetime;
	4777	end
	4778	else
	4779	begin
	4780	if adatetime > FBHighTime then FBHighTime := adatetime;
	4781	if adatetime < FBLowTime then FBLowTime := adatetime;
	4782	end;
	4783	if fmtime1 <> '' then
	4784	begin
	4785	adatetime1 := FMToDateTime(fmtime1);
	4786	if adatetime1 > FGraphSetting.HighTime then FGraphSetting.HighTime := adatetime1;
	4787	if adatetime1 < FGraphSetting.LowTime then FGraphSetting.LowTime := adatetime1;
	4788	if aChart = chartDatelineTop then
	4789	begin
	4790	if adatetime1 > FTHighTime then FTHighTime := adatetime1;
	4791	if adatetime1 < FTLowTime then FTLowTime := adatetime1;
	4792	end
	4793	else
	4794	begin
	4795	if adatetime1 > FBHighTime then FBHighTime := adatetime1;
	4796	if adatetime1 < FBLowTime then FBLowTime := adatetime1;
	4797	end;
	4798	end;
	4799	end;
	4800
	4801	procedure TfrmGraphs.HideGraphs(action: boolean);
	4802	begin
	4803	pnlTop.Color := chartDatelineTop.Color;
	4804	pnlBottom.Color := chartDatelineTop.Color;
	4805	if action then
	4806	begin
	4807	pnlScrollTopBase.Visible := false;
	4808	pnlScrollBottomBase.Visible := false;
	4809	end
	4810	else
	4811	begin
	4812	pnlScrollTopBase.Visible := true;
	4813	pnlScrollBottomBase.Visible := true;
	4814	chartDatelineTop.Refresh;
	4815	end;
	4816	end;
	4817
	4818	//****************************************************************************
	4819
	4820	procedure TfrmGraphs.MakeLineSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt, aNonCnt: integer; multiline: boolean);
	4821
	4822	procedure BorderValue(var bordervalue: double; value: double);
	4823	begin
	4824	if FGraphSetting.FixedDateRange then
	4825	if bordervalue = -BIG_NUMBER then
	4826	bordervalue := value;
	4827	end;
	4828
	4829	var
	4830	estimate, firstcnt, i, noncnt: integer;
	4831	value, fixeddatevalue, hi, highestvalue, highvalue, lo, nonvalue: double;
	4832	checkdata, fmtime, itemvalue, valueD, valueM, valueS: string;
	4833	high, low, specimen: string;
	4834	adatetime, adatetime1: TDateTime;
	4835	afixeddate, afixeddate1: TDateTime;
	4836	ser1, ser2, ser3, serLow, serHigh: TLineSeries;
	4837	serBlank, serPoint: TPointSeries;
	4838	begin
	4839	fixeddatevalue := -BIG_NUMBER;
	4840	highestvalue := aChart.MaxYValue(aChart.LeftAxis);
	4841	if highestvalue < 1 then highestvalue := 1;
	4842	firstcnt := lstNonNumeric.Items.Count;
	4843	noncnt := firstcnt;
	4844	aChart.LeftAxis.LabelsFont.Color := aChart.BottomAxis.LabelsFont.Color;
	4845	aSerCnt := aSerCnt + 1;
	4846	ser1 := TLineSeries.Create(aChart);
	4847	ser2 := TLineSeries.Create(aChart);
	4848	ser3 := TLineSeries.Create(aChart);
	4849	serPoint := TPointSeries.Create(aChart);
	4850	serBlank := TPointSeries.Create(aChart);
	4851	serLow := TLineSeries.Create(aChart);
	4852	serHigh := TLineSeries.Create(aChart);
	4853	specimen := LowerCase(Piece(aTitle, '^', 4));
	4854	low := Piece(aTitle, '^', 5); // collect non numeric - graph as events
	4855	high := Piece(aTitle, '^', 6);
	4856	lo := strtofloatdef(low, -BIG_NUMBER);
	4857	hi := strtofloatdef(high, -BIG_NUMBER);
	4858	serLow.Active := false;
	4859	serHigh.Active := false;
	4860	serPoint.Active := false;
	4861	serBlank.Active := false;
	4862	with ser1 do
	4863	begin
	4864	LinePen.Visible := FGraphSetting.Lines;
	4865	ParentChart := aChart;
	4866	Title := Piece(aTitle, '^', 3);
	4867	if (length(specimen) > 0) and (not ansicontainsstr(Title, specimen)) then
	4868	Title := Title + ' (' + specimen + ')';
	4869	XValues.DateTime := True;
	4870	NextPointerStyle(ser1, aSerCnt);
	4871	Identifier := aFileType;
	4872	Pointer.Visible := true;
	4873	Pointer.InflateMargins := true;
	4874	GetData(aTitle);
	4875	ColorEachPoint := false;
	4876	SeriesColor := NextColor(aSerCnt);
	4877	Marks.BackColor := clInfoBk;
	4878	if ser1.Title = 'Blood Pressure' then
	4879	begin
	4880	ser1.Title := 'Blood Pressure';
	4881	with ser2 do
	4882	begin
	4883	ParentChart := aChart;
	4884	Title := 'Blood Pressure';
	4885	XValues.DateTime := true;
	4886	Pointer.Style := ser1.Pointer.Style;
	4887	ShowInLegend := false; //****
	4888	Identifier := aFileType;
	4889	Pointer.Visible := true;
	4890	Pointer.InflateMargins := true;
	4891	ColorEachPoint := false;
	4892	SeriesColor := ser1.SeriesColor;
	4893	Marks.BackColor := clInfoBk;
	4894	Active := true;
	4895	end;
	4896	with ser3 do
	4897	begin
	4898	ParentChart := aChart;
	4899	Title := 'Blood Pressure';
	4900	XValues.DateTime := true;
	4901	Pointer.Style := ser1.Pointer.Style;
	4902	ShowInLegend := false; //****
	4903	Identifier := aFileType;
	4904	Pointer.Visible := true;
	4905	Pointer.InflateMargins := true;
	4906	ColorEachPoint := false;
	4907	SeriesColor := ser1.SeriesColor;
	4908	Marks.BackColor := clInfoBk;
	4909	Active := false;
	4910	end;
	4911	end
	4912	else
	4913	begin
	4914	ser2.Active := false;
	4915	ser3.Active := false;
	4916	end;
	4917	highvalue := 0;
	4918	with lstTemp do
	4919	for i:= 0 to Items.Count - 1 do
	4920	begin
	4921	checkdata := lstTemp.Items[i];
	4922	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	4923	if IsFMDateTime(fmtime) then
	4924	begin
	4925	HighLow(fmtime, '', aChart, adatetime, adatetime1);
	4926	itemvalue := Piece(Items[i], '^', 5);
	4927	itemvalue := trim(itemvalue);
	4928	itemvalue := StringReplace(itemvalue, ',', '', [rfReplaceAll]);
	4929	if ser1.Title = 'Blood Pressure' then
	4930	begin
	4931	valueS := Piece(itemvalue, '/', 1);
	4932	valueD := Piece(itemvalue, '/', 2);
	4933	valueM := Piece(itemvalue, '/', 3);
	4934	value := strtofloatdef(valueS, -BIG_NUMBER);
	4935	if value <> -BIG_NUMBER then
	4936	ser1.AddXY(adatetime, value, '', clTeeColor);
	4937	value := strtofloatdef(valueD, -BIG_NUMBER);
	4938	if value <> -BIG_NUMBER then
	4939	ser2.AddXY(adatetime, value, '', clTeeColor);
	4940	value := strtofloatdef(valueM, -BIG_NUMBER);
	4941	if value <> -BIG_NUMBER then
	4942	begin
	4943	ser3.AddXY(adatetime, value, '', clTeeColor);
	4944	ser3.Active := true;
	4945	end;
	4946	BorderValue(fixeddatevalue, 100);
	4947	end
	4948	else
	4949	begin
	4950	value := strtofloatdef(itemvalue, -BIG_NUMBER);
	4951	if value <> -BIG_NUMBER then
	4952	begin
	4953	if (btnChangeSettings.Tag = 1) and (hi <> -BIG_NUMBER) and (lo <> -BIG_NUMBER) then
	4954	begin
	4955	value := StdDev(value, hi, lo);
	4956	ser1.AddXY(adatetime, value, '', clTeeColor);
	4957	high := '2'; low := '-2';
	4958	BorderValue(fixeddatevalue, 0);
	4959	//splGraphs.Tag := 1; // show ref range
	4960	end
	4961	else if btnChangeSettings.Tag = 2 then
	4962	begin
	4963	value := InvVal(value);
	4964	ser1.AddXY(adatetime, value, '', clTeeColor);
	4965	high := '2'; low := '0';
	4966	BorderValue(fixeddatevalue, 0);
	4967	splGraphs.Tag := 0; // do not show ref range
	4968	end
	4969	else
	4970	begin
	4971	ser1.AddXY(adatetime, value, '', clTeeColor);
	4972	if value > highvalue then
	4973	highvalue := value;
	4974	BorderValue(fixeddatevalue, value);
	4975	end;
	4976	end
	4977	else
	4978	begin
	4979	noncnt := noncnt + 1;
	4980	lstNonNumeric.Items.Add(floattostr(adatetime) + '^' +
	4981	itemvalue + '^' + inttostr(aNonCnt + 1));
	4982	end;
	4983	end;
	4984	end;
	4985	end;
	4986	if (length(low) > 0) and (splGraphs.Tag = 1) then
	4987	begin
	4988	with serLow do
	4989	begin
	4990	Active := true;
	4991	ParentChart := aChart;
	4992	XValues.DateTime := True;
	4993	Pointer.Visible := false;
	4994	Pointer.InflateMargins := true;
	4995	OnGetMarkText := serDatelineTop.OnGetMarkText;
	4996	ColorEachPoint := false;
	4997	Title := 'Ref Low ' + low;
	4998	Pointer.Style := psCircle;
	4999	SeriesColor := ser1.SeriesColor; //clBtnShadow ; //clTeeColor;
	5000	Marks.Visible := false;
	5001	LinePen.Visible := true;
	5002	LinePen.Width := 2;
	5003	LinePen.Style := psDash; //does not show when width <> 1
	5004	end;
	5005	value := strtofloatdef(low, -BIG_NUMBER);
	5006	if value <> -BIG_NUMBER then
	5007	begin
	5008	serLow.AddXY(IncDay(FGraphSetting.LowTime, -1), value, '', clTeeColor);
	5009	serLow.AddXY(IncDay(FGraphSetting.HighTime, 1), value, '', clTeeColor);
	5010	BorderValue(fixeddatevalue, value);
	5011	end;
	5012	end;
	5013	if (length(high) > 0) and (splGraphs.Tag = 1) then
	5014	begin
	5015	with serHigh do
	5016	begin
	5017	Active := true;
	5018	ParentChart := aChart;
	5019	XValues.DateTime := True;
	5020	Pointer.Visible := false;
	5021	Pointer.InflateMargins := true;
	5022	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5023	ColorEachPoint := false;
	5024	Title := 'Ref High ' + high;
	5025	Pointer.Style := psCircle;
	5026	SeriesColor := ser1.SeriesColor; // clBtnShadow; //clTeeColor;
	5027	Marks.Visible := false;
	5028	LinePen.Visible := true;
	5029	LinePen.Width := 2;
	5030	LinePen.Style := psDash; //does not show when width <> 1
	5031	end;
	5032	value := strtofloatdef(high, -BIG_NUMBER);
	5033	if value <> -BIG_NUMBER then
	5034	begin
	5035	serHigh.AddXY(IncDay(FGraphSetting.LowTime, -1), value, '', clTeeColor);
	5036	serHigh.AddXY(IncDay(FGraphSetting.HighTime, 1), value, '', clTeeColor);
	5037	BorderValue(fixeddatevalue, value);
	5038	end;
	5039	end;
	5040	splGraphs.Tag := 0;
	5041	if noncnt > firstcnt then
	5042	begin
	5043	if aChart.Height < 10 then estimate := pnlMain.Height div 2
	5044	else estimate := aChart.Height;
	5045	aNonCnt := aNonCnt + 1; // use nonnumeric count to offset position
	5046	nonvalue := (aNonCnt * (10 / (estimate + 1)) * highestvalue);
	5047	with serBlank do
	5048	begin
	5049	Active := true;
	5050	ParentChart := aChart;
	5051	XValues.DateTime := True;
	5052	Pointer.Visible := true;
	5053	Pointer.InflateMargins := true;
	5054	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5055	ColorEachPoint := false;
	5056	Title := '';
	5057	Pointer.Style := psSmallDot;
	5058	SeriesColor := aChart.Color;
	5059	Marks.Visible := false;
	5060	ShowInLegend := false;
	5061	end;
	5062	with serPoint do
	5063	begin
	5064	Active := true;
	5065	ParentChart := aChart;
	5066	XValues.DateTime := True;
	5067	Pointer.Visible := true;
	5068	Pointer.InflateMargins := true;
	5069	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5070	ColorEachPoint := false;
	5071	Title := '(non-numeric)';
	5072	Hint := aTitle;
	5073	Tag := aNonCnt;
	5074	Pointer.Style := ser1.Pointer.Style;
	5075	SeriesColor := ser1.SeriesColor;
	5076	Marks.BackColor := clInfoBk;
	5077	ShowInLegend := false;
	5078	end;
	5079	for i := 0 to lstNonNumeric.Items.Count - 1 do
	5080	begin
	5081	if Piece(lstNonNumeric.Items[i], '^',3) = inttostr(aNonCnt) then
	5082	if highvalue = 0 then
	5083	begin
	5084	adatetime := strtofloatdef(Piece(lstNonNumeric.Items[i], '^', 1), -BIG_NUMBER);
	5085	if adatetime <> -BIG_NUMBER then
	5086	begin
	5087	serBlank.Pointer.Pen.Visible := false;
	5088	serBlank.AddXY(adatetime, 1, '', pnlScrollTopBase.Color);
	5089	break;
	5090	end;
	5091	end;
	5092	end;
	5093	for i := 0 to lstNonNumeric.Items.Count - 1 do
	5094	if Piece(lstNonNumeric.Items[i], '^',3) = inttostr(aNonCnt) then
	5095	begin
	5096	adatetime := strtofloatdef(Piece(lstNonNumeric.Items[i], '^', 1), -BIG_NUMBER);
	5097	if adatetime <> -BIG_NUMBER then
	5098	begin
	5099	serPoint.Pointer.Pen.Visible := true;
	5100	serPoint.AddXY(adatetime, nonvalue, '', ser1.SeriesColor);
	5101	BorderValue(fixeddatevalue, nonvalue);
	5102	end;
	5103	end;
	5104	if highvalue = 0 then
	5105	begin
	5106	aChart.LeftAxis.LabelsFont.Color := pnlScrollTopBase.Color;
	5107	FNonNumerics := true;
	5108	end;
	5109	end;
	5110	if ser1.Title = 'Pain' then
	5111	begin
	5112	if not serBlank.Active then
	5113	with serBlank do
	5114	begin
	5115	Active := true;
	5116	ParentChart := aChart;
	5117	XValues.DateTime := True;
	5118	Pointer.Visible := true;
	5119	Pointer.InflateMargins := true;
	5120	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5121	ColorEachPoint := false;
	5122	Title := '';
	5123	Pointer.Style := psSmallDot;
	5124	SeriesColor := aChart.Color;
	5125	Marks.Visible := false;
	5126	ShowInLegend := false;
	5127	end;
	5128	serBlank.Pointer.Pen.Visible := false;
	5129	serBlank.AddXY(IncDay(FGraphSetting.LowTime, -1), 0, '', pnlScrollTopBase.Color);
	5130	serBlank.AddXY(IncDay(FGraphSetting.LowTime, -1), 10, '', pnlScrollTopBase.Color);
	5131	end;
	5132	if multiline then
	5133	begin
	5134	// do nothing for now
	5135	end;
	5136	if fixeddatevalue <> -BIG_NUMBER then
	5137	begin
	5138	if not serBlank.Active then
	5139	with serBlank do
	5140	begin
	5141	Active := true;
	5142	ParentChart := aChart;
	5143	XValues.DateTime := True;
	5144	Pointer.Visible := true;
	5145	Pointer.InflateMargins := true;
	5146	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5147	ColorEachPoint := false;
	5148	Title := '';
	5149	Pointer.Style := psSmallDot;
	5150	SeriesColor := aChart.Color;
	5151	Marks.Visible := false;
	5152	ShowInLegend := false;
	5153	end;
	5154	FixedDates(afixeddate, afixeddate1);
	5155	serBlank.Pointer.Pen.Visible := false;
	5156	serBlank.AddXY(afixeddate, fixeddatevalue, '', aChart.Color);
	5157	serBlank.AddXY(afixeddate1, fixeddatevalue, '', aChart.Color);
	5158	end;
	5159	GetHorizAxis.ExactDateTime := True;
	5160	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5161	end;
	5162	end;
	5163
	5164	procedure TfrmGraphs.MakePointSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5165	var
	5166	i: integer;
	5167	value: double;
	5168	fmtime: string;
	5169	adatetime, adatetime1: TDateTime;
	5170	ser1: TPointSeries;
	5171	begin
	5172	aSerCnt := aSerCnt + 1;
	5173	ser1 := TPointSeries.Create(aChart);
	5174	with ser1 do
	5175	begin
	5176	ParentChart := aChart;
	5177	Title := Piece(aTitle, '^', 3);
	5178	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5179	XValues.DateTime := True;
	5180	NextPointerStyle(ser1, aSerCnt);
	5181	Pointer.VertSize := 10;
	5182	Pointer.HorizSize := 2;
	5183	Identifier := aFileType;
	5184	Pointer.Visible := true;
	5185	GetData(aTitle);
	5186	ColorEachPoint := false;
	5187	SeriesColor := NextColor(aSerCnt);
	5188	Marks.BackColor := clInfoBk;
	5189	with lstTemp do
	5190	for i := 0 to lstTemp.Items.Count - 1 do
	5191	begin
	5192	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5193	if IsFMDateTime(fmtime) then
	5194	begin
	5195	HighLow(fmtime, '', aChart, adatetime, adatetime1);
	5196	value := strtofloatdef(Piece(Items[i], '^', 5), -BIG_NUMBER);
	5197	if value = -BIG_NUMBER then
	5198	begin
	5199	value := aSerCnt;
	5200	TempCheck(Pieces(Items[i], '^', 1, 2), value);
	5201	end;
	5202	ser1.AddXY(adatetime, value, '', clTeeColor);
	5203	end;
	5204	end;
	5205	GetHorizAxis.ExactDateTime := True;
	5206	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5207	end;
	5208	end;
	5209
	5210	procedure TfrmGraphs.MakeBarSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5211	var
	5212	i: integer;
	5213	value: double;
	5214	fmtime: string;
	5215	adatetime, adatetime1: TDateTime;
	5216	afixeddate, afixeddate1: TDateTime;
	5217	ser1: TBarSeries;
	5218	serBlank: TPointSeries;
	5219	begin
	5220	aSerCnt := aSerCnt + 1;
	5221	ser1 := TBarSeries.Create(aChart);
	5222	serBlank := TPointSeries.Create(aChart);
	5223	with serBlank do
	5224	begin
	5225	Active := true;
	5226	ParentChart := aChart;
	5227	XValues.DateTime := True;
	5228	Pointer.Visible := true;
	5229	Pointer.InflateMargins := false;
	5230	ColorEachPoint := false;
	5231	Title := '';
	5232	Pointer.Style := psSmallDot;
	5233	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5234	SeriesColor := aChart.Color;
	5235	Marks.BackColor := clInfoBk;
	5236	ShowInLegend := false;
	5237	end;
	5238	with ser1 do
	5239	begin
	5240	ParentChart := aChart;
	5241	Title := Piece(aTitle, '^', 3);
	5242	XValues.DateTime := True;
	5243	YOrigin := 0;
	5244	Identifier := aFileType;
	5245	Marks.Visible := false;
	5246	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5247	CustomBarWidth := 7;
	5248	Marks.Style := smsLabel;
	5249	GetData(aTitle);
	5250	ColorEachPoint := false;
	5251	SeriesColor := NextColor(aSerCnt);
	5252	Marks.BackColor := clInfoBk;
	5253	NextPointerStyle(ser1, aSerCnt);
	5254	with lstTemp do
	5255	for i:= 0 to Items.Count - 1 do
	5256	begin
	5257	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5258	if IsFMDateTime(fmtime) then
	5259	begin
	5260	HighLow(fmtime, '', aChart, adatetime, adatetime1);
	5261	value := 25 - (aSerCnt mod NUM_COLORS);
	5262	if FPrevEvent = copy(fmtime, 1, 10) then
	5263	if copy((FPrevEvent + '00'), 1, 12) = copy(fmtime, 1, 12) then // same time occurrence
	5264	begin
	5265	pnlInfo.Caption := TXT_WARNING_SAME_TIME;
	5266	pnlInfo.Color := COLOR_WARNING;
	5267	pnlInfo.Visible := true;
	5268	pnlHeader.Visible := true;
	5269	FWarning := true;
	5270	end;
	5271	if value <> -BIG_NUMBER then
	5272	ser1.AddXY(adatetime, value, '', clTeeColor);
	5273	FPrevEvent := copy(fmtime, 1, 10);
	5274	if i = 0 then
	5275	begin
	5276	serBlank.Pointer.Pen.Visible := false;
	5277	serBlank.AddXY(adatetime, 100, '', aChart.Color);
	5278	if FGraphSetting.FixedDateRange then
	5279	begin
	5280	FixedDates(afixeddate, afixeddate1);
	5281	serBlank.AddXY(afixeddate, 100, '', aChart.Color);
	5282	serBlank.AddXY(afixeddate1, 100, '', aChart.Color);
	5283	end;
	5284	end;
	5285	end;
	5286	end;
	5287	GetHorizAxis.ExactDateTime := True;
	5288	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5289	end;
	5290	end;
	5291
	5292	procedure TfrmGraphs.MakeManyGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5293	var
	5294	i, value: integer;
	5295	fmtime, fmtime1: string;
	5296	adatetime, adatetime1: TDateTime;
	5297	afixeddate, afixeddate1: TDateTime;
	5298	gantt: TGanttSeries;
	5299	serBlank: TPointSeries;
	5300	begin
	5301	aSerCnt := aSerCnt + 1;
	5302	gantt := TGanttSeries.Create(aChart);
	5303	serBlank := TPointSeries.Create(aChart);
	5304	with serBlank do
	5305	begin
	5306	Active := true;
	5307	ParentChart := aChart;
	5308	XValues.DateTime := True;
	5309	Pointer.Visible := true;
	5310	Pointer.InflateMargins := false;
	5311	ColorEachPoint := false;
	5312	Title := '';
	5313	Pointer.Style := psSmallDot;
	5314	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5315	SeriesColor := aChart.Color;
	5316	Marks.BackColor := clInfoBk;
	5317	ShowInLegend := false;
	5318	end;
	5319	with gantt do
	5320	begin
	5321	ParentChart := aChart;
	5322	Title := Piece(aTitle, '^', 3);
	5323	Marks.Style := smsLabel;
	5324	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5325	if Piece(aTitle, '^', 1) = '55' then // make inpatient meds smaller to identify
	5326	Pointer.VertSize := RX_HEIGHT_IN
	5327	else if Piece(aTitle, '^', 1) = '55NVA' then // make nonva meds smaller to identify
	5328	Pointer.VertSize := RX_HEIGHT_NVA
	5329	else if Piece(aTitle, '^', 1) = '9999911' then // make problems smaller to identify
	5330	Pointer.VertSize := PROB_HEIGHT
	5331	else
	5332	Pointer.VertSize := RX_HEIGHT_OUT;
	5333	GetData(aTitle);
	5334	ColorEachPoint := false;
	5335	SeriesColor := NextColor(aSerCnt);
	5336	Identifier := aFileType;
	5337	Marks.BackColor := clInfoBk;
	5338	value := round(((aSerCnt mod NUM_COLORS) / NUM_COLORS) * 80) + 20 + aSerCnt;
	5339	if aFileType <> '9999911' then
	5340	if aChart <> chartDatelineTop then
	5341	if aChart <> chartDatelineBottom then
	5342	value := value - 26;
	5343	with lstTemp do
	5344	for i := 0 to lstTemp.Items.Count - 1 do
	5345	begin
	5346	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5347	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5348	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5349	begin
	5350	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5351	AddGantt(adatetime, adatetime1, value, '');
	5352	if i = 0 then
	5353	begin
	5354	serBlank.Pointer.Pen.Visible := false;
	5355	serBlank.AddXY(adatetime, 100, '', aChart.Color);
	5356	if aFileType = '9999911' then
	5357	serBlank.AddXY(adatetime, 0, '', aChart.Color);
	5358	if FGraphSetting.FixedDateRange then
	5359	begin
	5360	FixedDates(afixeddate, afixeddate1);
	5361	serBlank.AddXY(afixeddate, 100, '', aChart.Color);
	5362	serBlank.AddXY(afixeddate1, 100, '', aChart.Color);
	5363	end;
	5364	end;
	5365	end;
	5366	end;
	5367	GetHorizAxis.ExactDateTime := True;
	5368	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5369	end;
	5370	end;
	5371
	5372	procedure TfrmGraphs.MakeVisitGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5373	var
	5374	i: integer;
	5375	value: double;
	5376	fmtime, fmtime1: string;
	5377	adatetime, adatetime1: TDateTime;
	5378	afixeddate, afixeddate1: TDateTime;
	5379	gantt: TGanttSeries;
	5380	serBlank: TPointSeries;
	5381	begin
	5382	aSerCnt := aSerCnt + 1;
	5383	gantt := TGanttSeries.Create(aChart);
	5384	serBlank := TPointSeries.Create(aChart);
	5385	with serBlank do
	5386	begin
	5387	Active := true;
	5388	ParentChart := aChart;
	5389	XValues.DateTime := True;
	5390	Pointer.Visible := true;
	5391	Pointer.InflateMargins := false;
	5392	ColorEachPoint := false;
	5393	Title := '';
	5394	Pointer.Style := psSmallDot;
	5395	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5396	SeriesColor := aChart.Color;
	5397	Marks.Visible := false;
	5398	ShowInLegend := false;
	5399	end;
	5400	with gantt do
	5401	begin
	5402	ParentChart := aChart;
	5403	Title := Piece(aTitle, '^', 3);
	5404	Marks.Style := smsLabel;
	5405	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5406	if Piece(aTitle, '^', 1) = '405' then // make admit smaller to identify
	5407	Pointer.VertSize := NUM_COLORS + 3
	5408	else if Piece(aTitle, '^', 1) = '9999911' then // make problems smaller to identify
	5409	Pointer.VertSize := PROB_HEIGHT
	5410	else
	5411	Pointer.VertSize := NUM_COLORS + (aSerCnt mod NUM_COLORS) + 10;
	5412	GetData(aTitle);
	5413	ColorEachPoint := false;
	5414	SeriesColor := NextColor(aSerCnt);
	5415	Identifier := aFileType;
	5416	Marks.BackColor := clInfoBk;
	5417	value := aSerCnt div NUM_COLORS;
	5418	with lstTemp do
	5419	for i:= 0 to Items.Count - 1 do
	5420	begin
	5421	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5422	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5423	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5424	begin
	5425	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5426	AddGantt(adatetime, adatetime1, value, '');
	5427	if i = 0 then
	5428	begin
	5429	serBlank.Pointer.Pen.Visible := false;
	5430	serBlank.AddXY(adatetime, 100, '', aChart.Color);
	5431	if FGraphSetting.FixedDateRange then
	5432	begin
	5433	FixedDates(afixeddate, afixeddate1);
	5434	serBlank.AddXY(afixeddate, 100, '', aChart.Color);
	5435	serBlank.AddXY(afixeddate1, 100, '', aChart.Color);
	5436	end;
	5437	end;
	5438	end;
	5439	end;
	5440	GetHorizAxis.ExactDateTime := True;
	5441	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5442	end;
	5443	end;
	5444
	5445	procedure TfrmGraphs.MakeWeightedGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5446	var
	5447	i: integer;
	5448	value: double;
	5449	fmtime, fmtime1: string;
	5450	gantt: TGanttSeries;
	5451	adatetime, adatetime1: TDateTime;
	5452	begin
	5453	aSerCnt := aSerCnt + 1;
	5454	gantt := TGanttSeries.Create(aChart);
	5455	with gantt do
	5456	begin
	5457	ParentChart := aChart;
	5458	Title := Piece(aTitle, '^', 3);
	5459	Marks.Style := smsLabel;
	5460	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5461	value := NUM_COLORS;
	5462	GetData(aTitle);
	5463	ColorEachPoint := false;
	5464	SeriesColor := NextColor(aSerCnt);
	5465	Identifier := aFileType;
	5466	Marks.BackColor := clInfoBk;
	5467	with lstTemp do
	5468	for i:= 0 to Items.Count - 1 do
	5469	begin
	5470	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5471	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5472	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5473	begin
	5474	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5475	value := Vfactor(Piece(aTitle, '^', 3));
	5476	AddGantt(adatetime, adatetime1, 1, '');
	5477	value := value + (value / 2);
	5478	end;
	5479	end;
	5480	Pointer.VertSize := round(value);
	5481	GetHorizAxis.ExactDateTime := True;
	5482	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5483	end;
	5484	end;
	5485
	5486	procedure TfrmGraphs.MakeArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5487	var
	5488	i: integer;
	5489	value: double;
	5490	fmtime, fmtime1: string;
	5491	arrows: TArrowSeries;
	5492	adatetime, adatetime1: TDateTime;
	5493	begin
	5494	aSerCnt := aSerCnt + 1;
	5495	arrows := TArrowSeries.Create(aChart);
	5496	with arrows do
	5497	begin
	5498	ParentChart := aChart;
	5499	Title := Piece(aTitle, '^', 3);
	5500	Clear;
	5501	ArrowWidth := 12;
	5502	ArrowHeight := 9;
	5503	StartXValues.DateTime := true;
	5504	EndXValues.DateTime := true;
	5505	Marks.Style := smsLabel;
	5506	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5507	Pointer.Visible := false;
	5508	Pointer.VertSize := 17; //pnlTop.Height; //******* for meds
	5509	Pointer.HorizSize := 24;
	5510	Pointer.InflateMargins := true;
	5511	GetData(aTitle);
	5512	ColorEachPoint := false;
	5513	SeriesColor := NextColor(aSerCnt);
	5514	Identifier := aFileType;
	5515	Marks.BackColor := clInfoBk;
	5516	with lstTemp do
	5517	for i:= 0 to Items.Count - 1 do
	5518	begin
	5519	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5520	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5521	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5522	begin
	5523	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5524	value := strtofloatdef(Piece(Items[i], '^', 5), -BIG_NUMBER);
	5525	if value = -BIG_NUMBER then
	5526	TempCheck(Pieces(Items[i], '^', 1, 2), value);
	5527	AddArrow(adatetime, value, adatetime1, value, '', SeriesColor);
	5528	end;
	5529	end;
	5530	GetHorizAxis.ExactDateTime := True;
	5531	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5532	end;
	5533	end;
	5534
	5535	procedure TfrmGraphs.MakeWeightedArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5536	var
	5537	i: integer;
	5538	value: double;
	5539	fmtime, fmtime1: string;
	5540	adatetime, adatetime1: TDateTime;
	5541	arrows: TArrowSeries;
	5542	begin
	5543	aSerCnt := aSerCnt + 1;
	5544	arrows := TArrowSeries.Create(aChart);
	5545	with arrows do
	5546	begin
	5547	ParentChart := aChart;
	5548	Title := Piece(aTitle, '^', 3);
	5549	Clear;
	5550	ArrowWidth := 12;
	5551	ArrowHeight := 9;
	5552	StartXValues.DateTime := true;
	5553	EndXValues.DateTime := true;
	5554	Marks.Style := smsLabel;
	5555	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5556	Pointer.Visible := false;
	5557	Pointer.VertSize := 17; //pnlTop.Height; //******* for meds
	5558	Pointer.HorizSize := 24;
	5559	Pointer.InflateMargins := true;
	5560	GetData(aTitle);
	5561	ColorEachPoint := false;
	5562	SeriesColor := NextColor(aSerCnt);
	5563	Identifier := aFileType;
	5564	Marks.BackColor := clInfoBk;
	5565	with lstTemp do
	5566	for i:= 0 to Items.Count - 1 do
	5567	begin
	5568	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5569	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5570	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5571	begin
	5572	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5573	value := strtofloatdef(Piece(Items[i], '^', 5), -BIG_NUMBER);
	5574	if value = -BIG_NUMBER then
	5575	TempCheck(Pieces(Items[i], '^', 1, 2), value);
	5576	AddArrow(adatetime, value, adatetime1, value, '', SeriesColor);
	5577	end;
	5578	end;
	5579	value := Vfactor(Piece(aTitle, '^', 3));
	5580	if value < 1 then value := 1;
	5581	Pointer.HorizSize := round(value);
	5582	GetHorizAxis.ExactDateTime := True;
	5583	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5584	end;
	5585	end;
	5586
	5587	procedure TfrmGraphs.MakeGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5588	var
	5589	i: integer;
	5590	value: double;
	5591	fmtime, fmtime1: string;
	5592	adatetime, adatetime1: TDateTime;
	5593	gantt: TGanttSeries;
	5594	begin
	5595	aSerCnt := aSerCnt + 1;
	5596	gantt := TGanttSeries.Create(aChart);
	5597	with gantt do
	5598	begin
	5599	ParentChart := aChart;
	5600	Title := Piece(aTitle, '^', 3);
	5601	Marks.Style := smsLabel;
	5602	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5603	Pointer.VertSize := pnlTop.Height; //******* like vertical bars
	5604	GetData(aTitle);
	5605	ColorEachPoint := false;
	5606	SeriesColor := NextColor(aSerCnt);
	5607	Identifier := aFileType;
	5608	Marks.BackColor := clInfoBk;
	5609	with lstTemp do
	5610	for i:= 0 to Items.Count - 1 do
	5611	begin
	5612	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5613	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5614	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5615	begin
	5616	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5617	value := strtofloatdef(Piece(Items[i], '^', 5), -BIG_NUMBER);
	5618	if value = -BIG_NUMBER then
	5619	TempCheck(Pieces(Items[i], '^', 1, 2), value);
	5620	AddGantt(adatetime, adatetime1, 1, '');
	5621	end;
	5622	end;
	5623	GetHorizAxis.ExactDateTime := True;
	5624	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5625	end;
	5626	end;
	5627
	5628	procedure TfrmGraphs.MakeAGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
	5629	var
	5630	i: integer;
	5631	value: double;
	5632	fmtime, fmtime1: string;
	5633	gantt: TGanttSeries;
	5634	adatetime, adatetime1: TDateTime;
	5635	begin
	5636	aSerCnt := aSerCnt + 1;
	5637	if aChart = chartDatelineTop then
	5638	gantt := serDatelineTop
	5639	else
	5640	gantt := serDatelineBottom;
	5641	with gantt do
	5642	begin
	5643	ParentChart := aChart;
	5644	Active := true;
	5645	Title := Piece(aTitle, '^', 3);
	5646	Marks.Style := smsLabel;
	5647	OnGetMarkText := serDatelineTop.OnGetMarkText;
	5648	//Pointer.VertSize := pnlTop.Height; //******* for meds
	5649	GetData(aTitle);
	5650	Identifier := aFileType;
	5651	ColorEachPoint := True;
	5652	with lstTemp do
	5653	for i:= 0 to Items.Count - 1 do
	5654	begin
	5655	fmtime := FMCorrectedDate(Piece(Items[i], '^', 3));
	5656	fmtime1 := FMCorrectedDate(Piece(Items[i], '^', 4));
	5657	if IsFMDateTime(fmtime) and IsFMDateTime(fmtime1) then
	5658	begin
	5659	HighLow(fmtime, fmtime1, aChart, adatetime, adatetime1);
	5660	value := strtofloatdef(Piece(Items[i], '^', 5), -BIG_NUMBER);
	5661	if value = -BIG_NUMBER then
	5662	TempCheck(Pieces(Items[i], '^', 1, 2), value);
	5663	AddGantt(adatetime, adatetime1, aSerCnt, '');
	5664	end;
	5665	end;
	5666	GetHorizAxis.ExactDateTime := True;
	5667	GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
	5668	end;
	5669	end;
	5670
	5671	procedure TfrmGraphs.splGraphsMoved(Sender: TObject);
	5672	begin
	5673	if Sender = splGraphs then
	5674	chkDualViews.Checked := pnlBottom.Height > 3;
	5675	end;
	5676
	5677	function TfrmGraphs.ValueText(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer): string;
	5678	var // type#^typename^formatdate^itemname^result^date
	5679	i, offset, SeriesNum, selnum: integer;
	5680	dateend, datestart: double;
	5681	astring, datecheck, filetype, fmdatecheck, item, otherdate, partitem: string;
	5682	resultdate, results, seriestitle, typeitem, typename, typenum: string;
	5683	begin
	5684	SeriesNum := -1;
	5685	for i := 0 to Sender.SeriesCount -1 do
	5686	if Sender.Series[i] = Series then
	5687	begin
	5688	SeriesNum := i;
	5689	filetype := Sender.Series[i].Identifier;
	5690	break;
	5691	end;
	5692	seriestitle := Sender.Series[SeriesNum].Title;
	5693	if (seriestitle = '') and (SeriesNum < (Series.Count - 1)) then
	5694	if Sender.Series[SeriesNum + 1].Title = '(non-numeric)' then
	5695	begin
	5696	SeriesNum := SeriesNum + 1;
	5697	seriestitle := '(non-numeric)';
	5698	end;
	5699	Result := '';
	5700	if seriestitle <> '(non-numeric)' then
	5701	begin
	5702	ItemCheck(lvwItemsTop, seriestitle, selnum, typeitem);
	5703	typeitem := UpperCase(typeitem);
	5704	end
	5705	else
	5706	begin
	5707	selnum := 1;
	5708	typeitem := '63';
	5709	offset := 2; // 2 series before
	5710	if (copy(Sender.Series[SeriesNum - offset].Title, 1, 4) = 'Ref ') then
	5711	if SeriesNum - 4 > -1 then
	5712	offset := 4 // if ref ranges
	5713	else if SeriesNum - 3 > -1 then
	5714	offset := 3; // if ref ranges
	5715	seriestitle := Sender.Series[SeriesNum - offset].Title + ' ' + seriestitle;
	5716	end;
	5717	if selnum < 0 then
	5718	begin
	5719	Result := '^^^' + seriestitle;
	5720	exit;
	5721	end;
	5722	typenum := Piece(typeitem, '^', 1);
	5723	if (typenum <> filetype) and (filetype <> '') then
	5724	begin
	5725	typenum := filetype;
	5726	typeitem := typenum + '^' + Piece(typeitem, '^', 2);
	5727	end;
	5728	if typenum = '55' then
	5729	begin
	5730	if Series is TGanttSeries then
	5731	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_IN then
	5732	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_NVA then
	5733	typenum := '52'
	5734	else typenum := '55NVA';
	5735	end
	5736	else if typenum = '55NVA' then
	5737	begin
	5738	if Series is TGanttSeries then
	5739	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_NVA then
	5740	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_OUT then
	5741	typenum := '55'
	5742	else typenum := '52';
	5743	end
	5744	else if typenum = '52' then
	5745	begin
	5746	if Series is TGanttSeries then
	5747	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_OUT then
	5748	if (Series as TGanttSeries).Pointer.VertSize <> RX_HEIGHT_NVA then
	5749	typenum := '55'
	5750	else typenum := '55NVA';
	5751	end;
	5752	typename := FileNameX(typenum);
	5753	if ValueIndex < 0 then
	5754	begin
	5755	Result := typenum + '^' + typename + '^^' + seriestitle;
	5756	exit;
	5757	end;
	5758	if Copy(typename, length(typename) - 2, 3) = 'ies' then
	5759	typename := Copy(typename, 1, length(typename) - 3) + 'y'
	5760	else if Copy(typename, length(typename), 1) = 's' then
	5761	typename := Copy(typename, 1, length(typename) - 1);
	5762	if (Series is TGanttSeries) then
	5763	begin
	5764	datestart := (Series as TGanttSeries).StartValues[ValueIndex];
	5765	dateend := (Series as TGanttSeries).EndValues[ValueIndex];
	5766	end
	5767	else
	5768	begin
	5769	datestart := Series.XValue[ValueIndex];
	5770	dateend := datestart;
	5771	end;
	5772	if datestart <> dateend then
	5773	begin
	5774	resultdate := FormatDateTime('mmm d, yyyy h:nn am/pm', datestart) +
	5775	' - ' + FormatDateTime('mmm d, yyyy h:nn am/pm', dateend);
	5776	otherdate := FormatDateTime('mm/dd/yy hh:nn', datestart) +
	5777	' - ' + FormatDateTime('mm/dd/yy hh:nn', dateend);
	5778	end
	5779	else
	5780	begin
	5781	resultdate := FormatDateTime('mmm d, yyyy h:nn am/pm', datestart);
	5782	otherdate := FormatDateTime('mm/dd/yy hh:nn', datestart);
	5783	end;
	5784	results := '';
	5785	if typenum = '63' then
	5786	begin
	5787	if Series is TLineSeries then
	5788	if (Series as TLineSeries).LinePen.Style = psDash then
	5789	exit; // serHigh or serLow
	5790	if Series is TPointSeries then
	5791	if (Series as TPointSeries).Pointer.Style = psSmallDot then
	5792	exit; // serBlank
	5793	if copy(seriestitle, length(seriestitle) - 12, length(seriestitle)) = '(non-numeric)' then
	5794	begin
	5795	seriestitle := copy(seriestitle, 1, length(seriestitle) - 13);
	5796	serDatelineTopGetMarkText(Sender.Series[SeriesNum], ValueIndex, results);
	5797	end
	5798	else
	5799	results := floattostr(Series.YValue[ValueIndex]);
	5800	end
	5801	else if typenum <> '120.5' then
	5802	begin
	5803	item := Piece(typeitem, '^', 2);
	5804	partitem := copy(item, 1, 4);
	5805	//if (partitem = 'M;A;') then //or (partitem = 'M;T;') then tb antibiotic on 1st piece
	5806	begin
	5807	fmdatecheck := floattostr(DateTimeToFMDateTime(Series.XValue[ValueIndex]));
	5808	for i := 0 to lstData.Items.Count - 1 do
	5809	begin
	5810	astring := lstData.Items[i];
	5811	if item = Piece(astring, '^', 2) then
	5812	begin
	5813	datecheck := Piece(astring, '^', 3);
	5814	if length(Piece(datecheck, '.', 2)) > 0 then
	5815	datecheck := Piece(datecheck, '.', 1) + '.' + copy(Piece(datecheck, '.', 2), 1, 4);
	5816	if datecheck = fmdatecheck then
	5817	begin
	5818	results := MixedCase(Piece(astring, '^', 5));
	5819	break;
	5820	end;
	5821	end;
	5822	end;
	5823	end;
	5824	end
	5825	else if typenum = '120.5' then
	5826	begin
	5827	if seriestitle = 'Blood Pressure' then
	5828	results := BPValue(Series.XValue[ValueIndex])
	5829	else
	5830	results := floattostr(Series.YValue[ValueIndex]);
	5831	end;
	5832	Result := typenum + ' ^' + typename + '^' + resultdate + '^' +
	5833	seriestitle + '^' + results + '^' + otherdate;
	5834	end;
	5835
	5836	procedure TfrmGraphs.chartBaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	5837	var
	5838	ClickedLegend, ClickedValue, j: Integer;
	5839	itemname: string;
	5840	NewPt: TPoint;
	5841	begin
	5842	//if not FGraphSetting.Hints then exit; //*****
	5843	FX := x;
	5844	FY := y;
	5845	FActiveGraph := (Sender as TChart);
	5846	NewPt := Mouse.CursorPos;
	5847	ClickedValue := -1;
	5848	ClickedLegend := -1;
	5849	if FHintWinActive then exit;
	5850	with FActiveGraph do
	5851	begin
	5852	for j := 0 to SeriesCount - 1 do
	5853	with (Series[j] as TChartSeries) do
	5854	begin
	5855	itemname := Series[j].Title;
	5856	if (Copy(itemname, 1, 7) <> 'Ref Low') and (Copy(itemname, 1, 8) <> 'Ref High') then
	5857	begin
	5858	ClickedValue := Clicked(FX, FY);
	5859	if ClickedValue > -1 then break;
	5860	ClickedLegend := Legend.Clicked(FX, FY);
	5861	if ClickedLegend > -1 then break;
	5862	end;
	5863	end;
	5864	if ClickedValue > -1 then
	5865	begin
	5866	FHintStop := false;
	5867	Screen.Cursor := crHandPoint;
	5868	timHintPause.Enabled := true;
	5869	end
	5870	else if ClickedLegend > -1 then
	5871	begin
	5872	timHintPause.Enabled := false;
	5873	InactivateHint;
	5874	Screen.Cursor := crHandPoint;
	5875	end
	5876	else
	5877	begin
	5878	timHintPause.Enabled := false;
	5879	InactivateHint;
	5880	Screen.Cursor := crDefault;
	5881	end;
	5882	end;
	5883	end;
	5884
	5885	procedure TfrmGraphs.timHintPauseTimer(Sender: TObject);
	5886	var
	5887	ClickedValue, j: Integer;
	5888	dttm, itemname, textvalue: string;
	5889	Rct: TRect;
	5890	begin
	5891	with FActiveGraph do
	5892	begin
	5893	ClickedValue := -1;
	5894	for j := 0 to SeriesCount - 1 do
	5895	with (Series[j] as TChartSeries) do
	5896	begin
	5897	if FHintStop then break;
	5898	ClickedValue := Clicked(FX, FY);
	5899	if ClickedValue > -1 then break;
	5900	end;
	5901	if FHintStop then // stop when clicked
	5902	begin
	5903	timHintPause.Enabled := false;
	5904	InactivateHint;
	5905	FHintStop := false;
	5906	exit;
	5907	end;
	5908	if (ClickedValue > -1) and ((FOnValue <> ClickedValue) or (FOnSeries <> j)) then
	5909	begin // on a value but not the same value or series
	5910	if FHintWinActive then
	5911	InactivateHint;
	5912	itemname := Series[j].Title;
	5913	if Copy(itemname, 1, 7)= 'Ref Low' then exit;
	5914	if Copy(itemname, 1, 8)= 'Ref High' then exit;
	5915	FOnSeries := j;
	5916	FOnValue := ClickedValue;
	5917	textvalue := ValueText(FActiveGraph, Series[j], ClickedValue);
	5918	dttm := Piece(textvalue, '^', 3);
	5919	//if copy(textvalue, length(textvalue) - 5, length(textvalue)) = ' 00:00' then
	5920	// dttm := Pieces(dttm, ' ', 1, 3);
	5921	textvalue := Piece(textvalue, '^', 2) + ' ' + dttm +
	5922	#13 + Piece(textvalue, '^', 4) + ' ' + Piece(textvalue, '^', 5);
	5923	Rct := FHintWin.CalcHintRect(Screen.Width, textvalue, nil);
	5924	OffsetRect(Rct, FX, FY + 20);
	5925	Rct.Right := Rct.Right + 3;
	5926	Rct.TopLeft := ClientToScreen(Rct.TopLeft);
	5927	Rct.BottomRight := ClientToScreen(Rct.BottomRight);
	5928	FHintWin.ActivateHint(Rct, textvalue);
	5929	FHintWinActive := true;
	5930	end
	5931	else if (ClickedValue = -1) and ((FOnValue <> BIG_NUMBER) and (FOnSeries <> BIG_NUMBER)) then
	5932	begin // not on a value anymore (used to be on a value and series)
	5933	FOnSeries := BIG_NUMBER;
	5934	FOnValue := BIG_NUMBER;
	5935	timHintPause.Enabled := false;
	5936	InactivateHint;
	5937	end;
	5938	end;
	5939	end;
	5940
	5941	procedure TfrmGraphs.InactivateHint;
	5942	begin
	5943	FHintWin.ReleaseHandle;
	5944	FHintWinActive := false;
	5945	end;
	5946
	5947	procedure TfrmGraphs.mnuPopGraphStayOnTopClick(Sender: TObject);
	5948	begin
	5949	mnuPopGraphStayOnTop.Checked := not mnuPopGraphStayOnTop.Checked;
	5950	if mnuPopGraphStayOnTop.Checked then
	5951	begin
	5952	MarkFormAsStayOnTop(Self, true);
	5953	FGraphSetting.StayOnTop := true;
	5954	end
	5955	else
	5956	begin
	5957	MarkFormAsStayOnTop(Self, false);
	5958	FGraphSetting.StayOnTop := false;
	5959	end;
	5960	end;
	5961
	5962	procedure TfrmGraphs.StayOnTop;
	5963	begin
	5964	with pnlMain.Parent do
	5965	if BorderWidth <> 1 then
	5966	begin
	5967	mnuPopGraphStayOnTop.Enabled :=false;
	5968	mnuPopGraphStayOnTop.Checked := false;
	5969	end
	5970	else
	5971	begin // only use on float Graph
	5972	mnuPopGraphStayOnTop.Enabled :=true;
	5973	mnuPopGraphStayOnTop.Checked := not FGraphSetting.StayOnTop;
	5974	mnuPopGraphStayOnTopClick(self);
	5975	end;
	5976	end;
	5977
	5978	procedure TfrmGraphs.HideDates(aChart: TChart);
	5979	var
	5980	hidedates: boolean;
	5981	begin
	5982	with aChart do // dateline charts always have dates
	5983	begin
	5984	if (aChart = chartDatelineTop) then
	5985	hidedates := false
	5986	else if (aChart = chartDatelineBottom) then
	5987	hidedates := false
	5988	else
	5989	hidedates := not FGraphSetting.Dates;
	5990	if hidedates then
	5991	begin
	5992	MarginBottom := 0;
	5993	BottomAxis.LabelsFont.Color := chartDatelineTop.Color;
	5994	BottomAxis.LabelsSize := 1;
	5995	LeftAxis.LabelsFont.Color := chartDatelineTop.LeftAxis.LabelsFont.Color;
	5996	end
	5997	else
	5998	begin
	5999	MarginBottom := chartDatelineTop.MarginBottom;
	6000	BottomAxis.LabelsFont.Color := chartDatelineTop.BottomAxis.LabelsFont.Color;
	6001	BottomAxis.LabelsSize := chartDatelineTop.BottomAxis.LabelsSize;
	6002	LeftAxis.LabelsFont.Color := chartDatelineTop.LeftAxis.LabelsFont.Color;
	6003	end;
	6004	end;
	6005	end;
	6006
	6007	procedure TfrmGraphs.mnuPopGraphZoomBackClick(Sender: TObject);
	6008	begin
	6009	FFirstClick := true;
	6010	with lstZoomHistory do
	6011	begin
	6012	Items.Delete(Count - 1);
	6013	if Count = 0 then mnuPopGraphResetClick(self)
	6014	else ZoomUpdate;
	6015	end;
	6016	end;
	6017
	6018	procedure TfrmGraphs.ZoomUpdate;
	6019	var
	6020	lastzoom: string;
	6021	BigTime, SmallTime: TDateTime;
	6022	begin
	6023	lastzoom := lstZoomHistory.Items[lstZoomHistory.Count - 1];
	6024	SmallTime := StrToFloat(Piece(lastzoom, '^', 1));
	6025	BigTime := StrToFloat(Piece(lastzoom, '^', 2));
	6026	ZoomTo(SmallTime, BigTime);
	6027	ZoomUpdateInfo(SmallTime, BigTime);
	6028	end;
	6029
	6030	procedure TfrmGraphs.ZoomUpdateInfo(SmallTime, BigTime: TDateTime);
	6031	begin
	6032	pnlInfo.Caption := TXT_ZOOMED;
	6033	pnlInfo.Color := COLOR_ZOOM;
	6034	pnlInfo.Caption := pnlInfo.Caption + FormatDateTime('mmm d, yyyy h:nn am/pm', SmallTime);
	6035	pnlInfo.Caption := pnlInfo.Caption + ' to ' + FormatDateTime('mmm d, yyyy h:nn am/pm', BigTime) + '.';
	6036	pnlInfo.Visible := true;
	6037	pnlHeader.Visible := true;
	6038	end;
	6039
	6040	procedure TfrmGraphs.ZoomTo(SmallTime, BigTime: TDateTime);
	6041	var
	6042	i: integer;
	6043	ChildControl: TControl;
	6044	begin
	6045	for i := 0 to scrlTop.ControlCount - 1 do
	6046	begin
	6047	ChildControl := scrlTop.Controls[i];
	6048	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	6049	end;
	6050	SizeDates(chartDatelineTop, SmallTime, BigTime);
	6051	for i := 0 to scrlBottom.ControlCount - 1 do
	6052	begin
	6053	ChildControl := scrlBottom.Controls[i];
	6054	SizeDates((ChildControl as TChart), SmallTime, BigTime);
	6055	end;
	6056	SizeDates(chartDatelineBottom, SmallTime, BigTime);
	6057	end;
	6058
	6059	procedure TfrmGraphs.mnuPopGraphPrintClick(Sender: TObject);
	6060	var
	6061	topflag: boolean;
	6062	i, count: integer;
	6063	StrForFooter, StrForHeader, aTitle, aWarning, aDateRange: String;
	6064	aHeader: TStringList;
	6065	wrdApp, wrdDoc, wrdPrintDlg: Variant;
	6066	ChildControl: TControl;
	6067	begin
	6068	topflag := mnuPopGraphStayOnTop.Checked and mnuPopGraphStayOnTop.Enabled;
	6069	try
	6070	wrdApp := CreateOleObject('Word.Application');
	6071	except
	6072	raise Exception.Create('Cannot start MS Word!');
	6073	end;
	6074	Screen.Cursor := crDefault;
	6075	aTitle := 'CPRS Graphing';
	6076	aWarning := pnlInfo.Caption;
	6077	aDateRange := 'Date Range: ' + cboDateRange.Text + ' Selected Items from ' +
	6078	FormatDateTime('mm/dd/yy', FGraphSetting.LowTime) + ' to ' +
	6079	FormatDateTime('mm/dd/yy', FGraphSetting.HighTime);
	6080	aHeader := TStringList.Create;
	6081	CreatePatientHeader(aHeader, aTitle, aWarning, aDateRange);
	6082	StrForHeader := '';
	6083	for i := 0 to aHeader.Count -1 do
	6084	StrForHeader := StrForHeader + aHeader[i] + Chr(13);
	6085	StrForFooter := aTitle + ' - * WORK COPY ONLY *' + Chr(13);
	6086	wrdApp.Visible := False;
	6087	wrdApp.Documents.Add;
	6088	wrdDoc := wrdApp.Documents.Item(1);
	6089	wrdDoc := wrdDoc.Sections.Item(1);
	6090	wrdDoc := wrdDoc.Headers.Item(1).Range;
	6091	wrdDoc.Font.Name := 'Courier New';
	6092	wrdDoc.Font.Size := 9;
	6093	wrdDoc.Text := StrForHeader;
	6094	wrdDoc := wrdApp.Documents.Item(1);
	6095	wrdDoc := wrdDoc.Sections.Item(1);
	6096	wrdDoc := wrdDoc.Footers.Item(1);
	6097	wrdDoc.Range.Font.Name := 'Courier New';
	6098	wrdDoc.Range.Font.Size := 9;
	6099	wrdDoc.Range.Text := StrForFooter;
	6100	wrdDoc.PageNumbers.Add;
	6101	wrdDoc := wrdApp.Documents.Item(1);
	6102	wrdDoc.Range.InsertParagraphAfter;
	6103	for i := 0 to scrlTop.ControlCount - 1 do // goes from top to bottom
	6104	begin
	6105	ChildControl := scrlTop.Controls[i];
	6106	if (ChildControl as TChart).Visible then
	6107	begin
	6108	(ChildControl as TChart).CopyToClipboardBitmap;
	6109	wrdDoc.Range.InsertParagraphAfter;
	6110	wrdDoc.Paragraphs.Last.Range.Paste;
	6111	end;
	6112	end;
	6113	if (chartDatelineTop.SeriesCount > 0) and (not chkItemsTop.Checked) then
	6114	begin
	6115	chartDatelineTop.CopyToClipboardBitmap;
	6116	wrdDoc.Range.InsertParagraphAfter;
	6117	wrdDoc.Paragraphs.Last.Range.Paste;
	6118	end;
	6119	wrdDoc.Range.InsertParagraphAfter;
	6120	wrdDoc.Paragraphs.Last.Range.Text := ' ';
	6121	for i := 0 to scrlBottom.ControlCount - 1 do
	6122	begin
	6123	ChildControl := scrlBottom.Controls[i];
	6124	if (ChildControl as TChart).Visible then
	6125	begin
	6126	(ChildControl as TChart).CopyToClipboardBitmap;
	6127	wrdDoc.Range.InsertParagraphAfter;
	6128	wrdDoc.Paragraphs.Last.Range.Paste;
	6129	end;
	6130	end;
	6131	if (chartDatelineBottom.SeriesCount > 0) and (chkDualViews.Checked)
	6132	and (not chkItemsBottom.Checked) then
	6133	begin
	6134	chartDatelineBottom.CopyToClipboardBitmap;
	6135	wrdDoc.Range.InsertParagraphAfter;
	6136	wrdDoc.Paragraphs.Last.Range.Paste;
	6137	end;
	6138	wrdPrintDlg := wrdApp.Dialogs.item(wdDialogFilePrint);
	6139	Screen.Cursor := crDefault;
	6140	Application.ProcessMessages;
	6141	if topflag then
	6142	mnuPopGraphStayOnTopClick(self);
	6143	wrdPrintDlg.Show;
	6144	wrdApp.Visible := false;
	6145	Screen.Cursor := crHourGlass;
	6146	Application.ProcessMessages;
	6147	Sleep(5000);
	6148	count := 0;
	6149	while (wrdApp.Application.BackgroundPrintingStatus > 0) do
	6150	begin
	6151	Sleep(1000);
	6152	Application.ProcessMessages;
	6153	count := count + 1;
	6154	if count > 3 then break;
	6155	end;
	6156	wrdApp.DisplayAlerts := false;
	6157	wrdDoc.Close(false);
	6158	wrdApp.Quit;
	6159	wrdApp := Unassigned; // releases variant
	6160	aHeader.Free;
	6161	Application.ProcessMessages;
	6162	if topflag then
	6163	mnuPopGraphStayOnTopClick(self);
	6164	Screen.Cursor := crDefault;
	6165	end;
	6166
	6167	procedure TfrmGraphs.lvwItemsTopChange(Sender: TObject; Item: TListItem;
	6168	Change: TItemChange);
	6169	begin
	6170	if FArrowKeys and (lvwItemsTop.SelCount > 0) then
	6171	begin
	6172	if pnlItemsTopInfo.Tag <> 1 then
	6173	lvwItemsTopClick(self);
	6174	FArrowKeys := false;
	6175	end;
	6176	end;
	6177
	6178	procedure TfrmGraphs.lvwItemsBottomChange(Sender: TObject; Item: TListItem;
	6179	Change: TItemChange);
	6180	begin
	6181	if FArrowKeys and (lvwItemsBottom.SelCount > 0) then
	6182	begin
	6183	if pnlItemsBottomInfo.Tag <> 1 then
	6184	lvwItemsBottomClick(self);
	6185	FArrowKeys := false;
	6186	end;
	6187	end;
	6188
	6189	procedure TfrmGraphs.lvwItemsTopKeyDown(Sender: TObject; var Key: Word;
	6190	Shift: TShiftState);
	6191	begin
	6192	if Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN] then
	6193	FArrowKeys := true;
	6194	end;
	6195
	6196	procedure TfrmGraphs.testcount1Click(Sender: TObject);
	6197
	6198	function boxcount(aListBox: TListBox): string;
	6199	var
	6200	i, ccnt: integer;
	6201	begin
	6202	Result := '';
	6203	ccnt := 0;
	6204	for i := 0 to aListBox.Items.Count - 1 do
	6205	ccnt := ccnt + length(aListBox.Items[i]);
	6206	Result := inttostr(aListBox.Items.Count) + ';' + inttostr(ccnt);
	6207	end;
	6208
	6209	var
	6210	i, lines, total: integer;
	6211	aString: string;
	6212	begin
	6213	lines := 0;
	6214	total := 0;
	6215	with pnlData do
	6216	for i:= 0 to pnlData.ControlCount - 1 do
	6217	if Controls[i] is TListBox then
	6218	begin
	6219	aString := boxcount(Controls[i] as TListBox);
	6220	lines := lines + strtointdef(Piece(aString, ';', 1), 0);
	6221	total := total + strtointdef(Piece(aString, ';', 2), 0);
	6222	end;
	6223	aString := boxcount(lstTypes) + '^' + boxcount(lstItems) + '^' + boxcount(lstData)
	6224	+ ' lines: ' + inttostr(lines) + ' total: ' + inttostr(total);
	6225	showmessage(aString);
	6226	end;
	6227
	6228	procedure TfrmGraphs.cboDateRangeDropDown(Sender: TObject);
	6229	begin
	6230	if (Top + Height) > (Screen.Height - 100) then
	6231	cboDateRange.DropDownCount := 3
	6232	else
	6233	cboDateRange.DropDownCount := 9;
	6234	end;
	6235
	6236	procedure TfrmGraphs.mnuPopGraphFixedClick(Sender: TObject);
	6237	begin
	6238	with FGraphSetting do FixedDateRange := not FixedDateRange;
	6239	ChangeStyle;
	6240	end;
	6241
	6242	//***************** these are used to fix dropdown when large fonts
	6243
	6244	procedure TfrmGraphs.cboViewsTopDropDown(Sender: TObject);
	6245	begin
	6246	cboViewsTop.Align := alNone;
	6247	end;
	6248
	6249	procedure TfrmGraphs.cboViewsTopDropDownClose(Sender: TObject);
	6250	begin
	6251	cboViewsTop.Align := alClient;
	6252	end;
	6253
	6254	procedure TfrmGraphs.cboViewsBottomDropDown(Sender: TObject);
	6255	begin
	6256	cboViewsBottom.Align := alNone;
	6257	end;
	6258
	6259	procedure TfrmGraphs.cboViewsBottomDropDownClose(Sender: TObject);
	6260	begin
	6261	cboViewsBottom.Align := alClient;
	6262	end;
	6263
	6264	//*********************
	6265
	6266	procedure TfrmGraphs.FormDestroy(Sender: TObject);
	6267	begin
	6268	SetSize;
	6269	end;
	6270
	6271	procedure TfrmGraphs.SetFontSize(FontSize: integer);
	6272	begin // for now, ignore changing chart font size
	6273	with chartDatelineTop do
	6274	begin
	6275	LeftAxis.LabelsFont.Size := 8;
	6276	BottomAxis.LabelsFont.Size := 8;
	6277	Foot.Font.Size := 8;
	6278	Legend.Font.Size := 8;
	6279	Title.Font.Size := 8;
	6280	end;
	6281	with chartDatelineBottom do
	6282	begin
	6283	LeftAxis.LabelsFont.Size := 8;
	6284	BottomAxis.LabelsFont.Size := 8;
	6285	Foot.Font.Size := 8;
	6286	Legend.Font.Size := 8;
	6287	Title.Font.Size := 8;
	6288	end;
	6289	end;
	6290
	6291	procedure TfrmGraphs.lvwItemsTopEnter(Sender: TObject);
	6292	begin
	6293	if lvwItemsTop.SelCount = 0 then
	6294	if lvwItemsTop.Items.Count > 0 then
	6295	lvwItemsTop.Items[0].Focused := true;
	6296	end;
	6297
	6298	procedure TfrmGraphs.chkItemsBottomEnter(Sender: TObject);
	6299	begin
	6300	if not chkDualViews.Checked then
	6301	if pnlFooter.Visible then
	6302	cboDateRange.SetFocus
	6303	else
	6304	SelectNext(ActiveControl as TWinControl, True, True);
	6305	end;
	6306
	6307	procedure TfrmGraphs.cboViewsBottomEnter(Sender: TObject);
	6308	begin
	6309	if not chkDualViews.Checked then
	6310	SelectNext(ActiveControl as TWinControl, True, True);
	6311	end;
	6312
	6313	procedure TfrmGraphs.lvwItemsBottomEnter(Sender: TObject);
	6314	begin
	6315	if lvwItemsBottom.SelCount = 0 then
	6316	if lvwItemsBottom.Items.Count > 0 then
	6317	lvwItemsBottom.Items[0].Focused := true;
	6318	if not chkDualViews.Checked then
	6319	SelectNext(ActiveControl as TWinControl, True, True);
	6320	end;
	6321
	6322	initialization
	6323	CoInitialize (nil);
	6324	end.

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: cprs/branches/foia-cprs/CPRS-Chart/fGraphs.pas@ 823

Download in other formats: