paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Less hints and warnings (issue ).

Browse Source 
git-svn-id: trunk@46689 -
This commit is contained in:
wp 2014-10-27 22:05:03 +00:00
parent 3532e64594
commit b27bf4c78f
9 changed files with 46 additions and 41 deletions

16
components/tachart/numlib_fix/ipf.pas
View File

@ -76,7 +76,7 @@ implementation
procedure ipffsn(n: ArbInt; var x, y, a, d2a: ArbFloat; var term: ArbInt);
var i, j, sr, n1s, ns1, ns2: ArbInt;
var i, sr, n1s, ns1, ns2: ArbInt;
s, lam, lam0, lam1, lambda, ey, ca, p, q, r: ArbFloat;
px, py, pd, pa, pd2a,
h, z, diagb, dinv, qty, qtdinvq, c, t, tl: ^arfloat1;
@ -84,8 +84,9 @@ var i, j, sr, n1s, ns1, ns2: ArbInt;
procedure solve; {n, py, qty, h, qtdinvq, dinv, lam, t, pa, pd2a, term}
var i: ArbInt;
p, q, r, ca: ArbFloat;
p, q, r: ArbFloat;
f, c: ^arfloat1;
ca: ArbFloat = 0.0;
begin
getmem(f, 3*ns1); getmem(c, ns1);
for i:=1 to n-1 do
@ -513,7 +514,7 @@ procedure ipfpol(m, n: ArbInt; var x, y, b: ArbFloat; var term: ArbInt);
var i, ns: ArbInt;
fsum: ArbFloat;
px, py, alfa, beta: ^arfloat1;
py, alfa, beta: ^arfloat1;
pb, a: ^arfloat0;
begin
if (n<0) or (m<1)
@ -555,9 +556,10 @@ procedure ipfisn(n: ArbInt; var x, y, d2s: ArbFloat; var term: ArbInt);
var
s, i : ArbInt;
p, q, ca : ArbFloat;
p, q : ArbFloat;
px, py, h, b, t : ^arfloat0;
pd2s : ^arfloat1;
ca : Arbfloat = 0.0;
begin
px:=@x; py:=@y; pd2s:=@d2s;
term:=1;
@ -767,7 +769,7 @@ procedure splineparameters
x := v; v := w; w := x
end;
procedure pxpy(a, b, c: complex; var p:complex);
procedure pxpy(a, b, c: complex; out p:complex);
var det: ArbFloat;
begin
b.sub(a); c.sub(a); det := b.xreal*c.imag-b.imag*c.xreal;
@ -820,7 +822,7 @@ var i, j, i1 : ArbInt;
x, h,
absdet,
absdetmax,
s, s1, ca: ArbFloat;
s, s1 : ArbFloat;
alfa, dv, hulp,
u, v, w : vector;
e22 : array[0..2] of vector;
@ -883,7 +885,7 @@ begin
pxpy(an1,an,an2,z); for i:=0 to n do b^[i].j:=1+p(a[i],an1,z);
pxpy(an,an2,an1,z); for i:=0 to n do b^[i].k:=1+p(a[i],an,z);
e22[0].init(0,e(an1,an2),e(an,an2));
{%H-}e22[0].init(0,e(an1,an2),e(an,an2));
e22[1].init(e(an1,an2),0,e(an,an1));
e22[2].init(e(an,an2),e(an,an1),0);

12
components/tachart/numlib_fix/mdt.pas
View File

@ -314,12 +314,13 @@ Procedure mdtgsy(n, rwidth: ArbInt; Var a: ArbFloat; Var pp:ArbInt;
Var qq:boolean; Var ca:ArbFloat; Var term:ArbInt);
Var
i, j, kmin1, k, kplus1, kmin2, imin2, nsr, nsi, nsb,
i, j, kmin1, k, kplus1, kmin2, imin2, nsr, //nsi, nsi,
imin1, jmin1, indexpivot, iplus1, indi, indj, indk, indp : ArbInt;
h, absh, maxim, pivot, ct, norma, sumrowi, normt, normr : ArbFloat;
h, absh, maxim, pivot, norma, sumrowi, normt, normr : ArbFloat;
alt, l, d, t, u, v, l1, d1, u1, t1 : ^arfloat1;
p : ^arint1;
q : ^arbool1;
ct : ArbFloat = 0.0; // to silence the compiler...
Begin
If (n<1) Or (rwidth<1) Then
Begin
@ -330,8 +331,8 @@ Begin
p := @pp;
q := @qq;
nsr := n*sizeof(ArbFloat);
nsi := n*sizeof(ArbInt);
nsb := n*sizeof(boolean);
// nsi := n*sizeof(ArbInt);
// nsb := n*sizeof(boolean);
getmem(l, nsr);
getmem(d, nsr);
getmem(t, nsr);
@ -615,7 +616,7 @@ Procedure mdtgba(n, lb, rb, rwa: ArbInt; Var a: ArbFloat; rwl: ArbInt;
Var l:ArbFloat; Var p: ArbInt; Var ca: ArbFloat; Var term:ArbInt);
Var
sr, i, j, k, ipivot, lbj, lbi, ubi, ls,
sr, i, j, k, ipivot, lbj, ubi, ls,
ii, jj, ll, jl, ubj : ArbInt;
normr, sumrowi, pivot, normt, maxim, h : ArbFloat;
pl, au, sumrow, t, row : ^arfloat1;
@ -636,7 +637,6 @@ Begin
getmem(sumrow, n*sr);
getmem(t, n*sr);
getmem(row, ls);
lbi := n-rb+1;
lbj := 0;
jj := 1;
For i:=lb Downto 1 Do

44
components/tachart/numlib_fix/sle.pas
View File

@ -408,7 +408,7 @@ Procedure slegba(n, l, r: ArbInt;
Var a, b, x, ca: ArbFloat; Var term:ArbInt);
Var
sr, i, j, k, ipivot, lbj, lbi, ubi, ls,
sr, i, j, k, ipivot, {lbj, lbi,} ubi, ls,
ii, jj, ll, ubj, rwidth : ArbInt;
normr, sumrowi, pivot, normt, maxim, h : ArbFloat;
pa, pb, px, au, sumrow, t, row : ^arfloat1;
@ -431,7 +431,7 @@ Begin
getmem(row, ls);
move(pb^, px^, n*sr);
jj := 1;
ii := 1;
ii := 1;
For i:=1 To n Do
Begin
If i <= l+1 Then
@ -447,10 +447,10 @@ Begin
jj := jj+rwidth;
ii := ii+ll;
End; {i}
lbi := n-r+1;
lbj := 0;
//lbi := n-r+1;
//lbj := 0;
normr := 0;
term := 1;
term := 1;
ii := 1;
For i:=1 To n Do
Begin
@ -568,7 +568,7 @@ Var
a : ar2dr1 absolute a1;
b : arfloat1 absolute b1;
x : arfloat1 absolute x1;
au : par2dr1;
au : par2dr1 = nil;
sumrow, t, row : ^arfloat1;
Begin
If (n<1) Or (l<0) Or (r<0) Or (l>n-1) Or (r>n-1)
@ -578,19 +578,19 @@ Begin
exit
End; {term=3}
sr := sizeof(ArbFloat);
ll := l+r+1;
ls := ll*sr;
ll := l+r+1;
ls := ll*sr;
AllocateAr2dr(n, ll, au);
getmem(sumrow, n*sr);
getmem(t, n*sr);
getmem(row, ls);
getmem(t, n*sr);
getmem(row, ls);
move(b[1], x[1], n*sr);
For i:=1 To n Do
Begin
If i <= l+1 Then
Begin
If i <= n-r Then rwidth := r+i
Else rwidth := n
Else rwidth := n
End
Else
If i <= n-r Then rwidth := ll
@ -832,7 +832,7 @@ Var
a : ar2dr1 absolute a1;
x : arfloat1 absolute x1;
b : arfloat1 absolute b1;
au: par2dr1;
au: par2dr1 = nil;
sumrow, t, row : ^arfloat1;
Begin
If n<1 Then
@ -1039,7 +1039,7 @@ Var i, j, ns, ms : ArbInt;
b : arfloat1 absolute b1;
x : arfloat1 absolute x1;
alpha, e, y, r : ^arfloat1;
qr : par2dr1;
qr : par2dr1 = nil;
pivot : ^arint1;
Begin
If (n<1) Or (m<n)
@ -1119,7 +1119,7 @@ Var
h, normr, normt, sumrowi, hh, alim, norma : ArbFloat;
pa, pb, px, al, t, v : ^arfloat1;
Procedure decomp(i, r: ArbInt);
Procedure decomp(r: ArbInt);
Var k: ArbInt;
Begin
@ -1206,12 +1206,12 @@ Begin
Begin
jmin1 := j;
j := j+1;
decomp(i, r);
decomp(r);
r := r+1
End ; {j}
jmin1 := llm1;
j := ll;
decomp(i, i);
decomp(i);
If h <= 0
Then
posdef := false
@ -1287,7 +1287,7 @@ Var
a : ar2dr1 absolute a1;
b : arfloat1 absolute b1;
x : arfloat1 absolute x1;
al : par2dr1;
al : par2dr1 = nil;
t, v : ^arfloat1;
Procedure decomp(r: ArbInt);
@ -1537,7 +1537,7 @@ Var sr, i, j, k, kmin1 : ArbInt;
a : ar2dr1 absolute a1;
b : arfloat1 absolute b1;
x : arfloat1 absolute x1;
al : par2dr1;
al : par2dr1 = nil;
t : ^arfloat1;
Begin
@ -1627,10 +1627,11 @@ Procedure slegsy(n, rwidth: ArbInt; Var a, b, x, ca: ArbFloat;
Var
i, j, kmin1, k, kplus1, kmin2, nsr, nsi, nsb,
imin1, jmin1, indexpivot, iplus1, indi, indj, indk, indp : ArbInt;
h, absh, maxim, pivot, ct, norma, sumrowi, normt, normr, s : ArbFloat;
h, absh, maxim, pivot, norma, sumrowi, normt, normr, s : ArbFloat;
pa, pb, pb1, px, alt, l, d, t, u, v, l1, d1, u1, t1 : ^arfloat1;
p : ^arint1;
q : ^arbool1;
ct : ArbFloat = 0.0;
Begin
If (n<1) Or (rwidth<1)
Then
@ -1886,14 +1887,15 @@ Procedure slegsyl(n: ArbInt; Var a1; Var b1, x1, ca: ArbFloat;
Var
i, j, k, nsr, nsi, nsb, indexpivot: ArbInt;
h, absh, maxim, pivot, ct, norma, sumrowi, normt, normr, s : ArbFloat;
h, absh, maxim, pivot, norma, sumrowi, normt, normr, s : ArbFloat;
a : ar2dr1 absolute a1;
b : arfloat1 absolute b1;
x : arfloat1 absolute x1;
b0, l, d, t, u, v, l1, d1, u1, t1 : ^arfloat1;
alt : par2dr1;
alt : par2dr1 = nil;
p : ^arint1;
q : ^arbool1;
ct : ArbFloat = 0.0;
Begin
If n<1 Then
Begin

5
components/tachart/numlib_fix/spe.pas
View File

@ -892,7 +892,7 @@ var tvsmall, t, g: ArbFloat;
begin
if sizeof(ArbFloat) = 6
then
tvsmall:=2*midget
{%H-}tvsmall:=2*midget
else
tvsmall:=midget;
t:=abs(x);
@ -1268,6 +1268,7 @@ end; {speath}
var exitsave : pointer;
procedure MyExit;
{
const ErrorS : array[400..408,1..6] of char =
('spepow',
'spebk0',
@ -1278,7 +1279,7 @@ const ErrorS : array[400..408,1..6] of char =
'speath',
'spegam',
'spelga');
}
begin
ExitProc := ExitSave;
if (ExitCode>=400) AND (ExitCode<=408) then

4
components/tachart/tachartaxis.pas
View File

@ -913,12 +913,12 @@ begin
calLeft:
begin
Alignment := calRight;
Title.Font.Orientation := -Title.Font.Orientation;
Title.LabelFont.Orientation := -Title.LabelFont.Orientation;
end;
calRight:
begin
Alignment := calLeft;
Title.Font.Orientation := -Title.Font.Orientation;
Title.LabelFont.Orientation := -Title.LabelFont.Orientation;
end;
calBottom,
calTop:

1
components/tachart/tadiagram.pas
View File

@ -824,6 +824,7 @@ end;
function TDiaElement.IsPointInside(
const APoint: TDoublePoint; AUnits: TDiaUnits): Boolean;
begin
Unused(APoint);
Result := false;
end;

1
components/tachart/tadiagramdrawing.pas
View File

@ -118,7 +118,6 @@ end;
procedure DrawDiaLink(ASelf: TDiaLink);
var
id: IChartDrawer;
drawDecor: IDiaDrawerDecorator;
startPos, endPos, p: TPoint;
d: IDiaDecorator;
begin

2
components/tachart/tafuncseries.pas
View File

@ -761,7 +761,7 @@ var
startIndex: Integer;
splineStart: Integer = 0;
splineEnd: Integer = -2;
level: Integer = 0;
//level: Integer = 0;
pStart, pEnd: TDoublePoint;
function CalcSpline(APos: Double): TDoublePoint;

2
components/tachart/tatools.pas
View File

@ -504,7 +504,7 @@ type
property OnHintLocation: TChartToolHintLocationEvent
read FOnHintLocation write FOnHintLocation;
property OnHintPosition: TChartToolHintPositionEvent
read FOnHintPosition write FOnHintPosition; deprecated;
read FOnHintPosition write FOnHintPosition; //deprecated;
property UseApplicationHint: Boolean
read FUseApplicationHint write SetUseApplicationHint default false;
property UseDefaultHintText: Boolean