Sorry your browser is not supported!

DLLCMDC int CookSpeghetti(char* szTitle,char* szMessage,int Type)
{
   return MessageBoxA(NULL,szMessage,szTitle,Type);
}

132  "GUI_MESSAGEBOX[%LSSL%CookSpeghetti"

STARTWIN32
PRINT GUI_MESSAGEBOX("Abort/retry/ignore","Click a button and see the return value",2)
wait key

STARTWIN32
PRINT GUI_MESSAGEBOX("OK/Cancel","Click a button and see the return value",1)
wait key

STARTWIN32
if GUI_MESSAGEBOX(0,"Yes/No/Cancel","If you press the yes button, something great will happen!"MB_YESNOCANCEL())=IDYES()
   execute file "http://www.cheese.com","",""
endif
WAIT KEY

MB_ABORTRETRYIGNORE()
MB_OK()
MB_OKCANCEL()
MB_RETRYCANCEL()
MB_YESNO()
MB_YESNOCANCEL()
MB_ICONWARNING()
MB_ICONINFORMATION()
MB_ICONQUESTION()
MB_ICONERROR()

IDABORT()
IDCANCEL()
IDNO()
IDIGNORE()
IDOK()
IDRETRY()
IDYES()

DLLCMDC int CookSpeghetti(HWND parent,char* szTitle,char* szMessage,int Type)
{
   return MessageBoxA(parent,szMessage,szTitle,Type);
}

DLLCMDC int MB_ARI(void)
{
    return MB_ABORTRETRYIGNORE;   
}

DLLCMDC int MB_O(void)
{
    return MB_OK;
}

DLLCMDC int MB_OC(void)
{
    return MB_OKCANCEL;
}

DLLCMDC int MB_RC(void)
{
    return MB_RETRYCANCEL;
}

DLLCMDC int MB_YN(void)
{
    return MB_YESNO;
}

DLLCMDC int MB_YNC(void)
{
    return MB_YESNOCANCEL;
}

DLLCMDC int MB_ICONW(void)
{
    return MB_ICONWARNING;
}

DLLCMDC int MB_ICONI(void)
{
    return MB_ICONINFORMATION;
}

DLLCMDC int MB_ICONQ(void)
{
    return MB_ICONQUESTION;
}

DLLCMDC int MB_ICONE(void)
{
    return MB_ICONERROR;
}

DLLCMDC int IDA(void)
{
    return IDABORT;
}

DLLCMDC int IDC(void)
{
    return IDCANCEL;
}

DLLCMDC int IDN(void)
{
    return IDNO;
}

DLLCMDC int IDI(void)
{
    return IDIGNORE;
}

DLLCMDC int IDO(void)
{
    return IDOK;
}

DLLCMDC int IDR(void)
{
    return IDRETRY;
}

DLLCMDC int IDY(void)
{
    return IDYES;
}

132  "GUI_MESSAGEBOX[%LLSSL%CookSpeghetti"
   133  "MB_ABORTRETRYIGNORE[%0%MB_ARI"
   134  "MB_OK[%0%MB_O"
   135  "MB_OKCANCEL[%0%MB_OC"
   136  "MB_RETRYCANCEL[%0%MB_RC"
   137  "MB_YESNO[%0%MB_YN"
   138  "MB_YESNOCANCEL[%0%MB_YNC"
   139  "MB_ICONWARNING[%0%MB_ICONW"
   140  "MB_ICONINFORMATION[%0%MB_ICONI"
   141  "MB_ICONQUESTION[%0%MB_ICONQ"
   142  "MB_ICONERROR[%0%MB_ICONE"
   143  "IDABORT[%0%IDA"
   144  "IDCANCEL[%0%IDC"
   145  "IDNO[%0%IDN"
   146  "IDIGNORE[%0%IDI"
   147  "IDOK[%0%IDO"
   148  "IDRETRY[%0%IDR"
   149  "IDYES[%0%IDY"

