Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Placing Toolbar With MENU
Message
From
20/06/2013 15:44:19
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Title:
Placing Toolbar With MENU
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01576789
Message ID:
01576789
Views:
60
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 ?


Harsh
Next
Reply
Map
View

Click here to load this message in the networking platform