Laatste koerslijn

[Bakstenen]

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.

[Eric]

Dat lijkt me niet iets speciaal voor een Renko chart dus heb er maar een aparte indicator van gemaakt.

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

[Bakstenen]

helemaal goud,zeggen we hier in het Westland,toppie weer.

[Bakstenen]

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.

laatste1.JPG (32.73 KiB) 3068 keer bekeken

laatste2.JPG (36.07 KiB) 3068 keer bekeken

[Eric]

Zoiets?

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

[Bakstenen]

Hallo Eric, is al beter, maar wat ik bedoelde is dat de koers zoals in het bijgaande plaatje komt, is dat mogelijk?

[Eric]

Natuurlijk kan dat, maar dan valt de tekst wel weg als de bars tot helemaal rechts in beeld staan.

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

[Bakstenen]

Helemaal toppie, ik begrijp wat je bedoeld, maar ik zet dan de inhoud van de grafiek iets naar links, zie voorbeeld.

[Bakstenen]

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.

[Eric]

Natuurlijk.

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

[Bakstenen]

Zo dat is snel bedankt weer

[Bakstenen]

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?

[Eric]

Als je wat meer inzoomde dan kreeg je dat idd. Ik heb hierboven in de laatste code weer een aanpassing gedaan.

---
Eric

[Bakstenen]

Toppie weer, bedankt