Sorry your browser is not supported!

That black out happens when the dbpro window doesn't have the WS_CLIPCHILDREN style applied. Maybe it's getting removed somehow?

[b]

Back to top

Profile PM Email Website

A r e n a s

15

Years of Service

User Offline

Joined: 9th Jun 2008

Location:

Posted: 3rd Mar 2011 19:07 Edited at: 3rd Mar 2011 19:30

I remember editing the code to try to solve a problem a while ago, and i definitely remember removing this line in the debugging process. Thanks for the help

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 4th Mar 2011 17:53 Edited at: 4th Mar 2011 17:54

Whenever you have time Brendy boy, a new command you might want to add this is plugin is...

Window Get Keystate(Window)

Or

Windows Get Keystate()

Since DBPro's keystate commands don't work in the BBB GUI created windows, I thought this will be a nice command to add. Since it will also help with editboxes to find out when the user presses enter.

Also, I'll just show you some code what keystates don't work with the new windows.

Start BBB GUI

Sync On
Sync Rate 60
Sync


Window = Make Window(640,480,"Title",0)
Label = Make Label(40,40,150,20,"Keystate = ",Window)


Do

If Escapekey()=1 Then End BBB GUI
Window Set Text Label,"Keystate = " + Str$(Scancode())


Sync
Loop

Back to top

Profile PM

A r e n a s

15

Years of Service

User Offline

Joined: 9th Jun 2008

Location:

Posted: 4th Mar 2011 20:02 Edited at: 5th Mar 2011 20:33

What i think would be useful is a way of selecting text through the computer so a piece of text can be highlighted and effectively this can lead to syntax highlighting (in conjunction with rich edit boxes).

Also, is it possible to rename a tab? It would save so much time if this was possible, i dont want to delete and remake, purely rename, thanks

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 7th Mar 2011 23:29 Edited at: 8th Mar 2011 22:24

@ A r e n a s

Quote: "Also, is it possible to rename a tab? It would save so much time if this was possible, i dont want to delete and remake, purely rename, thanks "

I don't think there is a command yet for renaming tab titles.

since the "window set text" won't work on a tab item index. So deleting tab is the only way you can do it for now until that command is added.

@ Brendy boy

Quote: "There are available commands to determine if a mouse is being clicked inside a control, such as: GET CLICKED STATIC(), STATIC GET STATE(static) etc.."

Isn't that for static images? Since I have been testing this, and it does not return anything on other controls.

If Get Clicked Static() = 1 Then End

If it is supposed to work on everything, how would you use it then?

[Edit]

I have some more bug reports.

1. Just a small thing, but on your keywords file for your next update there some command that are repeated.

MAKE UPDOWN CONTROL=main.htm=(Position x, position y, label width, editbox width, title, parent)
UPDOWN GET VALUE=main.htm=(updown control)
UPDOWN SET VALUE=main.htm=Updown control, value
UPDOWN CLICKED=main.htm=(*No parameters*)
GET CLICKED UPDOWN=main.htm=(*No parameters*)
UPDOWN SET STEP SIZE=main.htm=Updown, step size  
UPDOWN GET STEP SIZE=main.htm=(Updown)
UPDOWN GET EDITBOX HANDLE=main.htm=(Updown)
UPDOWN GET LABEL HANDLE=main.htm=(Updown)
UPDOWN SET STEP SIZE=main.htm=Updown, step size	<=====
UPDOWN GET STEP SIZE=main.htm=(Updown)	<=====
UPDOWN GET EDITBOX HANDLE=main.htm=(Updown)	<=====
UPDOWN GET LABEL HANDLE=main.htm=(Updown)	<=====

.....

MAKE TAB CONTROL=main.htm=(Position x, position y, width, height, style, parent)
TAB INSERT ITEM=main.htm=[TabBar, title, index][TabBar, title, index, window][TabBar, title, index, image number, parameter(0 or 1)]
TAB SET ITEM PADDING=main.htm=TabBar, padding x, padding y
TAB SET ITEM SIZE=main.htm=TabBar, size x, size y
TAB SET ITEM WINDOW=main.htm=TabBar, item index, window
TAB GET ITEM COUNT=main.htm=(TabBar)
TAB SELECTION CHANGED=main.htm=(TabBar)
TAB GET SELECTED ITEM=main.htm=(TabBar)
TAB SET SELECTED ITEM=main.htm=TabBar, index
TAB SELECTION CHANGED=main.htm=(TabBar) <=====
TAB SET IMAGELIST=main.htm=TabBar, image_list 
TAB DELETE ITEM=main.htm=TabBar, item index

.....

GET EVENT=main.htm=(*No parameters*)
EVENT GET HANDLE=main.htm=(*No parameters*)
EVENT GET MESSAGE=main.htm=(*No parameters*)
EVENT GET LPARAM=main.htm=(*No parameters*)
EVENT GET WPARAM=main.htm=(*No parameters*)
CLEAR EVENT=main.htm=(*No parameters*)
SEND EVENT=main.htm=[Window, message, wParam, lParam] [(Window, message, wParam, lParam)]

Later on...

GET EVENT=main.htm=No parameters
EVENT GET HANDLE=main.htm=(*No parameters*)
EVENT GET MESSAGE=main.htm=(*No parameters*)
EVENT GET WPARAM=main.htm=(*No parameters*)
EVENT GET LPARAM=main.htm=(*No parameters*)
CLEAR EVENT=main.htm=(*No parameters*)

MAKE UPDOWN CONTROL=main.htm=(Position x, position y, label width, editbox width, title, parent)
UPDOWN GET VALUE=main.htm=(updown control)
UPDOWN SET VALUE=main.htm=Updown control, value
UPDOWN CLICKED=main.htm=(*No parameters*)
GET CLICKED UPDOWN=main.htm=(*No parameters*)
UPDOWN SET STEP SIZE=main.htm=Updown, step size  
UPDOWN GET STEP SIZE=main.htm=(Updown)
UPDOWN GET EDITBOX HANDLE=main.htm=(Updown)
UPDOWN GET LABEL HANDLE=main.htm=(Updown)
UPDOWN SET STEP SIZE=main.htm=Updown, step size	<=====
UPDOWN GET STEP SIZE=main.htm=(Updown)	<=====
UPDOWN GET EDITBOX HANDLE=main.htm=(Updown)	<=====
UPDOWN GET LABEL HANDLE=main.htm=(Updown)	<=====

.....

MAKE TAB CONTROL=main.htm=(Position x, position y, width, height, style, parent)
TAB INSERT ITEM=main.htm=[TabBar, title, index][TabBar, title, index, window][TabBar, title, index, image number, parameter(0 or 1)]
TAB SET ITEM PADDING=main.htm=TabBar, padding x, padding y
TAB SET ITEM SIZE=main.htm=TabBar, size x, size y
TAB SET ITEM WINDOW=main.htm=TabBar, item index, window
TAB GET ITEM COUNT=main.htm=(TabBar)
TAB SELECTION CHANGED=main.htm=(TabBar)
TAB GET SELECTED ITEM=main.htm=(TabBar)
TAB SET SELECTED ITEM=main.htm=TabBar, index
TAB SELECTION CHANGED=main.htm=(TabBar) <=====
TAB SET IMAGELIST=main.htm=TabBar, image_list 
TAB DELETE ITEM=main.htm=TabBar, item index

.....


GET EVENT=main.htm=(*No parameters*)
EVENT GET HANDLE=main.htm=(*No parameters*)
EVENT GET MESSAGE=main.htm=(*No parameters*)
EVENT GET LPARAM=main.htm=(*No parameters*)
EVENT GET WPARAM=main.htm=(*No parameters*)
CLEAR EVENT=main.htm=(*No parameters*)
SEND EVENT=main.htm=[Window, message, wParam, lParam] [(Window, message, wParam, lParam)]

Later on...

GET EVENT=main.htm=No parameters
EVENT GET HANDLE=main.htm=(*No parameters*)
EVENT GET MESSAGE=main.htm=(*No parameters*)
EVENT GET WPARAM=main.htm=(*No parameters*)
EVENT GET LPARAM=main.htm=(*No parameters*)
CLEAR EVENT=main.htm=(*No parameters*)

Since I use the keywords as my help file, I guess that's why I found them.

