powiekszenie wykresu

Odpowiedz Nowy wątek
2007-01-15 19:18

Rejestracja: 13 lat temu

Ostatnio: 13 lat temu

0

Po naryowaniu wykresu chce miec suwak przy pomocy ktorego bede mogl zmniejszac lub powiekszac ten wykres. Robie to w ten sposob:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
begin
skala := TrackBar1.Position;
if skala = 0 then skala := 0.5;
if skala = -1 then skala := 0.25;
if skala = -2 then skala := 0.1;
zoom.caption := FloatToStr(skala)+ 'x';
end;
end;

Suwak działa ale w ten sposób, że gdy go przesune i kline jeszcze raz zeby narysowac wykres to dopiero wtedy rysuje wykres w nowej skali, a ja chce zeby po narysowaniu przesuwajac suwak zmieniac rozmiar wykresu. Czy ktos może mi podpowiedzieć co robie nie tak ??

Pozostało 580 znaków

2007-01-16 12:01

Rejestracja: 13 lat temu

Ostatnio: 6 lat temu

0

Jaki wykres? TChart, własny? Wiecej info


<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

2007-01-16 12:26

Rejestracja: 13 lat temu

Ostatnio: 13 lat temu

0

Wykres rysuje tak:

for i:= 0 to d do
begin
x2 := round(10+(1030/d)*i);
y2 := round(200-skala*100*(Tab[i]-1));
MyBitmap.Canvas.LineTo(x2, y2);
PaintBox2.Canvas.Draw(0,0,MyBitmap);
end;

skaluje tak

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
begin
skala := TrackBar1.Position;
if skala = 0 then skala := 0.5;
if skala = -1 then skala := 0.25;
if skala = -2 then skala := 0.1;
zoom.caption := FloatToStr(skala)+ ' x';

PaintBox2.Canvas.CopyRect(Rect(0,0,1060,400),MyBitmap.Canvas,Rect(0,0,1060,400));
end;

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0