Hallo,
ich zeichne eine vertikale Linie in ein Chart. Dies funktioniert auch.
Nun soll diese Linie farbig und 3 breit sein. Hier ist das Problem, trotz Pen.color und Pen.width wird die Linie nur in normaler Breite und nicht farbig gezeichnet. Wo liegt hier der Fehler?
Bei einer horizontalen Linie funktionieren die Pen-Angaben ohne Probleme.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TfrmZGrafik.Series1AfterDrawValues(Sender: TObject);
var
t,
x,
y : LongInt;
begin
if not (Form1.iGrafikMonat = 0) then
begin
x:=Series1.CalcXPos( Form1.iGrafikMonat ); y:=Series1.CalcYPos( Form1.iGrafikMonat);
Canvas.Pen.Color:=clFuchsia; Canvas.Pen.Width := 3;
QRDBChart1.Canvas.MoveTo(x-8,QRDBChart1.ChartBounds.top + 30 );
QRDBChart1.Canvas.LineTo(x-8,QRDBChart1.ChartBounds.bottom - 75 );
end;
end; |
