Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Yousfi Benameur
  Where is Yousfi Benameur?
 El Bayadh
 Algeria
 Yousfi Benameur
 To: Muhammad Zahid
  Where is Muhammad Zahid?
 Karachi
 Pakistan
 Muhammad Zahid
 Tags
Subject: RE: Using Status Bar
Thread ID: 188651 Message ID: 189000 # Views: 2 # Ratings: 0
Version: Visual FoxPro 9 Category: Forms
Date: Tuesday, August 12, 2008 10:22:09 PM         
   


> Hi Experts.
>
> I am working on a form and want to use status bar (OLE control) on bottom of form but there is no help available for this. I want to display the (CAPS,NUM,INS) on off status in its panels. please help me to design this.
> Thanks
>
> mzahid


Hi
try this code with olecontrol MSComctlLib.sBarCtrl.2
yform=createObject('asup')
yform.show
read events

DEFINE CLASS asup AS form
	Top = 32
	Left = 109
	Height = 250
	Width = 756
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT timer1 AS timer WITH ;
		Top = 12, ;
		Left = 156, ;
		Height = 23, ;
		Width = 23, ;
		Interval = 1000, ;
		Name = "Timer1"
    
	ADD OBJECT olestat AS olecontrol WITH ;
	oleClass="MSComctlLib.sBarCtrl.2", ;
		Top = 228, ;
		Left = 0, ;
		Height = 22, ;
		Width = 756, ;
		Align = 2, ;
		Name = "oleStat"

	PROCEDURE Init
		
	with this.oleStat	
		.Panels.add()
		.panels(1).text=upper(cdow(date()))
		.panels(1).style=0
			For i =2 TO 8
		         .Panels.ADD()
		         .Panels(i).STYLE =i-1
		         .Panels(i).visible=.t.
		      	Endfor
		Endwith
	ENDPROC
	
    PROCEDURE DESTROY
    clea events
    ENDPROC

ENDDEFINE

Regards
Yousfi Benameur

ENTIRE THREAD

Using Status Bar Posted by Muhammad Zahid @ 8/11/2008 10:22:38 AM
RE: Using Status Bar Posted by surinder singh @ 8/11/2008 10:30:19 AM
RE: Using Status Bar Posted by Carlos Alloatti @ 8/11/2008 3:19:25 PM
RE: Using Status Bar Posted by Muhammad Zahid @ 8/12/2008 7:16:29 AM
RE: Using Status Bar Posted by Marcia Akins @ 8/12/2008 3:49:18 PM
RE: Using Status Bar Posted by Yousfi Benameur @ 8/12/2008 10:22:09 PM