  ᯮ짮:

1)    SetAllX2 - ਬ ⠪:

_SCREEN.NewObject ("SetAllX2", "SetAllX2", "SetAllX.vcx")

2)   짮 ⮤ SetAllX ᮧ ꥪ   ⮤ 襩 ணࠬ, ਬ ⠪:

_SCREEN.SetAllX2.SetAllX (ࠬ...)

⠪ ⮤ SetAllX:

SetAllX (toParent, tcProperty, [tcExpr], [tcBaseClassList], [tlNoContainerMode], [tlErrorWait])

ࠬ:

toParent - ꥪ⭠ 뫪  ࠡ뢠 ⥩, ਬ ThisForm  This.cntSomeContainer  ⮤ ண ꥪ,  m.goFormRef  楤.

tcProperty -  ⠭ ᢮⢠, ਬ "BackColor"  "ReadOnly".   ᯮ塞 ⮤, ਬ "MyHookMethod ()"  ᪠ "Refresh ()" ਧ ࠧ祭 ᢮⢠/⮤  뢠 㣫 ᪮  ᠬ ࠢ 樨.

tcExpr - ࠦ  祭, ᢠ 㪠 ᢮. ਬ: ᫮ - 0  ᪠ 2^8+2^4, ப - "Caption"  " " + TRANSFORM (DATE()), ⨯  - {^2003.12.06}  塞 ࠦ - "(m.goApp.Caption + '  ' + This.Caption)"
᫨  ࠦ 祭  㣫 ᪮ (⢥  ⮣    ப),  ந  ᫥  ᢮,  ⮣ ந ४⭮ ८ࠧ 뫮 This  This.Parent (   ந  ). ..  ᢮ ᢮ 祭, 祭  ᫥ ࠦ ᮤঠ饣   / 㣨 ᢮⢠ 楫 ꥪ, ஡ .  ਬ.
  ய饭, ᫨ ன ࠬ 㪠뢠  ᯮ ⮤.
tcBaseClassList ᮪   ᮢ VFP (१ , ॣ  ஡  뢠),  ꥪ⠬   ࠡ.  "CommandButton, Header, Label"  㬮砭 -  ப,  砥 ࠡ ꥪ⮢  ᮢ.

tlNoContainerMode - , ⪫騩 ࠧ 娨  ꥪ⮢. .. ᫨ । .T.   ࠡ⠭ ⮫쪮 ꥪ ।⢥ ᯮ  㪠 ⥩,  -     ⥩.  㬮砭 ⠭ .F. - .. ࠧ 娨 祭.

tlErrorWait - , ⪫騩 饭 訡  ᮬ.  ࠡ   । ⢨ -   뫮 ஢ப ( 稥 ⮣   ᢮⢠/⮤, ४⭮ ⨯   ..),   饭   訡. ⠭ ⮣ ࠬ  .T. ⬥     ᥣ 뢠   ᮮ饭  訡 :)  㬮砭 ⠭ .F. - .. 訡 .

 㪠    ⠭⭮  SetAllX  ⥪ FFC (⢥  뢠 ᪮쪮  訡 ॠ樨 :))  ⥯  :

⢮ cClassNames -   ⢮ (饭 㤠 ⮩ ப - ᯨ᪠  ᮢ) 砥 ࠧ 娨 ᫥ - ..  ࠡ⠭ ⮫쪮 ꥪ 㪠 ᮢ     . .. ᫨   

TextBox - txt - txtSuper - txtSuperPuper
              - txtAnother - txtCool

 㪠  ᯨ᪥   txt  㤥 ࠡ  ꥪ⠬   ᮢ, ஬  (TextBox),  㪠 txtSuper,  㤥 ࠡ ⮫쪮  ᠬ txtSuper  txtSuperPuper. ᮪  ⠪  ଠ   ࠬ tcBaseClassList -  ᫥ १ , ॣ  ஡  뢠.
 -  ᢮⢮  ⬥ ࠬ஢ ⮤ SetAllX,    - .. ᫨  맮 ⮤ 㪠 ࠬ tcBaseClassList -  㤥 ⢫ 䨫     ᮢ, ⠪   ⮬ ᢮. ⢮ ᠬ  ᥡ  뢠, ..  室   ᤥ ணࠬ - ᢮ ᢮  ப.

ਬ:
1) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "BackColor", 255) - ⠭   ꥪ⮢ ᯮ  ଥ oFormRef 梥 䮭  .

2) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "ForeColor", RGB (0, 255, 0), "Label,CommandButton") - ⠭   ᥩ   ᯮ  ଥ oFormRef 梥   .

3) _SCREEN.SetAllX2.SetAllX (m.oFormRef.Cnt1, "FontSize", 20, "", .T.) - ⠭   ꥪ⮢ ᯮ __  ⥩ Cnt1 (..  뢠   ⥭, ਬ PageFrame  Grid) ࠧ   20 㭪⮢.

4) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "SomeMethod ()", "", "", .T.)
믮 ⮤ SomeMethod  __ ꥪ⮢ ᯮ __  ଥ oFormRef,  뢠 ꥪ   ⥩.

5) ASELOBJ (m.laTemp, 1)
* 稬 뫪  ,    ...
_SCREEN.SetAllX2.cClassNames = "txtSuper,lblSuper"
_SCREEN.SetAllX2.SetAllX (m.laTemp, "FontName", "Arial")
⠭   ꥪ⮢ ந  ᮢ txtSuper, lblSuper   ᫥, ᯮ  ଥ ⮩  ,  Arial.

6) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "FontSize", "(This.FontSize + 1)")
   ꥪ⮢ ᯮ  ଥ oFormRef ࠧ   .

7) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "Top", "(This.Top + 10), "", .T.)
 ꥪ ᯮ ।⢥  ଥ oFormRef   10 ᥫ.