2. On toolbar style, "TBSTYLE_WRAPABLE" (I don't know about other styles) on every last item before a new row starts, the button state is always 2. And you can't get the state of that button as well. Here is a attached example.

Attachments

Login to view attachments

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 9th Mar 2011 01:00

Quote: "I don't think there is a command yet for renaming tab titles."

That command will be added in the next update

Quote: "Isn't that for static images?"

You're right, it is. I'm currently working on functionality that will allow to determine if mouse is being clicked inside most of the controls, if not all.

Quote: "What i think would be useful is a way of selecting text through the computer so a piece of text can be highlighted and effectively this can lead to syntax highlighting (in conjunction with rich edit boxes)."

I will try to add that command for the next update.

Quote: "Whenever you have time Brendy boy, a new command you might want to add this is plugin is.."

I started working on this but it isn't that simple so it won't be done for the next update.

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 9th Mar 2011 21:32

Quote: "I started working on this but it isn't that simple so it won't be done for the next update."

Allright, after some testing, if you use a DBPro window you can still get keystates and mouseclicks over gadgets.

Also what about the toolbar bug I said on my last post?

Thanks again for all your support Brendy boy.

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 9th Mar 2011 21:47 Edited at: 9th Mar 2011 22:03

Quote: "Also what about the toolbar bug I said on my last post?"

I didn't see that you edited your post, i will check the attached example right now

EDIT:
That is a bug caused by my try to simplify the use of the command.
That command will have to be changed a bit

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 10th Mar 2011 21:29 Edited at: 10th Mar 2011 21:30

Ok then.

Also the "Progressbar Set Color" command does not work. I tested on XP and Windows 7. I am not sure if the Windows GUI supports progressbar color change. (at least I have not seen any programs use different colors on progressbars.)

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 10, 2011

Rem ***** Main Source File *****

//=== PROGRESSBAR ======================================================================================
`Progress bar styles
#constant PBS_SMOOTH              0x01
#constant PBS_VERTICAL            0x04
#constant PBS_SMOOTHREVERSE       0x10

Start BBB GUI

Window = Get DBPro Window()
`Bar = Make Progressbar(50,50,100,20,0,Window)
Bar = Make Progressbar(50,50,100,20,PBS_SMOOTH,Window)
`Bar = Make Progressbar(50,50,100,20,PBS_VERTICAL,Window)
`Bar = Make Progressbar(50,50,100,20,PBS_SMOOTHREVERSE,Window)

Progressbar Set Range Bar,100
Progressbar Set Step Size Bar,1

Progressbar Set Position Bar,20
Progressbar Set Color Bar,255,0,0   `<----- Color does not work.


Do

If Escapekey()=1 Then End BBB GUI

Sync
Loop

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 10th Mar 2011 22:02

Quote: "Also the "Progressbar Set Color" command does not work. I tested on XP and Windows 7. I am not sure if the Windows GUI supports progressbar color change."

that command works when visual styles aren't applied to progressbar.
since visual styles are applied by default on every control that command is now useless

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 11th Mar 2011 03:12 Edited at: 11th Mar 2011 06:26

Found another bug.

The command "Update Window" is missing from the DLL string table (Could not understand command at line...)

[Edit2] Never mind about this question. I had the wrong syntax for the command.

And I have on question. Here is the following code.

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 10, 2011

//=== WINDOW =====================================================================================
`Window styles
#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_OVERLAPPEDWINDOW                 13565952

`Window ex styles
#constant WS_EX_DLGMODALFRAME     0x00000001
#constant WS_EX_NOPARENTNOTIFY    0x00000004
#constant WS_EX_TOPMOST           0x00000008
#constant WS_EX_ACCEPTFILES       0x00000010
#constant WS_EX_TRANSPARENT       0x00000020
#constant WS_EX_MDICHILD          0x00000040
#constant WS_EX_TOOLWINDOW        0x00000080
#constant WS_EX_WINDOWEDGE        0x00000100
#constant WS_EX_CLIENTEDGE        0x00000200
#constant WS_EX_CONTEXTHELP       0x00000400
#constant WS_EX_RIGHT             0x00001000
#constant WS_EX_LEFT              0x00000000
#constant WS_EX_RTLREADING        0x00002000
#constant WS_EX_LTRREADING        0x00000000
#constant WS_EX_LEFTSCROLLBAR     0x00004000
#constant WS_EX_RIGHTSCROLLBAR    0x00000000
#constant WS_EX_CONTROLPARENT     0x00010000
#constant WS_EX_STATICEDGE        0x00020000
#constant WS_EX_APPWINDOW         0x00040000
`Disable inheritence of mirroring by children
#constant WS_EX_NOINHERITLAYOUT   0x00100000
`Right to left mirroring
#constant WS_EX_LAYOUTRTL         0x00400000
#constant WS_EX_COMPOSITED        0x02000000
#constant WS_EX_NOACTIVATE          0x08000000

Rem ***** Main Source File *****

Sync On
Sync Rate 60
Sync

Start BBB GUI

DB_Win = Get DBPro Window()
Set Main Window DB_Win
Window = Make Window(800,600,"Window",DB_Win,0,WS_OVERLAPPED||WS_CLIPCHILDREN)
Child = Make Window(200,300,"Window",Window,WS_EX_TOOLWINDOW,WS_CHILD||WS_BORDER||WS_CAPTION||WS_OVERLAPPED)
Window Set Position Child,300,20

Label = Make Label(0,0,200,200,"200x 200 Label",Window)
Label = Make Label(0,0,100,20,"LABEL",Child)

Rem The window set style does not work right
`#constant WM_PAINT                        0x000F

Do

If Escapekey()=1 Then End BBB GUI

`send event Window,WM_PAINT,0,0
Paint Window Child
Sync
Loop

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 10, 2011

//=== WINDOW =====================================================================================
`Window styles
#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_OVERLAPPEDWINDOW                 13565952

`Window ex styles
#constant WS_EX_DLGMODALFRAME     0x00000001
#constant WS_EX_NOPARENTNOTIFY    0x00000004
#constant WS_EX_TOPMOST           0x00000008
#constant WS_EX_ACCEPTFILES       0x00000010
#constant WS_EX_TRANSPARENT       0x00000020
#constant WS_EX_MDICHILD          0x00000040
#constant WS_EX_TOOLWINDOW        0x00000080
#constant WS_EX_WINDOWEDGE        0x00000100
#constant WS_EX_CLIENTEDGE        0x00000200
#constant WS_EX_CONTEXTHELP       0x00000400
#constant WS_EX_RIGHT             0x00001000
#constant WS_EX_LEFT              0x00000000
#constant WS_EX_RTLREADING        0x00002000
#constant WS_EX_LTRREADING        0x00000000
#constant WS_EX_LEFTSCROLLBAR     0x00004000
#constant WS_EX_RIGHTSCROLLBAR    0x00000000
#constant WS_EX_CONTROLPARENT     0x00010000
#constant WS_EX_STATICEDGE        0x00020000
#constant WS_EX_APPWINDOW         0x00040000
`Disable inheritence of mirroring by children
#constant WS_EX_NOINHERITLAYOUT   0x00100000
`Right to left mirroring
#constant WS_EX_LAYOUTRTL         0x00400000
#constant WS_EX_COMPOSITED        0x02000000
#constant WS_EX_NOACTIVATE          0x08000000

Rem ***** Main Source File *****

Sync On
Sync Rate 60
Sync

Start BBB GUI

DB_Win = Get DBPro Window()
Set Main Window DB_Win
Window = Make Window(800,600,"Window",DB_Win,0,WS_OVERLAPPED||WS_CLIPCHILDREN)
Child = Make Window(200,300,"Window",Window,WS_EX_TOOLWINDOW,WS_CHILD||WS_BORDER||WS_CAPTION||WS_OVERLAPPED)
Window Set Position Child,300,20

Label = Make Label(0,0,200,200,"200x 200 Label",Window)
Label = Make Label(0,0,100,20,"LABEL",Child)

Rem The window set style does not work right
`#constant WM_PAINT                        0x000F


Do

If Escapekey()=1 Then End BBB GUI

`send event Window,WM_PAINT,0,0
Paint Window Child
Sync
Loop

If I move the child window over the label, the window will not redraw. And if you use the "Paint Window" command, it will only draw the label on the child window. Am I missing a window style to make the window draw correctly?

[Edit]

Is this also a bug?

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 10, 2011

Rem ***** Main Source File *****

#constant WS_CHILD                                 0x40000000
#constant SBS_VERT 0x0001
#constant SBS_HORZ 0x0000

start bbb gui

dbpro_w=get dbpro window() : set main window dbpro_w
w=make window(320,240,"Example window with scrollbars",dbpro_w)

mw=make window(0,0,300,200,"",dbpro_w,WS_CHILD) `w


window set color mw,0,200,0
vs=make scrollbar(300,0,15,200,SBS_VERT,dbpro_w) `w
scrollbar set window vs,mw
scrollbar set range vs,0,480
scrollbar set page size vs,220

vs=make scrollbar(0,200,300,20,SBS_HORZ,dbpro_w) `w
scrollbar set window vs,mw
scrollbar set range vs,0,640
scrollbar set page size vs,310


do


if escapekey()=1 then end bbb gui


sync
loop

This works if you use the newly made window "w" but if you use the DBPro window, it does not work.

[Edit 3]

I also wanted to let you know about two more things.

The command "Mouse On Toolbar Button" only works if the toolbar has the toolbar style. "TBSTYLE_TOOLTIPS" So I am not sure if you meant that command to only work with that style. So I just wanted to let you know about it.

The command "Get Clicked Toolbar Button ID" does not seem to return anything. Only sometimes it returns 0 instead of -1. Add it to your toolbar example you made to see if it returns anything.

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 12th Mar 2011 01:28

Quote: "If I move the child window over the label, the window will not redraw. And if you use the "Paint Window" command, it will only draw the label on the child window. Am I missing a window style to make the window draw correctly?"

No, it's a feature of windows, i can't fix that. It would require a specific fix for that specific situation.

Quote: "Is this also a bug?"

No, it's a feature but it can be extended to work on dbpro window as well.

Quote: "
The command "Mouse On Toolbar Button" only works if the toolbar has the toolbar style. "TBSTYLE_TOOLTIPS" So I am not sure if you meant that command to only work with that style. So I just wanted to let you know about it."

Yes, it was meant to work only with that style

Quote: "The command "Get Clicked Toolbar Button ID" does not seem to return anything. Only sometimes it returns 0 instead of -1. Add it to your toolbar example you made to see if it returns anything. "

The command works correctly, it just returns the id only once so you dont see because it happens very quickly

Back to top

Profile PM Email

Teh Stone

14

Years of Service

User Offline

Joined: 12th Dec 2009

Location:

Posted: 12th Mar 2011 10:26

this is great just started using it yesterday and starting to get to grips with it making things similar to the examples but one thing that i cant see an example for is how to get your GUI objects into the main window created by DBPro is this possible or does it have yo be put in seperate windows

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 12th Mar 2011 11:19

Quote: "...but one thing that i cant see an example for is how to get your GUI objects into the main window created by DBPro is this possible..."

just set the dbpro window as parent window and that's it. Yo ucan get the handle to dbpro window with GET DBPRO WINDOW() command

Back to top

Profile PM Email

Teh Stone

14

Years of Service

User Offline

Joined: 12th Dec 2009

Location:

Posted: 12th Mar 2011 11:33 Edited at: 12th Mar 2011 15:01

thanks for the quick reply, i knew it would be something like that just couldnt get it to work, this is great btw

EDIT: Found a bug not sure if it has been mentioned yet but when i close an application that uses this plugin when i make changes to the code and try to compile again it fails just saying "Compilation Failed syntax errors" in the IDE

so i close the IDE and when i reopen it the application appears again as if it has been closed

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 15th Mar 2011 02:13 Edited at: 15th Mar 2011 06:30

Teh Stone,

Quote: "EDIT: Found a bug not sure if it has been mentioned yet but when i close an application that uses this plugin when i make changes to the code and try to compile again it fails just saying "Compilation Failed syntax errors" in the IDE

so i close the IDE and when i reopen it the application appears again as if it has been closed "

Are you closing your program with the command "End BBB GUI"? also, maybe you could show a code snippet?

Brendy boy,

Quote: "No, it's a feature but it can be extended to work on dbpro window as well."

Well I guess I should have said then that it does not work on a DBPro window. However after more testing, at least it can work on a child window that is on a DBPro window.

Here are some more questions/Bug reports.

1. The keyword "Windows SET FONT=main.htm=[Size, font name, italic, underline, strikeout, bold] [Font handle]" should be "Windows SET FONT=main.htm=[Size, font name, underline, strikeout, italic, bold] [Font handle]". (rearranged the parameters as the original parameters were in the wrong order.)

2. The "Windows Set Icon" works, (Thanks for fixing that

) but it does not work on a child window.

3. You did not include the listbox constants and a example for it in your plugin. (I would help out with that, but see below on what I am working on.)

Even though you know where to look, but here is the link to the msdn listbox styles. Link

4. You have the command "TREEVIEW DELETE ITEMS" but you don't have the command. "Treeview Delete Item" (Since the command "Delete Window does not work, and you have it for listviews, listboxes, ect...")

[Edit] 5. The Command "Window Set Color" seems buggy. When this command is call repeatedly, it sometimes crashes. If you need it I'll post some code.

I guess with all these questions you must be wondering that I am using this plugin for. So here is what I am working on. I am planning to make a program like windows forums designer, so it will make it much easier to place the windows controls. it will be open source for anyone to add whatever they want to the program.

When you finish you update to fix some of the bugs I listed on the posts above, then around that time I'll release the program.

A image is attached of the program. Comments and suggestions are welcome also.

Attachments

Login to view attachments

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Mar 2011 21:59

Quote: "The "Windows Set Icon" works, (Thanks for fixing that ) but it does not work on a child window."

Child windows can't have icons.

Quote: "3. You did not include the listbox constants and a example for it in your plugin. (I would help out with that, but see below on what I am working on.)"

Maybe for one of the future updates

Quote: "4. You have the command "TREEVIEW DELETE ITEMS" but you don't have the command. "Treeview Delete Item" (Since the command "Delete Window does not work, and you have it for listviews, listboxes, ect...")"

I will try to add this command for the next update

Quote: "5. The Command "Window Set Color" seems buggy. When this command is call repeatedly, it sometimes crashes."

Can't fix that. The command calls two WINAPI functions which both need to be called so there's no space for bug hunting there

Quote: "I guess with all these questions you must be wondering that I am using this plugin for. So here is what I am working on. I am planning to make a program like windows forums designer, so it will make it much easier to place the windows controls. it will be open source for anyone to add whatever they want to the program."

It looks great, keep it up, I myself planned to create something like that but i don't have enough of free time

Back to top

Profile PM Email

Teh Stone

14

Years of Service

User Offline

Joined: 12th Dec 2009

Location:

Posted: 15th Mar 2011 22:17

yeah i added an END BBB GUI and it works now silly me

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Mar 2011 22:17

And here's the newest partial update

Attachments

Login to view attachments

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 16th Mar 2011 22:49 Edited at: 16th Mar 2011 22:49

Quote: "And here's the newest partial update"

Once again, many thanks for your help and support.

Quote: "Child windows can't have icons."

They can if you have the style. "WS_CAPTION" At least the command "Windows Set Icon" works on child windows.

Quote: "It looks great, keep it up "

Thanks.

And now 2 more questions.

1. I am doing something wrong or is this a bug. Here is the following code...

#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_EX_TOOLWINDOW        0x00000080

#constant CBS_SIMPLE            0x0001
#constant CBS_DROPDOWN          0x0002

sync on
sync rate 60

start bbb gui

db = get dbpro window()
set main window db
w = make window(300,300,"Window",db,WS_EX_TOOLWINDOW,WS_CHILD||WS_BORDER||WS_CAPTION)

e = make editbox(10,10,50,20,0,w)
b = make button(10,40,50,20,"test",w)
c = make combobox(10,70,100,20,CBS_DROPDOWN,w)
combobox add string c,"string"
combobox add string c,"string"

do
cls

if button clicked(b) = 1 then text 500,10,"CLICKED"
if escapekey()=1 then end bbb gui

sync
loop

#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_EX_TOOLWINDOW        0x00000080


#constant CBS_SIMPLE            0x0001
#constant CBS_DROPDOWN          0x0002

sync on
sync rate 60

start bbb gui

db = get dbpro window()
set main window db
w = make window(300,300,"Window",db,WS_EX_TOOLWINDOW,WS_CHILD||WS_BORDER||WS_CAPTION)

e = make editbox(10,10,50,20,0,w)
b = make button(10,40,50,20,"test",w)
c = make combobox(10,70,100,20,CBS_DROPDOWN,w)
combobox add string c,"string"
combobox add string c,"string"


do
cls

if button clicked(b) = 1 then text 500,10,"CLICKED"
if escapekey()=1 then end bbb gui

sync
loop

The button works fine. But the editbox, you can't type anything. And for the combobox you can only type things in if you click the dropdown, then type. So somehow the editbox is not getting the focus as it should.

Also to note that if I don't make the window a child, everything will work fine.

2. When you create a listbox. is your DLL code are you using the style "LBS_MULTICOLUMN" to create the listbox? since I am asking because I am trying to use the style WS_VSCROLL for the listbox (Thats one of the styles in LBS_STANDARD) and it will not work. (I am guessing since it still has multiple columns even though I did not use that style)

Soon I'll update your BBBGUI_CONSTANTS file with the listbox styles for you.

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 17th Mar 2011 17:44

Quote: "WS_CHILD||WS_BORDER||WS_CAPTION) "

Quote: "...But the editbox, you can't type anything..."

It seems that some window styles can't be combined together, what you have here is obviously one of those combinations that doesn't work together. Remove one of them and then it will work.

Quote: "And for the combobox you can only type things in if you click the dropdown, then type"

Thats a feature of combobox, I can't change that.

Quote: "2. When you create a listbox. is your DLL code are you using the style "LBS_MULTICOLUMN" to create the listbox?"

Yes, I'm using that style, should I remove it?

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 17th Mar 2011 20:35 Edited at: 17th Mar 2011 21:30

Quote: "It seems that some window styles can't be combined together, what you have here is obviously one of those combinations that doesn't work together. Remove one of them and then it will work."

It seems that any style that includes the window header the editbox does not work.

Quote: "Yes, I'm using that style, should I remove it?"

I would prefer that, since you can add LBS_MULTICOLUMN style anyway when you create the listbox.

Here is a bug I found.

#constant PBS_SMOOTH              0x01
#constant RBS_BANDBORDERS               0x00000400
#constant RBS_FIXEDORDER                0x00000800
#constant RBS_REGISTERDROP              0x00001000
#constant RBS_AUTOSIZE                  0x00002000
#constant RBBS_NOGRIPPER      0x00000100
#constant LR_CREATEDIBSECTION 0x00002000
`Toolbar styles
#constant TBSTYLE_TOOLTIPS        0x0100
#constant TBSTYLE_WRAPABLE        0x0200
#constant TBSTYLE_ALTDRAG         0x0400
#constant TBSTYLE_FLAT            0x0800
#constant TBSTYLE_LIST            0x1000
#constant TBSTYLE_CUSTOMERASE     0x2000
#constant TBSTYLE_REGISTERDROP    0x4000
#constant TBSTYLE_TRANSPARENT     0x8000

#constant BTNS_BUTTON     0x0000

Rem Project: BBB Gui Devlopment Tool

Rem --------------------------------------------------
Rem Setup
Rem --------------------------------------------------

Sync On
Sync Rate 60
Sync
Disable Escapekey

Global MAIN_WINDOW As Integer

Cls Rgb( WINDOW_COLOR, WINDOW_COLOR, WINDOW_COLOR )     `<----- For the window to have the label color.
Maximize Window

Start BBB GUI
MAIN_WINDOW = Get DBPro Window()

Gosub _Setup

Do

if escapekey()=1 then end bbb gui

Sync
Loop

Rem ***** Included Source File *****
Rem Program Setup

_Setup:

`====================
Rem Constants
`====================

#Constant PROGRAM_VERSION "0.6"
#Constant B_TRUE 1
#Constant B_FALSE 0

#Constant QUOTE Chr$(34)
#Constant ENTER Chr$(13) + Chr$(10)
#Constant WINDOW_COLOR 240

`====================
Rem GUI Setup
`====================

Gosub _GUI_Setup

`====================

`====================
Rem UTD's
`====================

Type GADGET_T
    ID As Integer
    Gadget_Type As String
    
    Variable_Name As String
    Position_X As Integer
    Position_Y As Integer
    Width As Integer
    Height As Integer
    Title As String
    Parent As Integer
    Parent_Str As String

EndType

Type TREEVIEW_T
    Handle As Integer
    Gadget_Type As String
    Item_Handle As Integer
EndType

Type PROJECT_WINDOW_T
    ID As Integer
    Gadget_Type As String
    
    Varible_Name As String
    Position_X As Integer
    Position_Y As Integer
    Width As Integer
    Height As Integer
    Title As String
    Style_EX As String
    Style As String
EndType

Type EXPORT_T
    File_Name As String
    Clipboard As Boolean
EndType

Type TREEVIEW_INFO_T
    Item_Count As Integer
    Rename_Item As Boolean
    Rename_Editbox As Integer
    Rename_Index_Handle As Integer
EndType

Type WINDOWS_T
    Event_Message As Integer
    Event_Handle As Integer
    Event_LPARAM As Integer
    Event_WPARAM As Integer
    Event_Menu_ID As Integer
EndType

`====================

`====================
Rem Global UDT's
`====================

Global Export As EXPORT_T
Global Windows As WINDOWS_T
Global Treeview As TREEVIEW_INFO_T
Global Project_Window As PROJECT_WINDOW_T

`====================

`====================
Rem Arrays
`====================

Dim Tool_Window_Gadgets(0) As TREEVIEW_T
Dim Gadget(0) As GADGET_T

Dim Gadget_Info_Text(11) As String

`====================

Return

Rem ***** Included Source File *****
Rem UI Setup

_GUI_Setup:

Type TOOLBAR_T
    ID As Integer
    
    Image_List As Integer
    Clicked_Button As Integer
    Click_Active As Boolean
EndType

Type GUI_T
    Rebar As Integer
    Toolbar As TOOLBAR_T
EndType

Global GUI As GUI_T

GUI_Make_Toolbar()

Return

Function GUI_Make_Toolbar()

GUI.Rebar = Make Rebar( RBS_AUTOSIZE||RBS_BANDBORDERS, MAIN_WINDOW )

Imagelist Set Transparent Color Rgb( 242, 242, 242 )
GUI.Toolbar.Image_List = Make Imagelist( 16, "Media\Toolbar\Toolbar.bmp", LR_CREATEDIBSECTION )

GUI.Toolbar.ID = Make Toolbar( 0, TBSTYLE_FLAT||TBSTYLE_LIST||TBSTYLE_TOOLTIPS, MAIN_WINDOW )

Rebar Add Band GUI.Rebar, GUI.Toolbar.ID, RBBS_NOGRIPPER, 0
Rebar Set Band Background Image GUI.Rebar, 0, "Media\Rebar Backrounds\Rebar Win 7.bmp"
Toolbar Set Imagelist GUI.Toolbar.ID, GUI.Toolbar.Image_List

For X = 0 To 9
    If X = 0 Then Item_String$ = "New   " : Tooltip_String$ = "Creates a new project"
    If X = 1 Then Item_String$ = "Open  " : Tooltip_String$ = "Opens a previously saved project"
    If X = 2 Then Item_String$ = "Save  " : Tooltip_String$ = "Saves the current project"
    If X = 3 Then Item_String$ = "Cut   " : Tooltip_String$ = "Cuts the currently selected gadget"
    If X = 4 Then Item_String$ = "Copy  " : Tooltip_String$ = "Copys the currently selected gadget"
    If X = 5 Then Item_String$ = "Paste " : Tooltip_String$ = "Pastes the gadget that was cut or copied"
    If X = 6 Then Item_String$ = "Delete" : Tooltip_String$ = "Delete the current selected gadget"
    If X = 7 Then Item_String$ = "Undo  " : Tooltip_String$ = "Undo last action"
    If X = 8 Then Item_String$ = "Redo  " : Tooltip_String$ = "Redo last action"
    If X = 9 Then Item_String$ = "Help  " : Tooltip_String$ = "Displays help file"
    
    Toolbar Add Button GUI.Toolbar.ID, BTNS_BUTTON, X, X, Item_String$
    Toolbar Set Button Tooltip GUI.Toolbar.ID,X,Tooltip_String$
Next X

Toolbar Insert Separator GUI.Toolbar.ID, 3
Toolbar Insert Separator GUI.Toolbar.ID, 7
Toolbar Insert Separator GUI.Toolbar.ID, 9
Toolbar Insert Separator GUI.Toolbar.ID, 12

`Show Window GUI.Toolbar.ID
`Maximize Window GUI.Toolbar.ID

EndFunction

#constant PBS_SMOOTH              0x01
#constant RBS_BANDBORDERS               0x00000400
#constant RBS_FIXEDORDER                0x00000800
#constant RBS_REGISTERDROP              0x00001000
#constant RBS_AUTOSIZE                  0x00002000
#constant RBBS_NOGRIPPER      0x00000100
#constant LR_CREATEDIBSECTION 0x00002000
`Toolbar styles
#constant TBSTYLE_TOOLTIPS        0x0100
#constant TBSTYLE_WRAPABLE        0x0200
#constant TBSTYLE_ALTDRAG         0x0400
#constant TBSTYLE_FLAT            0x0800
#constant TBSTYLE_LIST            0x1000
#constant TBSTYLE_CUSTOMERASE     0x2000
#constant TBSTYLE_REGISTERDROP    0x4000
#constant TBSTYLE_TRANSPARENT     0x8000


#constant BTNS_BUTTON     0x0000

Rem Project: BBB Gui Devlopment Tool


Rem --------------------------------------------------
Rem Setup
Rem --------------------------------------------------



Sync On
Sync Rate 60
Sync
Disable Escapekey


Global MAIN_WINDOW As Integer 


Cls Rgb( WINDOW_COLOR, WINDOW_COLOR, WINDOW_COLOR )     `<----- For the window to have the label color.
Maximize Window

Start BBB GUI
MAIN_WINDOW = Get DBPro Window()


Gosub _Setup



Do



if escapekey()=1 then end bbb gui

Sync
Loop





Rem ***** Included Source File *****
Rem Program Setup


_Setup:


`====================
Rem Constants
`====================

#Constant PROGRAM_VERSION "0.6"
#Constant B_TRUE 1
#Constant B_FALSE 0

#Constant QUOTE Chr$(34)
#Constant ENTER Chr$(13) + Chr$(10)
#Constant WINDOW_COLOR 240







`====================
Rem GUI Setup
`====================

Gosub _GUI_Setup

`====================




`====================
Rem UTD's
`====================


Type GADGET_T
    ID As Integer
    Gadget_Type As String
    
    Variable_Name As String
    Position_X As Integer
    Position_Y As Integer
    Width As Integer
    Height As Integer
    Title As String
    Parent As Integer
    Parent_Str As String     

EndType


Type TREEVIEW_T
    Handle As Integer
    Gadget_Type As String
    Item_Handle As Integer
EndType



Type PROJECT_WINDOW_T
    ID As Integer
    Gadget_Type As String
    
    Varible_Name As String
    Position_X As Integer
    Position_Y As Integer
    Width As Integer
    Height As Integer
    Title As String
    Style_EX As String
    Style As String
EndType


Type EXPORT_T
    File_Name As String
    Clipboard As Boolean
EndType

Type TREEVIEW_INFO_T
    Item_Count As Integer
    Rename_Item As Boolean
    Rename_Editbox As Integer
    Rename_Index_Handle As Integer
EndType


Type WINDOWS_T
    Event_Message As Integer
    Event_Handle As Integer
    Event_LPARAM As Integer
    Event_WPARAM As Integer
    Event_Menu_ID As Integer
EndType





`====================



`====================
Rem Global UDT's
`====================


Global Export As EXPORT_T
Global Windows As WINDOWS_T
Global Treeview As TREEVIEW_INFO_T
Global Project_Window As PROJECT_WINDOW_T 


`====================


`====================
Rem Arrays
`====================


Dim Tool_Window_Gadgets(0) As TREEVIEW_T
Dim Gadget(0) As GADGET_T

Dim Gadget_Info_Text(11) As String


`====================





Return







Rem ***** Included Source File *****
Rem UI Setup


_GUI_Setup:






Type TOOLBAR_T
    ID As Integer
    
    Image_List As Integer
    Clicked_Button As Integer
    Click_Active As Boolean
EndType



Type GUI_T
    Rebar As Integer
    Toolbar As TOOLBAR_T
EndType

Global GUI As GUI_T




GUI_Make_Toolbar()



Return




Function GUI_Make_Toolbar()


GUI.Rebar = Make Rebar( RBS_AUTOSIZE||RBS_BANDBORDERS, MAIN_WINDOW )

Imagelist Set Transparent Color Rgb( 242, 242, 242 )
GUI.Toolbar.Image_List = Make Imagelist( 16, "Media\Toolbar\Toolbar.bmp", LR_CREATEDIBSECTION )

GUI.Toolbar.ID = Make Toolbar( 0, TBSTYLE_FLAT||TBSTYLE_LIST||TBSTYLE_TOOLTIPS, MAIN_WINDOW )

Rebar Add Band GUI.Rebar, GUI.Toolbar.ID, RBBS_NOGRIPPER, 0
Rebar Set Band Background Image GUI.Rebar, 0, "Media\Rebar Backrounds\Rebar Win 7.bmp"
Toolbar Set Imagelist GUI.Toolbar.ID, GUI.Toolbar.Image_List

For X = 0 To 9
    If X = 0 Then Item_String$ = "New   " : Tooltip_String$ = "Creates a new project"
    If X = 1 Then Item_String$ = "Open  " : Tooltip_String$ = "Opens a previously saved project"
    If X = 2 Then Item_String$ = "Save  " : Tooltip_String$ = "Saves the current project"
    If X = 3 Then Item_String$ = "Cut   " : Tooltip_String$ = "Cuts the currently selected gadget"
    If X = 4 Then Item_String$ = "Copy  " : Tooltip_String$ = "Copys the currently selected gadget"
    If X = 5 Then Item_String$ = "Paste " : Tooltip_String$ = "Pastes the gadget that was cut or copied"
    If X = 6 Then Item_String$ = "Delete" : Tooltip_String$ = "Delete the current selected gadget"
    If X = 7 Then Item_String$ = "Undo  " : Tooltip_String$ = "Undo last action"
    If X = 8 Then Item_String$ = "Redo  " : Tooltip_String$ = "Redo last action"
    If X = 9 Then Item_String$ = "Help  " : Tooltip_String$ = "Displays help file"
    
    Toolbar Add Button GUI.Toolbar.ID, BTNS_BUTTON, X, X, Item_String$
    Toolbar Set Button Tooltip GUI.Toolbar.ID,X,Tooltip_String$
Next X

Toolbar Insert Separator GUI.Toolbar.ID, 3
Toolbar Insert Separator GUI.Toolbar.ID, 7
Toolbar Insert Separator GUI.Toolbar.ID, 9
Toolbar Insert Separator GUI.Toolbar.ID, 12

`Show Window GUI.Toolbar.ID
`Maximize Window GUI.Toolbar.ID


EndFunction

The tooltips don't display the correct strings. (maybe memory address wrong?) Also if I remove the arrays one of the tooltips shows up. (but on wrong buttons)

The media is in the download.

[Edit] The command "Listview Set Highlight Color" does not seem to work. Does it work only with a certain style?

Also as a future feature request would be nice to be able to add styles to toolbar tooltips.

By the way, are you going to fix the TBSTYLE_WRAPABLE bug by your final version of 1.4.0.0?

Attachments

Login to view attachments

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 17th Mar 2011 20:39

Also here are the listbox constants.

Here is what was added.

#constant LVIS_ACTIVATING         0x0020
#constant LVIS_OVERLAYMASK        0x0F00
#constant LVIS_STATEIMAGEMASK     0xF000



//=== LISTBOX =========================================================================================
`Listbox Styles

#constant LBS_NOTIFY            0x0001
#constant LBS_SORT              0x0002
#constant LBS_NOREDRAW          0x0004
#constant LBS_MULTIPLESEL       0x0008
#constant LBS_OWNERDRAWFIXED    0x0010
#constant LBS_OWNERDRAWVARIABLE 0x0020
#constant LBS_HASSTRINGS        0x0040
#constant LBS_USETABSTOPS       0x0080
#constant LBS_NOINTEGRALHEIGHT  0x0100
#constant LBS_MULTICOLUMN       0x0200
#constant LBS_WANTKEYBOARDINPUT 0x0400
#constant LBS_EXTENDEDSEL       0x0800
#constant LBS_DISABLENOSCROLL   0x1000
#constant LBS_NODATA            0x2000
#constant LBS_NOSEL             0x4000
#constant LBS_COMBOBOX          0x8000



//=== COMBOBOX =============================================================================================
`ComboBox styles

Attachments

Login to view attachments

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 17th Mar 2011 21:59 Edited at: 17th Mar 2011 22:02

Quote: "Here is a bug I found... The tooltips don't display the correct strings. (maybe memory address wrong?) Also if I remove the arrays one of the tooltips shows up. (but on wrong buttons)"

Fixed

Quote: "Also as a future feature request would be nice to be able to add styles to toolbar tooltips."

I will add that in the next update

Quote: "By the way, are you going to fix the TBSTYLE_WRAPABLE bug by your final version of 1.4.0.0? "

Yes

Quote: "I would prefer that, since you can add LBS_MULTICOLUMN style anyway when you create the listbox."

Removed

Quote: "[Edit] The command "Listview Set Highlight Color" does not seem to work. Does it work only with a certain style?"

Yes, only with: LVS_REPORT||LVS_OWNERDRAWFIXED

Attachments

Login to view attachments

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 18th Mar 2011 22:36

Here is question, here is the following code.

#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_OVERLAPPEDWINDOW                 13565952

#constant SBS_VERT 0x0001
#constant SBS_HORZ 0x0000

Start BBB GUI

Main_Window = Make Window(800,600,"Window",Get DBPRO Window())

Window_Limit = Make Window(0,0,700,540,"",Main_Window,WS_CHILD)
Scroll_Window = Make Window(10,10,400,400,"Scroll",Window_Limit,WS_CHILD||WS_BORDER||WS_CAPTION||WS_THICKFRAME||WS_SYSMENU||WS_MAXIMIZEBOX||WS_MINIMIZEBOX)

Y = Make Scrollbar(700,0,15,530,SBS_VERT,Main_Window)
Scrollbar Set Window Y,Scroll_Window
Scrollbar Set Range Y,0,4000
Scrollbar Set Page Size Y,2000

X = Make Scrollbar(0,540,700,15,SBS_HORZ,Main_Window)
Scrollbar Set Window X,Scroll_Window
Scrollbar Set Range X,0,4000
Scrollbar Set Page Size X,2000

Do
Cls

If Escapekey()=1 Then End BBB GUI

Sync
Loop

#constant WS_OVERLAPPED                            0x00000000
#constant WS_MAXIMIZEBOX                         0x00010000
#constant WS_MINIMIZEBOX                         0x00020000
#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_SYSMENU                             0x00080000
#constant WS_POPUP                                 0x800000000
#constant WS_VISIBLE                             0x100000000
#constant WS_HSCROLL                             0x00100000
#constant WS_VSCROLL                             0x00200000
#constant WS_MINIMIZE                             0x20000000
#constant WS_MAXIMIZE                             0x01000000
#constant WS_DLGFRAME                             0x00400000
#constant WS_DISABLED                             0x08000000
#constant WS_CLIPSIBLINGS                         0x04000000
#constant WS_CLIPCHILDREN                         0x02000000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_OVERLAPPEDWINDOW                 13565952

#constant SBS_VERT 0x0001
#constant SBS_HORZ 0x0000


Start BBB GUI


Main_Window = Make Window(800,600,"Window",Get DBPRO Window())

Window_Limit = Make Window(0,0,700,540,"",Main_Window,WS_CHILD)
Scroll_Window = Make Window(10,10,400,400,"Scroll",Window_Limit,WS_CHILD||WS_BORDER||WS_CAPTION||WS_THICKFRAME||WS_SYSMENU||WS_MAXIMIZEBOX||WS_MINIMIZEBOX)

Y = Make Scrollbar(700,0,15,530,SBS_VERT,Main_Window)
Scrollbar Set Window Y,Scroll_Window
Scrollbar Set Range Y,0,4000
Scrollbar Set Page Size Y,2000

X = Make Scrollbar(0,540,700,15,SBS_HORZ,Main_Window)
Scrollbar Set Window X,Scroll_Window
Scrollbar Set Range X,0,4000
Scrollbar Set Page Size X,2000

Do
Cls

If Escapekey()=1 Then End BBB GUI

Sync
Loop

If I resize the child window at a certain point it will stop. I don't think its page size or the "Window_Limit" height as making them larger does not work.

What I am trying to get is to be able to resize the child window to the end of the scrollbar. Am I doing something wrong? or did you but a limit on how far you can go on the scrollbar?

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 18th Mar 2011 22:50 Edited at: 18th Mar 2011 22:58

never mind

EDIT:
After a little testing it seems that window maximum height is is a little bigger that desktop height. Why? I have no idea and can't fix it.

Back to top

Profile PM Email

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 21st Mar 2011 01:02

Here's the newest partial update. It fixes the bug in returning the toolbar button styles.

Attachments

Login to view attachments

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 22nd Mar 2011 20:25

Quote: "Here's the newest partial update. It fixes the bug in returning the toolbar button styles."

Thanks for the update. Now since the toolbars are fixed, now I'll be able to release the forms designer soon.

Also a feature request would be to add a command "Treeview Expand Items Treeview, Item" for expanding and child items.

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 22nd Mar 2011 21:58 Edited at: 22nd Mar 2011 22:34

Quote: "Also a feature request would be to add a command "Treeview Expand Items Treeview, Item" for expanding and child items. "

Done

Here the newest partial update

EDIT: I forgot to comment some code in BBBGUI Constant file, here's the updated version

Attachments

Login to view attachments

Back to top

Profile PM Email

gwheycs62egydws

14

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 23rd Mar 2011 10:41

hi
I went to run the latest version of
BBB Gui examples 1.4.0.0

so far the only command not accepted was

position window ww,x,y+diff

this was from
WebBrowser.

other than that every thing worked

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

gwheycs62egydws

14

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 23rd Mar 2011 11:09

umm it seems even with "position window" out every thing runs fine
I tried "WINDOW SET POSITION ww,x,y+diff"

nothing changed
worked like it should

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 23rd Mar 2011 13:56

Quote: "hi
I went to run the latest version of
BBB Gui examples 1.4.0.0

so far the only command not accepted was

position window ww,x,y+diff"

I just checked the WebBrowser example and you're right->POSITION WINDOW is a command from Matrix1 Utils, it should be WINDOW SET POSITION which is a command from BBB GUI, i'll corect that for the next update

Back to top

Profile PM Email

gwheycs62egydws

14

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 23rd Mar 2011 18:20

Brendy boy

an error of a command from anther files is no biggy

)

