Pretpostavljam da koristis BCB (shodno prethodnim pitanjima).
Da. Postoji i 'laksi' nacin, ali nista spektakularno neces dobiti time.
Pogledaj BCB Help i trazi
Polyline funkciju.
U principu, sve se svodi na to da pokupis nekako te podatke iz baze,
prebacis ih u TPoint strukturu i kasnije objekat popunjene strukture
prosledis funkciji.
Kod treba da bude u OnPaint() dogadjaju, jer inace 'izgubices' linije pri
bilo kom osvezavanju.
Code:
void __fastcall TForm1::FormPaint(TObject *Sender)
{
TPoint points[6];
Canvas->Pen->Color = clWhite;
points[0].x = 40;
points[0].y = 10;
points[1].x = 20;
points[1].y = 60;
points[2].x = 70;
points[2].y = 30;
points[3].x = 10;
points[3].y = 30;
points[4].x = 60;
points[4].y = 60;
points[5].x = 40;
points[5].y = 10;
Canvas->Polyline( points, 5 );
}
Crtanje linija metodom Draw
