Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Page and Chr(10),chr(13) reads right to left
Message
De
23/06/2004 11:26:50
Suhas Hegde
Dental Surgeon
Sirsi, Inde
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Visual FoxPro Beta
Divers
Thread ID:
00915922
Message ID:
00916443
Vues:
6
Please check this out It is more in detail. check how the words are on the label and the page caption
**************************************************
*-- Form:         form1 (c:\program files\microsoft visual foxpro 9\testpagecaptions.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   06/23/04 08:52:09 PM
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 574
	Width = 793
	DoCreate = .T.
	Caption = "Form1"
	WindowState = 2
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		Top = 156, ;
		Left = 216, ;
		Width = 517, ;
		Height = 353, ;
		Name = "Pageframe1", ;
		Page1.Caption = "page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 180, ;
		Left = 96, ;
		Height = 37, ;
		Width = 109, ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT label1 AS label WITH ;
		Caption = "Label1", ;
		Height = 60, ;
		Left = 216, ;
		Top = 84, ;
		Width = 265, ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .F., ;
		WordWrap = .T., ;
		Caption = ['Check the contents of the label below    and of the   page1    caption after clicking the command button.            The label reads  "  first second third    "  but the page reads "   third second first.  "'], ;
		Height = 60, ;
		Left = 204, ;
		Top = 0, ;
		Width = 360, ;
		Name = "Label2"


	PROCEDURE Form1.Command1.Click
		With this.Parent
		.pageframe1.page1.caption = "first "+chr(10)+"second "+chr(10)+"third "
		.label1.caption = "first "+chr(10)+"second "+chr(10)+"third "
		endwith
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Thanx
suhas
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform