$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
- Sources
- Kodigo
- OpenExplorer
- u_controls_lv.sru
File: u_controls_lv.sru
Size: 4137
Date: Mon, 07 Apr 2008 21:32:55 +0200
Size: 4137
Date: Mon, 07 Apr 2008 21:32:55 +0200
- u_explorer u_controls_lv(sru)
- u_cb cb_2
- u_rb rb_3
- u_rb rb_2
- u_rb rb_1
- u_cb cb_1
- u_lv lv_1
- u_gb gb_1