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.


All times are GMT -5. The time now is 08:05.

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