$PBExportHeader$u_tabpg.sru $PBExportComments$Base tabpage object forward global type u_tabpg from userobject end type end forward global type u_tabpg from userobject integer width = 2414 integer height = 1504 long backcolor = 79416533 long tabtextcolor = 33554432 long picturemaskcolor = 536870912 event ue_pagechanged ( integer oldindex ) end type global u_tabpg u_tabpg forward prototypes public function string of_getreg (string as_entry, string as_default) public subroutine of_setreg (string as_entry, string as_value) public function string of_replaceall (string as_oldstring, string as_findstr, string as_replace) end prototypes public function string of_getreg (string as_entry, string as_default);String ls_regkey, ls_regvalue ls_regkey = "HKEY_CURRENT_USER\Software\TopWiz\EmailSMTP" RegistryGet(ls_regkey, as_entry, ls_regvalue) If ls_regvalue = "" Then ls_regvalue = as_default End If Return ls_regvalue end function public subroutine of_setreg (string as_entry, string as_value);String ls_regkey ls_regkey = "HKEY_CURRENT_USER\Software\TopWiz\EmailSMTP" RegistrySet(ls_regkey, as_entry, as_value) end subroutine public function string of_replaceall (string as_oldstring, string as_findstr, string as_replace);String ls_newstring Long ll_findstr, ll_replace, ll_pos // get length of strings ll_findstr = Len(as_findstr) ll_replace = Len(as_replace) // find first occurrence ls_newstring = as_oldstring ll_pos = Pos(ls_newstring, as_findstr) Do While ll_pos > 0 // replace old with new ls_newstring = Replace(ls_newstring, ll_pos, ll_findstr, as_replace) // find next occurrence ll_pos = Pos(ls_newstring, as_findstr, (ll_pos + ll_replace)) Loop Return ls_newstring end function on u_tabpg.create end on on u_tabpg.destroy end on
File: u_tabpg.sru
Size: 1839
Date: Tue, 11 Oct 2022 03:11:04 +0200
Size: 1839
Date: Tue, 11 Oct 2022 03:11:04 +0200