$PBExportHeader$w_sheet.srw forward global type w_sheet from window end type type cb_response from commandbutton within w_sheet end type type cb_control from commandbutton within w_sheet end type type p_picture from picture within w_sheet end type type rb_clipboard from radiobutton within w_sheet end type type rb_file from radiobutton within w_sheet end type type cb_screen from commandbutton within w_sheet end type type cb_sheet from commandbutton within w_sheet end type type cb_window from commandbutton within w_sheet end type end forward global type w_sheet from window integer width = 2711 integer height = 1592 boolean titlebar = true string title = "Untitled" string menuname = "m_sheet" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true long backcolor = 67108864 boolean center = true cb_response cb_response cb_control cb_control p_picture p_picture rb_clipboard rb_clipboard rb_file rb_file cb_screen cb_screen cb_sheet cb_sheet cb_window cb_window end type global w_sheet w_sheet type prototypes end prototypes type variables n_bitmap in_bitmap n_runandwait in_run end variables on w_sheet.create if this.MenuName = "m_sheet" then this.MenuID = create m_sheet this.cb_response=create cb_response this.cb_control=create cb_control this.p_picture=create p_picture this.rb_clipboard=create rb_clipboard this.rb_file=create rb_file this.cb_screen=create cb_screen this.cb_sheet=create cb_sheet this.cb_window=create cb_window this.Control[]={this.cb_response,& this.cb_control,& this.p_picture,& this.rb_clipboard,& this.rb_file,& this.cb_screen,& this.cb_sheet,& this.cb_window} end on on w_sheet.destroy if IsValid(MenuID) then destroy(MenuID) destroy(this.cb_response) destroy(this.cb_control) destroy(this.p_picture) destroy(this.rb_clipboard) destroy(this.rb_file) destroy(this.cb_screen) destroy(this.cb_sheet) destroy(this.cb_window) end on event open;gi_window = gi_window + 1 this.Title = "Sheet #" + String(gi_window) end event type cb_response from commandbutton within w_sheet integer x = 1865 integer y = 64 integer width = 736 integer height = 228 integer taborder = 40 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Open Response Window" end type event clicked;Open(w_reponse) end event type cb_control from commandbutton within w_sheet integer x = 73 integer y = 928 integer width = 736 integer height = 228 integer taborder = 30 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Capture Picture Control" end type event clicked;String ls_fname Blob lblb_bitmap SetPointer(HourGlass!) ls_fname = in_bitmap.of_GetTempPath() + "Control.bmp" If rb_clipboard.Checked Then lblb_bitmap = in_bitmap.of_ControlCapture(p_picture, True) Else lblb_bitmap = in_bitmap.of_ControlCapture(p_picture, False) in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap) in_run.ShellRun(ls_fname, "Edit", in_run.SW_SHOWMAXIMIZED) End If end event type p_picture from picture within w_sheet integer x = 951 integer y = 352 integer width = 736 integer height = 644 string picturename = "Custom026!" boolean focusrectangle = false boolean map3dcolors = true end type type rb_clipboard from radiobutton within w_sheet integer x = 951 integer y = 192 integer width = 731 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Save bitmap to clipboard" end type type rb_file from radiobutton within w_sheet integer x = 951 integer y = 64 integer width = 773 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Write to file and open in editor" boolean checked = true end type type cb_screen from commandbutton within w_sheet integer x = 73 integer y = 64 integer width = 736 integer height = 228 integer taborder = 10 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Capture Entire Screen" end type event clicked;String ls_fname Blob lblb_bitmap SetPointer(HourGlass!) ls_fname = in_bitmap.of_GetTempPath() + "Screen.bmp" If rb_clipboard.Checked Then lblb_bitmap = in_bitmap.of_ScreenCapture(True) Else lblb_bitmap = in_bitmap.of_ScreenCapture(False) in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap) in_run.ShellRun(ls_fname, "Edit", in_run.SW_SHOWMAXIMIZED) End If end event type cb_sheet from commandbutton within w_sheet integer x = 73 integer y = 640 integer width = 736 integer height = 228 integer taborder = 20 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Capture Sheet Window" end type event clicked;String ls_fname Blob lblb_bitmap SetPointer(HourGlass!) ls_fname = in_bitmap.of_GetTempPath() + "Sheet.bmp" If rb_clipboard.Checked Then lblb_bitmap = in_bitmap.of_SheetCapture(gw_frame.mdi_1, Parent, True) Else lblb_bitmap = in_bitmap.of_SheetCapture(gw_frame.mdi_1, Parent, False) in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap) in_run.ShellRun(ls_fname, "Edit", in_run.SW_SHOWMAXIMIZED) End If end event type cb_window from commandbutton within w_sheet integer x = 73 integer y = 352 integer width = 736 integer height = 228 integer taborder = 10 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Capture Frame Window" end type event clicked;String ls_fname Blob lblb_bitmap SetPointer(HourGlass!) ls_fname = in_bitmap.of_GetTempPath() + "Frame.bmp" If rb_clipboard.Checked Then lblb_bitmap = in_bitmap.of_WindowCapture(gw_frame, True) Else lblb_bitmap = in_bitmap.of_WindowCapture(gw_frame, False) in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap) in_run.ShellRun(ls_fname, "Edit", in_run.SW_SHOWMAXIMIZED) End If end event
File: w_sheet.srw
Size: 6761
Date: Fri, 29 Jul 2022 02:39:40 +0200
Size: 6761
Date: Fri, 29 Jul 2022 02:39:40 +0200
- window w_sheet(srw)
- commandbutton cb_response
- commandbutton cb_control
- picture p_picture
- radiobutton rb_clipboard
- radiobutton rb_file
- commandbutton cb_screen
- commandbutton cb_sheet
- commandbutton cb_window