File: w_sheet.srw
Size: 6761
Date: Fri, 29 Jul 2022 02:39:40 +0200
$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