FB^3 stores the color when the field is built.

>Dear friends,
>
>I have a trouble to convert from FB2 to FB^3.
>
>My simple project is to change Edit Field color according to data for
>alarms.
>
>Following is demo source code, which works as expected with FB2 but
>EF color is always black with FB^3.
>
>Does anybody have an idea how to convert it?
>Any suggestions are welcome.
>
>Masa
>
>' ********************** source code *********************
>'EF color change program for FB2
>'but not works with FB^3(3.2.1)
>'masa.nakao@...
>'2000/07/07
>
>
>COMPILE ,_dimmedVarsOnly_noRedimVars_caseInsensitive
>
>"Local Functions "
>
>LOCAL FN SoftBeep
>   BEEP
>END FN
>
>LOCAL FN getAlarmColor$(Vdata!)
>   DIM HiRedAlarm!,HiYelAlarm!,LoRedAlarm!,LoYelAlarm!
>   DIM T$
>
>   HiRedAlarm! = 200
>   HiYelAlarm! = 180
>   LoRedAlarm! =  50
>   LoYelAlarm! =  60
>   SELECT Vdata!
>     CASE >=HiRedAlarm!
>       FN SoftBeep
>       COLOR _zRed
>       T$= "High"
>     CASE >=HiYelAlarm!
>       'COLOR _zYellow
>       LONG COLOR 07246,43464,64938
>       T$= "near High"
>     CASE <=LoRedAlarm!
>       FN SoftBeep
>       COLOR _zRed
>       T$= "Low"
>     CASE <=LoYelAlarm!
>       'COLOR _zYellow
>       LONG COLOR 07246,43464,64938
>       T$= "near Low"
>     CASE ELSE
>       COLOR _zBlue
>       T$= "OK"
>       COLOR _zblack
>   END SELECT
>END FN = T$
>
>LOCAL FN makeEF(num,left,top,wide)
>   DIM myrect.8
>   myrect.left%   = left
>   myrect.top%    = top
>   myrect.right%  = left + wide
>   myrect.bottom% = USR FONTHEIGHT + myrect.top%
>   EDIT FIELD -num,"",@myrect,_framed
>END FN
>
>"MAIN"
>
>DIM Vdata!,T$
>END GLOBALS
>'(left%, top%)-(right%, bottom%)
>WINDOW #1, "EF color test",(20,50)-(300,200)
>TEXT ,9
>FN makeEF(1,100,30,50)
>WINDOW #2, "Input 999 to end",(330,50)-(500,200)
>DO
>   HANDLEEVENTS
>   WINDOW OUTPUT #2
>   INPUT "data= ";Vdata!
>
>   WINDOW OUTPUT #1
>   T$ = FN getAlarmColor$(Vdata!)
>
>   WINDOW OUTPUT #1
>   EDIT$(1)= STR$(Vdata!)
>   PRINT @(1,1);
>   CLS LINE
>   PRINT T$
>   edit field (0)
>UNTIL Vdata! =999
>END
>
>' ************* end of source code ******************
>
>
>--
>
>Masa
>masa.nakao@...
>
>
>--
>To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>



Best,

-STAZ  ~)~

800.348.2623 Orders  http://www.stazsoftware.com
228.255.7086 FAX     mailto:staz@...