>oForm = Createobject('Form1') >oForm.Show(1) >return > >oForm = Createobject('Form1') >oForm.Show(1) >return > >DEFINE CLASS form1 AS form > > > Top = 57 > Left = 130 > Height = 116 > Width = 355 > DoCreate = .T. > BorderStyle = 3 > Caption = "Form1" > WindowState = 0 > Name = "Form1" > > > ADD OBJECT shpgif2 AS shape WITH ; > Top = -2, ; > Left = 90, ; > Height = 97, ; > Width = 88, ; > BorderStyle = 0, ; > Visible = .F., ; > Name = "shpGif2" > > > ADD OBJECT cmdexit AS commandbutton WITH ; > Top = 82, ; > Left = 295, ; > Height = 32, ; > Width = 60, ; > Caption = "Exit", ; > TabIndex = 5, ; > Name = "cmdExit" > > > ADD OBJECT imggif1 AS image WITH ; > Picture = Home(4) + "gifs\morphfox.gif", ; > Stretch = 1, ; > Height = 97, ; > Left = 2, ; > Top = -2, ; > Width = 88, ; > Name = "imgGif1" > > > ADD OBJECT cmdhideshow AS commandbutton WITH ; > Top = 0, ; > Left = 295, ; > Height = 32, ; > Width = 60, ; > Caption = "Hide", ; > Name = "cmdHideShow" > > > ADD OBJECT cmdrefresh AS commandbutton WITH ; > Top = 41, ; > Left = 295, ; > Height = 32, ; > Width = 60, ; > Caption = "Refresh", ; > Name = "cmdRefresh" > > > ADD OBJECT chkvisiblegif AS checkbox WITH ; > Top = 95, ; > Left = 2, ; > Height = 17, ; > Width = 93, ; > Caption = "Visible Gif?", ; > ControlSource = "thisform.imggif1.visible", ; > ReadOnly = .T., ; > Name = "chkVisibleGif" > > > ADD OBJECT imggif2 AS image WITH ; > Picture = Home(4) + "gifs\morphfox.gif", ; > Stretch = 1, ; > Height = 97, ; > Left = 90, ; > Top = -2, ; > Width = 88, ; > Name = "imgGif2" > > > ADD OBJECT chkvisibleshp AS checkbox WITH ; > Top = 95, ; > Left = 92, ; > Height = 17, ; > Width = 114, ; > Caption = "Visible Shp?", ; > ControlSource = "thisform.shpGif2.visible", ; > ReadOnly = .T., ; > Name = "chkVisibleShp" > > > ADD OBJECT ctrgif3 AS container WITH ; > Top = -2, ; > Left = 178, ; > Width = 88, ; > Height = 97, ; > BorderWidth = 0, ; > Name = "ctrGif3" > > >*!* ADD OBJECT form1.ctrgif3.imggif3 AS image WITH ; >*!* Picture = Home(4) + "gifs\morphfox.gif", ; >*!* Stretch = 1, ; >*!* Height = 97, ; >*!* Left = 0, ; >*!* Top = 0, ; >*!* Width = 88, ; >*!* Name = "imgGif3" > > > ADD OBJECT chkvisiblectr AS checkbox WITH ; > Top = 96, ; > Left = 179, ; > Height = 17, ; > Width = 81, ; > Caption = "Visible Ctr?", ; > ControlSource = "thisform.ctrGif3.visible", ; > ReadOnly = .T., ; > Name = "chkVisibleCtr" > > > PROCEDURE cmdexit.Click > thisform.Release() > ENDPROC > > > PROCEDURE cmdhideshow.Click > if this.Caption = 'Hide' > this.Caption = 'Show' > thisform.imgGif1.Visible = .f. > thisform.shpGif2.Visible = .t. > thisform.ctrGif3.Visible = .f. > else > this.Caption = 'Hide' > thisform.imgGif1.Visible = .t. > thisform.shpGif2.Visible = .f. > thisform.ctrGif3.Visible = .t. > endif > thisform.chkVisibleGif.Refresh() > thisform.chkVisibleShp.Refresh() > thisform.chkVisibleCtr.Refresh() > ENDPROC > > > PROCEDURE cmdrefresh.Click > thisform.Refresh > ENDPROC > > procedure init > > thisform.ctrGif3.addobject('imgGif3', 'Image') > with thisform.ctrGif3.imgGif3 > .Picture = Home(4) + "gifs\morphfox.gif" > .Stretch = 1 > .Height = 97 > .Left = 0 > .Top = 0 > .Width = 88 > .Visible = .t. > endwith > thisform.shpGif2.zorder(0) > endproc > >ENDDEFINE >>