but when it's your own program then it's unexpected

at least it every thing worked like it was needed too

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 24th Mar 2011 00:37

Also there is a command you can remove from your keywords file "BBB Toolbar_CheckButton" (It also does not compile.) since there is BBB "Toolbar_SetButtonState".

Also I like your example on the Toolbars that you redone. It looks good, as it has also helped me out on the toolbar states that you redone.

Back to top

Profile PM

gwheycs62egydws

14

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 24th Mar 2011 01:43

now if only some one would only update
Dark Physics then DBP would be better than the other

ms junk

or at least create dll
for the missing and not working as good as it could parts

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 26th Mar 2011 00:03 Edited at: 26th Mar 2011 00:40

@ Resourceful

Quote: "now if only some one would only update
Dark Physics then DBP would be better than the other

ms junk

or at least create dll
for the missing and not working as good as it could parts"

Well I agree that Dark Physics needs to be updated. I hope TGC will do that soon, since it has so much potential of being a great plug-in.

@ Brendy boy

I have a few more things to let you know about.

1. If I use the command "BBB Treeview_DeleteItem" on the first child item of a parent item, it will delete both the parent and the child (which I want only the child item deleted) items. Is this a bug or did you program it that way?

2. I tested the rebar example on XP OS and the rebars don't show up.

