Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Access to the Label Designer within apps and exes...
Message
From
07/07/1999 22:59:18
 
 
To
07/07/1999 19:21:12
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00237575
Message ID:
00238655
Views:
12
>>for new label!? It show the setting, if not, change to default sysmenu...
>>set sysmenu to default and edit the label size in file menu!!
>
>Can we do that in mid application and switch back again? And even if we can, isn't that a trifle extreme way to have to deal with something as simple as modifying a label size??!!

I think you need to create some dummy empty label with needed label size,
then copy to new filename before modify!!

>
>>>
>>>If you use system menu, you can activate the need toolbar. ^_^;
>>
>>thats one I don't recognise. Whats it all about and where do I find information on it?
>>
>
>>The VFP5 TraseTrade Sample has a c_solution class which will release all toolbar >and re-show it after run... ^_~
>
>Sorry, but I still don't get this at all! Can you illustrate with a code example?
>



* Custom1.releasetoolbar()
*-- Toolbar names
#DEFINE TB_FORMDESIGNER_LOC "Form Designer"
#DEFINE TB_STANDARD_LOC "Standard"
#DEFINE TB_LAYOUT_LOC "Layout"
#DEFINE TB_QUERY_LOC "Query Designer"
#DEFINE TB_VIEWDESIGNER_LOC "View Designer"
#DEFINE TB_COLORPALETTE_LOC "Color Palette"
#DEFINE TB_FORMCONTROLS_LOC "Form Controls"
#DEFINE TB_DATADESIGNER_LOC "Database Designer"
#DEFINE TB_REPODESIGNER_LOC "Report Designer"
#DEFINE TB_REPOCONTROLS_LOC "Report Controls"
#DEFINE TB_PRINTPREVIEW_LOC "Print Preview"
#DEFINE WIN_COMMAND_LOC "Command" && Command Window

*-- Releases all Visual FoxPro toolbars
LOCAL i

DIMENSION this.aToolBars[12,2]
this.aToolBars[1,1] = TB_FORMDESIGNER_LOC
this.aToolBars[2,1] = TB_STANDARD_LOC
this.aToolBars[3,1] = TB_LAYOUT_LOC
this.aToolBars[4,1] = TB_QUERY_LOC
this.aToolBars[5,1] = TB_VIEWDESIGNER_LOC
this.aToolBars[6,1] = TB_COLORPALETTE_LOC
this.aToolBars[7,1] = TB_FORMCONTROLS_LOC
this.aToolBars[8,1] = TB_DATADESIGNER_LOC
this.aToolBars[9,1] = TB_REPODESIGNER_LOC
this.aToolBars[10,1] = TB_REPOCONTROLS_LOC
this.aToolBars[11,1] = TB_PRINTPREVIEW_LOC
this.aToolBars[12,1] = WIN_COMMAND_LOC

FOR i = 1 TO ALEN(this.aToolBars, 1)
this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1])
IF this.aToolBars[i,2]
HIDE WINDOW (this.aToolBars[i,1])
ENDIF
ENDFOR




* Custom1.showtoolbar()
LOCAL i

*-- Show all VFP toolbars that were previously hidden
FOR i = 1 TO ALEN(this.aToolBars, 1)
IF this.aToolBars[i,2]
SHOW WINDOW (this.aToolBars[i,1])
ENDIF
ENDFOR
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform