Add(MainForm,2953706,21,105)
{
 Width=447
 Height=289
}
Add(InlineCode,2413504,210,105)
{
 WorkPoints=#9:doSetFont|
 DataPoints=#8:FontName|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|5:uses |18:  kol,Share,Debug;|2:  |4:type|28: THiAsmClass = class(TDebug)|10:   private|21:     fCount: integer;|9:   public|25:     FontName: THI_Event;|56:     procedure doSetFont(var _Data: TData; Index: word);|63:     procedure ChangeFont(Control: Pcontrol; FontName: string);|5: end;|1: |14:implementation|1: |0:|70:procedure THiAsmClass.ChangeFont(Control: Pcontrol; FontName: string);|3:var|15:  i,J: Integer;|5:begin|1: |38: with Control{$ifndef F_P}^{$endif} do|6: begin|32:     if Boolean(childcount) then|35:       for i:=0 to childcount-1 do |46:         ChangeFont(Children[i],FontName);    |18:                  |36:     Font.FontName := FontName;     |12:     Inc(J);|16:     Invalidate;|5: end;|4:end;|0:|32:procedure THiAsmClass.doSetFont;|5:begin|45:  ChangeFont(Applet,ToStringEvent(FontName));|4:end;|0:|0:|4:end.|
 link(FontName,7596005:CurrentFont,[])
}
Add(Button,16680948,140,105)
{
 Left=15
 Top=20
 Width=95
 Height=25
 Caption="SetFont"
 link(onClick,2413504:doSetFont,[])
}
Add(CheckBox,14975391,399,98)
{
 Left=15
 Top=95
 Width=135
}
Add(Label,4014553,294,98)
{
 Left=15
 Top=130
 Width=75
 Height=30
}
Add(Label,13693552,301,105)
{
 Left=650
 Top=185
}
Add(TabControl,189096,462,98)
{
 Left=185
 Top=65
 Width=225
 Height=165
 Tabs=#4:Tab1|4:Tab2|4:Tab3|
}
Add(RadioButton,4265492,343,98)
{
 Left=10
 Top=160
 Width=120
}
Add(RadioButton,10613459,350,105)
{
 Left=10
 Top=185
 Width=100
}
Add(RadioButton,12065986,357,112)
{
 Left=10
 Top=210
 Width=105
}
Add(CheckBox,4391279,406,105)
{
 Left=15
 Top=65
 Width=135
}
Add(FontBox,7596005,210,49)
{
 Left=185
 Top=20
 Width=225
 Height=24
}
Add(ChildForm,5104836,77,105)
{
}
BEGIN_SDK
  Add(EditMulti,11723669,21,21)
  {
   Width=342
  }
  Add(MainForm,2213628,35,105)
  {
   Left=35
   Top=105
   Width=434
   Height=246
  }
  Add(CheckBox,6809980,224,91)
  {
   Left=15
   Top=55
   Width=135
  }
  Add(Label,6717500,119,91)
  {
   Left=15
   Top=90
   Width=75
   Height=30
  }
  Add(Label,8158636,126,98)
  {
   Left=650
   Top=185
  }
  Add(TabControl,2390883,287,91)
  {
   Left=185
   Top=25
   Width=225
   Height=165
   Tabs=#4:Tab1|4:Tab2|4:Tab3|
  }
  Add(RadioButton,1750151,168,91)
  {
   Left=10
   Top=120
   Width=120
  }
  Add(RadioButton,5077282,175,98)
  {
   Left=10
   Top=145
   Width=100
  }
  Add(RadioButton,7021213,182,105)
  {
   Left=10
   Top=170
   Width=105
  }
  Add(CheckBox,12738120,231,98)
  {
   Left=15
   Top=25
   Width=135
  }
END_SDK

Inc(J);