3. The command "Window Set EXStyle" or Window Get EXStyle" does not work. Here is the following code.

#constant WS_THICKFRAME                         0x00040000
#constant WS_CAPTION                             0x00C00000
#constant WS_CHILD                                 0x40000000
#constant WS_BORDER                                 0x00800000
#constant WS_EX_TOOLWINDOW        0x00000080

Start BBB GUI



Sync On
Sync Rate 60


W = Make Window(640,480,"Window",Get DBPro Window(),0,0)
`W2 = Make Window(200,200,"Tool Window",W,WS_EX_TOOLWINDOW,WS_CHILD||WS_BORDER||WS_CAPTION||WS_THICKFRAME)

W2 = Make Window(200,200,"Tool Window",W,0,WS_CHILD||WS_BORDER||WS_CAPTION||WS_THICKFRAME)

Window Set EXStyle W2,Window Get EXStyle(W2)||WS_EX_TOOLWINDOW


Do

If Escapekey()=1 Then End BBB GUI

Sync
Loop

[Edit]
4. The command "Window Set Style" does not seem to work on editboxes or comboboxes, but it does work on windows and listboxes. (And maybe others that I have not tested.)

Also Here is one of the styles I forgot to add to the listbox constants.

#constant LBS_STANDARD 10485763

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 26th Mar 2011 00:42 Edited at: 25th Jul 2011 02:17

BBB GUI Windows Designer V1.2

This program is meant for designing you user interface on your program then to export the code needed to load it in DBPro.

Currently supported features.

Saving and loading projects
Mouse selectable controls.
Window controls able to place, modify, and export.

Window

Button

Label

Checkbox

Radiobox

Combobox

Groupbox

Listbox

Treeview

Listview

Updown - New!

TabControl - New!

Trackbar - New!

Menus

More features will be added in future releases of this program.

Changelog:

-------------------------------------------
-------- BBB GUI Windows Designer ---------
-------------------------------------------

*******************************************

--------------------------------------------------

Version 1.2
7/24/2011
Compiled DLL release date used. 6/25/2011

-----General-----

Visual improvements.
Controls with child items are displayed in as child items in the treeview.

-----Bug Fixes-----

Fixed some submenu moving crashes.
Fixed parent controls not painting over multiple child controls.
Fixed the program not transferring all of the data after deleting a control.  (Forgot to include some of the type fields.)
After deleting a control, the program will select the parent of the deleted control.  (Used to crash if delete was pressed again before selecting another item.) 
Fixed a bug after deleting a menu that the boundary checking offset value not being reset.
Fixed the control counter.
Controls will not be able to have a menu as a parent control now.
Fixed various operations not working with group boxes.
Fixed scrollbar ranges.
Fixed on clearing a project window not deleting the groupbox selection window.
When you click "New", it will now reset the project window settings.
Fixed a few operations not activating "Save changes" dialog.
Fixed some flashing text for the information and edit properties windows.
Setting window parent controls works correctly now.
Fixed a crash on XP when placing controls.
Unchecking view toolbar now works on XP.
Fixed flashing listboxes for control properties.

-----Changes-----

After deleting a control, the highlight will be removed.
Deleting controls will now delete all its child items.
Now when you move a submenu item up or down, the same item will still be selected.  No need to reselect the item every move now.
After moving a control out of the client area, it will now set it to a higher parent and be visible.

-----New Features-----

Added shortcut keys.
Able to export code as DBA file.
Windows can now be moved by mouse now.
Project window settings are now saved when you save your project.
Added Updown control
Added tab control
Added trackbars

--------------------------------------------------

Version 1.1
6/24/2011

-----General-----

Added dialog "Save changes to project?"
Now window controls can have any parent control.
Update file format.  Older files will not be compatible with this release.
General code improvements.

-----Bug Fixes-----

Fixed CPU sleep code.  (Now uses less CPU)
Fixed a bug with the treeview deleting the project window.
Fixed a bug when you minimize the program, messing up the project window position.
Fixed a bug with overwriting save files.
Fixed some keystate and mouseclick issues.
Loading files will now clear the project window.
Placing a windows control will now select the correct parent.  (not for window controls though.)
If you place a control on a existing item and not the project window, the listbox will now show the project window for a available parent.

-----New Features-----

Now supports mouse selectable controls. (Thank you Brendy boy for the GuiEditor example.)
Added menus.
Added listviews.

--------------------------------------------------

Version 1.0
3/25/2011

Public Release.

--------------------------------------------------

BBB GUI Windows Designer V1.2

-------------------------------------------
-------- BBB GUI Windows Designer ---------
-------------------------------------------

*******************************************

--------------------------------------------------

Version 1.2
7/24/2011
Compiled DLL release date used. 6/25/2011

-----General-----

Visual improvements.
Controls with child items are displayed in as child items in the treeview.

-----Bug Fixes-----

Fixed some submenu moving crashes.
Fixed parent controls not painting over multiple child controls.
Fixed the program not transferring all of the data after deleting a control. (Forgot to include some of the type fields.)
After deleting a control, the program will select the parent of the deleted control. (Used to crash if delete was pressed again before selecting another item.)
Fixed a bug after deleting a menu that the boundary checking offset value not being reset.
Fixed the control counter.
Controls will not be able to have a menu as a parent control now.
Fixed various operations not working with group boxes.
Fixed scrollbar ranges.
Fixed on clearing a project window not deleting the groupbox selection window.
When you click "New", it will now reset the project window settings.
Fixed a few operations not activating "Save changes" dialog.
Fixed some flashing text for the information and edit properties windows.
Setting window parent controls works correctly now.
Fixed a crash on XP when placing controls.
Unchecking view toolbar now works on XP.
Fixed flashing listboxes for control properties.

-----Changes-----

After deleting a control, the highlight will be removed.
Deleting controls will now delete all its child items.
Now when you move a submenu item up or down, the same item will still be selected. No need to reselect the item every move now.
After moving a control out of the client area, it will now set it to a higher parent and be visible.

-----New Features-----

Added shortcut keys.
Able to export code as DBA file.
Windows can now be moved by mouse now.
Project window settings are now saved when you save your project.
Added Updown control
Added tab control
Added trackbars

--------------------------------------------------

Version 1.1
6/24/2011

-----General-----

Added dialog "Save changes to project?"
Now window controls can have any parent control.
Update file format. Older files will not be compatible with this release.
General code improvements.

-----Bug Fixes-----

Fixed CPU sleep code. (Now uses less CPU)
Fixed a bug with the treeview deleting the project window.
Fixed a bug when you minimize the program, messing up the project window position.
Fixed a bug with overwriting save files.
Fixed some keystate and mouseclick issues.
Loading files will now clear the project window.
Placing a windows control will now select the correct parent. (not for window controls though.)
If you place a control on a existing item and not the project window, the listbox will now show the project window for a available parent.

-----New Features-----

Now supports mouse selectable controls. (Thank you Brendy boy for the GuiEditor example.)
Added menus.
Added listviews.

--------------------------------------------------

Version 1.0
3/25/2011

Public Release.

--------------------------------------------------

Notes:
The old file format will not be compatible in V1.2. (In the future I'll try to make it convertible.)

Here are some bugs that you might want to be aware of. Though, these will be fixed in future updates on this program.

1. Some styles will not update in the editor, though it will still export with the styles listed.
2. There might be a few bugs with the menu editor (such as not updating the menu bar, or a menu item (Submenu) appearing at the start of the menu bar when it's not supposed to. So in future updates the menu editor code will be revised. Also to note that if you get a duplicate item on the menu bar, it will not affect your exported code.

Enjoy the program!
A screenshot of the program is in next post.

Attachments

Login to view attachments

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 26th Mar 2011 00:43 Edited at: 24th Jun 2011 23:02

BBB GUI Windows Designer V1.1

Screenshot.

Attachments

Login to view attachments

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 26th Mar 2011 00:46 Edited at: 24th Jun 2011 23:04

BBB GUI Windows Designer V1.1

Screenshot showing the menu editor.

Attachments

Login to view attachments

Back to top

Profile PM

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 26th Mar 2011 00:47 Edited at: 24th Jun 2011 23:04

BBB GUI Windows Designer V1.1

[ Reserved ]

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 26th Mar 2011 06:28 Edited at: 26th Mar 2011 06:30

Quote: "1. If I use the command "BBB Treeview_DeleteItem" on the first child item of a parent item, it will delete both the parent and the child (which I want only the child item deleted) items. Is this a bug or did you program it that way?"

the command calls the coresponding function from WINAPI, which unfortunatelly works in that way

Quote: "2. I tested the rebar example on XP OS and the rebars don't show up."

I deleted a part of the code that made the rebar function properly because it made something else not work properly so now i have to make rebars function properly in some other way

Quote: "3. The command "Window Set EXStyle" or Window Get EXStyle" does not work. Here is the following code."

Both commands call the coresponding function from WINAPI so they must function properly. If you don't get the desired results it's probably because you are trying to combine window styles that can't be combined together ->can't think of anything else that would cause the problems

Quote: "4. The command "Window Set Style" does not seem to work on editboxes or comboboxes, but it does work on windows and listboxes. (And maybe others that I have not tested.)"

The same as above

Quote: "Alright I decided to release the program now, though still not complete it should be usable by now."

Tried it, it looks great.

Quote: "There is still much more planned for this program such as...
Selecting windows controls by mouse."

I started playing with these, it can be done very easily. As soon i get some free time(next weekend perhaps) i'll give you the documented code for that unless you want messy code and figure out everything by yourself

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 28th Mar 2011 20:00

Quote: "Both commands call the coresponding function from WINAPI so they must function properly. If you don't get the desired results it's probably because you are trying to combine window styles that can't be combined together ->can't think of anything else that would cause the problems"

Strange... I know that the syntax is right, and on the code snippet I posted used the right styles. Guess I'll have to do some more testing.

Quote: "I started playing with these, it can be done very easily. As soon i get some free time(next weekend perhaps) i'll give you the documented code for that unless you want messy code and figure out everything by yourself"

Thanks for your offer. Though I already have partly done. (Actually it's in the program, but since I did not have time to finish it, I took it out.) Selecting the them by mouse is easy, what takes longer is the code for resizing the gadget. I should have done soon though.

Back to top

Profile PM

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 28th Mar 2011 20:15

Quote: "Thanks for your offer. Though I already have partly done. (Actually it's in the program, but since I did not have time to finish it, I took it out.) Selecting the them by mouse is easy, what takes longer is the code for resizing the gadget. I should have done soon though. "

i have both codes working

here they are [uncommented though]

set display mode 640,480,32
sync on : sync rate 0
set window on

start bbb gui `"Media\Ruby.msstyles"

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

