Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Access to the Label Designer within apps and exes...
Message
From
08/07/1999 04:32:33
 
 
To
07/07/1999 22:59:18
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00237575
Message ID:
00238721
Views:
8
>>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


well that certainly gives me something to get my teeth into. Will play with and report back.

Thanks

Harry
Previous
Reply
Map
View

Click here to load this message in the networking platform