Вверх ↑
Ответов: 5227
Рейтинг: 585
#1: 2023-01-18 16:51:05 ЛС | профиль | цитата
Poputchik, мне даже немного стыдно за коллег. ~10-15 минут работы.
Удачи.
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

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
3
Голосовали:Poputchik, tig-rrr, 3042
Редактировалось 3 раз(а), последний 2023-01-18 17:02:26