dbpro_w=get dbpro window()
set main window dbpro_w
maximize window dbpro_W
window set style dbpro_w,window get style(dbpro_w)||WS_CLIPCHILDREN||WS_CLIPSIBLINGS

dim control(20)
global iControlCount
w3=make window(50,50,300,300,"Standard window",dbpro_w, WS_OVERLAPPEDWINDOW)
window set icon w3, "Media\dbpro_icon.ico"

bb=make listview(20,20,150,200,0,LVS_REPORT||LVS_SINGLESEL,w3)
listview insert column bb,0,"1.Column"
listview insert column bb,2,"2.Column"
add(bb)

bbb=make button(5,35,100,20,"Button",bb)
add(bbb)

bb=make window(120,20,120,100,"",bb, WS_CHILD)
window set color bb,100,0,0
add(bb)

a=make radiobox(220,40,120,20,"Radiobox",w3)
add(a)

a=make progressbar(320,20,200,20,0,w3)
progressbar set range a,100
progressbar set position a,75
add(a)

a=make trackbar(320,40,200,20,0,500,w3)
add(a)

`bb=make window(220,20,120,100,"",w3, WS_CHILD)
`wb=make WebBrowser("http:\\www.google.com",bb)
tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,w3)
tab insert item tab,"a",0
add(tab)

