OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   Another little X6 toolbar toy - Multigon (Multitype-Polygon Generator) (http://forum.oberonplace.com/showthread.php?t=8202)

Joe 17-05-2012 09:04

Another little X6 toolbar toy - Multigon (Multitype-Polygon Generator)
 
1 Attachment(s)
If you are terrible at drawing flowers, like me, this one's for you! :)

http://i.imgur.com/gxVw7.png

It's basically the star tool, just with instant node type changing, adjust the settings, then click the button to generate a shape in the middle of the page:

http://i.imgur.com/sRuMy.png

The code to install it is in the zip, but also here:

Code:

Sub addMultigonDocker()
    Dim dockerAssembly As String
    dockerAssembly = "D:\YOUR PATH GOES HERE\Multigon.dll"
   
    Call FrameWork.AddDocker("0F10EF19-3BD9-458F-9FA5-60320658A792", "Multigon.Docker", dockerAssembly)
    Call FrameWork.CommandBars("Dockers").Controls.AddToggleButton("0F10EF19-3BD9-458F-9FA5-60320658A792", 0, False)
End Sub

Make sure to get the path to the DLL right on the first time. If not, change a character or two in the GUID (0F10EF19-3BD9-458F-9FA5-60320658A792) and try again.

An infinite supply of flowers, bottle caps, stamps, badges and other things await. Enjoy!

PS. I know it's a tad cumbersome at first, but after a bit you see the settings in your head. If there's enough interest I might make a live preview version and/or a click to place and set size version.

PSPS. Also (and this might as well be a signature, heh) massive thanks to Shelby for helping with a potentially buggy bit on the other side. Thought I was going crazy there for a bit.

Joe 19-05-2012 04:41

Update 1 - Wild Ripsaw Edition
 
1 Attachment(s)
Having done some interface improvements to the main project and learned the data binding system that WPF provides (it's awesome, btw) I decided to update Multigon as well:

http://i.imgur.com/XsTGt.png

You now get an interface more in line with CorelDRAW standards, several ways to input the values + presets. Neat.

Also a new function - you can now shift the outer nodes by a percentage of a full step letting you make some rather neat shapes easily:

http://i.imgur.com/7Q2nw.png

Two more improvements - the icons now look sharp and the rotational center of the shape is now set at the exact center of the shape.

Enjoy, feedback welcome.

Joe 20-05-2012 16:38

Gears of more
 
1 Attachment(s)
Well, I'll just keep on improving the thing with things that seem useful... So what more can a Multitype Polygon Generator need? More Polygon types, of course!

http://i.imgur.com/REeYk.png

Eight more types, to be exact, including the rather neat gears:

http://i.imgur.com/flodx.png

I have this silly idea of a pattern-based side editing option, but that may be going too far. This is probably the last version for a while. Enjoy, as usual.

SteveDude 28-05-2012 13:50

...That's pretty cool.
 
Try using this when you are adding the toggle button...
Code:

    With FrameWork.CommandBars("Dockers").Controls.AddToggleButton("0F10EF19-3BD9-458F-9FA5-60320658A792", 0, False)
.Caption="Multigon Tool"
End With

End Sub

The only bad thing is that it doesn't stick the next time you load Draw...it is a bug. There are a couple of ways to make it work though with one, adding everything but the button with AppUI.xslt and DrawUI.xslt and then add just the Toggle Button with VBA, not defining the caption.

You might also try wrapping everything in BeginCommandGroup and EndCommandGroup so you can easily undo and redo it.

Joe 28-05-2012 14:05

Ah, neat, thanks for the way to change the caption. Will have to find a way to make it stick, though. I have another docker I'd like to make a proper product of and that would need easy installation, proper button with icons, etc.

Also will check if I have forgotten a commandgroup, usually have them everywhere.

SteveDude 28-05-2012 14:12

...
 
You can just use the .xslt's to add everything actually. You can do it the way Shelby described using a Macro to just toggle the docker on or off, or forget about the macro and remember a ToggleButton is just a checkbox.

I'm using the Macro Toggle on these...

http://www.softbotz.com/QRCode/
http://www.softbotz.com/DockerSet1/

Have the need for VBA elminated and will put it in the next versions.

nic 05-11-2013 18:01

malware detected error
 
Just a note to say that bitdefender blocks access to Stevedudes links

http://ww.5oftbotz.com/QRCode/
http://ww.5oftbotz.com/DockerSet1/

and reports they conatain malware


If it's a false positive would someone remove this post.

SteveDude 06-11-2013 09:11

...
 
I can guarantee you there is no malware on my site. In fact, everything I do I code sign, including any GMS files I create.

Those links have not been a available for a very long time, so whatever is getting blocked is where your browser is being redirected too when a link is not valid and that can be determined by the browser or even your own ISP.

If you want the updated links, let me know.

You can get the QRCode docker from unleash.com.

nic 07-11-2013 05:19

followed links
 
Hi Stevedude
thanks for the reassurance. Just tried again and Bitdefender does block access to the pages listed and not redirected pages. Based upon your reply I ignored the warning and did get your pages and cant see what Bitdefender complained about. - fyi - it's not the download links that it reports as being suspect but the whole page.
Best wishes
nic

ddonnahoe 07-11-2013 08:10

Quote:

Originally Posted by SteveDude (Post 37544)
I can guarantee you there is no malware on my site. In fact, everything I do I code sign, including any GMS files I create.

Those links have not been a available for a very long time, so whatever is getting blocked is where your browser is being redirected too when a link is not valid and that can be determined by the browser or even your own ISP.

If you want the updated links, let me know.

You can get the QRCode docker from unleash.com.

Steve, how do you do code signing? I would love to do this with my macros.

Sean.

SteveDude 07-11-2013 17:30

Links
 
Nic,

That's odd, but the links you posted are not to my site...

http://ww.5oftbotz.com/QRCode/
http://ww.5oftbotz.com/DockerSet1/

...and the ones that were equivalent no longer exist.

If you run an EXE that you download from site, with UAC on it will show my name as the publisher. If it doesn't, don't run it.

Steve

SteveDude 07-11-2013 17:34

Code Signing
 
Hey Sean,

I use Comodo because they are a bit cheaper, but there are others...

They work with GMS files as well as DLL's, EXE's, etc...

Steve

nic 08-11-2013 20:23

old links still there
 
Hi Steve
the links I posted were altered just in case. The old links were still live just now when I checked.

I only have the free version of Bitdefender and cant seem to find what it is picking up on but it does find something on those old pages that it doesn't like - to be clear it is the page rather than your tools that it complains about.
best wishes,
nic

SteveDude 09-11-2013 12:59

...
 
I made those pages with my Help Compiler. They use frames, cookies for the history and quite a bit of javaScript.

I'll look into it and see what may be causing it.

Thanks!

Plixo 06-12-2013 07:10

How to change the title of a docker?
 
Hi Steve,

Thx for your docker, installed and using it mostly for gears ;-)

One question: I'm making my own docker [creating of parts for a 3D box] without too much trouble, hoping to put it there, but do you know how to change the title of the docker to something else than the class path, for example "Multigon Creator" instead of the automatic "Multigon.Docker" ?

I would guess some params of Call FrameWork.AddDocker but can't find documentation.

Thx in advance.

SteveDude 10-12-2013 10:40

...
 
If you wrap...

FrameWork.CommandBars("XXXX").Controls.... using With, you will have access to more properties.

I personally don't add mine with VBA. Just use VBA to toggle them on and off.

Plixo 11-12-2013 09:10

Quote:

Originally Posted by SteveDude (Post 37575)
If you wrap...

FrameWork.CommandBars("XXXX").Controls.... using With, you will have access to more properties.

I personally don't add mine with VBA. Just use VBA to toggle them on and off.

Thanks, will give it a try with my new docker, this time to generate Pipe markers labels compliant with GHS and ISO 14726, even more niche haha :insane:

I guess the other option would be to go for the xml thing...


All times are GMT -5. The time now is 17:09.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com