Broken Line, 10. fejezet
A vonallánc módszer egy vonalláncot rajzol. Paraméterként a módszer Txt típusú tömböt kap. A tömb minden egyes eleme olyan rekord, amelynek x és y mezői tartalmazzák a vonallánc inflexiós pontjának koordinátáit. A Polyline módszer egy vonalláncot húz, egymás után egyesítve a koordináták egyenes vonalát, amelyeknek a koordinátái a tömbben vannak: az első a második, a második a harmadik, a harmadik a negyedik stb.
A Polyline módszer 10.3-as listában történő használatának példájaként egy eljárást mutatunk be, amely egy adott érték változásának grafikonját mutatja. Feltételezzük, hogy az eredeti adatok az Adat-tömbben (Type Integer) elérhető eljárásban hozzáférhetőek.
10.3. Funkciógrafikon (Polyline módszerrel)
eljárás TForml.Button1Kattintson (Feladó: TObject);
gr: TPoint tömb [1..50]; // grafikon - törött vonal
x0, y0: egész szám; // A származási koordináták pont
dx, dy: egész szám; // az X és Y tengelyek rácsának lépése
// kitöltési tömb gr
gr [i]. y: = y0 - Adat [i] * dy;
forml.Canvas kezdődik
MoveTo (x0, y0); LineTo (x0.10); // Y tengely
MoveTo (x0, y0); LineTo (200, y0); // X tengely
A Polyline módszerrel zárt hurkokat lehet rajzolni. Ehhez a tömb első és utolsó elemének ugyanazon pont koordinátáit kell tartalmaznia. Példa a Polybine módszer használatára zárt hurkok rajzolásához a 10.4. Listában egy olyan program, amely egy ötágú csillag kontúrját rajzolja a párbeszédpanel felületére, az egér gombjának megnyomásakor (10.5 ábra). Az a szín, amellyel a csillag húzódik, attól függ, hogy melyik egérgombot nyomta meg. Az egérgombbal történő kattintás feldolgozásának folyamata (MouseDown esemény) a csillag csillagvonalának rajzolását írja le, és a paraméterként adja meg annak a pontnak a koordinátáit, amelyen a gombot megnyomta. A csillag felhívja a starLine eljárást, amely paraméterként megkapja a csillag központjának és a vászonnak a koordinátáit, amelyen a csillagot ki kell mutatni. Először kiszámítjuk a csillag végének és mélyedésének koordinátáit, amelyeket a p. Ezt a tömböt ezután a Polyline-módszer paramétereként adják át. A csillag sugarainak és völgyeinek koordinátáinak kiszámításakor a sin és cos függvényeket használják. Mivel ezeknek a függvényeknek az érvét sugárban kell kifejezni, a szög értékét fokban meg kell szorozni a pi / 18o értékkel, ahol pi a n-edik egyenértékű állandó.
10.4. Rajzoljon egy zárt hurkot (csillag) az egérkattintás pontján
Windows, Üzenetek, SysUtils, Változatok, Osztályok,
Grafikák, vezérlők, űrlapok, párbeszédpanelek, StdCtrls;
TForm1 = osztály (TForm)
FormMouseDown eljárás (Feladó: TObject; Gomb: TMouseButton;
Shift: TShiftState; X, Y: Integer);