Hi,
How do you simulate a dialog window when programming with OPL for Nokia ?
I show my solution, where I've tried to obtain the Nokia colours with many levels of blue :
idChangeKeys%=gCREATE(32+(wPixScreen%-w%)/2, (hPixScreen%-h%)/2,w%,h%,KgCreateVisible%, kColourMode% +
KgCreateHasShadow% + $300)
gXBORDER KgXBorderStandardType%,$94
gCOLOR $B0,$B0,$FF
gAT 1,1 : gBOX w%-2,h%-2
gCOLOR $D0,$D0,$FF
gAT 2,2 : gBOX w%-4,h%-4
gCOLOR $60,$60,$90
gAT 2,h%-2 : gLINEBY w%-3,0
gCOLOR $80,$80,$B0
gAT 3,h%-3 : gLINEBY w%-5,0
gCOLOR $60,$60,$90
gAT w%-2,2 : gLINEBY 0,h%-3
gCOLOR $80,$80,$B0
gAT w%-3,3 : gLINEBY 0,h%-5
y%=0
DO
gCOLOR y%*9,y%*9,$FF
gAT 4,4+y%
gLINEBY w%-8,0
y%=y%+1
UNTIL y% >= 28
gCOLOR 0,0,0
gAT 26,26
gFONT KFontArialNormal18&
gSTYLE KgStyleBold%
gPRINT "Change keys"
gCOLOR $FF,$FF,$FF
gAT 25,25
gPRINT "Change keys"
If anybody has a better solution, please post it here.
This fake dialog is present in the Smuggers game for Nokia 92xx machines.
Regards,
Roberto Colistete Jr.