Printer.Abort 方法 |
命名空间: VO
1CLASS AbortDialog INHERIT DialogWindow 2 HIDDEN oPrintJob AS OBJECT 3 4 METHOD Init(oWindow,oPrinter) CLASS AbortDialog 5 SUPER:Init(oWindow,ResourceID{IDD_ABORT}) 6 oPrintJob := oPrinter 7 8 METHOD ButtonClick(oControlEvent) CLASS AbortDialog 9 oPrintJob:Abort() 10 SELF:EndDialog(1) 11 12 METHOD FilePrint() CLASS TopAppWindow 13 oPrinter := Printer{} 14 15 IF(oPrinter:IsValid()) 16 oDialog := AbortDialog{SELF,oPrinter} 17 oDialog:Show() 18 oPrinter:Start() 19 ENDIF