Shape paint color from a registered bank

ilanocf

Hello everybody,
How do I paint a Shape passing the color that is registered in the database? I'm trying so, but it did not work.

Shape1.Color:=StrToColor(<frxDBDataset1."COR">);

grateful,

Ilano

Mick.pl

ilanocf wrote: »

...
Shape1.Color:=StrToColor(<frxDBDataset1."COR">);
...

Shape1.Color is Interger value, and there is no StrToColor function in FR.
But you may write your own in FR script using below example.
Notice It depends how colors are kept in your table in "COR" field.

var  myColor :int;
begin
   case <frxDBDataset1."COR"> of
   'yellow' :  myColor := clYellow;
   'black'   :  myColor := clBack;
   'apple'  :  myColor := clGreen;
   'sky'     :  myColor := clBlue;
   else        myColor := clRed;
   end;
   Shape1.Color := myColor;
end;

Regards
Mick