General information
Category:
Reports & Report designer
>>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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only