HTML 태그 적용 시키기.

HTMLText - Write HTML style text to a gui

사용예제 :

HTMLText(x, y,  Text,  Gui)

소스 :

1. Text := "This text can have <b>bold</b> or non-<b>bold</b> text. It's <b>easy peasy!</b>"
2.  
3. HTMLText(10, 10, Text)
4. Gui, 1: Show, AutoSize
5. Return
6.  
7. HTMLText(x, y, Text, Gui=1)
8. {
9.    Loop
10.    {
11.       Gui, Font
12.       Pos := RegExMatch( Text, "<b>(.+?)</b>", Bold, 1)
13.      
14.       If SubStr( Text, 1, Pos-1)
15.       {
16.          If !Started
17.          {
18.             If Pos
19.             Gui, %Gui%: Add, Text, x%x% y%y%, % SubStr( Text, 1, Pos-1)
20.             Else
21.             Gui, %Gui%: Add, Text, x%x% y%y%, %Text%
22.             Started := 1
23.          }
24.          Else
25.          {
26.             If Pos
27.             Gui, %Gui%: Add, Text, x+0 yp+0, % SubStr( Text, 1, Pos-1)
28.             Else
29.             Gui, %Gui%: Add, Text, x+0 yp+0, %Text%
30.          }
31.       }
32.      
33.       Gui, Font, Bold
34.       If !Started
35.       {
36.          Gui, %Gui%: Add, Text, x%x% y%y%, % Bold1
37.          Started := 1
38.       }
39.       Else
40.       Gui, %Gui%: Add, Text, x+0 yp+0, % Bold1
41.      
42.       If ! Pos
43.       Break
44.      
45.       StringTrimLeft, Text, Text, % Pos+ StrLen( Bold)-1
46.    }
47. }