Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PageOrder of pages in pgf default to creation order
Message
De
23/02/2006 09:12:28
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 6 SP5
Database:
Firebird
Divers
Thread ID:
01098406
Message ID:
01098461
Vues:
14
This message has been marked as the solution to the initial question of the thread.
>Hi Fabio
>
>>you can hack the vcx.
>>
>>Post the properties field.
>
>
>I tried to paste the lot for Page9 to after the lot of lines for Page1 but that did not seem to work.
>
>Please advise.
>
>
Height = 338
>Width = 628
>DoCreate = .T.
>Caption = "C.A. 3"
>cprintdocform = afrmtCA3Doc
>Name = "afrmtca3"
>ccnt3dformtitle.lblRaised.Name = "lblRaised"
>ccnt3dformtitle.lblBackground.Name = "lblBackground"
>ccnt3dformtitle.lblForeGround.Name = "lblForeGround"
>ccnt3dformtitle.imgIcon.Name = "imgIcon"
>ccnt3dformtitle.Top = 0
>ccnt3dformtitle.Left = 430
>ccnt3dformtitle.TabIndex = 2
>ccnt3dformtitle.ZOrderSet = 1
>ccnt3dformtitle.Name = "ccnt3dformtitle"
>pgf.ErasePage = .T.
>pgf.PageCount = 9
>pgf.Page1.Caption = "\<Entry Form 1"
>pgf.Page1.PageOrder = 1
>pgf.Page1.Name = "Page1"
>pgf.Page2.Caption = "\<Statement of Facts"
>pgf.Page2.PageOrder = 3
>pgf.Page2.Name = "Page2"
>pgf.Page3.FontBold = .T.
>pgf.Page3.FontName = "Tahoma"
>pgf.Page3.Caption = "\<Grounds of Appeal"
>pgf.Page3.PageOrder = 4
>pgf.Page3.Name = "Page3"
>pgf.Page4.FontBold = .T.
>pgf.Page4.FontName = "Tahoma"
>pgf.Page4.Caption = "\<Covering Letter"
>pgf.Page4.PageOrder = 5
>pgf.Page4.Name = "Page4"
>pgf.Page5.FontBold = .T.
>pgf.Page5.FontName = "Tahoma"
>pgf.Page5.Caption = "\<Index"
>pgf.Page5.PageOrder = 6
>pgf.Page5.Name = "Page5"
>pgf.Page6.FontBold = .T.
>pgf.Page6.FontName = "Tahoma"
>pgf.Page6.Caption = "\<Stay Applicaion"
>pgf.Page6.PageOrder = 7
>pgf.Page6.Name = "Page6"
>pgf.Page7.FontBold = .T.
>pgf.Page7.FontName = "Tahoma"
>pgf.Page7.Caption = "S\<ynopsis"
>pgf.Page7.PageOrder = 8
>pgf.Page7.Name = "Page7"
>pgf.Page8.FontBold = .T.
>pgf.Page8.FontName = "Tahoma"
>pgf.Page8.Caption = "Misc."
>pgf.Page8.PageOrder = 9
>pgf.Page8.Name = "Page8"
>pgf.Page9.FontBold = .T.
>pgf.Page9.FontName = "Tahoma"
>pgf.Page9.Caption = "Entry Form 2"
>pgf.Page9.PageOrder = 2
>pgf.Page9.Name = "Page9"
>pgf.Top = 35
>pgf.Left = 0
>pgf.Width = 630
>pgf.Height = 280
>pgf.Tabs = .T.
>pgf.TabIndex = 4
>pgf.ZOrderSet = 3
>pgf.Name = "pgf"
>ccntstatusbar.txtStatusMessage.Name = "txtStatusMessage"
>ccntstatusbar.txtiID.Name = "txtiID"
>ccntstatusbar.txtStatus.Name = "txtStatus"
>ccntstatusbar.imgStatus.Name = "imgStatus"
>ccntstatusbar.Top = 315
>ccntstatusbar.Left = 450
>ccntstatusbar.TabIndex = 7
>ccntstatusbar.ZOrderSet = 5
>ccntstatusbar.Name = "ccntstatusbar"
>cmdPrevious.Top = 295
>cmdPrevious.Left = 375
>cmdPrevious.TabIndex = 5
>cmdPrevious.ZOrderSet = 4
>cmdPrevious.Name = "cmdPrevious"
>cmdNext.Top = 295
>cmdNext.Left = 500
>cmdNext.TabIndex = 6
>cmdNext.ZOrderSet = 6
>cmdNext.Name = "cmdNext"
backup the VCX, before!

replace the pages section
....
pgf.Page1.Caption = "\<Entry Form 1"
pgf.Page1.PageOrder = 1
pgf.Page1.Name = "Page1"
pgf.Page2.FontBold = .T.
pgf.Page2.FontName = "Tahoma"
pgf.Page2.Caption = "Entry Form 2"
pgf.Page2.PageOrder = 2
pgf.Page2.Name = "Page9"
pgf.Page3.Caption = "\<Statement of Facts"
pgf.Page3.PageOrder = 3
pgf.Page3.Name = "Page2"
pgf.Page4.FontBold = .T.
pgf.Page4.FontName = "Tahoma"
pgf.Page4.Caption = "\<Grounds of Appeal"
pgf.Page4.PageOrder = 4
pgf.Page4.Name = "Page3"
pgf.Page5.FontBold = .T.
pgf.Page5.FontName = "Tahoma"
pgf.Page5.Caption = "\<Covering Letter"
pgf.Page5.PageOrder = 5
pgf.Page5.Name = "Page4"
pgf.Page6.FontBold = .T.
pgf.Page6.FontName = "Tahoma"
pgf.Page6.Caption = "\<Index"
pgf.Page6.PageOrder = 6
pgf.Page6.Name = "Page5"
pgf.Page7.FontBold = .T.
pgf.Page7.FontName = "Tahoma"
pgf.Page7.Caption = "\<Stay Applicaion"
pgf.Page7.PageOrder = 7
pgf.Page7.Name = "Page6"
pgf.Page8.FontBold = .T.
pgf.Page8.FontName = "Tahoma"
pgf.Page8.Caption = "S\<ynopsis"
pgf.Page8.PageOrder = 8
pgf.Page8.Name = "Page7"
pgf.Page9.FontBold = .T.
pgf.Page9.FontName = "Tahoma"
pgf.Page9.Caption = "Misc."
pgf.Page9.PageOrder = 9
pgf.Page9.Name = "Page8"
....
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform