Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
Delphi 6 Professional
|
AW: Array Probleme
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 ?
Christian
|
|
Zitat
|