$PBExportHeader$w_main.srw forward global type w_main from window end type type cb_std_getfolder from commandbutton within w_main end type type cb_cust_getfolder from commandbutton within w_main end type type sle_default from singlelineedit within w_main end type type st_1 from statictext within w_main end type type cb_cancel from commandbutton within w_main end type end forward global type w_main from window integer width = 2062 integer height = 500 boolean titlebar = true string title = "GetFolder" boolean controlmenu = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true cb_std_getfolder cb_std_getfolder cb_cust_getfolder cb_cust_getfolder sle_default sle_default st_1 st_1 cb_cancel cb_cancel end type global w_main w_main on w_main.create this.cb_std_getfolder=create cb_std_getfolder this.cb_cust_getfolder=create cb_cust_getfolder this.sle_default=create sle_default this.st_1=create st_1 this.cb_cancel=create cb_cancel this.Control[]={this.cb_std_getfolder,& this.cb_cust_getfolder,& this.sle_default,& this.st_1,& this.cb_cancel} end on on w_main.destroy destroy(this.cb_std_getfolder) destroy(this.cb_cust_getfolder) destroy(this.sle_default) destroy(this.st_1) destroy(this.cb_cancel) end on type cb_std_getfolder from commandbutton within w_main integer x = 841 integer y = 224 integer width = 699 integer height = 132 integer taborder = 30 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Segoe UI" string text = "Standard GetFolder" end type event clicked;Integer li_rc String ls_directory ls_directory = sle_default.text li_rc = GetFolder("Select a Folder", ls_directory) If li_rc = 1 Then sle_default.text = ls_directory End If end event type cb_cust_getfolder from commandbutton within w_main integer x = 73 integer y = 224 integer width = 699 integer height = 132 integer taborder = 20 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Segoe UI" string text = "Custom GetFolder" end type event clicked;Integer li_rc String ls_directory ls_directory = sle_default.text li_rc = f_GetFolder("Select a Folder", ls_directory) If li_rc = 1 Then sle_default.text = ls_directory End If end event type sle_default from singlelineedit within w_main integer x = 475 integer y = 72 integer width = 1504 integer height = 84 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Segoe UI" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_1 from statictext within w_main integer x = 110 integer y = 80 integer width = 357 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Segoe UI" long textcolor = 33554432 long backcolor = 67108864 string text = "Default Folder:" boolean focusrectangle = false end type type cb_cancel from commandbutton within w_main integer x = 1609 integer y = 224 integer width = 370 integer height = 132 integer taborder = 40 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Segoe UI" string text = "Cancel" boolean cancel = true end type event clicked;Close(Parent) end event
File: w_main.srw
Size: 3729
Date: Thu, 30 May 2019 22:56:32 +0200
Size: 3729
Date: Thu, 30 May 2019 22:56:32 +0200
- window w_main(srw)
- commandbutton cb_std_getfolder
- commandbutton cb_cust_getfolder
- singlelineedit sle_default
- statictext st_1
- commandbutton cb_cancel