Admin: 1 revision imported

2021-02-07T06:52:23Z

1 revision imported

Admin: Created page with "{{infobox function |name=TextWidthAndHeight |object=Картинка |caption=Размеры текста |type=1 |status=2 |db=0 |exception=Невозможно прев..."

2020-03-14T10:34:48Z

Created page with "{{infobox function |name=TextWidthAndHeight |object=Картинка |caption=Размеры текста |type=1 |status=2 |db=0 |exception=Невозможно прев..."

New page

{{infobox function
|name=TextWidthAndHeight
|object=[[Картинка]]
|caption=Размеры текста
|type=1
|status=2
|db=0
|exception=Невозможно превратить в число, строку, неверные параметры.
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Картинка]]}}
Функция находит и передает аргументам-переменным ширину и высоту текста в точках (если бы текст был выведен на экран). Свойства текста включают шрифт, его размер, его параметры, цвет текста. Функция может быть вызвана непосредственно из интерфейса. Функция может использоваться вместо двух вызовов [[Picture.TextWidth|TextWidth]] и [[Picture.TextHeight|TextHeight]] для ускорения.

== Синтаксис ==
<code>
{{Grey|Picture.}}'''TextWidthAndHeight'''(''<Текст (STRING)>'',{{Optional|<Шрифт текста (STRING)>{{Default|{{Eq}}"Consolas<nowiki>|||0|</nowiki>"}}}},{{ByRef|<Ширина текста в точках (INT)>,<Высота текста в точках (INT)>}})
</code>

==== Аргументы ====
* <code>''<Текст (STRING)>''</code> - Текст, ширину и высоту которого требуется найти. Текст может включить международные символы. Отображение символов сильно зависит от используемого шрифта, некоторые шрифты могут не поддерживать определенные международные символы, это может сказаться на размерах текста.
* <code>''<Шрифт текста (STRING)>''</code> {{Optional}} Аргумент задает параметры и наименование шрифта, текста [[Формат записи шрифтов в системе|в формате]] <code><Название шрифта>[|<Размер>[|<Параметры шрифта>[|<Цвет шрифта>[|<Градус угла поворота шрифта>[|<Режим сглаживания шрифта>]]]]]</code>. По умолчанию, используется следующее значение аргумента: <code>Consolas|8||0|0|1</code>
* <code>''<Ширина текста в точках (INT)>'',''<Высота текста в точках (INT)>''</code> {{ByRef}} Переменные, принимающие рассчитанную ширину и высоту текста. Входящее значение переменных в функции не используется.

== Примеры ==
[[image:Text_Example2.png|thumb|right|Картинка, сгенерированная примером]]
<pre>
//Пример использования угла поворота текста

Function _RotX(x,y,alpha)
Exit x*Cos(radians(alpha))+y*Sin(radians(alpha));
EndFunction

Function _RotY(x,y,alpha)
Exit -x*Sin(radians(alpha))+y*Cos(radians(alpha));
EndFunction

aPic:=Picture.Create(560,120,toRgb(255,255,255),32);
Стр:="ВРАЩЕНИЕ";
y:=5;
x:=5;
a:=0;
For i:=1 To Length(Стр) Do
lx:=0;ly:=0;
Стр1:=Mid(Стр,i,1);
aPic.TextWidthAndHeight(Стр1,"Tahoma|60|B|",lx,ly);
//Находим смещение точки центра буквы после поворота относительно текущей точки центра буквы
lx2:=lx\2;
ly2:=ly\2;
dx:=_RotX(lx2,ly2,a)-lx2;
dy:=_RotY(lx2,ly2,a)-ly2;

aPic.Text(x-dx,y-dy,Стр1,"Tahoma|60|B|"+DecToBase(ToRgb(255*i/Length(Стр),0,0),16)+"|"+a);

//Не совсем верно, так как после вращения "ширина" буквы стала больше
x:=x+lx+5;
a:=Round(i/Length(Стр)*90);
EndDo;

aPic.Save("c:\Result","png");
</pre>

← Older revision	Revision as of 06:52, 7 February 2021
(No difference)

Picture.TextWidthAndHeight - Revision history

Admin: 1 revision imported

Admin: Created page with "{{infobox function |name=TextWidthAndHeight |object=Картинка |caption=Размеры текста |type=1 |status=2 |db=0 |exception=Невозможно прев..."