Under New Management
0 Members and 1 Guest are viewing this topic.
What is NEW in Aurel Basic RC2 build 0.8 ?--------------------------------------------------new controls are:wLISTBOXwSCROLLBARnew commands are:CONTROLNOTIFY ID eTab eEnterGETSELECTED ID itemposGETSCROLLPOSITION ID posSETSCROLLRANGE ID min maxnew ABasic helpfew bug fixeddownload from:http://aurelbasicsoft.ucoz.com/ABasic7F8.zipAll best...Aurel
' test draw with mousemoveDEFINT MainMenuDEFINT menu_1 menu_2DEFINT menu_3DEFSTR wincap DEFSTR filename DEFSTR load_title save_titleDEFSTR f$ sfilterDEFNUM img xpos yposDEFNUM mx my mode holdDEFNUM rr gg bbLET f$ = "Image files (*.bmp *.jpg *.gif)|*.bmp;*.jpg;*.gif|All Files (*.*)|*.*||"LET sfilter = "Bitmap Files (*.bmp)|*.bmp||"LET load_title = "Load File As -> *bmp,*gif,*jpg"LET save_title = "Save File As -> *bmp"LET wincap = "Draw & Fill"'open windowWIN 0 0 800 600 # wincaphold=0'create menuCreateMenu MainMenu'create menu IDCreatePopupMenu menu_1CreatePopupMenu menu_2CreatePopupMenu menu_3'add menu 1 -------------------AddMenu MainMenu 0 menu_1 Select-Color'add menu itemsAddMenuItem menu_1 1 BlackAddMenuItem menu_1 2 GrayAddMenuItem menu_1 3 BlueAddMenuItem menu_1 4 LightBlueAddMenuItem menu_1 5 GreenAddMenuItem menu_1 6 LightGreenAddMenuItem menu_1 7 RedAddMenuItem menu_1 8 OrangeAddMenuItem menu_1 9 YellowAddMenuItem menu_1 10 BrownAddMenuItem menu_1 11 GoldAddMenuItem menu_1 12 PurpleAddMenuItem menu_1 13 SkinWheatAddMenuItem menu_1 14 White'add menu 2 ----------------------------AddMenu MainMenu 1 menu_2 OptionsAddMenuItem menu_2 15 DrawCircleAddMenuItem menu_2 16 DrawRectangleAddMenuItem menu_2 17 DrawLine'add menu 3 ----------------------------AddMenu MainMenu 2 menu_3 Load.SaveAddMenuItem menu_3 20 LoadImg/bmp|gif|jpg/AddMenuItem menu_3 21 SaveImg/bmp/'show menuSetMenu MainMenuWAIT'----------------------------------SUBMOUSEMOVEGetMouseX mxGetMouseY myIF mx < 1 THEN GOSUB t_offIF mx > 798 THEN GOSUB t_offIF my < 1 THEN GOSUB t_offIF my > 568 THEN GOSUB t_offENDSUB'----------------------------------SUBMBLEFTDOWNIF mode = 0SETPOS mx myTimerON 20ENDIFIF mode = 2TimerOn 20ENDIFIF mode = 3TimerOn 20ENDIFENDSUB '--------------------------------SUBMBLEFTUPTimerOFFENDSUB'-------------------------------SUBMBRIGHTDOWNmode=1SETPOS mx myTimerOn 20ENDSUB'---------------------------SUBMBRIGHTUPTimerOFFmode=0ENDSUB'timer events/////////////////////////////////////////////SUBTIMERIF mode = 1 THEN FILLCOLOR mx my RGB rr gg bb IF mode = 0 THEN LineTo mx myIF mode = 2 THEN Circle mx my 8IF mode = 3 THEN RECT mx my 16 16 ENDSUBSUB t_off TimerOFFRETURN 'menu events//////////////////////////////////////////////'blackSUBMENUID 1rr=0gg=0bb=0FrontColor rr gg bbENDSUB 'graySUBMENUID 2rr=160gg=160bb=160FrontColor rr gg bbENDSUB'blueSUBMENUID 3rr=0gg=0bb=200FrontColor rr gg bbENDSUB'lightblue-135-206-250SUBMENUID 4rr=135gg=206bb=250FrontColor rr gg bbENDSUB'greenSUBMENUID 5rr=0gg=140bb=0FrontColor rr gg bbENDSUB'lightgreen-60-179-113SUBMENUID 6rr=60gg=179bb=113FrontColor rr gg bbENDSUB'red-255-99-71SUBMENUID 7rr=255gg=99bb=51FrontColor rr gg bbENDSUB'orange-255-165-0SUBMENUID 8rr=255gg=165bb=0FrontColor rr gg bbENDSUB'yellow-250-250-0SUBMENUID 9rr=248gg=248bb=0FrontColor rr gg bbENDSUB'brown-210-105-30SUBMENUID 10rr=210gg=105bb=30FrontColor rr gg bbENDSUB'gold-255-215-0SUBMENUID 11rr=255gg=215bb=0FrontColor rr gg bbENDSUB'purple-147-112-219SUBMENUID 12rr=147gg=112bb=219FrontColor rr gg bbENDSUB'wheat-245-222-179SUBMENUID 13rr=245gg=222bb=179FrontColor rr gg bbENDSUB'whiteSUBMENUID 14rr=255gg=255bb=255FrontColor rr gg bbENDSUB'options'draw circle-mode2SUBMENUID 15mode=2FrontColor rr gg bbENDSUBSUBMENUID 16mode=3FrontColor rr gg bbENDSUBSUBMENUID 17mode=0FrontColor rr gg bbENDSUBSUBMENUID 20MOUSEMOVE 0FILEDIALOG filename load_title 1 f$ ""IF filename ! ""LoadImage img <BITMAP> filenameShowImage img <BITMAP> xpos ypos ENDIFMOUSEMOVE 1ENDSUBSUBMENUID 21MOUSEMOVE 0FILEDIALOG filename save_title 0 sfilter "bmp"IF filename ! ""SaveBitmap 0 0 800 600 filenameENDIFMOUSEMOVE 1ENDSUB
'browserDEFSTR url$LET url$ = "http://aurelbasic.horizon-host.com/home.htm"'open windowWIN 0 0 800 600 WS_CAPTION "Test Browser"MainColor 220 220 226MAINFONT 18 700 0 "Verdana"FRONTCOLOR 0 0 180PRINT 50 5 "Browser Control"'create browser windowwControl wBrowser 0 32 794 536 BORDER url$WAIT
To link to us use this code/button on your site
<a href="http://www.codingmonkeys.com/"><img src="http://www.codingmonkeys.com/images/cm_link.gif" border="0"alt="http://www.codingmonkeys.com/images/cm_link.gif"></a>
