This macro automatically fixes DRAW X4 export routine so that it will create TIF files compatible with Photoshop CS3

Install the macro & forget it

The only required condition for the macro to work, which is set in the macro installer by default: Tools->Options->VBA->DelayLoadVBA = OFF

Here's the macro that displays a separate small horizontal info bar when the bitmap is selected.

The info window is moveable, yet I think it's best to put it right over the object details status bar section.

The only required condition for the macro to work, which is set in the macro installer by default: Tools->Options->VBA->DelayLoadVBA = OFF

This patch extends size of 9 dialogs in Options of DRAW & PhotoPAINT 11, 12, X3, X4 and also NEW FontNavigator's font properties and duplicate font finder.

Customization commands & toolbars
Quickcorrect words list
Text styles
Page labels
Associate
Active file filters
Warnings
Printing compatibility lists.

Click on small thumbnails to see larger pictures.

• wx.ShowHideToolbars - toggles visibility of UI elements
  toolbars, palettes, menu, rulers, guides, dockers, application caption (Windows TaskBar may also be hidden)
• wx.SetupShowHideToolbars - setup of UI elements to be toggled.
  (The options are remembered and are used by the main macro ShowHideToolbars)
• wx.LockToolbars & wx.UnlockToolbars - to prevent accidental moving of toolbars & menu
  due to a DRAW's bug locking may require an additional procedure if after toolbars locking there is no your custom toolbars in the UI rightclick menu:
  1. restart DRAW, run the wx.SetupShowHideToolbars macro, click Repair
  2. confirm your workspace xml file (click OK in the dialog that appears)
  3. a folder with your xml workspace is opened, keep it, don't close
  4. exit DRAW
  5. delete DRAWUIConfig xml and rename DRAWUIConfig-FIXED xml to the original name (DRAWUIConfig xml)
      if your Explorer isn't showing xml extension then don't type it explicitly of course :-)
• wx.guidesToggleEdit - Toggle guides layer editability in 1click
  (default master layer only)
• wx.DockersShufflerToggle - quickly show/hide dockers-shuffler
  (Assign a keyboard shortcut for this macro)
• Document "InstaSwitch" 2008 Feb, 22 cool!
  

  Makes document contents instantly active and selectable with the very first click after switching of documents, for example with Ctrl-Tab

  Requires that menu Tools->Options->VBA-> [ ] DelayLoadVBA is unchecked

  Automaticaly loaded in CorelDRAW v12,X3,X4 but not v11.

  Explanation: by default when you switch documents in CorelDRAW v11—X4 with Ctrl-Tab your first mouse click in the new window will be ignored making you think there's something wrong with the pointing device :-), so to select a shape you have to click once more.

  
  

To pan (scroll) with mouse wheel instead of zoom.

Put CorelPanScroll.zip in Startup folder of Windows Start Menu (and run it manually for the first time).

The utility sits in tray area and filters mouse events only in CorelDRAW/PhotoPAINT windows and so does not influence overall system performance, and even while it is active it consumes not more than 1% of cpu power.

• Wheel - pan vertically. Alt+Wheel- pan horizontally.
• Ctrl+Wheel- zoom. Shift+Wheel- slow in DRAW or fast :-) in PhotoPAINT
• Press and hold Wheel- to pan quickly the document window
• To make it launch with CorelDRAW -
  create a new shortcut to CorelPanScroll.zip which you will now use to launch DRAW
  and edit shortcuts's properties to make command line look like:
  "C:\path\CorelPanScroll.zip" "c:\Program Files\Corel\CorelDRAW Graphics Suite 13\Programs\CorelDRW.zip"
• [ Source AHK script ]

• PPapiTimer.PaintMaxEdit - opens maximized PhotoPAINT window for selected bitmap shape
  (Assign a toolbar button / keyboard shortcut for this macro)
• PPapiTimer.PaintMaxSetup - setups CorelDRAW internal EditBitmap command
  subsequent calls to "Edit Bitmap" command (doubleclick in CorelDRAW 12) will open PhotoPAINT in maximized state

• Synchronously pan & zoom in two document windows (2nd window is auto-opened).
• Active window is shown in Enhanced view, the other window in wireframe by default.
• Behaviour can be changed by modifying macro text (most easily done with the above MacroInstaller)

The CHMFontSize utility makes help files font larger by converting pixel/pt values hardset in internal css into corresponding percentage relative values.

The utility can also apply an additional arbitrary change of the font, see textboxes in the bottom part.

And finally: your help files receive an additional font changing on-the-fly toolbar button!

• wOxxOm's & Lev's remade versions
• Development & download at http://forum.oberonplace.com/showthread.php?t=1053

• JPG, TIF, GIF, PNG, BMP, CDR (for splitting multipage documents)
• Settings: page range(s), file prefix, starting #, digits count, image size/dpi
• 5 color modes (including indexed palette with adjustable parameters) and more
• bleed amount (On: page exported to its bounds , Off: objects area only)

import.ImportBitmapWithName — to import pictures retaining their file name & folder in statusbar and object manager.

Usually the macro is launched automatically at startup of CorelDRAW and displays a movable button-sized window, screen position is remembered. There are some options available via rightclicking on this small window, with a some help info in the 'About' menu item.

Just drag'n'drop files on the macro window from a common Explorer folder (not the CorelDRAW open/import dialog!)

Hold Alt while dropping files onto the macro window to ignore forceDpi, hold Ctrl to specify ForceDpi

How to make more room for dpi in statusbar:
remove 'HelpInfo' field, re-arrange 'ObjDetails' & 'ObjInfo' widths and position (btw, more reliably done when in Options->Customization)

Before:
After:

• wx.setDpi - sets dpi value (without resampling) for bitmaps (selected/page)
• wx.setDpiSetup - setup automatic dpi setting for any imported bitmaps (0 = disable)

wx.NodeAlignLeft, ...Right, ...XCenter, ...Top, ...Bottom, ...YCenter
node align macros act similar to L,R,C,T,B,E shortcuts, and can work with nodes of multiple selected objects.

Note: DRAW does not allow macros to see which node is selected most recently, so all the alignments are absolute e.g. NodeAlignLeft always aligns to the leftmost node. Solution: align all nodes except the target one, then add the target node to selection and invoke corresponding alignment macro depending on current visual relation of nodes

• mLayer.ActivateLayerSetup - adds to CorelDRAW's caption more info:
  ActiveLayer, ColorProfile (global CMS), short DocumentName, in customizable order.
  To allow autostart with DRAW: Uncheck Tools->Options->VBA->DelayLoadVBA
• mLayer.toggleLayerAutoActivation - one click toggle shape's layer auto activation on selection

• mLayer.GroupAndSaveLayers - groups shapes saving layer info in shapes' properties.
  Handy for preserving multilayer structure when copying between documents / pages
• mLayer.UnGroupAndAssignLayers...... - ungroup & put shapes to original layers, three macros:
  ...Skip - orphaned shapes remain on active layer
  ...One - orphaned shapes go to layer "From deleted layers"
  ...CreateAll - recreates all layers (order is not original)
• mLayer.ScatterToNewLayers - creates layers for each shape.
  Handy for PSD export, as all layers will be preserved.
• mLayer.LayerFromSelected - create new layer from shapes.
  New layer is placed above active and gets "+" at the end of name
• mLayer.SelectLayerShapes - selects all shapes on selected shape(s') layer(s)
• mLayer.LayerPrevious, LayerNext - select next/prev layer. ASSIGN TO Alt [, Alt ]
• mLayer.LayerMoveUp, LayerMoveDown - move layer in stack. ASSIGN TO Ctrl [ , Ctrl ]
• mLayer.SelectLayer - activate layer of selected shape
• mLayer.MoveShapesToCurrentLayer - moves selected shapes to active layer
• mLayer.MergeLayersToCurrent - merges layers of selected shapes to active layer.
• mLayer.LabelLayer - rename active (shape's) layer
• mLayer.DeleteLayer - remove active (shape's) layer
• Sep,12: mLayer.HideShape - move shape to an autocreated layer named "Hidden" which effectively hides the shape
• Sep,12: mLayer.UnHideALLShapes, UnHideShape - restores previously "hidden" shape(s) to its original layer(s)

• wx.removeUnderlyingDups - selects object's copies stacked under each other and offers to delete
• wx.nodeClean2 - joins separate objects with touching ends into one closed curve
  (dxf import often produces a lot of separate lines of just 1 segment)
• wx.CtrlShiftQ_dispose - obsolete, now superseded by wx_Tools :: wx.OutlinesToQ_KillEmpty

• Quickly create buttons for macros
• Run macros, preview code, instant switch to VBA
• Instant search for a macro name through all the list, with highlighting. Press /\ & \/ to quickjump

• Choosing an icon out of 800 CorelDRAW built-in images
• No way to assign a hotkey
• @AppData text added to a macro name for gms files from %AppData%\Corel\Graphics##\User Draw\GMS\

• beta patch.RenderResolution - change Render Effects Resolution, dpi
• beta patch.AutocenterPowerClipToggle - toggling of "Center new powerclips contents" option
• beta patch.NavigatorWindowSize - resizes document navigator (50-500, DRAW's default is 150), standard hotkey is "N"
  
• patch.CLOLreadToggle - disable reading of ColorStyles from CDR files to speed-up opening
• patch.CLOLwriteToggle - disable saving of ColorStyles to CDR files to optimize file size to speed-up saving
• patch.NodeGlyph2xToggle - toggle double size for nonselected node glyphs in node edit mode. Nodes thus are easier to be seen / work with.
• patch.NodeGlyphColoredToggle Sep,30: toggle node color coding for different types of nodes.
• patch.SnapRadiusSet Oct,13: set userspecified value of gravity of snapping (1..35, default is 10). High value (35) makes it a lot easier to work with guidelines and snap-to-objects.
• patch.SnapRadiusStd10, SnapRadiusMax35 Oct,13: 1-click macros to quickly set gravity of snapping to 10 and 35 respectively
• patch.SlowZoomToggle - toggle mousewheel zoom speed (fast, as in X3 default, or slow, as in Draw11). Shift-scrolling speed is also toggled.
• patch.ZoomLevelLimitToggle Nov,15: toggle "Maximum (minimum) zoom level achieved reached" messages
• patch.CrossHairToggle - fullscreen cross hair mouse pointer
• patch.DispImageAntiAliasToggle - antialiasing of bitmaps in enhanced view mode
• patch.Setup - setup applying of settings at startup of CorelDRAW
• works with DrawX3sp2 13.0.0.739, any language