Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Convert prg sample to scx file
- Thread starter milosv
- Start date
Mike Gagnon
Programmer
milosv
No, as far as I know there isn't any conversion utility. You would have to convert it based on what you see in the code.
Mike Gagnon
If you want to get the best response to a question, please check out FAQ184-2483 first.
No, as far as I know there isn't any conversion utility. You would have to convert it based on what you see in the code.
Mike Gagnon
If you want to get the best response to a question, please check out FAQ184-2483 first.
Mike Lewis
Programmer
Milos,
I agree with Mike Gagnon. You have to do this by hand.
Create a form in the form designer. Add the controls. Set the properties. Finally, copy and paste the method code from the PRG to the methods of the form.
I wish there was an easier way, but if there is, I have never heard of it.
Mike
Mike Lewis
Edinburgh, Scotland
I agree with Mike Gagnon. You have to do this by hand.
Create a form in the form designer. Add the controls. Set the properties. Finally, copy and paste the method code from the PRG to the methods of the form.
I wish there was an easier way, but if there is, I have never heard of it.
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #4
Hi mgagnon,MikeLewis
I put this code in MyPrg before define class AS FORM.
vse=NEWOBJECT("MyVse"
Ovse.SAVEASCLASS("MyVse","MyVse" && write VCX
0vse.saveas("MyVse" && write SCX,SCT
DEFINE CLASS MyVse AS form
..
..
ENDDEFINE
Some idea TO DO BETTER ?? I use VFP8/SP1
I put this code in MyPrg before define class AS FORM.
vse=NEWOBJECT("MyVse"
Ovse.SAVEASCLASS("MyVse","MyVse"
&& write VCX0vse.saveas("MyVse"
&& write SCX,SCTDEFINE CLASS MyVse AS form
..
..
ENDDEFINE
Some idea TO DO BETTER ?? I use VFP8/SP1
craigsboyd
IS-IT--Management
milosv,
Does:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEASCLASS("MyVse", "MyVse" && write VCX
Ovse.saveas("MyVse" && write SCX,SCT
DEFINE CLASS MyVse AS form
ENDDEFINE
...work in VFP8? I tried it in VFP7 and it does not work, complaining about something having to do with a nonvisual element of the class. Please note the corrections to your posted code above, i figure you were just in a hurry.
Slighthaze = NULL
craig1442@mchsi.com
Does:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEASCLASS("MyVse", "MyVse"
&& write VCXOvse.saveas("MyVse"
&& write SCX,SCTDEFINE CLASS MyVse AS form
ENDDEFINE
...work in VFP8? I tried it in VFP7 and it does not work, complaining about something having to do with a nonvisual element of the class. Please note the corrections to your posted code above, i figure you were just in a hurry.
Slighthaze = NULL
craig1442@mchsi.com
"Whom computers would destroy, they must first drive mad." - Anon
Mike Lewis
Programmer
Milosv,
Doesn't work for me, even with Slighthaze's corrections. I tried it in VFP 7.0 and 8.0.
Mike
Mike Lewis
Edinburgh, Scotland
Doesn't work for me, even with Slighthaze's corrections. I tried it in VFP 7.0 and 8.0.
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #7
SORRY to ALL,
My mistake.
SAVEASCLASS doesn't work. (something about visible and nonvisible forms). SAVEAS work in BOTH vfp7/8.
You can write VCX from form with
MODI FORM and then SAVE AS CLASS.
But here is another problem. I can't modify form. Any change I made come after save unchanged. How can I avoid a INHERIT in form properties. Sorry, I am beginer and a little confused.
I think that is a good start for me.
This code works fine:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEAS("MyVse" && write SCX,SCT
DEFINE CLASS MyVse AS form
ENDDEFINE
......
My mistake.
SAVEASCLASS doesn't work. (something about visible and nonvisible forms). SAVEAS work in BOTH vfp7/8.
You can write VCX from form with
MODI FORM and then SAVE AS CLASS.
But here is another problem. I can't modify form. Any change I made come after save unchanged. How can I avoid a INHERIT in form properties. Sorry, I am beginer and a little confused.
I think that is a good start for me.
This code works fine:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEAS("MyVse"
&& write SCX,SCTDEFINE CLASS MyVse AS form
ENDDEFINE
......
Mike Lewis
Programmer
Milosv,
Yes, that will create the SXC -- well done. But I don't think it will preserve any method code that you include in the DEFINE CLASS. Needs more experimenting.
Mike
Mike Lewis
Edinburgh, Scotland
Yes, that will create the SXC -- well done. But I don't think it will preserve any method code that you include in the DEFINE CLASS. Needs more experimenting.
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #9
Hi MikeLewis,
Can you give me suggestion how to unlock form created with SAVEAS for modifications ? I put then methods by hand into form. It is a lot ready-made for me if I don't need to make GUI interface as new form.
I found at adress program PrgToVcx but unfortunately with limitation:
• PROCEDURE and FUNCTION names must not reference an object hierarchy. I.e., PrgToVcx ignores constructions like PROCEDURE MyButton.Click.
In any case, you all help me a lot at my begin.
Kind Regards,
Milos
Can you give me suggestion how to unlock form created with SAVEAS for modifications ? I put then methods by hand into form. It is a lot ready-made for me if I don't need to make GUI interface as new form.
I found at adress program PrgToVcx but unfortunately with limitation:
• PROCEDURE and FUNCTION names must not reference an object hierarchy. I.e., PrgToVcx ignores constructions like PROCEDURE MyButton.Click.
In any case, you all help me a lot at my begin.
Kind Regards,
Milos
Mike Lewis
Programmer
Milos,
Can you give me suggestion how to unlock form created with SAVEAS for modifications ?
Sorry, I don't know what you mean by unlock the form. In what way is it locked?
Mike
Mike Lewis
Edinburgh, Scotland
Can you give me suggestion how to unlock form created with SAVEAS for modifications ?
Sorry, I don't know what you mean by unlock the form. In what way is it locked?
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #11
Mike Lewis,
If I save form from program with:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEAS("MyVse" && write SCX,SCT
I use modi form and then save it, but!?
I can't modify form. Any change I made come after save and reopen form unchanged. How can I avoid a INHERIT in form properties.
All procedures is still in prg file, all my changes on form go away. In my properies window Load Event have value (INHERIT MyPrg.prg) and propertie ClassLibrary (MyPrg.fxp)
Milos
If I save form from program with:
SET DEFAULT TO GETDIR()
Ovse=NEWOBJECT("MyVse"
Ovse.SAVEAS("MyVse"
&& write SCX,SCTI use modi form and then save it, but!?
I can't modify form. Any change I made come after save and reopen form unchanged. How can I avoid a INHERIT in form properties.
All procedures is still in prg file, all my changes on form go away. In my properies window Load Event have value (INHERIT MyPrg.prg) and propertie ClassLibrary (MyPrg.fxp)
Milos
Mike Lewis
Programmer
Milos,
That's not the behaviour I am seeing. I ran your code, created the SCX, and modified the properties without any difficulty.
However, when I added some method code in the DEFINE CLASS, I could not see it in the SCX. It appears that the code is still in the parent class, but of course there is no way of accessing that. I think that is what you are seeing as well.
I don't know what the solution is. Maybe you need a different approach to the whole problem.
Mike
Mike Lewis
Edinburgh, Scotland
That's not the behaviour I am seeing. I ran your code, created the SCX, and modified the properties without any difficulty.
However, when I added some method code in the DEFINE CLASS, I could not see it in the SCX. It appears that the code is still in the parent class, but of course there is no way of accessing that. I think that is what you are seeing as well.
I don't know what the solution is. Maybe you need a different approach to the whole problem.
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #13
Mike,
Sorry,
When I MODI FORM MyForm /everythink is OK!!
I save the form, but when I open form (reopen) again it is unchanged.
My explicite sample! (from *++++ to *++++)
*+++
Public oForm
oForm = Createobject('myForm')
****** HIRE I add line SAVEAS("MyForm"
oForm.Show
Define Class myForm As Form
DataSession = 2
Width = 800
Height = 400
BorderStyle=2
AutoCenter=.T.
DoCreate = .T.
Caption = "Customer Orders"
Name = "frmCusOrders"
Add Object lblCustomerID As Label With ;
Caption = "Customer ID", ;
Left = 15, Top = 10, Width = 60, Alignment = 1
Add Object txtCustomerID As TextBox With ;
ControlSource = "customer.cust_id", ;
Left = 80, Top = 6, Width = 58
Add Object lblCompany As Label With ;
Caption = "Company", ;
Left = 15, Top = 34, Width = 60, Alignment = 1
Add Object txtCompany As TextBox With ;
ControlSource = "customer.company", ;
Left = 80, Top = 30, Width = 290
Add Object lblContact As Label With ;
Caption = "Contact", ;
Left = 15, Top = 58, Width = 60, Alignment = 1
Add Object txtContact As TextBox With ;
ControlSource = "customer.contact", ;
Left = 80, Top = 54, Width = 220
Add Object lblTitle As Label With ;
Caption = "Title", ;
Left = 15, Top = 82, Width = 60, Alignment = 1
Add Object txtTitle As TextBox With ;
ControlSource = "customer.title", ;
Left = 80, Top = 78, Width = 220
Add Object grdOrders As Grid With ;
ColumnCount = 11, ;
Left = 5, ;
RecordSource = "orders", ;
RecordSourceType = 1, ;
Top = 110, ;
Height = 253,;
Visible = .T., ;
Width = 790, ;
ChildOrder = "cust_id",;
LinkMaster = "Customer",;
RelationalExpr = "cust_id",;
Column1.ControlSource = "orders.order_id", ;
Column1.Enabled = .T., ;
Column1.Width = 46, ;
Column1.ReadOnly = .F., ;
Column1.Visible = .T., ;
Column1.ForeColor = Rgb(0,0,0), ;
Column1.BackColor = Rgb(255,255,255), ;
Column1.Name = "Column1", ;
Column2.ControlSource = "orders.cust_id", ;
Column2.Enabled = .T., ;
Column2.Width = 46, ;
Column2.ReadOnly = .F., ;
Column2.Visible = .T., ;
Column2.ForeColor = Rgb(0,0,0), ;
Column2.BackColor = Rgb(255,255,255), ;
Column2.Name = "Column2", ;
Column3.ControlSource = "orders.emp_id", ;
Column3.Enabled = .T., ;
Column3.Width = 46, ;
Column3.ReadOnly = .F., ;
Column3.Visible = .T., ;
Column3.ForeColor = Rgb(0,0,0), ;
Column3.BackColor = Rgb(255,255,255), ;
Column3.Name = "Column3", ;
Column4.ControlSource = "orders.to_name", ;
Column4.Enabled = .T., ;
Column4.Width = 284, ;
Column4.ReadOnly = .F., ;
Column4.Visible = .T., ;
Column4.ForeColor = Rgb(0,0,0), ;
Column4.BackColor = Rgb(255,255,255), ;
Column4.Name = "Column4", ;
Column5.ControlSource = "orders.order_date", ;
Column5.Enabled = .T., ;
Column5.Width = 65, ;
Column5.ReadOnly = .F., ;
Column5.Visible = .T., ;
Column5.ForeColor = Rgb(0,0,0), ;
Column5.BackColor = Rgb(255,255,255), ;
Column5.Name = "Column5", ;
Column6.ControlSource = "orders.order_amt", ;
Column6.Format = "$Z", ;
Column6.InputMask = "#,###,###.##", ;
Column6.Enabled = .T., ;
Column6.Width = 109, ;
Column6.ReadOnly = .F., ;
Column6.Visible = .T., ;
Column6.ForeColor = Rgb(0,0,0), ;
Column6.BackColor = Rgb(255,255,255), ;
Column6.Name = "Column6", ;
Column7.ControlSource = "orders.freight", ;
Column7.Format = "$Z", ;
Column7.InputMask = "#,###,###.##", ;
Column7.Enabled = .T., ;
Column7.Width = 109, ;
Column7.ReadOnly = .F., ;
Column7.Visible = .T., ;
Column7.ForeColor = Rgb(0,0,0), ;
Column7.BackColor = Rgb(255,255,255), ;
Column7.Name = "Column7", ;
Column8.ControlSource = "orders.order_dsc", ;
Column8.Format = "RZ", ;
Column8.InputMask = "##%", ;
Column8.Enabled = .T., ;
Column8.Width = 53, ;
Column8.ReadOnly = .F., ;
Column8.Visible = .T., ;
Column8.ForeColor = Rgb(0,0,0), ;
Column8.BackColor = Rgb(255,255,255), ;
Column8.Name = "Column8", ;
Column9.ControlSource = "orders.order_net", ;
Column9.Format = "$Z", ;
Column9.InputMask = "#,###,###.##", ;
Column9.Enabled = .T., ;
Column9.Width = 109, ;
Column9.ReadOnly = .F., ;
Column9.Visible = .T., ;
Column9.ForeColor = Rgb(0,0,0), ;
Column9.BackColor = Rgb(255,255,255), ;
Column9.Name = "Column9", ;
Column10.ControlSource = "( (100-orders.order_dsc)/100"+;
" * orders.order_amt + orders.freight)", ;
Column10.Format = "$Z", ;
Column10.InputMask = "#,###,###.##", ;
Column10.Enabled = .F., ;
Column10.Width = 109, ;
Column10.Visible = .T., ;
Column10.ForeColor = Rgb(0,0,0), ;
Column10.BackColor = Rgb(255,255,255), ;
Column10.Name = "Column10", ;
Column11.ControlSource = "orders.shipped_on", ;
Column11.Enabled = .T., ;
Column11.Width = 65, ;
Column11.ReadOnly = .F., ;
Column11.Visible = .T., ;
Column11.ForeColor = Rgb(0,0,0), ;
Column11.BackColor = Rgb(255,255,255), ;
Column11.Name = "Column11"
Add Object cmdSimpleNav As CommandGroup With ;
TableNav = 'customer', ;
Top = 368, Height = 27, Left = 10, Width = 336, ButtonCount = 4, ;
Command1.Caption = '\<First', ;
Command1.Left = 5, Command1.Top = 5, Command1.Width = 80, ;
Command2.Caption = '\<Previous', ;
Command2.Left = 87, Command2.Top = 5, Command2.Width = 80, ;
Command3.Caption = '\<Next', ;
Command3.Left = 169, Command3.Top = 5, Command3.Width = 80, ;
Command4.Caption = '\<Last', ;
Command4.Left = 251, Command4.Top = 5, Command4.Width = 80
Procedure cmdSimpleNav.Click
Local loObj
loObj = Sys(1270)
If !(Type('loObj.Parent') = 'O' And Compobj(loObj.Parent,This))
Return
Endif
With This
Select (.TableNav)
Do Case
Case This.Value = 1
Locate
Case This.Value = 2
Skip -1
If Bof()
Locate
Endif
Case This.Value = 3
Skip
If Eof()
Go Bottom
Endif
Case This.Value = 4
Go Bottom
Endcase
.EnabDisabButtons()
Endwith
Thisform.Refresh
Endproc
Procedure cmdSimpleNav.Init
This.EnabDisabButtons()
Endproc
Procedure cmdSimpleNav.EnabDisabButtons
Local lnCurrent
With This
Select (.TableNav)
lnCurrent = Recno()
Skip -1
Store !Bof() To .Buttons(1).Enabled,.Buttons(2).Enabled
Go lnCurrent
Skip
Store !Eof() To .Buttons(3).Enabled,.Buttons(4).Enabled
.Refresh
Endwith
Go lnCurrent
Endproc
Procedure Load && Prepare data here
Set Talk Off
Set Deleted On
Set Century On
Set Multilocks On
Set Exclusive Off && Other sets you need
Use (_samples+'data\customer')
Use (_samples+'data\orders') In 0
CursorSetProp("Buffering",5,"Customer"
CursorSetProp("Buffering",5,"Orders"
Endproc
Procedure Init
With This.grdOrders
.Columns(1).Header1.Caption = "OrderID"
.Columns(2).Header1.Caption = "CustID"
.Columns(3).Header1.Caption = "EmpID"
.Columns(4).Header1.Caption = "To"
.Columns(5).Header1.Caption = "OrderDate"
.Columns(6).Header1.Caption = "Amount"
.Columns(7).Header1.Caption = "Freight"
.Columns(8).Header1.Caption = "Discount"
.Columns(9).Header1.Caption = "Net"
.Columns(10).Header1.Caption = "Calculated Net"
.Columns(11).Header1.Caption = "ShippedOn"
.SetAll("DynamicBackColor",;
"( Iif(orders.order_amt > 2000,"+;
" 0xFFFF00,"+;
" Iif(orders.order_amt > 1000,"+;
" 0x00FFFF,0xFFFFFF)))"
Endwith
Endproc
Enddefine
*++++ eoj sample
I cut this sample code from this forum and paste into VFP8 command window.I select all the code and run!FINE. Then I save code to MyPrg.prg and modify [I append statement SAVEAS("My_form"]. If I MODIFY FORM My_form, all my changes is immutable.
What is your suggestion.
I think, I squander your time.
Milos
Sorry,
When I MODI FORM MyForm /everythink is OK!!
I save the form, but when I open form (reopen) again it is unchanged.
My explicite sample! (from *++++ to *++++)
*+++
Public oForm
oForm = Createobject('myForm')
****** HIRE I add line SAVEAS("MyForm"
oForm.Show
Define Class myForm As Form
DataSession = 2
Width = 800
Height = 400
BorderStyle=2
AutoCenter=.T.
DoCreate = .T.
Caption = "Customer Orders"
Name = "frmCusOrders"
Add Object lblCustomerID As Label With ;
Caption = "Customer ID", ;
Left = 15, Top = 10, Width = 60, Alignment = 1
Add Object txtCustomerID As TextBox With ;
ControlSource = "customer.cust_id", ;
Left = 80, Top = 6, Width = 58
Add Object lblCompany As Label With ;
Caption = "Company", ;
Left = 15, Top = 34, Width = 60, Alignment = 1
Add Object txtCompany As TextBox With ;
ControlSource = "customer.company", ;
Left = 80, Top = 30, Width = 290
Add Object lblContact As Label With ;
Caption = "Contact", ;
Left = 15, Top = 58, Width = 60, Alignment = 1
Add Object txtContact As TextBox With ;
ControlSource = "customer.contact", ;
Left = 80, Top = 54, Width = 220
Add Object lblTitle As Label With ;
Caption = "Title", ;
Left = 15, Top = 82, Width = 60, Alignment = 1
Add Object txtTitle As TextBox With ;
ControlSource = "customer.title", ;
Left = 80, Top = 78, Width = 220
Add Object grdOrders As Grid With ;
ColumnCount = 11, ;
Left = 5, ;
RecordSource = "orders", ;
RecordSourceType = 1, ;
Top = 110, ;
Height = 253,;
Visible = .T., ;
Width = 790, ;
ChildOrder = "cust_id",;
LinkMaster = "Customer",;
RelationalExpr = "cust_id",;
Column1.ControlSource = "orders.order_id", ;
Column1.Enabled = .T., ;
Column1.Width = 46, ;
Column1.ReadOnly = .F., ;
Column1.Visible = .T., ;
Column1.ForeColor = Rgb(0,0,0), ;
Column1.BackColor = Rgb(255,255,255), ;
Column1.Name = "Column1", ;
Column2.ControlSource = "orders.cust_id", ;
Column2.Enabled = .T., ;
Column2.Width = 46, ;
Column2.ReadOnly = .F., ;
Column2.Visible = .T., ;
Column2.ForeColor = Rgb(0,0,0), ;
Column2.BackColor = Rgb(255,255,255), ;
Column2.Name = "Column2", ;
Column3.ControlSource = "orders.emp_id", ;
Column3.Enabled = .T., ;
Column3.Width = 46, ;
Column3.ReadOnly = .F., ;
Column3.Visible = .T., ;
Column3.ForeColor = Rgb(0,0,0), ;
Column3.BackColor = Rgb(255,255,255), ;
Column3.Name = "Column3", ;
Column4.ControlSource = "orders.to_name", ;
Column4.Enabled = .T., ;
Column4.Width = 284, ;
Column4.ReadOnly = .F., ;
Column4.Visible = .T., ;
Column4.ForeColor = Rgb(0,0,0), ;
Column4.BackColor = Rgb(255,255,255), ;
Column4.Name = "Column4", ;
Column5.ControlSource = "orders.order_date", ;
Column5.Enabled = .T., ;
Column5.Width = 65, ;
Column5.ReadOnly = .F., ;
Column5.Visible = .T., ;
Column5.ForeColor = Rgb(0,0,0), ;
Column5.BackColor = Rgb(255,255,255), ;
Column5.Name = "Column5", ;
Column6.ControlSource = "orders.order_amt", ;
Column6.Format = "$Z", ;
Column6.InputMask = "#,###,###.##", ;
Column6.Enabled = .T., ;
Column6.Width = 109, ;
Column6.ReadOnly = .F., ;
Column6.Visible = .T., ;
Column6.ForeColor = Rgb(0,0,0), ;
Column6.BackColor = Rgb(255,255,255), ;
Column6.Name = "Column6", ;
Column7.ControlSource = "orders.freight", ;
Column7.Format = "$Z", ;
Column7.InputMask = "#,###,###.##", ;
Column7.Enabled = .T., ;
Column7.Width = 109, ;
Column7.ReadOnly = .F., ;
Column7.Visible = .T., ;
Column7.ForeColor = Rgb(0,0,0), ;
Column7.BackColor = Rgb(255,255,255), ;
Column7.Name = "Column7", ;
Column8.ControlSource = "orders.order_dsc", ;
Column8.Format = "RZ", ;
Column8.InputMask = "##%", ;
Column8.Enabled = .T., ;
Column8.Width = 53, ;
Column8.ReadOnly = .F., ;
Column8.Visible = .T., ;
Column8.ForeColor = Rgb(0,0,0), ;
Column8.BackColor = Rgb(255,255,255), ;
Column8.Name = "Column8", ;
Column9.ControlSource = "orders.order_net", ;
Column9.Format = "$Z", ;
Column9.InputMask = "#,###,###.##", ;
Column9.Enabled = .T., ;
Column9.Width = 109, ;
Column9.ReadOnly = .F., ;
Column9.Visible = .T., ;
Column9.ForeColor = Rgb(0,0,0), ;
Column9.BackColor = Rgb(255,255,255), ;
Column9.Name = "Column9", ;
Column10.ControlSource = "( (100-orders.order_dsc)/100"+;
" * orders.order_amt + orders.freight)", ;
Column10.Format = "$Z", ;
Column10.InputMask = "#,###,###.##", ;
Column10.Enabled = .F., ;
Column10.Width = 109, ;
Column10.Visible = .T., ;
Column10.ForeColor = Rgb(0,0,0), ;
Column10.BackColor = Rgb(255,255,255), ;
Column10.Name = "Column10", ;
Column11.ControlSource = "orders.shipped_on", ;
Column11.Enabled = .T., ;
Column11.Width = 65, ;
Column11.ReadOnly = .F., ;
Column11.Visible = .T., ;
Column11.ForeColor = Rgb(0,0,0), ;
Column11.BackColor = Rgb(255,255,255), ;
Column11.Name = "Column11"
Add Object cmdSimpleNav As CommandGroup With ;
TableNav = 'customer', ;
Top = 368, Height = 27, Left = 10, Width = 336, ButtonCount = 4, ;
Command1.Caption = '\<First', ;
Command1.Left = 5, Command1.Top = 5, Command1.Width = 80, ;
Command2.Caption = '\<Previous', ;
Command2.Left = 87, Command2.Top = 5, Command2.Width = 80, ;
Command3.Caption = '\<Next', ;
Command3.Left = 169, Command3.Top = 5, Command3.Width = 80, ;
Command4.Caption = '\<Last', ;
Command4.Left = 251, Command4.Top = 5, Command4.Width = 80
Procedure cmdSimpleNav.Click
Local loObj
loObj = Sys(1270)
If !(Type('loObj.Parent') = 'O' And Compobj(loObj.Parent,This))
Return
Endif
With This
Select (.TableNav)
Do Case
Case This.Value = 1
Locate
Case This.Value = 2
Skip -1
If Bof()
Locate
Endif
Case This.Value = 3
Skip
If Eof()
Go Bottom
Endif
Case This.Value = 4
Go Bottom
Endcase
.EnabDisabButtons()
Endwith
Thisform.Refresh
Endproc
Procedure cmdSimpleNav.Init
This.EnabDisabButtons()
Endproc
Procedure cmdSimpleNav.EnabDisabButtons
Local lnCurrent
With This
Select (.TableNav)
lnCurrent = Recno()
Skip -1
Store !Bof() To .Buttons(1).Enabled,.Buttons(2).Enabled
Go lnCurrent
Skip
Store !Eof() To .Buttons(3).Enabled,.Buttons(4).Enabled
.Refresh
Endwith
Go lnCurrent
Endproc
Procedure Load && Prepare data here
Set Talk Off
Set Deleted On
Set Century On
Set Multilocks On
Set Exclusive Off && Other sets you need
Use (_samples+'data\customer')
Use (_samples+'data\orders') In 0
CursorSetProp("Buffering",5,"Customer"
CursorSetProp("Buffering",5,"Orders"
Endproc
Procedure Init
With This.grdOrders
.Columns(1).Header1.Caption = "OrderID"
.Columns(2).Header1.Caption = "CustID"
.Columns(3).Header1.Caption = "EmpID"
.Columns(4).Header1.Caption = "To"
.Columns(5).Header1.Caption = "OrderDate"
.Columns(6).Header1.Caption = "Amount"
.Columns(7).Header1.Caption = "Freight"
.Columns(8).Header1.Caption = "Discount"
.Columns(9).Header1.Caption = "Net"
.Columns(10).Header1.Caption = "Calculated Net"
.Columns(11).Header1.Caption = "ShippedOn"
.SetAll("DynamicBackColor",;
"( Iif(orders.order_amt > 2000,"+;
" 0xFFFF00,"+;
" Iif(orders.order_amt > 1000,"+;
" 0x00FFFF,0xFFFFFF)))"
Endwith
Endproc
Enddefine
*++++ eoj sample
I cut this sample code from this forum and paste into VFP8 command window.I select all the code and run!FINE. Then I save code to MyPrg.prg and modify [I append statement SAVEAS("My_form"
]. If I MODIFY FORM My_form, all my changes is immutable.What is your suggestion.
I think, I squander your time.
Milos
Mike Lewis
Programmer
Milos,
Sorry, but I'm still not seeing this behaviour. I don't really know what is going on here. Perhaps someone else can help?
Mike
Mike Lewis
Edinburgh, Scotland
Sorry, but I'm still not seeing this behaviour. I don't really know what is going on here. Perhaps someone else can help?
Mike
Mike Lewis
Edinburgh, Scotland
Are the files by chance getting created as read-only?
-Dave S.-
![[cheers]](/data/assets/smilies/cheers.gif "[cheers] [cheers]")
Even more Fox stuff at:
-Dave S.-
Even more Fox stuff at:
- Thread starter
- #16
Mike and ALL,
Sorry, did you try my written code in ???.prg !!!???
I still assure my (cut .and. paste code)! My code works good, but you say that you can MODI FORM and save without tribulation??
I don't!
Mike, don't forget, I am BEGIN veracious VFP programer,[help me - why not?!]
What is your suggestion?
I think, I squander your time[a(lott)].
Please. give me a STEP by STEP sample, becouse I am a little confuse.
Milos
Sorry, did you try my written code in ???.prg !!!???
I still assure my (cut .and. paste code)! My code works good, but you say that you can MODI FORM and save without tribulation??
I don't!
Mike, don't forget, I am BEGIN veracious VFP programer,[help me - why not?!]
What is your suggestion?
I think, I squander your time[a(lott)].
Please. give me a STEP by STEP sample, becouse I am a little confuse.
Milos
- Thread starter
- #17
I've tried running your code, but SAVEAS() don't work. I'm running VFP 7 though, not VFP 8.
But, that form is not that complex. Recreate it from scratch if you can't get this stuff to work. There aren't that many objects on it and cut-and-pasting the method code won't take that much.
-Dave S.-
Even more Fox stuff at:
But, that form is not that complex. Recreate it from scratch if you can't get this stuff to work. There aren't that many objects on it and cut-and-pasting the method code won't take that much.
-Dave S.-
Even more Fox stuff at:
Mike Lewis
Programmer
Milos,
Yes, I have been running your code throughout this thread.
Don't worry about wasting our time. The forum is for people who are able to spend time helping others.
However, you should keep in mind that the technique that you are trying to develop is very unusual. I have never seen this technique used before, and it could be that you are stretching Visual Foxpro. That's not a bad thing, but I always feel that when things get too complicated and unusual, it maybe time to look for a simpler solution.
If you are just trying to convert one or two simple forms, it might be easier to start them again in the form designer, as Dave suggested. If you have many forms to convert, I would suggest that you re-consider the need to convert them. It's true that it is easier to work with forms and classes using the visual design tools, but it is not that difficult to work with PRG files as well.
Mike
Mike Lewis
Edinburgh, Scotland
Yes, I have been running your code throughout this thread.
Don't worry about wasting our time. The forum is for people who are able to spend time helping others.
However, you should keep in mind that the technique that you are trying to develop is very unusual. I have never seen this technique used before, and it could be that you are stretching Visual Foxpro. That's not a bad thing, but I always feel that when things get too complicated and unusual, it maybe time to look for a simpler solution.
If you are just trying to convert one or two simple forms, it might be easier to start them again in the form designer, as Dave suggested. If you have many forms to convert, I would suggest that you re-consider the need to convert them. It's true that it is easier to work with forms and classes using the visual design tools, but it is not that difficult to work with PRG files as well.
Mike
Mike Lewis
Edinburgh, Scotland
- Thread starter
- #20
- Status
Similar threads
- Question