Algorithmus zum darstellen von Daten beschleunigen

[shmia]

Die Zeichenfunktionen draw_up() usw. sollten ein TCanvas-Objekt anstelle eine TImage-Objekts als Übergabeparameter bekommen.

Delphi-Quellcode:

procedure draw_up(canvas:TTCanvas;color:TColor;x:integer);
begin
  with canvas do 
  begin
    Pen.Color := color;
    Pen.Width := 2;
    MoveTo(posx(x),25);
    LineTo(posx(x),5);
  end;
end;

Das hat ausserdem den Vorteil, dass du gegebenenfalls auch auf eine Paintbox oder ein Bitmap zeichnen kannst.

[hedie]

Zitat von shmia:

Die Zeichenfunktionen draw_up() usw. sollten ein TCanvas-Objekt anstelle eine TImage-Objekts als Übergabeparameter bekommen.

Delphi-Quellcode:

procedure draw_up(canvas:TTCanvas;color:TColor;x:integer);
begin
  with canvas do 
  begin
    Pen.Color := color;
    Pen.Width := 2;
    MoveTo(posx(x),25);
    LineTo(posx(x),5);
  end;
end;

Das hat ausserdem den Vorteil, dass du gegebenenfalls auch auf eine Paintbox oder ein Bitmap zeichnen kannst.

Vielen Dank für deine Antwort...

Ist das Zeichnen auf ein Bitmap oder eine Paintbox schneller als in ein Image?

Gruss

[BUG]

Musst du immer alle Daten eines Kanals anzeigen oder ist vielleicht die Anzeigefläche so klein, das es ausreichen würde, weniger Daten zu zeichnen?

Außerdem wäre es interessant zu wissen, ob sich die Werte in den Kanälen immer komplett ändern oder zum großen Teil gleich bleiben.

[hedie]

Zitat von BUG:

Musst du immer alle Daten eines Kanals anzeigen oder ist vielleicht die Anzeigefläche so klein, das es ausreichen würde, weniger Daten zu zeichnen?

Außerdem wäre es interessant zu wissen, ob sich die Werte in den Kanälen immer komplett ändern oder zum großen Teil gleich bleiben.

Ja die anzeige Fläche ist manchmal ( je nach zoom einstellung) kleiner als die Maximale Anzahl Daten


Die Werte ändern nicht immer komplett...

[shmia]

Zitat von hedie:

Ist das Zeichnen auf ein Bitmap oder eine Paintbox schneller als in ein Image?

Das kommt drauf an, was man erreichen möchte.
Eine Paintbox ist für Daten, die sich häufig ändern geeignet (z.B. für die Kurve eines Herzmonitors).
Ein TImage ist "im Prinzip" wie eine Paintbox mit fest eingebautem Bitmap.
Falls das Zeichnen zeitaufwändig ist, kann beim Zeichnen auf ein Image ein Flackereffekt eintreten.
Die lässt sich vermeiden, wenn man auf ein temporäres Bitmap zeichnet und dieses Bitmap auf ein Puffer-Bitmap kopiert.
Dieses Puffer-Bitmap würde man dann mit einer Paintbox anzeigen. (Prinzip Double-Buffering)

Wenn man auf ein Canvas-Objekt zeichnet hat man auf jeden Fall die Wahl, wie man das Bild ausgeben möchte.
Man kann auch auf den Drucker zeichnen; wer weiss, vielleicht willst du die Ausgabe mal drucken.

[ChrisE]

Hallo,

also wenn ich da optimieren würde, dann als erstes mal indem ich Befehle die unnötig sind zu enfernen.

In deinem Fall würde ich damit beginnen, ein Methode zu schreiben, die die Canvas - bzw. in deinem Fall den Pen vorbereitet.

Delphi-Quellcode:

procedure InitCanvasPen(ACanvas: TCanvas; AColor: TColor; AWidth: Integer);
begin
  ACanvas.Pen.Color := AColor;
  ACanvas.Pen.Width := AWidth;
end;

Die dann nur einmal am Anfang aufrufen und die entsprechenden Zeilen aus draw_* raus nehmen.

Gruß, Chris