Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Diagramm: selber zeichnen oder gibts ne bessere Möglichkeit (https://www.delphipraxis.net/15081-diagramm-selber-zeichnen-oder-gibts-ne-bessere-moeglichkeit.html)

Chris1986 21. Jan 2004 15:56


Diagramm: selber zeichnen oder gibts ne bessere Möglichkeit
 
Hallo,
ich werde bald für die Schule eine Facharbeit im Fach Informatik schreiben. Dabei werden Reaktionszeiten des Nutzers über Lichtschranken bestimmt und in einer DB angelegt.
Natürlich wäre jetzt ein Diagramm, das die Werte beinhaltet, nicht schlecht.
Ich frage mich nur wie ich das realisieren soll. Ist es sinnvoll das Diagramm auf dem Canvas zu zeichnen, oder weiß jemand was besseres?
Ich weiß das es zusätzliche Komponenten gibt, die möchte ich aber nicht benutzen, weil mein Lehrer diese Komponenten ja auch installieren müsste.
Benutzt wird D7 (Nein, ich habs nicht geklaut. Ist bei uns in der Schule installiert :!: :stupid: )

MfG
Christian

negaH 21. Jan 2004 16:09

Re: Diagramm: selber zeichnen oder gibts ne bessere Möglichk
 
Seit Urzeiten wird die Komponente TChart mit Delphi ausgeliefert. Also auch dein Lehrer dürfte TChart in seiner Komponentenpalette finden.

TChart ist klein und smart und reicht für die meisten Anwendungen vollkommen aus. Wichtig ist eben der Punkt das du mit TChart innerhalb von 5 Minuten dein Chart fertig hast, im Gegensatz zu einer manuellen Lösung.

Gruß Hagen

Gandalfus 21. Jan 2004 16:15

Re: Diagramm: selber zeichnen oder gibts ne bessere Möglichk
 
auf Canvas zeichnen ist schon das richtige. (MIt Backpuffer arbeiten)

Ich benutzte ganz gerne TGraphicControl das würde dann so aussehen:

Delphi-Quellcode:
unit U_Diagramm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ExtCtrls;

type
  TDiagramm = class(TGraphicControl)
  private
    Fbild: TBitmap;      
  public
    procedure paint; override;
    constructor CreateCreate(parent: TWinControl); reintroduce; virtual;
    destructor destroy; override;
  end;

implementation


constructor TFortschritsAnzeige.Create(parent: TWinControl);
begin
  inherited Create(parent );

  Fbild := TBitmap.create;

end;

destructor TFortschritsAnzeige.destroy;
begin
  Fbild.Free;
  inherited;
end;


procedure TFortschritsAnzeige.paint;
begin
  inherited;
  //zeichen was....................

  BitBlt(canvas.handle, 0, 0, Width, height, fbild.canvas.handle, 0, 0, srccopy);
end;

end.
Vorteil ist: Einfach wiederverwendbar(in einer Unit), Man muss sich um das neuzeichnen(nach minimieren usw) kümmern und man hat noch eigene events.

mfg

Chris1986 21. Jan 2004 16:48

Re: Diagramm: selber zeichnen oder gibts ne bessere Möglichk
 
Danke. TChart wird mir reichen.

MfG
Christian


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz