>I have a method that makes my forms multi-linguale by keeping
>captions information into a table.
>
>My problem is that since we are shadowing the text objects for a
>nice visual effect, this doubles the number of captions objects in
>our database.
>
>I am looking for a way to create a new type of text object that would
>automatically shadow my text but that will have a single Caption
>property.
>
>I am still new to VFP and classes (I am trying to recycle my way of thinking from good old 2.6) and need some help.
>
>Thanks a lot gang!
>
>P.Charbonneau
This could help you.

DEFINE CLASS lblshadowtext AS label


	BackStyle = 0
	Caption = "Label1"
	Height = 17
	Width = 40
	Name = "lblshadowtext"


	PROCEDURE Init
		this.parent.addobject(this.name+"shadow","label")
		nMembers = amembers(aProps,this)
		with evaluate("this.parent."+this.name+"shadow")
			for ix = 1 to nMembers
				if aProps[ix]="FONT"
					.&aProps[ix] = this.&aProps[ix]
				endif
			endfor
			.left = This.left + 2
			.top  = This.top + 2
			.autosize = .t.
			.caption = This.caption
			.visible = .t.
			this.zorder(0)
		endwith
	ENDPROC


ENDDEFINE

Cetin