FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

TEXT

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
Terrald

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
Anders