PBMiner

$PBExportHeader$u_controls_lv.sru
forward
global type u_controls_lv from u_explorer
end type
type cb_2 from u_cb within u_controls_lv
end type
type rb_3 from u_rb within u_controls_lv
end type
type rb_2 from u_rb within u_controls_lv
end type
type rb_1 from u_rb within u_controls_lv
end type
type cb_1 from u_cb within u_controls_lv
end type
type lv_1 from u_lv within u_controls_lv
end type
type gb_1 from u_gb within u_controls_lv
end type
end forward

global type u_controls_lv from u_explorer
cb_2 cb_2
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
cb_1 cb_1
lv_1 lv_1
gb_1 gb_1
end type
global u_controls_lv u_controls_lv

on u_controls_lv.create
int iCurrent
call super::create
this.cb_2=create cb_2
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.cb_1=create cb_1
this.lv_1=create lv_1
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_2
this.Control[iCurrent+2]=this.rb_3
this.Control[iCurrent+3]=this.rb_2
this.Control[iCurrent+4]=this.rb_1
this.Control[iCurrent+5]=this.cb_1
this.Control[iCurrent+6]=this.lv_1
this.Control[iCurrent+7]=this.gb_1
end on

on u_controls_lv.destroy
call super::destroy
destroy(this.cb_2)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.cb_1)
destroy(this.lv_1)
destroy(this.gb_1)
end on

event ke_postopen;call super::ke_postopen;long n
listviewitem llvi
CResource lnv

lv_1.AddColumn("Resource", Left!, (lv_1.width - 100) / 2)
lv_1.AddColumn("Index", Left!, (lv_1.width - 100) / 2)

lnv = CREATE CResource

FOR n = 1 to CResource.TOTAL_ALL
   llvi.Label = lnv.BUTTONS[n] + "~t" + STRING(n)
   llvi.PictureIndex = n
   lv_1.AddITem(llvi)
NEXT

DESTROY lnv
end event

type cb_2 from u_cb within u_controls_lv
integer x = 1170
integer y = 148
integer width = 457
integer taborder = 30
string text = "Background..."
boolean #anchorright = true
end type

event clicked;call super::clicked;string docpath, docname[], ls_path
integer i, li_cnt, li_rtn, li_filenum

 
li_rtn = GetFileOpenName("Select File", &
   docpath, docname[], "DOC", &
   "Bitmap Files (*.BMP),*.BMP", &
   GetCurrentDirectory(), 18)

IF li_rtn <> 0 THEN
   n_svc_mgr lnv_svc
   n_svc_lv lnv_lv
   
   lnv_svc.of_LoadSvc(lnv_lv, CSvc.LV)
   lnv_lv.of_setbackgroundimage(lnv_svc, &
         lv_1, &
         docpath)
END IF
end event

type rb_3 from u_rb within u_controls_lv
integer x = 1225
integer y = 560
string text = "Detail"
boolean #anchorright = true
end type

event clicked;call super::clicked;lv_1.View = ListviewReport!
end event

type rb_2 from u_rb within u_controls_lv
integer x = 1225
integer y = 472
string text = "Small"
boolean #anchorright = true
end type

event clicked;call super::clicked;lv_1.View = ListviewSmallIcon!
end event

type rb_1 from u_rb within u_controls_lv
integer x = 1225
integer y = 384
string text = "Large"
boolean checked = true
boolean #anchorright = true
end type

event clicked;call super::clicked;lv_1.View = ListviewLargeIcon!
end event

type cb_1 from u_cb within u_controls_lv
integer x = 1170
integer y = 32
integer width = 457
integer taborder = 20
string text = "Convert Datastore"
boolean #anchorright = true
end type

event clicked;call super::clicked;n_svc_mgr lnv_svc
n_svc_lv lnv_lv
n_ds lds
listviewitem llvi

lds = CREATE n_ds
lds.of_SetDataObject("d_2tv")

lnv_svc.of_LoadSvc(lnv_lv, CSvc.LV)
lnv_lv.of_Convertdatastore(lnv_svc, lds, lv_1, llvi, "pictureindex")

DESTROY lds
end event

type lv_1 from u_lv within u_controls_lv
integer x = 37
integer y = 32
integer width = 1079
integer height = 880
integer taborder = 10
listviewview view = listviewlargeicon!
boolean #standardimages = true
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
end type

type gb_1 from u_gb within u_controls_lv
integer x = 1170
integer y = 304
integer width = 457
integer height = 372
integer taborder = 30
string text = "View"
borderstyle borderstyle = stylebox!
boolean #anchorright = true
end type