Thema: Delphi Array Probleme

Einzelnen Beitrag anzeigen

Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#32

AW: Array Probleme

  Alt 9. Apr 2015, 13:35
Fein...

Dann Versuch doch erst mal Deinen Sinus so aussehen zu lassen wie man es erwartet...

Alles was Du dafür machen muss, musst Du sowieso programmieren...

[EDIT] Ohne die Darstellungsroutine zu verändern... Sondern die Daten im Array [/EDIT]

Mavarik
Ja das mache ich ja hier
Delphi-Quellcode:
procedure THixHistoGraph.DrawMeasureValue;
var
  x0, y0, dy, dx : Real;
  i : Integer;
  P : TPointDynArray;
  HistoBackround : TRect;

begin
   HistoBackround := Rect(FGapLeft, // Hintergrund der Darstellungsfläche
                           FGapTop,
                           Width - FGapRight,
                           Height - FGapBottom + 2);

   P:= Nil;
   InflateRect(HistoBackround, -1, -1);
   for i:= round(FViewXNominalMin) to round(FViewXNominalMax - 1) do
   begin
      x0 := FViewxNominalMin;
      y0 := (Height - FGapBottom - FGapTop) / FYScale.ValMax;
      dx := 0.5;
      dy := 0.02;
      P := CalculatePointView(mySin, HistoBackround, x0, y0, dx, dy);
      Canvas.Pen.Style := FSeriesLineStyle;
      Canvas.Brush.Color := FColor;
      Canvas.Pen.Color := FSeriesColor;
      DrawPointView(Canvas, HistoBackround, P);
   end;
end;
wenn ich dx := auf 0.05 setzt, dann sieht der Sinus gut aus, oder was meinst Du Mavarik ?
Miniaturansicht angehängter Grafiken
histosinus.jpg  
Christian
  Mit Zitat antworten Zitat