Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(387) Clientheight(161) Componentversion(2) Top(228) Left(267)
Define_Com Class(#PRIM_PHBN) Name(#OK) Caption('&OK') Displayposition(1) Left(206) Parent(#COM_OWNER) Tabposition(1) Top(128) Buttondefault(True)
Define_Com Class(#PRIM_PHBN) Name(#Cancel) Caption('&Cancel') Displayposition(2) Left(303) Parent(#COM_OWNER) Tabposition(2) Top(128) Buttoncancel(True)

Evtroutine Handling(#OK.Click)

#Com_owner.Caption += "OK "

Endroutine

Evtroutine Handling(#Cancel.Click)

#Com_owner.CloseForm

Endroutine

End_Com

 See See also

All Component Classes

Technical Reference