Search icon CANCEL
Arrow left icon
Explore Products
Best Sellers
New Releases
Books
Videos
Audiobooks
Learning Hub
Conferences
Free Learning
Arrow right icon
Arrow up icon
GO TO TOP
Expert Delphi

You're reading from   Expert Delphi Robust and fast cross-platform application development

Arrow left icon
Product type Paperback
Published in Jun 2017
Publisher Packt
ISBN-13 9781786460165
Length 506 pages
Edition 1st Edition
Languages
Tools
Arrow right icon
Author (1):
Arrow left icon
Paweł Głowacki Paweł Głowacki
Author Profile Icon Paweł Głowacki
Paweł Głowacki
Arrow right icon
View More author details
Toc

Table of Contents (14) Chapters Close

Preface 1. Fasten Your Seat Belts FREE CHAPTER 2. Mind Your Language 3. Packing Up Your Toolbox 4. Playing with FireMonkey 5. FireMonkey in 3D 6. Building User Interfaces with Style 7. Working with Mobile Operating System 8. Extending to the Internet of Things 9. Embedding Databases 10. Integrating with Web Services 11. Building Mobile Backends 12. App Deployment 13. The Road Ahead

Get moving with timers

Let's take one further step, and, instead of having a static scene, let's add an animation. It is a normal thing for the sun to ascend in the morning. In order to achieve the effect of sunrise every time the form is repainted, we will change the y coordinate that is used for painting the sun's circle and rays. Let's add to our TFormSun class a private member FSunPosY: double, which will store the current vertical sun position.

The simplest way to change our scene over time is with the TTimer component. Drop TTimer on the form. It has only one event, OnTimer. The frequency of these events is controlled by the Interval property, which specifies the number of milliseconds between firing the OnTimer event. The default value of the Interval property is 1,000, which means that the timer fires its event every second. For a smooth animation,...

lock icon The rest of the chapter is locked
Register for a free Packt account to unlock a world of extra content!
A free Packt account unlocks extra newsletters, articles, discounted offers, and much more. Start advancing your knowledge today.
Unlock this book and the full library FREE for 7 days
Get unlimited access to 7000+ expert-authored eBooks and videos courses covering every tech area you can think of
Renews at $19.99/month. Cancel anytime