Hi.I was trying to find a way for CorelDRAW to show me the sizes of the selected shape, so I've done the following macro, but nothing show's.I was trying to use the OnScreenText, so every time the Selection Changes the value gets updated.
Private Sub GlobalMacroStorage_SelectionChange() Dim sr As ShapeRange Set sr = ActiveSelectionRange Dim t As String t = sr.SizeWidth & " * " & sr.SizeHeight Application.CreateOnScreenText.SetTextAndPosition t, sr.PositionX, sr.PositionY, cdrCenterOnScreenText, 0.5, 0.5 Application.CreateOnScreenText.SetTextColor (RGB(0, 0, 255)) Application.CreateOnScreenText.Show End Sub
Any help would be appreciated.
So I manage to show the information, but only until we move the mouse. As soon as the mouse moves, the information is gone.
If we place the code inside a macro and run the code show until you move the mouse.
If we place it in the GlobalMacroStorage_SelectionChange() it shows only for a second
The code:
Private Sub GlobalMacroStorage_SelectionChange() ActiveDocument.Unit = cdrMillimeter Dim u As String u = ActiveDocument.WorldScale Dim sr As ShapeRange Set sr = ActiveSelectionRange
Dim sf, sl As Shape If sr.Count <> 2 Then Exit Sub Set sf = sr.FirstShape Set sl = sr.LastShape ' Get's the distance between the selected shapes Dim l, r, b, t As String l = Round(sl.BoundingBox.Left * u - sf.BoundingBox.Left * u, 0) r = Round(sf.BoundingBox.Right * u - sl.BoundingBox.Right * u, 0) b = Round(sl.BoundingBox.Bottom * u - sf.BoundingBox.Bottom * u, 0) t = Round(sf.BoundingBox.Top * u - sl.BoundingBox.Top * u, 0) ' t = CStr(design.BoundingBox.Bottom * u - placeholder.BoundingBox.Bottom * u)' t = sr.SizeWidth * u & "x" & sr.SizeHeight * u' t = s.Name & vbNewLine & s.SizeWidth & "x" & s.SizeHeight Dim ost As OnScreenText Dim ostx, osty As Double ostx = sr.BoundingBox.CenterX osty = sr.BoundingBox.CenterY
Dim s As String s = "Top: " & t & " | Bottom: " & b & " | Left: " & l & " | Right: " & r
Set ost = Application.CreateOnScreenText ost.SetTextAndPosition s, ostx, osty, cdrCenterOnScreenText, 0.5, 0.5 ost.SetTextColor (CLng(RGB(0, 0, 255))) ost.ShowEnd Sub
It doesn't show blue, its black with the text in yellow.
Trying the code, nothing happens when two shapes are selected...
What version of Corel do you use? I use X8 (18.0.0.448).
How do you select the both shapes? I tried three ways (using pick tool):
Firstly selecting the first shape, keeping Shift pressed and clicking on the second one;
Firstly selecting the first one, keeping Shift pressed, pointing the mouse cursor on the second one and pressing the left button of the laptop touchpad;
Drawing a rectangle around the two shapes.
And why 'Dim u As String'? Isn't it a Double type?
HI.
Just select the 2 shapes and then run the macro, the best way is for you to delete the "Private Sub GlobalMacroStorage_SelectionChange()" and change it to something like "Sub OnScreenTest".
I'm using CorelDRAW 2017.
I have tested the code in X8 and its weird, it work's but in a fraction of a second.
In 2017, it show's the text until the mouse pointer reaches the work area. If the mouse in on a dock or above the toolbar no problem
I convert your code to C# and likes fine in VSTA macro
[CgsAddInMacro] public void AttachSelectionEvent() { app.ActiveDocument.SelectionChange += TextOnScreen; } private OnScreenText ost; public void TextOnScreen() { ShapeRange sr = app.ActiveSelectionRange; if (sr.Count != 2) { if(ost != null) ost.Hide(); return; } app.ActiveDocument.Unit = cdrUnit.cdrMillimeter; double u = app.ActiveDocument.WorldScale;
Shape sf = sr.FirstShape; Shape sl = sr.LastShape;
double l = Math.Round(sl.BoundingBox.Left * u - sf.BoundingBox.Left * u, 0); double r = Math.Round(sf.BoundingBox.Right * u - sl.BoundingBox.Right * u, 0); double b = Math.Round(sl.BoundingBox.Bottom * u - sf.BoundingBox.Bottom * u, 0); double t = Math.Round(sf.BoundingBox.Top * u - sl.BoundingBox.Top * u, 0); double ostx = sr.BoundingBox.CenterX; double osty = sr.BoundingBox.CenterY; string s = string.Format("Top: {0} | Bottom: {1} | Left: {2} | Right: {3}",t,b,l,r); if (ost == null) { ost = app.CreateOnScreenText(); ost.SetTextColor((Information.RGB(0,255,0))); } ost.SetTextAndPosition(s, ostx, osty, cdrOnScreenTextAlign.cdrCenterOnScreenText); ost.Show(); }
Well,
Thank you very much, ou melhot, muito obrigado.
I only get one error in the line: ost.SetTextColor((Information.RGB(0,255,0)));
Macro.cs(76): @(COL:36) O nome 'Information' não existe no contexto actual
If i comment, it works, only have to run it once per document.
Very good.
I just wish that VSTA worked in VisualStudio 2017 and with VB.Net, i don't know nothing of C#
Thank you very much.
you need add "Microsoft.VisualBasic" reference in your Project to use Information.RGB