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

Taking photos

On many occasions, it is useful to be able to take a photo from an app. The programming model is very easy, but it is not the TCamera component that you need to use. In FireMonkey, taking photos is achieved by executing a special "take a photo from a camera" action.

Create a new multi-device FireMonkey blank application. Save the main form's unit as uFormCam, the project as CamApp, and change the Name property of the form to FormCam. Change the Style in the combobox above the form to iOS or Android. Drop TToolbar and TImage components on the form. Rename the image as ImagePhoto and align it to Client and drop TSpeedbutton onto the Toolbar1. Change its Name to spdbtnTakePhoto and the button's Stylelookup property to cameratoolbutton; align it to the Left and adjust the width so it becomes a square. Save all.

Drop the TActionList component on the...

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