Hogyan kell megrajzolni a lenti képet Lazarus programban? Köszi a segítséget.

Szia.

Gondolom Delphiben is jó a dolog :

Rakd a következő komponenseket a formra :

- TImage és 2 db TButton

A kép komponens méretét állits be akkorára amekkorára akarod.

A kettes gomb Onclick eseménye legyen a kilépés (vagy a rajz), döntés kérdése. A másik gomb eseménye pedig az első forditotja.

Aztán már csak a megfelelő rajz utasitásokat kell leprogramozni.

Itt a forrás : [link]

Sok sikert.

üdv.

Egészen kevés változtatással ugyanez Lazarusban:

[link]

[link]

Bocsi az az én hibám, az Y számitási képlete az csak akkor müködik jól, ha a kép image az négyzet alakú (pl. 200x200)

Tehát ezt kell cserélni :

Y:=Form1.Image1.Height-X;

Erre :

Y:=Form1.Image1.Height-trunc (X*Form1.Image1.Height/Form1.Image1.Width);

Mindkét helyen.

Javitottam a forráson itt megtalálható : [link]

Sok sikert.

üdv.

tabaki után szabadon :

"Hőőő, én a sárga vonalat eddig észre sem vettem..."

Na azt én sem, igy a fenti módositás értelmét veszti, helyette ez kell :

Y:=trunc (x*Form1.Image1.Height/Form1.Image1.Width);

Ezt is mindkét helyen, módositani kell.

Talán a jó a végleges forrás : [link]

Üdv.

Az én változatom:

[link]

[link]

Ugyanaz, a Form1. előtagok vagy mik elhagyásával (őszintén szólva, fogalmam sincs, hogy ez okozhat-e problémát valamilyen esetben):

[link]