Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to caption over a progress bar
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01094320
Message ID:
01096984
Vues:
16
>I'm there dude - and thanks for the followup - and how'd you do that?

Run the code below (secret is the drawmode property of the shape)...
PUBLIC oform1

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

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	BackColor = RGB(255,255,255)
	Name = "Form1"

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Just an example to show the technique", ;
		Height = 17, ;
		Left = 80, ;
		Top = 117, ;
		Width = 215, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"

	ADD OBJECT shape1 AS shape WITH ;
		Top = 107, ;
		Left = 121, ;
		Height = 36, ;
		Width = 132, ;
		BorderStyle = 0, ;
		BorderWidth = 1, ;
		DrawMode = 14, ;
		BackColor = RGB(0,0,255), ;
		Name = "Shape1"

	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Drawmode of the Shape below is 14 and it is on top of the Label", ;
		Height = 17, ;
		Left = 12, ;
		Top = 24, ;
		Width = 351, ;
		Name = "Label2"

ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform