SweetyVD (Visual Designer)

Michael Vogel · **Joined:** Thu Feb 09, 2006 11:27 pm **Posts:** 2443

Really cool - maybe it will find it's way into PB6 :wink:

What I didn't see so far - saving/loading a design. This could be easily done by something like...

Code:

      Procedure SaveDesign(file.s="Test.svd")

         If CreateFile(0,file)

            ResetMap(SVDListGadget())
            With SVDListGadget()
               While NextMapElement(SVDListGadget())
                  WriteInteger(0,\Gadget)
                  WriteInteger(0,\Type)
                  WriteInteger(0,\DragHandle)
                  WriteInteger(0,\X)
                  WriteInteger(0,\Y)
                  WriteString(0,\Model)
                  WriteString(0,\Name)
                  :
               Wend
               CloseFile(0)
            EndWith
         EndIf

      EndProcedure

...if everything of the design is saved in SVDListGadget structure. Is this correct or is more information needed to restore a saved form?

Zebuddi123 · **Posted:** Sat Jul 15, 2017 2:54 pm

Hi Michael Vogel yes there is more ! I have programmed all the extraction for all required fields and reloading and reinitializing the the gui with the loaded saved form. As I`m doing this when time permits it`s taking longer than I had hoped. Plus having to follow and understand someone else`s code. Hopefully I`ll get back to it this weekend.

Chris R have done a great job. I for one think it should be included in PB6+ lol (sorry polo no offence ment) but then again I`m sure some of the better coders could do it quicker and better.

Export and imports as xml

Zebuddi.

loulou2522 · **Joined:** Tue Oct 14, 2014 12:09 pm **Posts:** 233

Hi Zebuddi123,
I am very impatient to see the result when did you post the new code ?
Thanks in advance

Zebuddi123 · **Posted:** Sun Jul 16, 2017 9:38 pm

Hi loulou2522 and All. Had some time today and just finished. Save and Load is up and running although not extensively tested. I`ll post the code as a zip with link shortly, please test but remember I am still figuring out as I go along how ChrisR`s code is set up!

As I thought ChrisR code would been nice clean and easy to follow

although it does get a bit complicated for me after line 14. But I have persevered :lol:

I hope it runs without to much of a hiccup. Famous last words

Zebuddi.

Zebuddi123 · **Posted:** Sun Jul 16, 2017 9:52 pm

Hi to All Here`s The Link

Updated link forgot to free a map on load complete. :oops:

Zebuddi.

https://goo.gl/sp1hDo

blueb · **Posted:** Mon Jul 17, 2017 2:42 pm

Is it just me, or did you lose all the color information?

e.g. - backcolor of Main Form
- Front/back color on Container, etc.

Zebuddi123 · **Posted:** Mon Jul 17, 2017 4:13 pm

Hi blueb just working on userdata now. Main goal for yesterday was to get the gadget to load in correct positions and redraw, Having to scan through the code as some of the userdata ie windows width/height are not save in the original map. So Hopefully next couple of days as time permits I will have that sorted.

Zebuddi.

Klonk · **Joined:** Tue Jul 13, 2004 2:17 pm **Posts:** 171

Looks very nice. Good work...

BarryG · **Joined:** Thu Apr 18, 2019 8:17 am **Posts:** 329

Downloaded SweetyVD just now to test it, but it doesn't run on my PC.

I hope it's not looking in the Registry for the Compiler home path, because I run PureBasic portably.

blueb · **Posted:** Sat Jun 01, 2019 2:05 pm

Look in your PureBasic Themes folder (e.g. F:\PureBasic\Themes) for
the SilkTheme.zip. Copy it over to the same folder as SweetyVD.

SweetyVD will unzip it as needed.

BarryG · **Joined:** Thu Apr 18, 2019 8:17 am **Posts:** 329

Thanks blueb, that worked.

PureBasic Forum

SweetyVD (Visual Designer)

Who is online