startWin32
do
loop

DIM gui$(10)
LOAD ARRAY "gui_teksty.txt", gui$(0)

DIM gui_setup(4)
LOAD ARRAY "gui_setup.txt",gui_setup(0)

remstart

`TEKSTY
title$               ="Dino Kids Ustawienia"
wydajnosc_label$     ="            Wydajność sprzętowa"
efekty_label$        ="                 Efekty graficzne"
efekty_off$          ="        wył"
efekty_on$           ="wł"
efekty_cien$         ="   Cień"
efekty_particle$     ="   Duszki"
kolory_label$        ="                 Głębia kolorów"
poziomy_label$       ="                Poziom trudności"
poziomy_podpis$      =" niski              średni            wysoki"
button_label$        ="  Zapisz Ustawienia  "

gui$(0) =title$
gui$(1) =wydajnosc_label$
gui$(2) =efekty_label$
gui$(3) =efekty_off$
gui$(4) =efekty_on$
gui$(5) =efekty_cien$
gui$(6) =efekty_particle$
gui$(7) =kolory_label$
gui$(8) =poziomy_label$
gui$(9) =poziomy_podpis$
gui$(10)=button_label$

SAVE ARRAY "gui_teksty.txt", gui$(0)

remend

`..................................................OKIENKO.....................................................

startWin32

hWnd=gui_makeWindow(277,440,gui$(0),dbpHwnd())
`ikona=DBPHICON()
ikona=DESKTOPHWND()

gui_disableWindow hWnd
gui_positionWindow hWnd,50,100
gui_enableWindow hWnd

GUI_SETWINDOWFONT hWnd,25,"verdana",0,0,0,0
GUI_SETWINDOWCOLOR hWnd,236,233,216

`WYDAJNOŚĆ
wydajnosc = gui_makeGroupbox("",10,10,250,73,hWnd)
listewka = gui_makeLabel("",1,10,247,5,wydajnosc)
naglowek = gui_makeLabel(gui$(1),1,15,247,20,wydajnosc)
listewka = gui_makeLabel("",1,30,19,20,wydajnosc)

synchronizacja = gui_makeTrackbar(20,30,200,20,0,3,wydajnosc)

listewka = gui_makeLabel("",220,30,27,20,wydajnosc)
listewka = gui_makeLabel("",1,50,9,20,wydajnosc)
podpis = gui_makeLabel("    1             2             3             4",10,50,220,20,wydajnosc)
listewka = gui_makeLabel("",220,50,27,20,wydajnosc)

`EFEKTY GRAFICZNE
cienie = gui_makeGroupbox("",10,85,250,103,hWnd)
listewka = gui_makeLabel("",1,10,247,5,cienie)
naglowek = gui_makeLabel(gui$(2),1,15,247,20,cienie)
listewka = gui_makeLabel("",1,35,247,5,cienie)
zero = gui_makeLabel(gui$(3),1,40,60,20,cienie)
cien = gui_makeTrackbar(61,40,60,20,0,1,cienie)
jeden = gui_makeLabel(gui$(4),121,40,20,20,cienie)
nazwa = gui_makeLabel(gui$(5),141,40,107,20,cienie)

listewka = gui_makeLabel("",1,60,247,10,cienie)

zero = gui_makeLabel(gui$(3),1,70,60,20,cienie)
particle = gui_makeTrackbar(61,70,60,20,0,1,cienie)
jeden = gui_makeLabel(gui$(4),121,70,20,20,cienie)
nazwa = gui_makeLabel(gui$(6),141,70,107,20,cienie)
listewka = gui_makeLabel("",1,90,247,10,cienie)

`KOLORY
kolory = gui_makeGroupbox("",10,190,250,73,hWnd)
listewka = gui_makeLabel("",1,10,247,5,kolory)
naglowek = gui_makeLabel(gui$(7),1,15,247,20,kolory)
listewka = gui_makeLabel("",1,35,247,5,kolory)
zero = gui_makeLabel("            16 bit ",1,40,89,20,kolory)
kolor = gui_makeTrackbar(90,40,60,20,0,1,kolory)
jeden = gui_makeLabel(" 32 bit",150,40,98,20,kolory)
listewka = gui_makeLabel("",1,60,247,10,kolory)

