ASM

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