Palette RGB screen tips

[Chris D]

1 in 10 men are colorblind to some extent, myself included. (The figure is 1 in 200 for women). I have difficulty in seeing the colors on the color palette, especially as the swatches are quite small.

It would really help if there were SCREEN TIPS that gave a simple R,G,B value when you hover over the color.

I would then be able to work out whether I'm picking a brown or a green without trouble.

[kiwi]

I'm not sure if is any way to give you a perfect solution to what your request, but this old script of mine may at least help you.

He will tell you the RGB values, and you are able to edit them. You still need to select the object, and then run the script as a contextual menu plugin, or just set it with a keyboard shortcut.

If you only work with the colors on the palette, instead of the RGB values you may better use the index values of the palette: easier to remember. The script is easy to modify...

code:

---

{///////////////////////////////////////////////////////////////

By: Kiwi 2002

Built with Dialog Builder 4 © 2001 Nemetschek North America.

///////////////////////////////////////////////////////////////}

PROCEDURE GetCol;

VAR

dlogID,dlogResult : INTEGER;

dialogIsOK,rsrcOK : BOOLEAN;

r,g,b,rr,gg,bb : LONGINT;

rs,gs,bs,rrs,ggs,bbs: STRING;

h : HANDLE;

o : BOOLEAN;

FUNCTION Define_GetCol : INTEGER;

VAR

dialogID : INTEGER;

BEGIN

dialogID := CreateLayout('User Info',False,'OK','Cancel');

CreateGroupBox(dialogID,5,'Pen Fore',true);

CreateGroupBox(dialogID,6,'Fill Back',true);

CreateStaticText(dialogID,10,'R:',-1);

CreateEditInteger(dialogID,11,0,8);

CreateStaticText(dialogID,20,'G:',-1);

CreateEditInteger(dialogID,21,0,8);

CreateStaticText(dialogID,30,'B:',-1);

CreateEditInteger(dialogID,31,0,8);

CreateStaticText(dialogID,100,'R:',-1);

CreateEditInteger(dialogID,110,0,8);

CreateStaticText(dialogID,200,'G:',-1);

CreateEditInteger(dialogID,210,0,8);

CreateStaticText(dialogID,300,'B:',-1);

CreateEditInteger(dialogID,310,0,8);

SetFirstLayoutItem(dialogID,5);

SetFirstGroupItem(dialogID,5,10);

SetRightItem(dialogID,10,11,0,0);

SetBelowItem(dialogID,10,20,0,0);

SetRightItem(dialogID,20,21,0,0);

SetBelowItem(dialogID,20,30,0,0);

SetRightItem(dialogID,30,31,0,0);

AlignItemEdge(dialogID,10,1,29,1);

AlignItemEdge(dialogID,20,1,29,1);

AlignItemEdge(dialogID,30,1,29,1);

AlignItemEdge(dialogID,11,3,25,1);

AlignItemEdge(dialogID,21,3,25,1);

AlignItemEdge(dialogID,31,3,25,1);

SetRightItem(dialogID,5,6,0,0);

SetFirstGroupItem(dialogID,6,100);

SetRightItem(dialogID,100,110,0,0);

SetBelowItem(dialogID,100,200,0,0);

SetRightItem(dialogID,200,210,0,0);

SetBelowItem(dialogID,200,300,0,0);

SetRightItem(dialogID,300,310,0,0);

AlignItemEdge(dialogID,100,1,290,1);

AlignItemEdge(dialogID,200,1,290,1);

AlignItemEdge(dialogID,300,1,290,1);

AlignItemEdge(dialogID,110,3,250,1);

AlignItemEdge(dialogID,210,3,250,1);

AlignItemEdge(dialogID,310,3,250,1);

Define_GetCol := dialogID;

END;

PROCEDURE Drive_GetCol(VAR item:LONGINT; data:LONGINT);

BEGIN

CASE item OF

SetupDialogC:BEGIN

h:=FSActLayer;

GetPenFore(h,r,g,b);

GetFillBack(h,rr,gg,bb);

SetField(11,Num2Str(0,r));

SetField(21,Num2Str(0,g));

SetField(31,Num2Str(0,b));

SetField(110,Num2Str(0,rr));

SetField(210,Num2Str(0,gg));

SetField(310,Num2Str(0,bb));

END;

1:BEGIN

o:=True;

rs:=getField(11);

gs:=getField(21);

bs:=getField(31);

rrs:=getField(110);

ggs:=getField(210);

bbs:=getField(310);

END;

2:BEGIN

o:=false;

END;

END;

END;

BEGIN

dlogID := Define_GetCol;

dialogIsOK := VerifyLayout(dlogID);

IF dialogIsOK THEN BEGIN

dlogResult := RunLayoutDialog(dlogID,Drive_GetCol);

END;

IF o THEN BEGIN

SetPenFore(h,Str2Num(rs),Str2Num(gs),Str2Num(bs));

SetFillBack(h,Str2Num(rrs),Str2Num(ggs),Str2Num(bbs));

ResetBBox(h);

Redraw;

END;

END;

Run(GetCol);

[/code]

[matto]

You might all ready know this one.

in tool> utilities>Create colour chart.

the chart prints with index numbers, but sadly not r,g,b code, can be scaled to a size that easier to see.(make sure you scale the text too)

then print it out put it on your wall.

oh small advantage is it show what the colours print like, conpared to screen, i have one for each of the printers we use and for pdf.