`POZIOMY TRUDNOŚCI

poziomy = gui_makeGroupbox("",10,265,250,73,hWnd)
listewka = gui_makeLabel("",1,10,247,5,poziomy)
naglowek = gui_makeLabel(gui$(8),1,15,247,20,poziomy)
listewka = gui_makeLabel("",1,30,19,20,poziomy)
poziom = gui_makeTrackbar(20,30,200,20,0,2,poziomy)
listewka = gui_makeLabel("",220,30,28,20,poziomy)
listewka = gui_makeLabel("",1,50,9,20,poziomy)
podpis = gui_makeLabel(gui$(9),10,50,238,20,poziomy)


zapisz = gui_makeButton(gui$(10),55,360,150,25,hWnd)


`USTAWIANIE
gui_setTrackbarPosition synchronizacja, gui_setup(0)-1
gui_setTrackbarPosition cien, gui_setup(1)
gui_setTrackbarPosition particle, gui_setup(2)
gui_setTrackbarPosition kolor, gui_setup(3)
gui_setTrackbarPosition poziom, gui_setup(4)-1

numer_okna_temp=GUI_GETACTIVEWINDOW()


sync on
do

GUI_RESIZEWINDOW hWnd,277,440

`WYNIKI
gui_setup(0)=gui_getTrackbarPosition(synchronizacja)+1
gui_setup(1)          =gui_getTrackbarPosition(cien)
gui_setup(2)      =gui_getTrackbarPosition(particle)
gui_setup(3)        =gui_getTrackbarPosition(kolor)
gui_setup(4)        =gui_getTrackbarPosition(poziom)+1

if gui_setup(3)=1
   wyn_kolory=32
else
   wyn_kolory=16
endif


text 10,10, "synchronizacja: "+str$(gui_setup(0))
text 10,30, "          cien: "+str$(gui_setup(1))
text 10,50, "        duszki: "+str$(gui_setup(2))
text 10,70, "        kolory: "+str$(wyn_kolory)
text 10,90, "        poziom: "+str$(gui_setup(4))
text 10,120, "okno: "+str$(GUI_GETACTIVEWINDOW())

text 10,150, "FPS: "+str$(SCREEN FPS())



if GUI_GETWINDOWWIDTH(GUI_GETFOCUSWINDOW()) = 150 :` ZAPISANIE USTAWIEN
   GUI_HideWINDOW hWnd
   SAVE ARRAY "gui_setup.txt", gui_setup(0)
   exit
endif

numer_okna=GUI_GETACTIVEWINDOW()

if numer_okna_temp<>GUI_GETACTIVEWINDOW()
   GUI_HideWINDOW hWnd
   SAVE ARRAY "gui_setup.txt", gui_setup(0)
   exit
endif

   sync
   cls
loop

REM Project: __0_WinGUI_Menubar_Test
REM Created: 3/13/2007 8:28:17 PM
REM
REM ***** Main Source File *****
REM
startWin32

hMenu=gui_createMenu()
hFile=gui_createSubMenu(hMenu,"File")
`hFileNew=gui_createSubMenu(hFile,"New")
`hFileNewProject=gui_createSubMenu(hFileNew,"Project...")
`hFileNewFile=gui_createSubMenu(hFileNew,"File...")
`hFileOpen=gui_createSubMenu(hFile,"Open")
`hFileSave=gui_createSubMenu(hFile,"Save")
`hFileExit=gui_createSubMenu(hFile,"Exit")
hFileNew=gui_createSubMenu(hFile, "New")
gui_addSubMenuItem hFileNew, "Project", 4
gui_addSubMenuItem hFileNew, "File", 5
gui_addSubMenuItem hFile, "Open", 1

