File: w_main.srw
Size: 3729
Date: Thu, 30 May 2019 22:56:32 +0200
$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