Color(s) in option Field

navuser1

Dear All,

I'm working in Nav 2009 and want to select Color(s) in a Option field on a form.
Can somebody give me any idea on this ? :-k

Thanks !

mohana_cse06

Import the below tool in test Database
http://www.mibuso.com/forum/viewtopic.php?t=4697

and try something like in Merge Setup form(as shown in below screen)

navuser1

I've done this but not satisfied with the result.

CASE Color OF
   0: BEGIN
       CurrForm.Set.UPDATEFORECOLOR := 255;
       ShowColor :=255;
      END;
   1: BEGIN
       CurrForm.Set.UPDATEFORECOLOR := 65280;
       ShowColor :=65280;
      END;
   2: BEGIN
       CurrForm.Set.UPDATEFORECOLOR := 16711680;
       ShowColor :=16711680;
      END;
   3: BEGIN
       CurrForm.Set.UPDATEFORECOLOR := 65535;
       ShowColor :=65535;
      END;
END;

CurrForm.UPDATECONTROLS

Result in image :


I'm not satisfied with result b'cose when I expand the Color Column and see the Result :



I will be very grateful if someone helps me to solve this issue.

Thnaks!

mohana_cse06

i dont think it is possible in Option field..you can create new form and use lookup.

navuser1

The Color (or Text) Column is an Option field in Nav but Color Template is just a Text Box.
I Hope it can be done.

mohana_cse06

Problem is with Column Template symbols?

navuser1

It seems to me working fine.

Code :



Result :

mohana_cse06

Good. :thumbsup:

You can show any text like 'Color' also in template..

MBerger

small function to make colours a bit easier to work with :

PROCEDURE RGB(R : Integer;G : Integer;B : Integer) : Integer;
BEGIN
  IF R > 255 THEN R := 255 ;
  IF G > 255 THEN G := 255 ;
  IF B > 255 THEN b := 255 ;

  EXIT( R + (G * 256) + (B * 256 * 256)) ;
END;

this way you can just give the RGB values for the colour you want, like 255,0,0 for red, or 0,128,0 for a darkgreen colour

navuser1

Is it possible in RTC also ? :-k

mohana_cse06

You can import the above tool and Check..the tool has Pages also..
(I didnt have 2009 Vesrion to test now )