Information générale
Catégorie:
Gestionnaire de rapports & Rapports
>>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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement