copyright © Grahame Grieve
refer to xyGraph.pas, xyGraph.hlp for more information
AxisInitLogTicks -
incmonth -
Pt - add i months to date xx/m/y
ReadAppFromStream - you might want to disable PrintLineStyle ??
ReadAxsFromStream - remember: the next 2 must come last! don't change the numbers, just
put them in before these
ReadDimFromStream -
ReadLegFromStream - TLegendStyle
ReadSerFromStream - TLegendStatus
WriteAppToStream -
WriteAxsToStream -
WriteDimToStream -
WriteLegToStream -
WriteSerToStream -
chour
cminute1
cminute30
cminute5
LogE
procedure AxisInitLogTicks(var FLogTickInfo:TLogTickInfo);
procedure incmonth(var y,m:word; i:word);
function Pt(AX, AY: Integer): TPoint;
add i months to date xx/m/y
procedure ReadAppFromStream(r:TxyReader; App:TAppearance);
you might want to disable PrintLineStyle ??
procedure ReadAxsFromStream(r:TxyReader; axs:TAxis);
remember: the next 2 must come last! don't change the numbers, just
put them in before these
procedure ReadDimFromStream(r:TxyReader; Dim:TDimensions);
procedure ReadLegFromStream(r:TxyReader; leg:TLegend);
TLegendStyle
procedure ReadSerFromStream(r:TxyReader; ser:Tseries);
TLegendStatus
procedure WriteAppToStream(w:TxyWriter; App:TAppearance);
procedure WriteAxsToStream(w:TxyWriter; axs:TAxis);
procedure WriteDimToStream(w:TxyWriter; Dim:TDimensions);
procedure WriteLegToStream(w:TxyWriter; leg:TLegend);
procedure WriteSerToStream(w:TxyWriter; ser:Tseries; savedata:boolean);
chour = (1/24)
cminute1 = 1/(24 * 60)
time constants: Alert users will note that here and elsewhere where date/time
values are used, small errors creep in due to assumptions implicit in the
way TDateTime works. These have been tolerated in the interests of speed.
Month and year are more variable: the only place where the length of these
is approximated is for the guestimation of the number of ticks; I will
be interested to hear if anybody has problems with this assumption
cminute30 = 30/(24 * 60)
cminute5 = 5/(24 * 60)
LogE = 0.4342944818