Add background image to library
Add SelBut image to Library
Create a style for page with the image as background
Create a style for images
Create a style for text col-black using Ascii16 font
Define a page named "pageName" with style "pageStyle"
Create SelBut Img and place this off the visible screen.
Create Text entity for Key 1
Create Key entity for key 1 which positions the SelBut
entity on the key when pressed and once let go returns
image entity to original position.
The same is done for all 9 keys.
After loading show the page named "pageName" |
LIB(background,"SDHC/bground.png");
LIB(Select,"SDHC/SelBut.bmp");
STYLE(pageStyle, Page){image=background;}
STYLE(imageStyle, Image){curRel=CC;}
STYLE(textStyle, Text){font=Ascii16;col=Black;}
PAGE(pageName, pageStyle)
{
IMG(SelBut,Select,imageStyle,0,400);
TEXT(text1,"1",textStyle,130,80);
KEY(Key1,[POSN(130,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text2,"2",textStyle,130,80);
KEY(Key2,[POSN(240,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text3,"3",textStyle,130,80);
KEY(Key3,[POSN(350,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text4,"4",textStyle,130,140);
KEY(Key4,[POSN(130,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text5,"5",textStyle,130,140);
KEY(Key5,[POSN(240,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text6,"6",textStyle,130,140);
KEY(Key6,[POSN(350,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text7,"7",textStyle,130,200);
KEY(Key7,[POSN(130,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text8,"8",textStyle,130,200);
KEY(Key8,[POSN(240,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
TEXT(text9,"9",textStyle,130,200);
KEY(Key9,[POSN(350,80,SelBut);;],[POSN(0,400,SelBut);;],100,50,TOUCHC,130,80);
}
SHOW(pageName);
|