>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