OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 11-09-2021, 10:49
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 151
Default Wireframe / Enhanced View on Startup

Im in 2020/21

It starts in Enhanced mode,

Any time in the beginning I do the Shift + F9 to go into wireframe it doesnt.
Shift F9 is Toggle View.

I'd either have to go to view > wireframe or right-click the mouse
and select wireframe (have it assigned there)

What and where would I put in some code upon startup to:
Start in Enhanced got wireframe and back to Enhanced.

Would this trigger it where I wouldnt notice and when I hit Shift F9
it will do the Wireframe?

Kinda sickening & getting old doing the above.



** Also, is it me or mousing over to edit the dialogs prevent input in 2020?
Like for font, & size etc? Always have to keep the pointer away each time.
Not in popup dialogs. Pretty much in property/tool bars.

Thanks all!
__________________
Using X4 & 2019 2020... yikes 2021
Reply With Quote
  #2  
Old 13-09-2021, 15:39
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default ToggleView

You could use a macro for this and then assign it to your key combo instead of the default way:

Here is some code to get you started:
Code:
Sub ToggleView()
    If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrEnhancedView Then
        ActiveWindow.ActiveView.Type = cdrWireframeView
    Else
        ActiveWindow.ActiveView.Type = cdrEnhancedView
    End If
End Sub
Happy coding,

-Shelby
Reply With Quote
  #3  
Old 17-09-2021, 05:47
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 151
Default

Shel

Cool beans, something basic to tinker with.
I put it at the top of globalmacros if this matters.

I know it's cheezie but this works for now:
as I trip over me own feet here. Also need it for opened docs, not just new.

Code:
'  For a new document
Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrWireframeView Then
        ActiveWindow.ActiveView.Type = cdrEnhancedView

    Else
        ActiveWindow.ActiveView.Type = cdrWireframeView
    End If
    
    ActiveWindow.ActiveView.Type = cdrEnhancedView
End Sub
'  For an Opened document
Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrWireframeView Then
        ActiveWindow.ActiveView.Type = cdrEnhancedView

    Else
        ActiveWindow.ActiveView.Type = cdrWireframeView
    End If
    
    ActiveWindow.ActiveView.Type = cdrEnhancedView
End Sub
So upon a new document it does whatever it does and starts off Enhanced.
If I fill an object and do the Shft+F9 Toggle view it goes Wireframe

Lol... i tried all combos and got that, if there's a simpler method, do tell.

I had to add the last line after End If to get it to go back into Enhanced, kept going wire. Oh well... this stuff isnt my bag o' tea.

Thanx!
__________________
Using X4 & 2019 2020... yikes 2021

Last edited by dungbtl; 17-09-2021 at 11:19.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Paste at Node enhanced? PAnderson CorelDRAW/Corel DESIGNER VBA 1 24-05-2012 14:42
Wireframe vs. Enhanced View bprice CorelDRAW/Corel DESIGNER VBA 2 19-01-2009 07:11
Monitor view of full frame V resampled image view. Robbiex General 2 27-08-2007 19:59
Delete Segment Enhanced Hernán New product ideas 1 08-12-2003 16:04
How can I run VBA when the Coreldraw startup levin CorelDRAW/Corel DESIGNER VBA 4 29-07-2003 22:24


All times are GMT -5. The time now is 21:44.


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