PBMiner

$PBExportHeader$u_tabpage_directories.sru
forward
global type u_tabpage_directories from u_base_tabpage
end type
type st_1 from statictext within u_tabpage_directories
end type
type lv_files from listview within u_tabpage_directories
end type
type cb_dirlist from u_base_button within u_tabpage_directories
end type
type st_3 from statictext within u_tabpage_directories
end type
type sle_directory from singlelineedit within u_tabpage_directories
end type
type cb_createdirectory from u_base_button within u_tabpage_directories
end type
type cb_removedirectory from u_base_button within u_tabpage_directories
end type
end forward

global type u_tabpage_directories from u_base_tabpage
integer width = 2158
integer height = 1216
string text = "Directories"
st_1 st_1
lv_files lv_files
cb_dirlist cb_dirlist
st_3 st_3
sle_directory sle_directory
cb_createdirectory cb_createdirectory
cb_removedirectory cb_removedirectory
end type
global u_tabpage_directories u_tabpage_directories

type variables
n_rapi in_rapi

end variables

on u_tabpage_directories.create
int iCurrent
call super::create
this.st_1=create st_1
this.lv_files=create lv_files
this.cb_dirlist=create cb_dirlist
this.st_3=create st_3
this.sle_directory=create sle_directory
this.cb_createdirectory=create cb_createdirectory
this.cb_removedirectory=create cb_removedirectory
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_1
this.Control[iCurrent+2]=this.lv_files
this.Control[iCurrent+3]=this.cb_dirlist
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.sle_directory
this.Control[iCurrent+6]=this.cb_createdirectory
this.Control[iCurrent+7]=this.cb_removedirectory
end on

on u_tabpage_directories.destroy
call super::destroy
destroy(this.st_1)
destroy(this.lv_files)
destroy(this.cb_dirlist)
destroy(this.st_3)
destroy(this.sle_directory)
destroy(this.cb_createdirectory)
destroy(this.cb_removedirectory)
end on

type st_1 from statictext within u_tabpage_directories
integer x = 549
integer y = 52
integer width = 613
integer height = 64
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "Directory List of \Windows"
boolean focusrectangle = false
end type

type lv_files from listview within u_tabpage_directories
integer x = 37
integer y = 188
integer width = 1541
integer height = 456
integer taborder = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
listviewview view = listviewreport!
long largepicturemaskcolor = 536870912
long smallpicturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event constructor;this.AddColumn("Name", Left!, 680)
this.AddColumn("Size", Right!, 250)
this.AddColumn("Date Modified", Left!, 510)

end event

type cb_dirlist from u_base_button within u_tabpage_directories
integer x = 37
integer y = 32
integer taborder = 60
integer textsize = -8
string text = "Directory List"
end type

event clicked;call super::clicked;s_dirlist lstr_dirlist[]
Integer li_cnt, li_max, li_item

lv_files.DeleteItems()

If in_rapi.of_Connect() Then
   li_max = in_rapi.of_Get_Dirlist("\Windows\*.*", lstr_dirlist)
   in_rapi.of_Disconnect()
   for li_cnt = 1 to li_max
      If Not lstr_dirlist[li_cnt].b_subdirectory Then
         li_item = lv_files.AddItem(lstr_dirlist[li_cnt].s_filename, 1)
         lv_files.SetItem(li_item, 2, String(lstr_dirlist[li_cnt].ll_filesize))
         lv_files.SetItem(li_item, 3, String(lstr_dirlist[li_cnt].dt_filedate))
      End If
   next
End If

end event

type st_3 from statictext within u_tabpage_directories
integer x = 37
integer y = 972
integer width = 224
integer height = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "Directory:"
boolean focusrectangle = false
end type

type sle_directory from singlelineedit within u_tabpage_directories
integer x = 329
integer y = 960
integer width = 1431
integer height = 80
integer taborder = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "\MyTestDir"
borderstyle borderstyle = stylelowered!
end type

type cb_createdirectory from u_base_button within u_tabpage_directories
integer x = 329
integer y = 1088
integer width = 517
integer taborder = 70
integer textsize = -8
string text = "Create Directory"
end type

event clicked;call super::clicked;String ls_dirname
Boolean lb_result

ls_dirname = sle_directory.text

If in_rapi.of_Connect() Then
   lb_result = in_rapi.of_CreateDirectory(ls_dirname)
   in_rapi.of_Disconnect()
   If lb_result Then
      MessageBox("Create Directory", "Complete!")
   End If
End If

end event

type cb_removedirectory from u_base_button within u_tabpage_directories
integer x = 914
integer y = 1088
integer width = 517
integer taborder = 80
integer textsize = -8
string text = "Remove Directory"
end type

event clicked;call super::clicked;String ls_dirname
Boolean lb_result

ls_dirname = sle_directory.text

If in_rapi.of_Connect() Then
   lb_result = in_rapi.of_RemoveDirectory(ls_dirname)
   in_rapi.of_Disconnect()
   If lb_result Then
      MessageBox("Remove Directory", "Complete!")
   End If
End If

end event