Change the style of a static Edit Field
This is how Staz showed me to change the color in FB^3 which also could not be done as it was in FBII for a field. You could easily use this EDIT TEXT stuff to change the text for a static field
DIM red,green,blue A$="BLACK" LONG IF EDIT$1)<>"RED" A$ = "RED" red = -1 green = 0 blue = 0 XELSE A$ = "BLACK" red = 0 green = 0 blue = 0 END IF EDIT FIELD -1,A$,,_NOFRAMEDNOCR SETSELECT 0,_maxInt EDIT TEXT ,,,,red,green,blue EDIT FIELD -1,,,_STATNOFRAMED EDIT FIELD 0
Here is the function I've got now. It works.
LOCAL FN setfonts(ScriptFont%,ScriptSize%) WINDOW OUTPUT _RKWnd EDIT FIELD _Krung,,,_NoFramedNoCR SETSELECT 0,_maxInt EDIT TEXT ScriptFont%,ScriptSize% EDIT FIELD _Krung,,,_StatNoFramed EDIT FIELD 0 END FN