gui_addSubMenuItem hFile, "Save", 2
gui_checksubmenuitem hFile,2,1
gui_addSubMenuItem hFile, "Exit", 3

gui_applyMenu dbpHwnd(),hMenu

wait key
gui_checksubmenuitem hFile,2,0
wait key
gui_messagebox

// Aaron's Extra Command Implementation. Date: 6-09-07, Reference ID: 100000A
DLLCMDC void gui_drawLine(HWND hWnd, int x, int y, int x2, int y2)
{
   HDC hDC = GetDC(hWnd);
   MoveToEx(hDC, x, y, (LPPOINT)NULL);
   LineTo(hDC, x2, y2);
}

// Aaron's Extra Command Implementation. Date: 6-09-07, Reference ID: 100000B
DLLCMDC void gui_drawRect(HWND hWnd, int x, int y, int x2, int y2)
{
   RECT rect;
   rect.left=x; rect.top=y; rect.right=x2; rect.bottom=y2;
   HDC hDC = GetDC(hWnd);
   FillRect(hDC, &rect, (HBRUSH)CreateSolidBrush(0x00000000));
}

// Aaron's Extra Command Implementation. Date: 6-09-07, Reference ID: 100000B
DLLCMDC void gui_drawRectEx(HWND hWnd, int x, int y, int x2, int y2, DWORD col)
{
   RECT rect;
   rect.left=x; rect.top=y; rect.right=x2; rect.bottom=y2;
   HDC hDC = GetDC(hWnd);
   // DWORD col2 = RGB(dbRgbr(col),dbRgbg(col),dbRgbb(col)); // <- Add correct coloring later
   FillRect(hDC, &rect, (HBRUSH)CreateSolidBrush(col));
}

   150  "GUI_DRAWLINE%LLLLL%gui_drawLine"
   151  "GUI_DRAWRECT%LLLLL%gui_drawRect"
   152  "GUI_DRAWRECT%LLLLLD%gui_drawRectEx"

remstart
Remember to set this into windowed mode in the project options.
remend
REM Project: 0_win32_test_1
REM Created: 1/12/2007 12:42:45 AM
REM
REM ***** Main Source File *****
REM
startWin32

hWnd=gui_makeWindow(640,480,"My Window",dbpHwnd())

