imgfile = (HOME()+"\Graphics\Bitmaps\Assorted\SPEAKER.BMP")

  Declare integer PlaySound in winmm.dll string, integer, integer  
    
  Public o  
  o=CreateObject("form1")  
  o.show()  
    
  Define Class Form1 as Form  
    
      Add Object ie as OleControl with OleClass="Shell.Explorer.2", width=300, height=200  
        
      Procedure ie.init  
      With this  
          .navigate("About:blank")  
      EndWith  
        
      Procedure ie.beforenavigate2(pdisp, url, flags, targetframename, postdata, headers, cancel)  
      With this  
          If url="my://sound"  
              playsound("systemexit",0,0)  
              cancel=.t.  
          EndIf  
      EndWith  
        
      procedure Init  
      With this.ie.document
* начало определения стилей:
          .write([<style type="text/css">])  
* параметры всего тела страницы не переопределенного какими-либо классами:
          .write([body{font-family:"Lucida Sans Unicode",sans-serif; font-size:10pt; color: #000000;}])
* параметры переопределения стандартного класса с зарезервированным именем a:
* (ну здесь этого не нужно, просто для примера)
          .write([a{font-weight:bold; color: #ffffff;}])
* параметры своего класса с именем wrd:
          .write([.wrd{vertical-align:5pt; color: #000000;}])
* параметры своего класса с именем trn:
          .write([.trn{vertical-align:5pt; color: #ff0000;}])
* параметры переопределения класса img для картинки с динамиком (например пусть все без бордюра):
          .write([img{border-style:none;}])
* завершение определения стилей:
          .write([</style>])  
* начало тела страницы:
          .write(this.ie.word_trans("word ", "[w&#230;d]"))
          .write(this.ie.word_trans("transcription ", "[tr&#230;n'skrip&#643;(&#601; )n]"))
      EndWith  
    
       PROCEDURE ie.word_trans
       LPARAMETERS cWord, cTrans
      RETURN "<a class='wrd'>"+cWord+"</a><a class='trn'>"+cTrans+"</a><a href='my://sound'>;
                  <img src='"+imgfile+"'alt='послушать произношение'></a><br>"
    
  ENDDEFINE

.write(" ;
<a class='wrd'>Транскрипция </a> ;
<a class='trn'>['&#230;pl]</a> ;
<a href='my://sound'> ;
<img src='c:\app\img.gif' alt='послушать произношение'> ;
</a> ;
")

PUBLIC oform,k_font,fontname1,afont1
DIMENSION aFont1[1]
= AFONT(aFont1)
m.k_font = ALEN(aFont1)
m.fontname1 = 'Microsoft Sans Serif'

* Определение строк в кодах Unicoda. Нужна бы функция, обратная CREATEBINARY(), но не знаю такой
* 7400 - это hex-код буквы "t" в Unicode
m.text1 = s2uni('74007200E6006E00B400730063007200690070002B222800590229006E00') && транскрипция слова transcription
m.text2 = s2uni('6B0283028B028C028D029202A402A7025102540259025B02') && еще несколько символов транскрипции
m.text3 = s2uni('1D4EDC9145D1F0304C059C06DC052309DA10')  && символы "экзотических" алфавитов

= SYS(3101,65001)
oform = CreateObject("form1")

oform.show()

FUNCTION s2uni
   PARAMETERS s
   LOCAL ret,i

   m.ret = ''

   FOR m.i=1 TO LEN(m.s) STEP 2
      m.ret = m.ret+CHR(EVAL('0x'+SUBSTR(m.s,m.i,2)))
   ENDFOR

   RETURN STRCONV(m.ret,10) && Unicode -> UTF-8
ENDFUNC

DEFINE CLASS form1 AS Form
   width = 600
   height = 150
   nofont = 1
   ADD OBJECT btnFontname AS Commandbutton WITH ;
      top = 100,;
      left = 230,;
      width = 130,;
      height = 40,;
      caption = 'Change Fontname'
   ADD OBJECT label1 AS label WITH ;
      top=10, left=10, autosize = .T.
   ADD OBJECT mstext1 AS OleControl WITH OleClass="forms.textbox.1", ;
      top=30, left=10,width=580, height=35, tabstop = .F.
 
   PROCEDURE init
      this.assign(thisform.mstext1,m.fontname1)
      this.label1.caption = this.mstext1.fontname
   ENDPROC

   PROCEDURE assign
   PARAMETERS otext,fontname
      WITH otext
         .fontname = m.fontname
         .fontbold = .T.
         .fontsize = 12
         .textalign = 1
         .specialeffect = 0
         .borderstyle = 0
         .locked  = .T.
         .text = m.text1+'   '+m.text2+'   '+m.text3
      ENDWITH
   ENDPROC

   PROCEDURE btnFontname.click
      thisform.nofont = MAX((thisform.nofont+1)%m.k_font,1)
      thisform.mstext1.fontname = aFont1[thisform.nofont]
      thisform.label1.caption = aFont1[thisform.nofont]
   ENDPROC
ENDDEFINE

CHR(0xC9)+CHR(0xD0)