Form Designer 5.10

[Polo]

Code: Select all

Global Window_0

Global Button_0, Spin_0, TrackBar_0, ProgressBar_0, Scrollbar_0, Option_0, Checkbox_0, Combo_0, String_0

Procedure InitWindow_0()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 860, 460, "Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  CreateStatusBar(0, WindowID(Window_0))
  AddStatusBarField(100)
  StatusBarText(0, 0, "Text")
  AddStatusBarField(100)
  StatusBarProgress(0, 1, 0)
  CreateMenu(0, WindowID(Window_0))
  MenuTitle("File")
  MenuTitle("Edit")
  Button_0 = ButtonGadget(#PB_Any, 30, 20, 120, 30, "Button")
  Spin_0 = SpinGadget(#PB_Any, 30, 60, 120, 30, 0, 0)
  TrackBar_0 = TrackBarGadget(#PB_Any, 30, 100, 120, 30, 0, 0)
  ProgressBar_0 = ProgressBarGadget(#PB_Any, 30, 140, 120, 20, 0, 0)
  Scrollbar_0 = ScrollBarGadget(#PB_Any, 20, 390, 590, 30, 0, 0, 0)
  Option_0 = OptionGadget(#PB_Any, 30, 170, 110, 30, "Option")
  Checkbox_0 = CheckBoxGadget(#PB_Any, 30, 210, 130, 30, "Checkbox")
  Combo_0 = ComboBoxGadget(#PB_Any, 230, 20, 220, 30)
  String_0 = StringGadget(#PB_Any, 230, 60, 220, 30, "")
EndProcedure


Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

InitWindow_0()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Sure please run this dirty example

[Warmonger]

Code: Select all

Global Window_0

Global Button_0, Spin_0, TrackBar_0, ProgressBar_0, Scrollbar_0, Option_0, Checkbox_0, Combo_0, String_0

Procedure InitWindow_0()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 860, 460, "Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  CreateStatusBar(0, WindowID(Window_0))
  AddStatusBarField(100)
  StatusBarText(0, 0, "Text")
  AddStatusBarField(100)
  StatusBarProgress(0, 1, 0)
  CreateMenu(0, WindowID(Window_0))
  MenuTitle("File")
  MenuTitle("Edit")
  Button_0 = ButtonGadget(#PB_Any, 30, 20, 120, 30, "Button")
  Spin_0 = SpinGadget(#PB_Any, 30, 60, 120, 30, 0, 0)
  TrackBar_0 = TrackBarGadget(#PB_Any, 30, 100, 120, 30, 0, 0)
  ProgressBar_0 = ProgressBarGadget(#PB_Any, 30, 140, 120, 20, 0, 0)
  Scrollbar_0 = ScrollBarGadget(#PB_Any, 20, 390, 590, 30, 0, 0, 0)
  Option_0 = OptionGadget(#PB_Any, 30, 170, 110, 30, "Option")
  Checkbox_0 = CheckBoxGadget(#PB_Any, 30, 210, 130, 30, "Checkbox")
  Combo_0 = ComboBoxGadget(#PB_Any, 230, 20, 220, 30)
  String_0 = StringGadget(#PB_Any, 230, 60, 220, 30, "")
EndProcedure


Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

InitWindow_0()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Sure please run this dirty example

http://dl.dropbox.com/u/25001960/Capture.zip

Looks like scroll bar's are little bugged

[Polo]

http://dl.dropbox.com/u/25001960/Capture.zip

Looks like scroll bar's are little bugged

Thanks!

Sorry, made the example on OSX where the menubar is not included in the innerheight of the window, hence the scrollbars drawn a little bit down
Is this the standard Win8 style? looks awful!

[Warmonger]

http://dl.dropbox.com/u/25001960/Capture.zip

Looks like scroll bar's are little bugged

Thanks!

Sorry, made the example on OSX where the menubar is not included in the innerheight of the window, hence the scrollbars drawn a little bit down
Is this the standard Win8 style? looks awful!

Yes, this is the original style/theme that comes default with Windows 8. I think it looks way better then the high gloss Vista theme. Aero and all of that was removed from Windows 8. It's super light and super fast (in benchmarks it out performs Windows 7). Microsoft got tired of the high gloss, transparent era. Now we are starting the Metro era (all Microsoft products are being updated to Metro theming Office, Hotmail (already is), Windows).

[Polo]

Ok thanks, I'll start a Win8 skin when I can

[Warmonger]

Is this written in native PB? If so have you ever thought of open sourcing it?

[Polo]

Is this written in native PB? If so have you ever thought of open sourcing it?

It's fully written in PB (I think I'm using only one API call, only on Windows).

However it'll never be open sourced, sorry. Fred has access to the sources but that's it, it's a huge project, and everybody knows it would end up sold by someone for another language while I provide the tool for free.

[Polo]

I've started the Windows 8 skin, and added a new feature: you'll now be able to choose the OS skin in the preferences, meaning you can see how your window will look like (more or less anyway!) in OSX and Linux while coding in Windows

[Warmonger]

Another bug with 3D frames, you can see the height of the ListView is proportionate to the frame in the editor, but when compiled it is not.



Fix: As you can see the line runs through the caption, not below it.


Edit: This cant be good either (only seems to happen while inside a 3D frame).

[Polo]

Thanks for the report.
However, frames are no containers, just decoration so gadgets position cannot be relative to a 3d frame.
The difference you see in your example is because the 3d frame is not drawn the same way in the editor than in Win8.

I'd like the code for the last example as I have no explanation for this!

[Polo]

Ok found the bug, nice catch!
Fixed for next version.

[Polo]

Here's the Win8 skin (running on Seven). It's absolutely not finished but will do for now
You have the choice of OSX, Win7, Win8 or Linux Ubuntu (kind of) skins.

[Bisonte]

your blue seems to be too dark : Use the offical standard color : RGB(183,204,225) (MSDN)

[Polo]

I used the same blue that is in Warmonger's screenshots. This is not Windows 7's blue

[spacebuddy]

Polo, when is next beta?