PBMiner

$PBExportHeader$w_reponse.srw
forward
global type w_reponse from window
end type
type cb_window from commandbutton within w_reponse
end type
type cb_cancel from commandbutton within w_reponse
end type
end forward

global type w_reponse from window
integer width = 1696
integer height = 1268
boolean titlebar = true
string title = "Response"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_window cb_window
cb_cancel cb_cancel
end type
global w_reponse w_reponse

type variables
n_bitmap in_bitmap
n_runandwait in_run

end variables

on w_reponse.create
this.cb_window=create cb_window
this.cb_cancel=create cb_cancel
this.Control[]={this.cb_window,&
this.cb_cancel}
end on

on w_reponse.destroy
destroy(this.cb_window)
destroy(this.cb_cancel)
end on

type cb_window from commandbutton within w_reponse
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 Window"
end type

event clicked;String ls_fname
Blob lblb_bitmap

SetPointer(HourGlass!)

ls_fname = in_bitmap.of_GetTempPath() + "Response.bmp"

lblb_bitmap = in_bitmap.of_WindowCapture(Parent, False)

in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap)
in_run.ShellRun(ls_fname, "Edit", in_run.SW_SHOWMAXIMIZED)

end event

type cb_cancel from commandbutton within w_reponse
integer x = 1317
integer y = 1056
integer width = 334
integer height = 100
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Cancel"
boolean cancel = true
end type

event clicked;Close(Parent)

end event