print "Old X: "+str$(gui_getWindowX(hWnd))
print "Old Y: "+str$(gui_getWindowY(hWnd))
print "Old Width: "+str$(gui_getWindowWidth(hWnd))
print "Old Height: "+str$(gui_getWindowHeight(hWnd))
`print "Old Enabled: "+str$(gui_windowEnabled(hWnd))
`print "Old Text: "+gui_getWindowText(hWnd)
gui_disableWindow hWnd
gui_positionWindow hWnd,2,2
gui_resizeWindow hWnd,800,600
gui_hideWindow hWnd
gui_showWindow hWnd
gui_setWindowText hWnd,"Window's New Text"
print "New X: "+str$(gui_getWindowX(hWnd))
print "New Y: "+str$(gui_getWindowY(hWnd))
print "New Width: "+str$(gui_getWindowWidth(hWnd))
print "New Height: "+str$(gui_getWindowHeight(hWnd))
`print "New Enabled: "+str$(gui_windowEnabled(hWnd))
print "Focus Window: "+str$(gui_getFocusWindow())
gui_enableWindow hWnd
print "Press any key to continue..."
`suspend for key
cls
`sync on
hGroup = gui_makeGroupbox("My Groupbox",0,100,250,300,hWnd)
hButton = gui_makeButton("OK",5,22,75,25,hGroup)
hCheck = gui_makeCheckbox("My checkbox",5,50,200,25,hGroup)
hRadio = gui_makeRadiobox("My radiobox",5,80,200,25,hGroup)
hCBox = gui_makeCombobox(5,110,200,100,0,hGroup)
hLabel = gui_makeLabel("Play around with the various controls.",2,2,320,20,hWnd)
hTrackbar = gui_makeTrackbar(2,30,320,40,0,100,hWnd)
hRed = gui_makeTrackbar(330,2,360,40,0,127,hWnd)
hGrn = gui_makeTrackbar(330,44,360,40,0,127,hWnd)
hBlu = gui_makeTrackbar(330,88,360,40,0,127,hWnd)
gui_setTrackbarMinSize hTrackbar, 0
gui_setTrackbarMaxSize hTrackbar, 100+rnd(50)
gui_setTrackbarPosition hTrackbar, 70
gui_setTrackbarPosition hTrackbar, gui_getTrackbarMaxSize(hTrackbar)-50
maxVal = 4 + rnd(20)
for i=1 to maxVal
   gui_insertString hCBox, "String "+str$(gui_GetItemCOunt(hCBox)+1), -1
next i
gui_clearItemData hCBox
myVal=myVal+7
for i=1 to maxVal
   gui_insertString hCBox, "String "+str$(gui_GetItemCOunt(hCBox)+1), -1
next i

hEdit = gui_makeEditBox(330,200,360,120,1,editNormal(),hWnd)

`NOTICE: Using more low-level functions, you can make higher level functions, such as the gui_removeString function
`We can now remove a string from the combobox, from a low-level perspective
gui_sendEvent hCBox,324,gui_getItemCount(hCBox)-1,0
`The first parameter is the handle to the item
`324 is the message, the message is the "Delete Item" message for a combobox.
`The parameter right after (The WPARAM) is the index of the item. Starting from zero.
`The final parameter is meant to be left empty. Do not change this value

do
   gui_getEvent
   cls rgb(gui_getTrackbarPosition(hRed)*2,gui_getTrackbarPosition(hGrn)*2,gui_getTrackbarPosition(hBlu)*2)
   print "hButton: "+str$(gui_buttonPressed(hButton))
   print "hCheck: "+str$(gui_boxChecked(hCheck))
   print "hRadio: "+str$(gui_boxChecked(hRadio))
   print "Current Item: "+str$(gui_getCurrentItem(hCBox))
   print "Found Index: "+str$(gui_findString(hCBox,"String 4"))
   print "Min Size: "+str$(gui_getTrackbarMinSize(hTrackbar))
   print "Max Size: "+str$(gui_getTrackbarMaxSize(hTrackbar))
   print "Position: "+str$(gui_getTrackbarPosition(hTrackbar))
   print "---------------------------------------------------------------"
   print "Event Hwnd: "+str$(gui_getEventHwnd())
   print "Event Msg: "+str$(gui_getEventMessage())
   print "Event wParam: "+str$(gui_getEventWParam())
   print "Event lParam: "+str$(gui_getEventLParam())
   gui_clearEvent
   gui_getwindowtext hEdit,temp$,4
   print temp$
   loop

remstart
Remember to set this into windowed mode in the project options.
remend
REM Project: 0_win32_test_1
REM Created: 1/12/2007 12:42:45 AM
REM
REM ***** Main Source File *****
REM
startWin32

hWnd=gui_makeWindow(640,480,"My Window",dbpHwnd())

print "Old X: "+str$(gui_getWindowX(hWnd))
print "Old Y: "+str$(gui_getWindowY(hWnd))
print "Old Width: "+str$(gui_getWindowWidth(hWnd))
print "Old Height: "+str$(gui_getWindowHeight(hWnd))
`print "Old Enabled: "+str$(gui_windowEnabled(hWnd))
`print "Old Text: "+gui_getWindowText(hWnd)
gui_disableWindow hWnd
gui_positionWindow hWnd,2,2
gui_resizeWindow hWnd,800,600
gui_hideWindow hWnd
gui_showWindow hWnd
gui_setWindowText hWnd,"Window's New Text"
print "New X: "+str$(gui_getWindowX(hWnd))
print "New Y: "+str$(gui_getWindowY(hWnd))
print "New Width: "+str$(gui_getWindowWidth(hWnd))
print "New Height: "+str$(gui_getWindowHeight(hWnd))
`print "New Enabled: "+str$(gui_windowEnabled(hWnd))
print "Focus Window: "+str$(gui_getFocusWindow())
gui_enableWindow hWnd
print "Press any key to continue..."
`suspend for key
cls
`sync on
hGroup = gui_makeGroupbox("My Groupbox",0,100,250,300,hWnd)
hButton = gui_makeButton("OK",5,22,75,25,hGroup)
hCheck = gui_makeCheckbox("My checkbox",5,50,200,25,hGroup)
hRadio = gui_makeRadiobox("My radiobox",5,80,200,25,hGroup)
hCBox = gui_makeCombobox(5,110,200,100,0,hGroup)
hLabel = gui_makeLabel("Play around with the various controls.",2,2,320,20,hWnd)
hTrackbar = gui_makeTrackbar(2,30,320,40,0,100,hWnd)
hRed = gui_makeTrackbar(330,2,360,40,0,127,hWnd)
hGrn = gui_makeTrackbar(330,44,360,40,0,127,hWnd)
hBlu = gui_makeTrackbar(330,88,360,40,0,127,hWnd)
gui_setTrackbarMinSize hTrackbar, 0
gui_setTrackbarMaxSize hTrackbar, 100+rnd(50)
gui_setTrackbarPosition hTrackbar, 70
gui_setTrackbarPosition hTrackbar, gui_getTrackbarMaxSize(hTrackbar)-50
maxVal = 4 + rnd(20)
for i=1 to maxVal
   gui_insertString hCBox, "String "+str$(gui_GetItemCOunt(hCBox)+1), -1
