Page 1 of 1
Any visual design type source available?
Posted: Sun Apr 18, 2004 12:30 pm
by Dare2
Does anyone know if there is any visual design type source available anywhere?
I am mainly interested in the front-end (the user interface, drawing gadgets, form layout and so on) as I would be applying my own methods of integrating into a program.
Basically, I am lazy and the user interface or layout represents a lot of fiddly work which I would prefer to avoid.
It is how that interface is translated into a usable program that I want to deal with.
I live in hope, and many thanks to anyone who realises that hope!
Posted: Sun Apr 18, 2004 1:55 pm
by Berikco
Posted: Sun Apr 18, 2004 11:59 pm
by Dare2
Thanks.
Posted: Mon Apr 19, 2004 8:23 am
by Berikco
Dare2 wrote:Thanks.
No problem, it's the source where i started with
Posted: Mon Apr 19, 2004 9:06 am
by Fred
Posted: Mon Apr 19, 2004 9:09 am
by Berikco
Dare2 wrote:Thanks.
To bad it's full of bugs
Posted: Mon Apr 19, 2004 9:13 am
by Dare2
Theres a reasonable-ish start to one in, coded in BCX. Full of gadgety things.
However,
But,
Str and
Chk is a good start as well.
Posted: Mon May 29, 2006 3:21 pm
by Sven
@Berikco
Can you post the link to the old Visual Designer source again, please? I need the possibility for moving and sizing some gadgets with mouse by my own but have no idea how to start.
It's not another VD project
Sven
Posted: Mon May 29, 2006 3:52 pm
by josku_x
Fred wrote:
Did I loose focus? What does Fred do with the twisted evil?
(To be honest, I am a bit scared, Fred could kill me
)
Posted: Mon May 29, 2006 8:24 pm
by Trond
Sven wrote:@Berikco
Can you post the link to the old Visual Designer source again, please? I need the possibility for moving and sizing some gadgets with mouse by my own but have no idea how to start.
It's not another VD project
Sven
Code: Select all
OpenWindow(0, 0, 0, 640, 480, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))
ButtonGadget(0, 10, 10, 97, 25, "Drag me!")
Define Dragging
Define Relative.POINT
Repeat
Select WaitWindowEvent()
Case #WM_LBUTTONDOWN
If WindowMouseX(0) > GadgetX(0) And WindowMouseY(0) > GadgetY(0)
If WindowMouseX(0) < (GadgetX(0)+GadgetWidth(0)) And WindowMouseY(0) < (GadgetY(0)+GadgetHeight(0))
SetGadgetText(0, "Dragging...")
Dragging = 1
Relative\x = WindowMouseX(0) - GadgetX(0)
Relative\y = WindowMouseY(0) - GadgetY(0)
GetClientRect_(WindowID(0), @Rect.RECT)
Rect\top + WindowY(0) + GetSystemMetrics_(#SM_CYCAPTION) + GetSystemMetrics_(#SM_CXDLGFRAME)
Rect\left + WindowX(0) + GetSystemMetrics_(#SM_CXDLGFRAME)
Rect\bottom + Rect\top
Rect\right + Rect\left
ClipCursor_(@Rect)
EndIf
EndIf
Case #WM_MOUSEMOVE
If Dragging
ResizeGadget(0, WindowMouseX(0) - Relative\x, WindowMouseY(0) - Relative\y, #PB_Ignore, #PB_Ignore)
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Dragging = 0
ClipCursor_(0)
SetGadgetText(0, "Drag me!")
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver