Any visual design type source available?

Post by **Dare2** » Sun Apr 18, 2004 12:30 pm

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!

Post by **Berikco** » Sun Apr 18, 2004 1:55 pm

Here is a Visual Designer source
http://users.pandora.be/berikco/downloa ... signer.zip

Post by **Dare2** » Sun Apr 18, 2004 11:59 pm

Thanks.

Post by **Berikco** » Mon Apr 19, 2004 8:23 am

Dare2 wrote:Thanks.

No problem, it's the source where i started with

Post by **Fred** » Mon Apr 19, 2004 9:06 am

Post by **Berikco** » Mon Apr 19, 2004 9:09 am

Dare2 wrote:Thanks.

To bad it's full of bugs

Post by **Dare2** » Mon Apr 19, 2004 9:13 am

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.

Sven · Post by **Sven** » Mon May 29, 2006 3:21 pm

@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

josku_x · Post by **josku_x** » Mon May 29, 2006 3:52 pm

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

)

Trond · Post by **Trond** » Mon May 29, 2006 8:24 pm

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