Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Jumping of image in button
Message
De
07/09/2001 12:29:31
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00552379
Message ID:
00553902
Vues:
62
Vlad-

>>Well, since you're talking with me :), send it to my work address, please, I'll play with it.

>Thanks! Catch it.
>

Guess I'm chopped liver, eh? Oh, well.

I'm not able to duplicate the problem with the code that follows. However, I have no idea that the bmp I chose is one that you would have trouble with. It was helpful that you included your version number finally. A couple of thoughts: it might be a localization/language issue. Which language resource file are you using? (Not sure I'm phrasing that correctly.) Also, if you can install service pack 5, that might be helpful.

Otherwise, here's the code I tried (I added a bunch of textboxes to see if that helped but it didn't).
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\temp\temp.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   09/07/01 09:20:05 AM
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 360
	Width = 793
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT cmdexit AS commandbutton WITH ;
		Top = 3, ;
		Left = 745, ;
		Height = 40, ;
		Width = 44, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		Picture = "..\program files\microsoft visual studio\vfp98\wizards\wizbmps\wzclose.bmp", ;
		Cancel = .T., ;
		Caption = "Koniec", ;
		TabIndex = 12, ;
		ToolTipText = "Zatvorenie okna", ;
		Name = "cmdExit"


	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 24, ;
		Width = 100, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 52, ;
		Width = 100, ;
		Name = "Text2"


	ADD OBJECT text3 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 80, ;
		Width = 100, ;
		Name = "Text3"


	ADD OBJECT text4 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 108, ;
		Width = 100, ;
		Name = "Text4"


	ADD OBJECT text5 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 136, ;
		Width = 100, ;
		Name = "Text5"


	ADD OBJECT text6 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 164, ;
		Width = 100, ;
		Name = "Text6"


	ADD OBJECT text7 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 192, ;
		Width = 100, ;
		Name = "Text7"


	ADD OBJECT text8 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 220, ;
		Width = 100, ;
		Name = "Text8"


	ADD OBJECT text9 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 248, ;
		Width = 100, ;
		Name = "Text9"


	ADD OBJECT text10 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 276, ;
		Width = 100, ;
		Name = "Text10"


	ADD OBJECT text11 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 304, ;
		Width = 100, ;
		Name = "Text11"


	ADD OBJECT text12 AS textbox WITH ;
		Height = 23, ;
		Left = 36, ;
		Top = 332, ;
		Width = 100, ;
		Name = "Text12"


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

Click here to load this message in the networking platform