Laatste koerslijn
Laatste koerslijn
Eric,
ik had eerder nog een vraag gesteld,heb deze maar even hierheen gekopieerd,dit was de vraag.
is het mogelijk dat je in de grafiek een streepje met de huidige koers komt,en die ook meeloopt?zie bijlage.
ik had eerder nog een vraag gesteld,heb deze maar even hierheen gekopieerd,dit was de vraag.
is het mogelijk dat je in de grafiek een streepje met de huidige koers komt,en die ook meeloopt?zie bijlage.
Re: Range Bars, Renko Bars
Dat lijkt me niet iets speciaal voor een Renko chart dus heb er maar een aparte indicator van gemaakt.
---
Eric
Code: Selecteer alles
{- Filename: Laatste koerslijn -}
var
AColor: TColor;
begin
{ Parameters }
AColor := CreateParameterColor('Kleur', clSilver);
Indicator.NewBand := false;
if BarCount > 0 then
begin
with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
begin
Color := AColor;
ExtendRight := true;
Width := 1;
end;
with CreateText(0, Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
begin
Color := AColor;
HorzPosition := hpLeft;
VertPosition := vpTop;
X1Pct := 100;
end;
end;
end.
Eric
Re: Range Bars, Renko Bars
helemaal goud,zeggen we hier in het Westland,toppie weer.
Re: Range Bars, Renko Bars
Eric,
zet de vraag maar hier neer, omdat de indicator er ook staat, ben nog steeds blij met deze indicator, alleen soms zit die in de weg als er ook een Fibo staat, zie bijlagen, als ik de grafiek naar links haal, blijft de koerslijn/koers staan, en soms zie je dan het Fibo getal niet, is ook weer niet zo,n groot probleem, maar kan je de koerslijn/laatste koers vast zetten? dan haal ik de grafiek naar links en kan ik de Fibo wel zien.
zet de vraag maar hier neer, omdat de indicator er ook staat, ben nog steeds blij met deze indicator, alleen soms zit die in de weg als er ook een Fibo staat, zie bijlagen, als ik de grafiek naar links haal, blijft de koerslijn/koers staan, en soms zie je dan het Fibo getal niet, is ook weer niet zo,n groot probleem, maar kan je de koerslijn/laatste koers vast zetten? dan haal ik de grafiek naar links en kan ik de Fibo wel zien.
Re: Range Bars, Renko Bars
Zoiets?
---
Eric
Code: Selecteer alles
{- Filename: Laatste koerslijn -}
var
AColor: TColor;
begin
{ Parameters }
AColor := CreateParameterColor('Kleur', clSilver);
Indicator.NewBand := false;
if BarCount > 0 then
begin
with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
begin
Color := AColor;
ExtendRight := true;
Width := 1;
end;
with CreateText(BarPosition[BarCount-1], Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
begin
Color := AColor;
HorzPosition := hpLeft;
VertPosition := vpTop;
// X1Pct := 100;
end;
end;
end.
Eric
Re: Laatste koerslijn
Hallo Eric, is al beter, maar wat ik bedoelde is dat de koers zoals in het bijgaande plaatje komt, is dat mogelijk?
Re: Laatste koerslijn
Natuurlijk kan dat, maar dan valt de tekst wel weg als de bars tot helemaal rechts in beeld staan.
---
Eric
Code: Selecteer alles
{- Filename: Laatste koerslijn -}
var
AColor: TColor;
begin
{ Parameters }
AColor := CreateParameterColor('Kleur', clSilver);
Indicator.NewBand := false;
if BarCount > 0 then
begin
with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
begin
Color := AColor;
ExtendRight := true;
Width := 1;
end;
with CreateText(BarPosition[BarCount-1], Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
begin
Color := AColor;
HorzPosition := hpRight;
VertPosition := vpTop;
// X1Pct := 100;
end;
end;
end.
Eric
Re: Laatste koerslijn
Helemaal toppie, ik begrijp wat je bedoeld, maar ik zet dan de inhoud van de grafiek iets naar links, zie voorbeeld.
Re: Laatste koerslijn
Zal Bakstenen niet zijn, als die toch weer een vraag heeft hierover, Eric, kan de koers een paar tikken naar rechts opschuiven,als ik de Dax opzet in dagboxen, dan staat de 1 in de box, zie plaatje.
Re: Laatste koerslijn
Natuurlijk.
---
Eric
Code: Selecteer alles
{- Filename: Laatste koerslijn -}
var
AColor: TColor;
begin
{ Parameters }
AColor := CreateParameterColor('Kleur', clSilver);
Indicator.NewBand := false;
if BarCount > 0 then
begin
with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
begin
Color := AColor;
ExtendRight := true;
Width := 1;
end;
with CreateText(BarPosition[BarCount-1]+BarInterval, Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
begin
Color := AColor;
HorzPosition := hpRight;
VertPosition := vpTop;
// X1Pct := 100;
end;
end;
end.
Eric
Re: Laatste koerslijn
Zo dat is snel bedankt weer
Re: Laatste koerslijn
Eric,
Vraag niet hoe het kan,ik krijg het voor elkaar, de indicator van hierboven werkte goed, tot vanavond, heb deze al weer opnieuw gekopieerd en in WS binnen gehaald, maar resultaat blijft hetzelfde.
Wat doe ik verkeerd?
Vraag niet hoe het kan,ik krijg het voor elkaar, de indicator van hierboven werkte goed, tot vanavond, heb deze al weer opnieuw gekopieerd en in WS binnen gehaald, maar resultaat blijft hetzelfde.
Wat doe ik verkeerd?
Re: Laatste koerslijn
Als je wat meer inzoomde dan kreeg je dat idd. Ik heb hierboven in de laatste code weer een aanpassing gedaan.
---
Eric
---
Eric
Re: Laatste koerslijn
Toppie weer, bedankt