a=make checkbox(300,100,100,20,"Checkbox",w3)
add(a)

a=make treeview(10,300,80,100,w3)
b=treeview insert item(a,"Root 1", 1, 2)
add(a)

e1=make editbox(300,300,150,20,0,w3) : editbox set cuebanner e1,"This is cuebanner text"
add(e1)

a=make scrollbar(400,20,15,200,SBS_VERT,w3)
add(a)

bb=make window(400,200,100,100,"",w3, WS_CHILD)
a=make groupbox(0,0,100,100,"Groupbox 1",bb)
add(bb)

bb=make window(400,320,100,100,"",w3, WS_CHILD)
a=make groupbox(0,0,100,100,"Groupbox 1",bb)
add(bb)

color2 as dword
color2=make_transparent_color(0,0,0,1)
w=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property w,"_static",1

left=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property left,"_static",1
window set position left,1000,1000

right=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property right,"_static",1
window set position right,1000,1000

bottom=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property bottom,"_static",1
window set position bottom,1000,1000

top=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property top,"_static",1
window set position top,1000,1000

ll=load cursor(5)
window set cursor left,ll
window set cursor right,ll

rr=load cursor(6)
window set cursor bottom,rr
window set cursor top,rr

type T_Globals
   hCenter hLeft hRight hTop hBottom
   hSelectedControl
   iAction
