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

WINDOWS

Have a white background in Edit Fields


Avoir un motif de fond pour une fenêtre et un fond blanc dans un EDIT FIELD

'> load the ppat.
'> use cls.
'> clear the ppat.
'> load the color.
'> create the edit field.
'>
'> if you need more, i'll do it later.
'
'----------------------------

COMPILE 0,_caseinsensitive : EDIT=8 : WINDOW OFF
END GLOBALS

CLEAR LOCAL FN andyppat (id)
  gandyppat&=FN GETPIXPAT(id)
  LONG IF gandyppat&
    CALL GETPORT(thePort&)
    oldPixPat&=[thePort&+_bkPat]
    LONG IF oldPixPat&
      CALL DISPOSPIXPAT(oldPixPat&)
    END IF
    CALL BACKPIXPAT(gandyppat&)
  END IF
END FN : REM andyppat

CLEAR LOCAL FN doinit
  WINDOW 1,"",(0,0)-(500,300),_dialogshadow
  FN andyppat(16) ' system pattern
  CLS
  CALL BACKPAT(#[REGISTER(A5)]+_white+4)
  LONG COLOR 20000,40000,60000,0
  EDIT FIELD -1," hello ",(120,120)-(380,180),_framed,_centerjust
  SETSELECT 0,0
  EDIT FIELD 0
END FN

FN doinit
DO
  HANDLEEVENTS
UNTIL 0

Bowerbird


just for this particular problem, here's some assistance.

LOCAL FN SetToWhite
  DIM verytemp.6
  verytemp.red = 65535
  verytemp.green = 65535
  verytemp.blue = 65535
  CALL RGBBACKCOLOR(#@verytemp)
END FN

Terence Jordan