Sorry your browser is not supported!

function check_messages()
    repeat
        get event
        event_handle = event get handle()
        event_message = event get message()
        if event_handle = get main window()
            if event_message = WM_CLOSE
                end bbb gui
                end
            endif
            if event_message = WM_SIZING
                `lparam is global and is printed in the main loop for testing purposes
                lparam = event get lparam()
            endif
        endif
    until event_message = 0
endfunction

window get text publisheddocument_documentauthor$, e2

backdrop on
color backdrop rgb(128,0,0) 
sync on
sync rate 0

start bbb gui

`Set font and visibility for all windows
windows set font 7,"Arial",0,0,0,0
windows set visibility 1

Main_Window = get dbpro window()
set main window Main_Window

Main_Toolbar = make toolbar(0, TBSTYLE_FLAT||TBSTYLE_TOOLTIPS, Main_Window)
show window Main_Toolbar : maximize window Main_Toolbar

window set style Main_Window, window get style(Main_Window)||WS_CLIPCHILDREN||WS_CLIPSIBLINGS

imagelist set transparent color rgb(192,192,192)
ilist = make imagelist(16, "gfx\Toolbar.bmp", LR_CREATEDIBSECTION)
toolbar set imagelist Main_Toolbar, ilist

hot_ilist = make imagelist(16, "gfx\Toolbar hot.bmp", LR_CREATEDIBSECTION)
toolbar set hot imagelist Main_Toolbar, hot_ilist

`This toolbar will have button with images
for t = 0 to 7
    toolbar add button Main_Toolbar, BTNS_BUTTON, t, t 
next t

`Setting the tooltips for toolbar buttons
toolbar set button tooltip Main_Toolbar, 0, "New"
toolbar set button tooltip Main_Toolbar, 1, "Open"
toolbar set button tooltip Main_Toolbar, 2, "Save"
toolbar set button tooltip Main_Toolbar, 3, "Cut"
toolbar set button tooltip Main_Toolbar, 4, "Copy"
toolbar set button tooltip Main_Toolbar, 5, "Paste"
toolbar set button tooltip Main_Toolbar, 6, "Print"
toolbar set button tooltip Main_Toolbar, 7, "Help"

do

sync
loop

end bbb gui

#include <fstream>
#include <windows.h>
#include <iostream>
#include <stdio.h>
#include <string>
#include <UrlMon.h>

using namespace std;

