Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Placing Toolbar With MENU
Message
 
 
À
20/06/2013 15:44:19
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01576789
Message ID:
01576794
Vues:
41
Try:
tbrDesktop = CREATEOBJ('mytoolbar')
tbrDesktop.DOCK(0)
tbrDesktop.SHOW()
>I have created a toolbar for my application and have kept command buttons on it.
>When I execute my program I get the position of my toolbar as shown in picture No. 1.
>
>However I need to have position of my toolbar as shown in picture No-2. I did it by dragging the tool bar over my menu. One could see a small Blue Line on the top of Command Button in picture-1. I want to avoid this and keep it like as shown in picture-2..
>
>Is it possible through my program only that from the initial only I get position of my toolbar as shown in picture-2. I tried to change DOCKposition=0, DOCKposition=-1, but it didn’t worked.
>
>Here is my code
>
>
>PUBLIC tbrDesktop
>tbrDesktop = CREATEOBJ('mytoolbar')
>tbrDesktop.SHOW
>
>DEFINE CLASS myToolBar  AS Toolbar
>ADD OBJECT btnTrial  AS CommandButton
>ADD OBJECT sep1      AS Separator
>ADD OBJECT btnExcel AS CommandButton
>   
>btnTrial.HEIGHT =32
>btnTrial.WIDTH = 32
>btnTrial.Picture='E:\Sanchar Reporter\20-06-13\Data\Graphics\A4 Size Trial.bmp.'
>btnTrial.Caption = ''
>
>
>btnExcel.HEIGHT =32
>btnExcel.WIDTH = 32
>btnExcel.Picture='E:\Sanchar Reporter\20-06-13\Data\Graphics\Frx2Any_Excel.bmp.'
>btnExcel.Caption = ''
>
>  
>LEFT = 1
>TOP = -20
>WIDTH = 125
>DOCKposition=0
>
>Caption=' '
>Controlbox=.F.
>dockable=.F.
>   
>   
>PROCEDURE btnTrial.CLICK
>DO FORM trialperiodselection.scx
>ENDPROC
>   
>PROCEDURE btnExcel.CLICK
>DO FORM trialperiodselection.scx
>ENDPROC
>
>ENDDEFINE
>
>
>
>Attached Picture1 and 2 are attached
>
>Any Idea ?
>
>
>
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform