PUBLIC omform1 SET CLASSLIB TO c:\VCLOCK\class\mform.vcx ADDITIVE SET CLASSLIB TO c:\VCLOCK\klock.vcx ADDITIVE omform1=NEWOBJECT("mform1") omform1.Show RETURN ******************************************************** *-- Author: Leosan *-- Form: mform1 (c:\VCLOCK\form\clock.scx) *-- ParentClass: mform (c:\VCLOCK\class\mform.vcx) *-- BaseClass: form *-- Time Stamp: 01/30/08 10:16:06 AM * DEFINE CLASS mform1 AS mform Height = 177 Width = 181 ShowWindow = 0 DoCreate = .T. Caption = "Clock" MaxButton = .F. MinButton = .F. Name = "Mform1" ADD OBJECT clock1 AS clock WITH ; Top = 5, ; Left = 9, ; Width = 168, ; Height = 168, ; ZOrderSet = 1, ; Name = "Clock1", ; year.Name = "year", ; Transring1.Height = 160, ; Transring1.Width = 160, ; Transring1.Name = "Transring1", ; Timer1.Name = "Timer1", ; dayname.Name = "dayname", ; month.Name = "month", ; day...
Comments