next i
gui_clearItemData hCBox
myVal=myVal+7
for i=1 to maxVal
   gui_insertString hCBox, "String "+str$(gui_GetItemCOunt(hCBox)+1), -1
next i

hEdit = gui_makeEditBox(330,200,360,120,1,editNormal(),hWnd)

`NOTICE: Using more low-level functions, you can make higher level functions, such as the gui_removeString function
`We can now remove a string from the combobox, from a low-level perspective
gui_sendEvent hCBox,324,gui_getItemCount(hCBox)-1,0
`The first parameter is the handle to the item
`324 is the message, the message is the "Delete Item" message for a combobox.
`The parameter right after (The WPARAM) is the index of the item. Starting from zero.
`The final parameter is meant to be left empty. Do not change this value

do
   gui_getEvent
   cls rgb(gui_getTrackbarPosition(hRed)*2,gui_getTrackbarPosition(hGrn)*2,gui_getTrackbarPosition(hBlu)*2)
   print "hButton: "+str$(gui_buttonPressed(hButton))
   print "hCheck: "+str$(gui_boxChecked(hCheck))
   print "hRadio: "+str$(gui_boxChecked(hRadio))
   print "Current Item: "+str$(gui_getCurrentItem(hCBox))
   print "Found Index: "+str$(gui_findString(hCBox,"String 4"))
   print "Min Size: "+str$(gui_getTrackbarMinSize(hTrackbar))
   print "Max Size: "+str$(gui_getTrackbarMaxSize(hTrackbar))
   print "Position: "+str$(gui_getTrackbarPosition(hTrackbar))
   print "---------------------------------------------------------------"
   print "Event Hwnd: "+str$(gui_getEventHwnd())
   print "Event Msg: "+str$(gui_getEventMessage())
   print "Event wParam: "+str$(gui_getEventWParam())
   print "Event lParam: "+str$(gui_getEventLParam())
   gui_clearEvent
   temp$=space$(256)
   gui_getwindowtext hEdit,temp$,4
   print temp$
   loop