$PBExportHeader$w_main.srw forward global type w_main from window end type type st_3 from statictext within w_main end type type uo_vmfile from u_displayicon within w_main end type type st_2 from statictext within w_main end type type st_1 from statictext within w_main end type type uo_iconfile from u_displayicon within w_main end type type uo_exeicon from u_displayicon 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 = 1294 integer height = 660 boolean titlebar = true string title = "Display Icon" boolean controlmenu = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true st_3 st_3 uo_vmfile uo_vmfile st_2 st_2 st_1 st_1 uo_iconfile uo_iconfile uo_exeicon uo_exeicon cb_cancel cb_cancel end type global w_main w_main type variables String is_pbvmname Long il_count Long il_index end variables on w_main.create this.st_3=create st_3 this.uo_vmfile=create uo_vmfile this.st_2=create st_2 this.st_1=create st_1 this.uo_iconfile=create uo_iconfile this.uo_exeicon=create uo_exeicon this.cb_cancel=create cb_cancel this.Control[]={this.st_3,& this.uo_vmfile,& this.st_2,& this.st_1,& this.uo_iconfile,& this.uo_exeicon,& this.cb_cancel} end on on w_main.destroy destroy(this.st_3) destroy(this.uo_vmfile) destroy(this.st_2) destroy(this.st_1) destroy(this.uo_iconfile) destroy(this.uo_exeicon) destroy(this.cb_cancel) end on event open;// set pb vm name is_pbvmname = uo_exeicon.of_pbvmname() // load icon of current exe uo_exeicon.of_LoadIcon() // load specific icon file uo_iconfile.of_LoadIcon("iconfile.ico") // get icon count from file il_count = uo_vmfile.of_IconCount(is_pbvmname) // load the first icon in the file uo_vmfile.of_LoadIcon(is_pbvmname, 0) Timer(1) end event event timer;// increment counter il_index = il_index + 1 If il_index = il_count Then il_index = 0 End If // load the next icon uo_vmfile.of_LoadIcon(is_pbvmname, il_index) end event type st_3 from statictext within w_main integer x = 37 integer y = 388 integer width = 480 integer height = 60 integer textsize = -8 integer weight = 700 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Icons from PBVM:" boolean focusrectangle = false end type type uo_vmfile from u_displayicon within w_main integer x = 585 integer y = 352 integer taborder = 30 end type on uo_vmfile.destroy call u_displayicon::destroy end on type st_2 from statictext within w_main integer x = 37 integer y = 228 integer width = 411 integer height = 60 integer textsize = -8 integer weight = 700 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "From icon file:" boolean focusrectangle = false end type type st_1 from statictext within w_main integer x = 37 integer y = 68 integer width = 507 integer height = 60 integer textsize = -8 integer weight = 700 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "From current exe:" boolean focusrectangle = false end type type uo_iconfile from u_displayicon within w_main integer x = 585 integer y = 192 integer taborder = 20 end type on uo_iconfile.destroy call u_displayicon::destroy end on type uo_exeicon from u_displayicon within w_main integer x = 585 integer y = 32 integer taborder = 10 end type on uo_exeicon.destroy call u_displayicon::destroy end on type cb_cancel from commandbutton within w_main integer x = 951 integer y = 448 integer width = 297 integer height = 100 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Cancel" boolean cancel = true end type event clicked;Close(Parent) end event
- Sources
- TopWiz
- displayicon
- PB
- w_main.srw
File: w_main.srw
Size: 4319
Date: Sun, 03 Feb 2019 16:35:44 +0100
Size: 4319
Date: Sun, 03 Feb 2019 16:35:44 +0100
- window w_main(srw)
- statictext st_3
- u_displayicon uo_vmfile
- statictext st_2
- statictext st_1
- u_displayicon uo_iconfile
- u_displayicon uo_exeicon
- commandbutton cb_cancel