// =====================================================================================
OPENFILENAME ofn;       // common dialog box structure
HWND hwnd;              // owner window
HANDLE hf;              // file handle
char szFile[260];       // buffer for file name and path [260]
char szName[260];	    // buffer for file name and ext only [260]
char file_name[260];    // return the file name / file to open
char file_filter[524];  // file filter string
// ===========================================================================================================
extern "C" __declspec( dllexport ) char* OPEN_FILE(char* START_IN_FOLDER,char* WINDOW_TITLE,char* FILTER_EXT);
// enternal functions ========================================================================================
char* OPEN_FILE(char* START_IN_FOLDER,char* WINDOW_TITLE,char* FILTER_EXT)
{

//strcpy_s (file_filter,254,"Microsoft Theme Files (*.msstyles)\0*.msstyles\0All Files (*.*)\0*.*\0");
//strcat_s (file_filter,254,FILTER_EXT);
//strcat_s (file_filter,254,"\0");
// Initialize OPENFILENAME
ZeroMemory(&ofn, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = hwnd;
ofn.lpstrFile = szFile;
ofn.lpstrFileTitle = szName;
// Set lpstrFile[0] to '\0' so that GetOpenFileName does not 
// use the contents of szFile to initialize itself
ofn.lpstrFilter = "Microsoft Theme Files (*.msstyles)\0*.msstyles\0All Files (*.*)\0*.*\0";
ofn.nFilterIndex = 1; // use 1 for the non custom filter or normal
ofn.lpstrFile[0] = '\0';
ofn.nMaxFile = sizeof(szFile);
ofn.lpstrFileTitle[0] = '\0';
ofn.nMaxFileTitle = sizeof(szName);
ofn.lpstrInitialDir = START_IN_FOLDER;
ofn.lpstrTitle = WINDOW_TITLE;
ofn.Flags = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;

// if the file exist and is a valid path then return the file name. 
	if (GetOpenFileName(&ofn)==TRUE) {
		strcpy_s (file_name,ofn.lpstrFile);
		return file_name;
	}
	// retun 0 if the user cancels / closes the window or anyother error occured
	return "0";
}

load dll "mydll.dll",1
DLL$=CALL DLL(1,"OPEN_FILE",main_dir$,"Select a theme","Microsoft Theme Files (*.msstyles)\0*.msstyles\0") : mb=make message box(DLL$,"Theme",MB_OK)

+chr$(13)+

  codemax = editbox get line count(e1)
  string$ = window get text(e1)
  X = 0
  repeat
   inc X, 1
   Y = 0
   repeat
    inc Y, 1
    v$ = left$(string$,Y)
    v$ = right$(v$,2)
   until Y = len(string$) or v$ = Chr$(13) + Chr$(10)
   if Y <> len(string$)
    codeline(X) = left$(string$,Y-2)
   else
    codeline(X) = left$(string$,Y)
   endif
   string$ = right$(string$,len(string$)-Y)
  until X = codemax

function linenumbers()

if len(str$(topline+1)) = 1 then digits$ = "0000" + str$(topline+1)
if len(str$(topline+1)) = 2 then digits$ = "000" + str$(topline+1)
if len(str$(topline+1)) = 3 then digits$ = "00" + str$(topline+1)
if len(str$(topline+1)) = 4 then digits$ = "0" + str$(topline+1)
if len(str$(topline+1)) = 5 then digits$ = "" + str$(topline+1)

digit1 = val(left$(digits$,1))
digits$ = right$(digits$,4)

digit2 = val(left$(digits$,1))
digits$ = right$(digits$,3)

digit3 = val(left$(digits$,1))
digits$ = right$(digits$,2)

digit4 = val(left$(digits$,1))
digits$ = right$(digits$,1)

digit5 = val(left$(digits$,1))

if digit1 <> 0
 linenumbers$ = str$(digit1) + str$(digit2) + str$(digit3) + str$(digit4) + str$(digit5)
else
 if digit2 <> 0
  linenumbers$ = str$(digit2) + str$(digit3) + str$(digit4) + str$(digit5)
 else
  if digit3 <> 0
   linenumbers$ = str$(digit3) + str$(digit4) + str$(digit5)
  else
   if digit4 <> 0
    linenumbers$ = str$(digit4) + str$(digit5)
   else
    if digit5 <> 0
     linenumbers$ = str$(digit5)
    else
     linenumbers$ = str$(0)
    endif
   endif
  endif
 endif
endif

X = 0

repeat
 inc X, 1
 inc digit5, 1
 if digit5 = 10
  inc digit4, 1
  digit5 = 0
 endif
 if digit4 = 10
  inc digit3, 1
  digit4 = 0
 endif
 if digit3 = 10
  inc digit2, 1
  digit3 = 0
 endif
 if digit2 = 10
  inc digit1, 1
  digit2 = 0
 endif
 if digit1 <> 0
  linenumbers$ = linenumbers$ + split() + str$(digit1) + str$(digit2) + str$(digit3) + str$(digit4) + str$(digit5)
 else
  if digit2 <> 0
   linenumbers$ = linenumbers$ + split() + str$(digit2) + str$(digit3) + str$(digit4) + str$(digit5)
  else
   if digit3 <> 0
    linenumbers$ = linenumbers$ + split() + str$(digit3) + str$(digit4) + str$(digit5)
   else
    if digit4 <> 0
     linenumbers$ = linenumbers$ + split() + str$(digit4) + str$(digit5)
    else
     if digit5 <> 0
      linenumbers$ = linenumbers$ + split() + str$(digit5)
     else
      linenumbers$ = linenumbers$ + split() + str$(0)
     endif
    endif
   endif
  endif
 endif
until X = 60

endfunction linenumbers$

set window on
if check display mode(1024, 768, 32)=1
 set window size 1024, 768
 set display mode 1024, 768, 32
else
 set window size 640, 480
 set display mode 640, 480, 32
endif

DIM codeline(1000) AS STRING
GLOBAL codemax AS INTEGER

GLOBAL xmax AS INTEGER
xmax = screen width()
GLOBAL ymax AS INTEGER
ymax = screen height()

sync on : sync rate 60
set window layout 3,1,1

GLOBAL topline AS INTEGER

GLOBAL digit1 AS INTEGER
GLOBAL digit2 AS INTEGER
GLOBAL digit3 AS INTEGER
GLOBAL digit4 AS INTEGER
GLOBAL digit5 AS INTEGER

GLOBAL e1
GLOBAL e2
GLOBAL e3

start bbb gui

windows set font 7,"Arial",0,0,0,0
windows set visibility 1

#include "constants.dba"

GLOBAL dbpro_w
dbpro_w=get dbpro window() : set main window dbpro_w

`dbpro_w2 = make window(desktop width(), desktop height(), "Test", dbpro_w)

w = make window(0,0,desktop width(),desktop height(),"Test",dbpro_w,WS_CHILD)

GLOBAL e1

e1=make editbox(70,0,desktop width()-70,desktop height()-200,ES_MULTILINE||WS_VSCROLL||WS_HSCROLL,w)
windows set font 10,"Arial",0,0,0,0
`e1=make editbox(0,0,desktop width(),desktop height()-200,ES_MULTILINE||WS_VSCROLL||WS_HSCROLL,w)
windows set font 7,"Arial",0,0,0,0
e2=make editbox(0,desktop height()-201,desktop width(),120,ES_MULTILINE||WS_VSCROLL||WS_HSCROLL||ES_READONLY,w)
windows set font 10,"Arial",0,0,0,0
e3=make editbox(0,0,70,desktop height()-200,ES_MULTILINE||ES_READONLY||ES_AUTOVSCROLL||ES_RIGHT,w) `||WS_VSCROLL||WS_HSCROLL

test$ = "Line Total: " + str$(editbox get first visible line(e1)) + split() + "Line Total: " + str$(editbox get line count(e1))
`X = 0
`repeat
` inc X, 1
` V$ = left$(test$,X)
` V$ = right$(V$,2)
` if V$ = split() then end
`until X = len(test$)

`window set text e2, get dir$()
window set text e2, "Line Top: " + str$(editbox get first visible line(e1)) + split() + "Line Total: " + str$(editbox get line count(e1)) + split() + ":" + editbox get line(2,e1) + split() + ":" + str$(editbox get first visible line(e1))
topline = editbox get first visible line(e1)
window set text e3, linenumbers()

maximize window

repeat
 close()
 menuselect =  menu get selected item id()
 if returnkey() = 1
  topline = editbox get first visible line(e1)
  if editbox get first visible line(e1) = topline
   window set text e3, linenumbers()
  endif
  window set text e2, "Line Top: " + str$(editbox get first visible line(e1)) + split() + "Line Total: " + str$(editbox get line count(e1)) + split() + ":" + editbox get line(2,e1) + split() + ":" + str$(editbox get first visible line(e1))
 endif
 if menuselect = 3 or menuselect = 4
  save()
 endif
until escapekey() = 1

end

function split()

 split$ = Chr$(13) + Chr$(10)

endfunction split$
function close()

repeat
 get event
 h=event get handle()
 m=event get message()
 if h=get main window()
  if m=WM_CLOSE
   end
   `a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
   `if a=IDYES then end bbb gui : end
  endif
 endif
until m=0

endfunction

Rem Project: Rebar
Rem Created: Sunday, December 27, 2009

Rem ***** Main Source File *****
if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 0


start bbb gui

windows set font 7,"Arial",0,0,0,0
windows set icon "Media\dbpro_icon.ico"
windows set visibility 1

w=get dbpro window() : set main window w


`This command makes a rebar
`Sintax: rebar_handle=MAKE REBAR(style, parent window)
hRebar=make rebar(RBS_AUTOSIZE||RBS_BANDBORDERS,w)

hCombo=make combobox(0,0,150,300,CBS_SIMPLE||CBS_DROPDOWN,hRebar)
`This command adds a directory and file list to a combobox
`Sintax: COMBOBOX ADD FILE LIST comboboxHandle, options, path
`NOTE: path can be relative or apsolute
`      if you want to add all files from a specified folder you should add * sign to the end of the path string

`This will add all files and folders from current working directory
combobox add file list hCombo,0,"*"

`This command adds our combobox to the rebar
`NOTE: every control that is added to a rebar is called a band
`Sintax: 1. REBAR INSERT BAND rebarHandle, controlHandle, style, band id
`        2. REBAR INSERT BAND rebarHandle, controlHandle, style, band id, band label
rebar add band hRebar,hCombo,0,0,"Combobox"

rebar set band background image hRebar, 0, "Media\RebarBandBackground.bmp"

`Let's create a toolbar
tbar1=make toolbar( 0, TBSTYLE_WRAPABLE||TBSTYLE_LIST||TBSTYLE_TRANSPARENT, w)
rebar add band hRebar,tbar1,0,1
rebar set band background image hRebar, 1, "Media\RebarBandBackground.bmp"

imagelist set transparent color rgb(192,192,192)
ilist=make imagelist(16,"Media\Toolbar.bmp",LR_DEFAULTCOLOR)
toolbar set imagelist tbar1,ilist

hot_ilist=make imagelist(16,"Media\Toolbar hot.bmp",LR_DEFAULTCOLOR)
toolbar set hot imagelist tbar1,hot_ilist

`This toolbar will have button with images
for t=0 to 7
    toolbar add button tbar1,BTNS_BUTTON,t,t,"File"
next t


hCheck=make checkbox(0,0,100,20,"Checkbox",hRebar)
rebar add band hRebar,hCheck,0,2,"Checkbox"

rebar set imagelist hRebar, ilist
`This command set an image that will be visible on the left side of a band
`NOTE: In order to use this command you have to set an imagelist for the rebar first
rebar set band image hRebar, 2, 2

rebar set band background image hRebar, 2, "Media\RebarBandBackground.bmp"


set window on
maximize window w
make object box 1,2,2,2
do


repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

window set style w, window get style(w)||WS_CLIPCHILDREN||WS_CLIPSIBLINGS