Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Mike Gagnon
  Where is Mike Gagnon?
 Pointe Claire
 Canada
 Mike Gagnon
 To: Sandy Stephen
  Where is Sandy Stephen?
 Pune
 India
 Sandy Stephen
 Tags
Subject: RE: FLEXGRID
Thread ID: 249264 Message ID: 249292 # Views: 4 # Ratings: 0
Version: Visual FoxPro 9 Category: Grids
Date: Thursday, December 31, 2009 2:10:56 PM         
   


> >
> > Like this.:
> >
PUBLIC oform1
> > 
> > oform1=NEWOBJECT("form1")
> > oform1.Show
> > RETURN
> > 
> > 
> > DEFINE CLASS form1 AS form
> > 
> > 
> > 	Top = 157
> > 	Left = 252
> > 	Height = 370
> > 	Width = 527
> > 	DoCreate = .T.
> > 	Caption = "Form1"
> > 	Name = "Form1"
> > 
> > 
> > 	ADD OBJECT olecontrol1 AS olecontrol WITH ;
> > 		Top = 24, ;
> > 		Left = 48, ;
> > 		Height = 300, ;
> > 		Width = 400, ;
> > 		Name = "Olecontrol1", ;
> > 		OleClass ="MSFlexGridLib.MSFlexGrid.1"
> > 
> > 
> >     PROCEDURE olecontrol1.KeyPress
> > 		*** ActiveX Control Event ***
> > 		Lparameters keyascii
> > 		With This
> > 		   if .colSel = 0
> > 		      return
> > 		   endif
> > 			Do Case
> > 			Case keyascii=8 &&IF KEY IS BACKSPACE THEN
> > 				If .Text <> ""
> > 					 .Text =	Left(.Text, (Len(.Text) - 1))
> > 				Endif
> > 			Otherwise
> > 				.Text = alltrim(.Text) + Chr(keyascii)
> > 			Endcase
> > 		Endwith
> > 	ENDPROC
> > 
> > 
> > 	PROCEDURE olecontrol1.Init
> > 		USE HOME(2)+"\Tastrade\Data\customer.dbf" AGAIN IN 0 SHARED
> > 		Local lngWidth, i, x
> > 		lngWidth  = 2200 && Twips
> > 		Select customer
> > 		Count To x
> > 		With This
> > 		      .Cols = 2
> > 		      .Rows = 0
> > 		      .AddItem("Name"+Chr(9)+"Number")
> > 		      .Rows = x  
> > 		      .FixedRows = 1
> > 		      .WordWrap = .T.
> > 		      .RowHeight(0) = .RowHeight(0) * 2
> > 		      .ColWidth(0) = lngWidth  
> > 		      .ColWidth(1) = lngWidth*1.5
> > 		      For intLoopCount = 1 To (.Rows-1)
> > 		            .TextMatrix(intLoopCount, 0) = "Item #" +Transform(intLoopCount) 
> > 		      Next intLoopCount
> > 		      Select customer
> > 		      i = 1
> > 		      scan
> > 		            .TextMatrix(i, 0) = customer.company_name
> > 		            i = i + 1
> > 		            If i = x 
> > 		                  Exit
> > 		            Endif
> > 		      Endscan
> > 		Endwith
> > 		 
> > 	ENDPROC
> > 
> > 
> > ENDDEFINE

> >
> >
> >
> > Mike Gagnon
> > Refox XI +(English version)
>
> In your example you show the data from customer.company_name, but actually user will manually type the data in the grid. Then how can i do that ....?
> Sandy

I am no longer sure what you want. In your original question you state that in the first column file names will be displayed. My show you names from a table, but you can replace it with whatever you what. I did not know what you meant by file names, so I chose people's name. You also want the user to be able to type in the second column, which my example shows you how to do it.


Mike Gagnon
Refox XI +(English version)

ENTIRE THREAD

FLEXGRID Posted by Sandy Stephen @ 12/31/2009 7:44:16 AM
RE: FLEXGRID Posted by Mike Gagnon @ 12/31/2009 1:30:04 PM
RE: FLEXGRID Posted by Sandy Stephen @ 12/31/2009 1:45:19 PM
RE: FLEXGRID Posted by Mike Gagnon @ 12/31/2009 1:55:13 PM
RE: FLEXGRID Posted by Sandy Stephen @ 12/31/2009 1:59:46 PM
RE: FLEXGRID Posted by Mike Gagnon @ 12/31/2009 2:10:56 PM
RE: FLEXGRID Posted by Sandy Stephen @ 12/31/2009 2:21:36 PM
RE: FLEXGRID Posted by Mike Gagnon @ 12/31/2009 2:27:33 PM
RE: FLEXGRID Posted by Sandy Stephen @ 12/31/2009 2:39:41 PM
RE: FLEXGRID Posted by Anders Altberg @ 1/1/2010 2:41:49 PM