und wieder TChart: diesmal: Linien zeichen

[Andy386]

Ich schon wieder:

ich würde gerne in einem TChart (fester Grösse) eine Linie bestimmter Länge zeichnen. Mir fehlt nur der Ansatz, wie es am besten geht.
Vielleicht mit Arrows (ohne Pfeilspitzen)?
Oder mittels einer Funktion ?
oder muss ich die Punkte einzeln einmalen (addXY)?

[edit: TGrid zu TChart gemacht]

[shmia]

Was meinst du mit TGrid ? Diese Klasse gibt es nicht in der VCL.
Meinst du ein TDrawGrid ?
Hier kleiner Beispielcode. Einfach auf das Event OnDrawCell doppelklicken und folgenden Code einbauen:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TDrawGrid do
  begin
    Canvas.Brush.Color := clBackGround;
    Canvas.FillRect(Rect);
    Canvas.MoveTo(Rect.Left, Rect.top);
    Canvas.LineTo(Rect.Right, Rect.Bottom);
  end;
end;

[Andy386]

Ich Drops !
Danke, Shmia, hab das mal alles korrigiert.

[Andy386]

Vielen Dank für den Tipp mit Canvas, das geht auch beim TChart !

muss jetzt nur noch rausbekommen, wieso es so blinkt...
hat sicher was mit onpaint zu tun, oder ?

[shmia]

Zitat von Andy386:

Vielen Dank für den Tipp mit Canvas, das geht auch beim TChart !
muss jetzt nur noch rausbekommen, wieso es so blinkt...
hat sicher was mit onpaint zu tun, oder ?

Du redest jetzt plötzlich von TChart, was ja eine spezielle Komponente ist, die ein ActiveX Control kapselt.
Diese Komponente benötigt eigentlich überhaupt keinen Eingriff auf den Canvas, da alles schon vorgegeben ist.

Erklär am Besten mal, was du überhaupt erreichen möchtest und wir sagen dir, welche Komponente dazu geeignet ist.