
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

TLabel megjelenítése egy adott szögben

Példaprogram letöltése

5444 bájt

Mellékelt példában készítünk egy olyan TLabel komponenst, melynek van egy olyan property-e, aminek segítségével 0-360 fokos szögben elfordítható a felirat.

Egyetlen problémát a komponens méretének meghatározása jelenti, mivel ez minden szögben más és más, de némi osztás, szorzás, na meg szinusz, koszinusz után megoldható ez a gond is.

A mellékelt példaprogram megnyitása előtt az AngleLabel.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponenst a TCustomLabel osztályból származtatjuk. Egyetlen új Angle névre hallgató property-t hozunk létre. Itt lehet megadni azt a szöget fokban, mellyel szeretnénk elforgatni a komponens szövegét.

A kirajzolása Paint eljárásban történik.

Itt a GetTextExtentPoint32 függvénnyel meghatározzuk azt a befoglaló téglalap méretét, melyben elfér az adott felirat.

Ezek után ki kell számítanunk, hogy az adott szög mellett mekkorára kell nyújtanunk a komponens méretét ahhoz, hogy az elforgatott szöveg teljesen beleférjen.

Itt négyfelé ágazik programunk attól függően, hogy a 360 fok melyik negyedébe esik az aktuális szög, mindig másképp kell számítani a méretet.

A betűtípus elforgatásának trükkje abból áll, hogy létre kell hoznunk egy új font-ot. Ezt úgy tesszük, hogy a GetObject-el lekérdezzük az aktuális adatait egy TLogFont struktúrába, majd ezen módosítunk. Az lfEscapement mezőben adható meg a font szöge tized fokokban.

Az új betűtípus létrehozását a CreateFontIndirect végzi el. Utána már csak a kirajzolás és végül a létrehozott új font törlése marad.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1488	Delphi	MS SQL tárolt eljárások	1. rész
1499	Delphi	MS SQL tárolt eljárások	2. rész
1507	Delphi	MS SQL tárolt eljárások	3. rész
1519	Delphi	MS SQL tárolt eljárások	4. rész
1526	Delphi	MS SQL tárolt eljárások	5. rész
1537	Delphi	MS SQL tárolt eljárások	6. rész
1546	Delphi	MS SQL tárolt eljárások	7. rész
1553	Delphi	MS SQL tárolt eljárások	8. rész
1564	Delphi	MS SQL tárolt eljárások	9. rész
1573	Delphi	MS SQL tárolt eljárások	10. rész
1582	Delphi	MS SQL tárolt eljárások	11. rész
1591	Delphi	MS SQL tárolt eljárások	12. rész
1600	Delphi	MS SQL tárolt eljárások	13. rész
1609	Delphi	MS SQL tárolt eljárások	14. rész
1617	Delphi	MS SQL tárolt eljárások	15. rész
1626	Delphi	MS SQL tárolt eljárások	16. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2002 évkönyv 509. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!