HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

ProgressBar képpel
Példaprogram letöltése

24448 bájt

Készítünk egy ProgressBar komponenst, amely egy megadott színű csík helyett egy tetszőleges képet jelenít meg. Számos játékprogramban találkozhatunk ilyen ProgressBar-ral. Kétségtelen, hogy sokkal látványosabbá tehetjük programjainkat, ha a szabályos ProgressBar helyett képeket használunk.

A mellékelt példaprogram megnyitása előtt a ProgressImage.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens a hagyományos ProgressBar-hoz hasonló módon működik. A Min és a Max property-k segítségével állíthatjuk be a megjelenítendő minimum és maximum értékeket. Az aktuális pozíciót a Position értéke jelzi.
A megjelenítendő képet a Picture tulajdonságban adhatjuk meg.
A Step property-ben megadhatunk egy lépés értéket. Amikor a StepIt metódust meghívjuk, akkor a Position értéke a Step-ben megadott értékkel növekszik.
A komponenst a TCustomControl osztályból származtatjuk. A ProgressBar mindenkori, aktuális állapotának megrajzolásához felül kell írnunk a Paint metódust.
A Picture property-ben megadott képet nyújtva rajzoljuk ki, a komponens területére. A kép nyújtásához egy TBitmap típusú segédváltozót használunk. A megadott képet a Canvas osztály StretchDraw metódusával rajzolhatjuk rá a Bitmap-re, nyújtott formában. 
with Bitmap do begin
...
Canvas.StretchDraw(Rect(0,0,Width,Height),FPicture.Graphic);
A Bitmap-ben megrajzolt, nyújtott képnek csak egy részletét kell megjelenítenünk. Ezt a részletet a Position értéke határozza meg.
Az IStep és az IPos változók segítségével kiszámoljuk, hogy a Position aktuális értéke hány képpontot takar. 
IStep:=(Width-2)/(FMax-FMin);
IPos:=Round(IStep*(FPosition-FMin));
A képrészlet megjelenítéséhez a StretchBlt függvényt használjuk. 
StretchBlt(Canvas.Handle,1,1,IPos,Height-1,Bitmap.Canvas.Handle,0,0,IPos,Height-1,SRCCOPY);

Cikksorozat

#IDKategóriaCikk címeSorozat
2591WindowsTippek és trükkök - RAS - Modem csengetési szám állítása1. rész
2622WindowsTippek és trükkök - Program futtatása más felhasználóként2. rész
2640WindowsA Windows ikonméretének megváltoztatása és Windows 2000 Asztaltémák3. rész
2657WindowsTippek és trükkök - Internet Explorer4. rész
2667WindowsTippek és trükkök5. rész
2684WindowsAlapértelmezések állítása, telepítési fájlok helye, intéző nézetek6. rész
2696WindowsBiztonsági trükkök7. rész
2702WindowsWindows XP trükkök8. rész
2729WindowsWindows 2000 és XP tippek, trükkök9. rész
2757WindowsRegistry trükkök10. rész
2784WindowsTippek, trükkök11. rész
2829WindowsTippek, trükkök12. rész
2889WindowsWindows XP tippek13. rész
2909WindowsTippek Windows XP-hez14. rész
2919WindowsWindows tippek15. rész
2924WindowsWindows tippek16. rész
2963WindowsWindows tippek17. rész
2973WindowsWindows Tippek18. rész
2981WindowsWindows tippek19. rész
2990WindowsTippek-trükkök20. rész
3027WindowsIIS tippek21. rész
3034WindowsWindows XP tippek-trükkök22. rész
3088WindowsWindows 2000/XP tippek, trükkök23. rész
3133WindowsWindows XP tippcsokor24. rész
3140WindowsWindows XP tippek, trükkök25. rész
3152WindowsXP és IIS tippek - trükkök26. rész
3158WindowsWindows XP tippek, trükkök27. rész
3168WindowsTippek, trükkök28. rész
3170WindowsRegistry trükkök29. rész
3179WindowsTippek, trükkök30. rész
3197WindowsWindows XP tippek, trükkök31. rész
3205WindowsTippek, trükkök32. rész
3214WindowsTippek, trükkök33. rész
3223WindowsTippek, trükkök34. rész
3233WindowsTippek, trükkök35. rész
3271WindowsTippek, trükkök36. rész
3307WindowsTippek, trükkök37. rész
3370WindowsTippek, trükkök38. rész
3399WindowsTippek, trükkök39. rész
3510WindowsTippek, trükkök40. rész
3611WindowsHardverrel kapcsolatos tippek, trükkök41. rész
3668WindowsRegistry trükkök42. rész
3711WindowsTippek, trükkök43. rész
3771WindowsTippek, trükkök44. rész
3801WindowsTippek, trükkök45. rész
3831WindowsTippek, trükkök46. rész
3891WindowsTippek, trükkök47. rész
3921WindowsTippek, trükkök48. rész
3981WindowsTippek, trükkök49. rész
4041WindowsTippek, trükkök50. rész
4071WindowsTippek, trükkök51. rész
4151WindowsTippek, trükkök52. rész
4171C#Tippek, trükkök53. rész
4211WindowsTippek, trükkök54. rész
4251WindowsTippek, trükkök55. rész
4281WindowsTippek, trükkök56. rész
3589DelphiTippek, trükkök57. rész
3718DelphiTippek, trükkök58. rész


Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 196. 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!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |