************************************************** *-- Form: modiform *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 12/09/03 01:58:04 PM * modiform = NewObject("modiform") modiform.Visible = .T. DEFINE CLASS modiform AS form Top = 0 Left = 0 Height = 300 Width = 375 DoCreate = .T. Caption = "modiform" WindowState = 0 Name = "modiform" ADD OBJECT modi_docview AS olecontrol WITH ; OleClass = "MiDocViewer.MiDocView.1", ; Top = 0, ; Left = 0, ; Height = 260, ; Width = 375, ; Name = "MODI_DocView" ADD OBJECT proceedbtn AS commandbutton WITH ; Top = 265, ; Left = 48, ; Height = 27, ; Width = 84, ; Caption = "Proceed", ; Name = "ProceedBtn" PROCEDURE Resize ThisForm.MODI_DocView.Height = Max(ThisForm.Height-40, 0) ThisForm.MODI_DocView.Width = ThisForm.Width ThisForm.ProceedBtn.Top = ThisForm.MODI_DocView.Height+5 ENDPROC PROCEDURE proceedbtn.Click Local MODI_Document As MODI.Document Local MODI_Image1 As MODI.IImage Local MODI_Image2 As MODI.IImage MODI_Document = CreateObject("MODI.Document") MODI_Document.Create(GetFile("TIF")) MODI_Image1 = MODI_Document.Images.Item(0) MODI_Document.Close(.F.) MODI_Document.Create(GetFile("TIF")) MODI_Image2 = MODI_Document.Images.Item(0) MODI_Document.Images.Add(MODI_Image1, MODI_Image2) ThisForm.MODI_DocView.Document = MODI_Document MODI_Document.SaveAs("C:\test.tif") Wait window ThisForm.MODI_DocView.FileName = "" ENDPROC ENDDEFINE * *-- EndDefine: modiform **************************************************
Make solutions, not programs!