Skip to main content

How to convert Color code into RGB

I had a problem recently where I had to convert a color code selected by a user using GETCOLOR ( ) into an RGB setting for use in a report.

I am across this code and then rewrote it into VFP.

Update - until of course, Ted, took me here instead where I should have started all along, in the Wiki.

(don't bother reading below unless you want to see the other ways people do this.

LPARAMETERS tnColor,tcVal

LOCAL R1, G1, B1
LOCAL R2, G2, B2
LOCAL A As Long

R2 = 0
G2 = 0
B2 = 0

If tncolor = -1
&& DEfault to 255 regardless
RETURN 255
ENDIF

For B1 = 0 To 255
A = RGB(R2, G2, B1)
DO CASE
CASE A > tnColor
B2 = (B1 - 1)
Exit
CASE A = tnColor
B2 = B1
Exit
Endcase
Next B1

For G1 = 0 To 255
A = RGB(R2, G1, B2)
DO CASE
CASE A > tnColor
G2 = (G1 - 1)
Exit
CASE A = tnColor
G2 = G1
Exit
Endcase
Next G1

For R1 = 0 To 255
A = RGB(R1, G2, B2)
IF A = tnColor
R2 = (R1)
Exit
EndIf
Next R1

DO CASE
CASE tcVal = "R"
RETURN r2
CASE tcVal = "G"
RETURN g2
CASE tcVal = "B"
RETURN b2
ENDCASE

It works great but I was surprised that there wasn't a built-in way to do this in VFP. Of course, the above code isn't very intelligent but it relies on the fact that a PC can process 255 x 3 extremely quickly and thus return the correct result.

I then came across this code which looked a little more algorithmically correct and as a result MUCH faster.

LPARAMETERS lnColor, tcType

DO CASE
CASE tcType = "R"
RETURN INT(MOD(lnColor ,0x100))
CASE tcType = "G"
lnColor = lnColor/0x100
RETURN INT(MOD(lnColor ,0x100))
CASE tcType = "B"
lnColor = lnColor/0x100
lnColor = lnColor/0x100

RETURN INT(MOD(lnColor ,0x100))

ENDCASE

Same results and the performance is good on both but obviously the second one is the

Keep in mind that RGB colors can't be used reliably for all color settings but at least on the VFP FRX , they work well.


How to convert Color code into RGB - visual basic, vb, vbscript

Comments

Ted Roche said…
The source,Andrew, use the source:

http://fox.wikis.com/wc.dll?Wiki~VFPFunctionRGB~VFP

Popular posts from this blog

Well, that explains CodePlex...

In a move that will be sure to anger open source (or rather anti-paid software, anti-Microsoft open source)  zealots, Microsoft is planning to buy GitHub.

A year ago, I mused about why Microsoft would shut down CodePlex and how the world needs competing source code repositories to be strong. I'm not the only one per this Slashdot article :
"...people have warned about GitHub becoming as large as it did as problematic because it concentrates too much of the power to make or break the open source world in a single entity, moreso because there were valid questions about GitHubs financial viability...." - Jacques Mattheij

I will be interested in seeing this play out - whether developers jump ship or not. Have all the efforts Microsoft has made in pushing towards open source be seen as genuine or will all the zealots jump ship or maybe even attack?

Microsoft's comment about why they shut down CodePlex referred to how spammers were using CodePlex. Well, GitHub has its own …

FoxInCloud Stats

FoxInCloud sent this link a while back about their statistics regarding visits to their site:

http://foxincloud.com/blog/2017/12/27/VFP-community-lessons-from-foxincloud-site.html



What's interesting here is the breakdown of people. Yes, I think it's understandable that the Fox community is getting older.

Another factor is the growth of the mobile and web environments taking over development. These environments really do push people towards the newer non-SQL or free SQL/hosted environments but more towards hosted storage options like Amazon and Google. A tool like FoxInCloud that helps MOVE existing applications to the cloud inherently competes with those environments.

But FoxInCloud also allows developers to extend their application further by giving them a starting point using Javascript and the basic CSS (such as Bootstrap). If you're not rebuilding your application from scratch, it's certainly a great step forward.

Attending Southwest Fox 2019 could change your life - Find out how

Southwest Fox is coming up in October and as I do every year, I spoke with the organizers Rick, Doug and Tamar on the FoxShow.

Deadlines for Southwest Fox:
Super-saver price (before July 1): $695
Early-bird price (before August 1): $770
Regular price (August 1 and later): $820
This year, I took a different approach with separate shows for each organizer but the main message is still the same : July 1st is their Go/No-Go date.

Conferences don't talk about this very often. I don't think developers really question if Apple will hold their WWDC in June or Microsoft will hold their Build conference - but that's because those conferences are vendor-led.

Southwest Fox is a community-driven conference - it's not driven by a company with an agenda. Listen to the interviews and you can hear how important each of the organizers feel the live connection between speakers and among attendees.