Solved

convert a hex value to a color value

Posted on 2000-02-20
3
154 Views
Last Modified: 2010-04-04
edtCeldaColorFondo.Text contains the hex value

and i'm trying to do something like this

edtCeldaMuestraBorde.Color := edtCeldaColorFondo.Text;

but obviously this code doesn't work.

please help me, thanks
0
Comment
Question by:pin_plunder
3 Comments
 
LVL 17

Accepted Solution

by:
inthe earned 10 total points
ID: 2540186
hi,
you can use the
 edtCeldaMuestraBorde.Color := stringtocolor(edtCeldaColorFondo.Text);

Regards Barry
0
 
LVL 2

Expert Comment

by:PeterLarsen
ID: 2540320
Tcolor is an integer, so this will also do :

edtCeldaMuestraBorde.Color := integer(edtCeldaColorFondo.Text);

or if you have hex values :

edtCeldaMuestraBorde.Color := stringtocolor('$'+edtCeldaColorFondo.Text);
0
 

Author Comment

by:pin_plunder
ID: 2540610
thanks
0

Featured Post

VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question