endtype
global g as T_Globals

make object box 1,2,2,2
do

`text 20,20,str$(tab)
`text 20,40,str$(window position y(bb))
text 20,60,str$(bbb get_windowundermouse())

x=cursor get position x()
y=cursor get position y()

if get mouseclick()=0
	action=0
	window set position w,1000,1000

if we>0
	   show window we,0
	   width=window width(we)
	   height=window height(we)
	   xx=window position x(we)
		yy=window position y(we)
	   bb=bbb get_windowundermouse()
	   if bb<>left and bb<>right and bb<>bottom and bb<>top

window set parent we,bb
         xxx=convert to client x(bb,xx)
		   yyy=convert to client y(bb,yy)
		   window set position we,xxx,yyy
		endif
		
		`left
		window set size left,4,height
		window set position left,xx,yy
		`right
		window set size right,4,height
		window set position right,xx+width-4,yy
		`bottom
		window set size bottom,width,4
		window set position bottom,xx,yy+height-4			
		`top
		window set size top,width,4
		window set position top,xx,yy		
			
				
      show window we,1
	endif
	kebo=0:we=0
endif

for t=0 to iControlCount-1
	 bb=control(t)

if mouse on window(bb) and get mouseclick()=1 and action=0
		saved=bb
   	width=window width(bb)
   	height=window height(bb)
 		xx=window position x(bb)
		yy=window position y(bb)
		window set size w,width,height
		window set position w,xx,yy
		window bring to top w

endif
next t

if mouse on window(w)
   if get mouseclick()=1 and action=0
      we=saved
      action=1
   endif
endif 
   if we>0 and action=1   
	   if get mouseclick()=1 and kebo=0
	      kebo=1
	      raz_x=x-window position x(w)
	      raz_y=y-window position y(w)
	   endif
	   if get mouseclick()=1
		   xx=x-raz_x
		   yy=y-raz_y
		   p=window get parent(we)
		   xxx=convert to client x(p,xx)
		   yyy=convert to client y(p,yy)
		   window set position w,xx,yy
		   window set position we,xxx,yyy
	   endif
	endif
`endif

if mouse on window(left)
   if get mouseclick()=1 and action=0
      we=saved
      action=2
   endif
endif

if we>0 and action=2   
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(left)
	   raz_y=y-window position y(left)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position left,xx,window position y(left)
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,xx)
	   yyy=convert to client y(p,window position y(we))
	  	window set position we,xxx,yyy
	  	window set size we,f_x-xx,window height(we)
	endif
endif

if mouse on window(right)
   if get mouseclick()=1 and action=0
      we=saved
      action=3
   endif
endif

if we>0 and action=3   
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(right)
	   raz_y=y-window position y(right)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position right,xx,window position y(right)
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,xx)
	   yyy=convert to client y(p,window position y(we))
	  	//window set position we,xxx,yyy
	  	window set size we,xx-window position x(we),window height(we)
	endif
endif

//bottom
if mouse on window(bottom)
   if get mouseclick()=1 and action=0
      we=saved
      action=4
   endif
endif

if we>0 and action=4 
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(bottom)
	   raz_y=y-window position y(bottom)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position bottom,window position x(bottom),yy
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,window position x(we))
	   yyy=convert to client y(p,yy)
	  	//window set position we,xxx,yyy
	  	window set size we,window width(we),yy-window position y(we)
	endif
endif

//top
if mouse on window(top)
   if get mouseclick()=1 and action=0
      we=saved
      action=5
   endif
endif

if we>0 and action=5  
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(top)
	   raz_y=y-window position y(top)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position top,window position x(top),yy
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,window position x(we))
	   yyy=convert to client y(p,yy)
	  	window set position we,xxx,yyy
	  	window set size we,window width(we),f_y-yy
	endif
endif

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

function make_transparent_color(r,g,b,alpha)
	col as dword
	col=rgb(r,g,b)
	col=(col && (alpha<<24))
endfunction col

function add(w)
   control(iControlCount)=w
   inc iControlCount	
endfunction

set display mode 640,480,32
sync on : sync rate 0
set window on

start bbb gui `"Media\Ruby.msstyles"

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

dbpro_w=get dbpro window()
set main window dbpro_w
maximize window dbpro_W
window set style dbpro_w,window get style(dbpro_w)||WS_CLIPCHILDREN||WS_CLIPSIBLINGS


dim control(20)
global iControlCount
w3=make window(50,50,300,300,"Standard window",dbpro_w, WS_OVERLAPPEDWINDOW)
window set icon w3, "Media\dbpro_icon.ico"

bb=make listview(20,20,150,200,0,LVS_REPORT||LVS_SINGLESEL,w3)
listview insert column bb,0,"1.Column"
listview insert column bb,2,"2.Column"
add(bb)

bbb=make button(5,35,100,20,"Button",bb)
add(bbb)

bb=make window(120,20,120,100,"",bb, WS_CHILD)
window set color bb,100,0,0
add(bb)

a=make radiobox(220,40,120,20,"Radiobox",w3)
add(a)

a=make progressbar(320,20,200,20,0,w3)
progressbar set range a,100
progressbar set position a,75
add(a)

a=make trackbar(320,40,200,20,0,500,w3)
add(a)

`bb=make window(220,20,120,100,"",w3, WS_CHILD)
`wb=make WebBrowser("http:\\www.google.com",bb)
tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,w3)
tab insert item tab,"a",0
add(tab)

a=make checkbox(300,100,100,20,"Checkbox",w3)
add(a)

a=make treeview(10,300,80,100,w3)
b=treeview insert item(a,"Root 1", 1, 2)
add(a)

e1=make editbox(300,300,150,20,0,w3) : editbox set cuebanner e1,"This is cuebanner text"
add(e1)

a=make scrollbar(400,20,15,200,SBS_VERT,w3)
add(a)

bb=make window(400,200,100,100,"",w3, WS_CHILD)
a=make groupbox(0,0,100,100,"Groupbox 1",bb)
add(bb)

