$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
File: u_tabpage_directories.sru
Size: 5857
Date: Tue, 22 Aug 2017 17:30:58 +0200
Size: 5857
Date: Tue, 22 Aug 2017 17:30:58 +0200
- u_base_tabpage u_tabpage_directories(sru)
- statictext st_1
- listview lv_files
- u_base_button cb_dirlist
- statictext st_3
- singlelineedit sle_directory
- u_base_button cb_createdirectory
- u_base_button cb_removedirectory