Вверх ↑
Разработчик
Ответов: 26113
Рейтинг: 2126
#1: 2021-01-13 04:36:38 ЛС | профиль | цитата
Странно, или я чего-то не понял? Вот стандартный пример с измененным размером шрифта на форме. В StatusBar у меня шрифт увеличился



Схема

Add(MainForm,1118796,735,385)
{
Left=20
Top=105
Width=436
Height=201
Font=[Arial,12,1,0,1]
Caption="Проверка строки состояния"
BorderStyle=3
Point(onMouseDown)
link(onMouseDown,5903389:doEvent1,[(779,433)(779,510)])
}
Add(InfoTip,6731200,826,357)
{
Info=#21:Надписи в StatusBar'е|
Font=[Arial,8,0,0,1]
Width=211
Height=81
}
Add(StatusBar,16434685,665,392)
{
SizeGrip=1
Text="Test StatusBar"
TextAlign=1
Panels=#20:Ничего не нажато=300|14:Test StatusBar|
link(Text,8918120:Var,[(671,380)(643,380)])
link(Panel,3069932:Value,[(678,380)(777,380)(777,406)(790,406)])
}
Add(LineBreak,16183336,511,448)
{
Caption="Устанавливает текст в StatusBar"
link(Out,13545459:doEvent1,[])
Primary=[5228636,392,77]
}
Add(GetIndexData,6505498,903,462)
{
Count=4
link(Data1,14808127:Text,[(909,450)(846,450)])
link(Data2,9722910:Text,[(916,446)(895,446)])
link(Data3,10377084:Text,[(923,446)(944,446)])
link(Data4,2191902:Text,[(930,450)(993,450)])
}
Add(StrList,10377084,938,378)
{
Strings=#14:Средняя кнопка|
}
Add(StrList,14808127,840,378)
{
Strings=#12:Левая кнопка|
}
Add(StrList,9722910,889,378)
{
Strings=#13:Правая кнопка|
}
Add(LineBreak,7034188,903,504)
{
Caption="Надпись в StatusBar'е"
Type=1
link(Data,6505498:Var,[])
Primary=[8918120,-266,-147]
}
Add(StrList,2191902,987,378)
{
Strings=#16:Ничего не нажато|
}
Add(Hub,5903389,791,504)
{
InCount=2
link(onEvent1,6505498:doIndex,[(864,510)(864,468)])
link(onEvent2,5228636:In,[(864,517)(864,531)])
}
Add(Timer,4030706,630,504)
{
Interval=1200
link(onTimer,6901958:doEvent1,[])
}
Add(DoData,11318066,728,504)
{
Data=Integer(3)
link(onEventData,5903389:doEvent2,[(773,510)(773,517)])
}
Add(Hub,6901958,679,504)
{
link(onEvent1,11318066:doData,[])
link(onEvent2,13545459:doEvent2,[(719,517)(719,461)])
}
Add(Hub,13545459,728,448)
{
InCount=2
OutCount=1
link(onEvent1,16434685:doText,[(769,454)(769,443)(654,443)(654,398)])
}
Add(Label,8250852,518,357)
{
Top=20
Width=425
Height=20
Font=[Arial,8,0,0,1]
Transparent=0
Caption="Кликни кнопкой мыши на форме"
AutoSize=1
Alignment=2
}
Add(Memory,3069932,784,357)
{
Default=Integer(0)
}
Add(InfoTip,15864711,504,294)
{
Info=#37:Пример использования строки состояния|
Font=[Arial,10,1,0,1]
Frame=2
Width=610
Height=263
}
Add(LinkTip,10315186,1050,315)
{
Link="Amper=mailto:amper@xaker.ru"
Font=[MS Sans Serif,8,0,16711680,1]
}

карма: 22

0
Редактировалось 2 раз(а), последний 2021-01-13 04:40:05