bb=make window(400,320,100,100,"",w3, WS_CHILD)
a=make groupbox(0,0,100,100,"Groupbox 1",bb)
add(bb)

color2 as dword
color2=make_transparent_color(0,0,0,1)
w=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property w,"_static",1


left=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property left,"_static",1
window set position left,1000,1000

right=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property right,"_static",1
window set position right,1000,1000

bottom=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property bottom,"_static",1
window set position bottom,1000,1000

top=make layered window(450,50,400,300,"Media\llc_loading_frame.bmp",color2,w3,LWA_ALPHA)
window set property top,"_static",1
window set position top,1000,1000

ll=load cursor(5)
window set cursor left,ll
window set cursor right,ll

rr=load cursor(6)
window set cursor bottom,rr
window set cursor top,rr

type T_Globals
   hCenter hLeft hRight hTop hBottom
   hSelectedControl
   iAction
endtype
global g as T_Globals


make object box 1,2,2,2
do

`text 20,20,str$(tab)
`text 20,40,str$(window position y(bb))
text 20,60,str$(bbb get_windowundermouse())

x=cursor get position x()
y=cursor get position y()

if get mouseclick()=0
	action=0
	window set position w,1000,1000

	if we>0
	   show window we,0
	   width=window width(we)
	   height=window height(we)
	   xx=window position x(we)
		yy=window position y(we)
	   bb=bbb get_windowundermouse()
	   if bb<>left and bb<>right and bb<>bottom and bb<>top

         window set parent we,bb
         xxx=convert to client x(bb,xx)
		   yyy=convert to client y(bb,yy)
		   window set position we,xxx,yyy
		endif
		
		`left
		window set size left,4,height
		window set position left,xx,yy
		`right
		window set size right,4,height
		window set position right,xx+width-4,yy
		`bottom
		window set size bottom,width,4
		window set position bottom,xx,yy+height-4			
		`top
		window set size top,width,4
		window set position top,xx,yy		
			
				
      show window we,1
	endif
	kebo=0:we=0
endif



for t=0 to iControlCount-1
	 bb=control(t)

    if mouse on window(bb) and get mouseclick()=1 and action=0
		saved=bb
   	width=window width(bb)
   	height=window height(bb)
 		xx=window position x(bb)
		yy=window position y(bb)
		window set size w,width,height
		window set position w,xx,yy
		window bring to top w  


    endif
next t

if mouse on window(w)
   if get mouseclick()=1 and action=0
      we=saved
      action=1
   endif
endif 
   if we>0 and action=1   
	   if get mouseclick()=1 and kebo=0
	      kebo=1
	      raz_x=x-window position x(w)
	      raz_y=y-window position y(w)
	   endif
	   if get mouseclick()=1
		   xx=x-raz_x
		   yy=y-raz_y
		   p=window get parent(we)
		   xxx=convert to client x(p,xx)
		   yyy=convert to client y(p,yy)
		   window set position w,xx,yy
		   window set position we,xxx,yyy
	   endif
	endif
`endif

if mouse on window(left)
   if get mouseclick()=1 and action=0
      we=saved
      action=2
   endif
endif

if we>0 and action=2   
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(left)
	   raz_y=y-window position y(left)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position left,xx,window position y(left)
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,xx)
	   yyy=convert to client y(p,window position y(we))
	  	window set position we,xxx,yyy
	  	window set size we,f_x-xx,window height(we)
	endif
endif

if mouse on window(right)
   if get mouseclick()=1 and action=0
      we=saved
      action=3
   endif
endif

if we>0 and action=3   
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(right)
	   raz_y=y-window position y(right)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position right,xx,window position y(right)
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,xx)
	   yyy=convert to client y(p,window position y(we))
	  	//window set position we,xxx,yyy
	  	window set size we,xx-window position x(we),window height(we)
	endif
endif

//bottom
if mouse on window(bottom)
   if get mouseclick()=1 and action=0
      we=saved
      action=4
   endif
endif

if we>0 and action=4 
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(bottom)
	   raz_y=y-window position y(bottom)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position bottom,window position x(bottom),yy
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,window position x(we))
	   yyy=convert to client y(p,yy)
	  	//window set position we,xxx,yyy
	  	window set size we,window width(we),yy-window position y(we)
	endif
endif

//top
if mouse on window(top)
   if get mouseclick()=1 and action=0
      we=saved
      action=5
   endif
endif

if we>0 and action=5  
	if get mouseclick()=1 and kebo=0
	   kebo=1
	   f_x=window position x(we)+window width(we)
	   f_y=window position y(we)+window height(we)
	      
	   raz_x=x-window position x(top)
	   raz_y=y-window position y(top)
	endif
	if get mouseclick()=1
	 	xx=x-raz_x
	   yy=y-raz_y
	 	window set position top,window position x(top),yy
	  
	 	p=window get parent(we)
	   xxx=convert to client x(p,window position x(we))
	   yyy=convert to client y(p,yy)
	  	window set position we,xxx,yyy
	  	window set size we,window width(we),f_y-yy
	endif
endif


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



function make_transparent_color(r,g,b,alpha)
	col as dword
	col=rgb(r,g,b)
	col=(col && (alpha<<24))
endfunction col

function add(w)
   control(iControlCount)=w
   inc iControlCount	
endfunction

you will also need the newest version of bbb gui

Attachments

Login to view attachments

Back to top

Profile PM Email

kamac

13

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 28th Mar 2011 20:44

( BTW. You'r plugin owns

)

Back to top

Profile PM Email

Admiral MH

13

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 29th Mar 2011 19:29 Edited at: 29th Mar 2011 20:31

Quote: "i have both codes working

here they are [uncommented though]"

Wow the code is great! I'll be able to use some of code for the editor then. Thank you.

By the way, the "Get Mouseclick" does not seem to work if the mouse is over a menu.

[Edit]
It seems that it does not work over rebars also. But as for menus I did some more testing and it only works for the DBPro window. But not other windows that have menus.

Also as a feature request, it would be nice for the drawing operation commands "draw rectangle, ect..." to be able choose which color you would want.

Back to top

Profile PM

Non Sequitur M

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location: Where am I!? Where are YOU?

Posted: 31st Mar 2011 02:10

I've looked through this thread. I can't find a help file, or even a keyword/syntax list that is easy on the eyes. Are there any known help files? That would be appreciated, thanks.

If life were like a box of chocolates, I'd know what I would get... The one that got dropped on the floor and put back in the box.

Iye nehvur yoose spehl chehk, ahn mie tippyng izz fiyne.

Back to top

Profile PM Email

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 31st Mar 2011 03:03

@ Admiral MH

Quote: "By the way, the "Get Mouseclick" does not seem to work if the mouse is over a menu."

Quote: "[Edit]
It seems that it does not work over rebars also."

GET MOUSECLICK command works only on controls that are in the code i posted above. I didn't have time to make it work on every control, but now i have so it will be done in a day or two.

Quote: "Also as a feature request, it would be nice for the drawing operation commands "draw rectangle, ect..." to be able choose which color you would want. "

I will try to implement that feature.

@ Amo Deus Man

Quote: "I can't find a help file,"

No help files exist ...yet, but i'm working on them.

Quote: "or even a keyword/syntax list that is easy on the eyes"

Check the first page of this thread, or download a rar file from first post on the first page of this thread, in the "editor\keywords" folder there is a keyword file with all the commands and their syntax

Quote: "Are there any known help files?"

for the plugin itself, no but you can get a lots of info about control styles on the msdn page, just google for it

Back to top

Profile PM Email

Non Sequitur M

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location: Where am I!? Where are YOU?

Posted: 31st Mar 2011 19:02

Ok. Thanks.

If life were like a box of chocolates, I'd know what I would get... The one that got dropped on the floor and put back in the box.

Iye nehvur yoose spehl chehk, ahn mie tippyng izz fiyne.

Back to top

Profile PM Email

A r e n a s

15

Years of Service

User Offline

Joined: 9th Jun 2008

Location:

Posted: 31st Mar 2011 23:50 Edited at: 1st Apr 2011 00:10

Hi, me again.

Is it possible to detect the position of the cursor inside an editbox? I ask only cause at the moment there are issues with finding exactly where the users mouse is clicked in the box. It will only pay attention to changes made, and not to where the cursor has been placed.

Im also getting a strange problem in the new editbox style you made for us, when loading lines of code seperated by the two windows characters which act as a new line (chr$ 13 and 15), after one open of a file of text (displayed line by line with the new line seperating), it will display fine, but when i open the file a second time (or further times) the newlines are not placed into the editbox... I dont have any issues with this in a normal editbox, just the new version of the rich edit box you made for us. If you could solve that then it would be great, i'll attact an image to demonstrate what i mean.

NB, It seems that the length of the string i am inserting into the rich edit box may have an effect on this bug.

Thanks,

Attachments

Login to view attachments

Back to top

Profile PM Email

Brendy boy

18

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 1st Apr 2011 23:49 Edited at: 2nd Apr 2011 00:04

Quote: "Is it possible to detect the position of the cursor inside an editbox?"

EDITBOX GET SELECTED CHAR(editbox, which char) should return the position of the caret if there is no selected text inside the editbox

Quote: "Im also getting a strange problem in the new editbox style you made for us, when loading lines of code seperated by the two windows characters which act as a new line (chr$ 13 and 15), after one open of a file of text (displayed line by line with the new line seperating), it will display fine, but when i open the file a second time (or further times) the newlines are not placed into the editbox.."

Can you provide the sample code, the error is happening probably because the text can't be set or get using the commands from editbox. Rich editbox has different way for setting and retrieving text -> I will add those commands

EDIT:

Quote: "By the way, the "Get Mouseclick" does not seem to work if the mouse is over a menu."

this can't be done unfortunatelly