|
|
|
| |
Базовые компоненты являются минимальными "кирпичиками", которые могут быть применены в скриптах JS+ для упрощения разработки. Они также используются визуальными компонентами как свойства,
предоставляющие доступ к их внутренним элементам. Все базовые компоненты JS+ являются полными или максимально совместимыми аналогами соответствующих компонентов, имеющихся в популярных
средах программирования C++ Builder и Delphi.
Ниже представлены базовые компоненты языка JS+:
TBitmap
Определяет изображение в формате BITMAP.
TCanvas
Определяет графическую канву (поверхность) для рисования.
TControlScrollBar
Определяет горизонтальную или вертикальную полосу прокрутки визуальных компонентов TForm и TScrollBox.
TFont
Определяет шрифт текста.
TIcon
Определяет изображение в формате ICON.
TImageList
Определяет список изображений одинакового размера.
TMargins
Определяет отступы в пикселях слева, сверху, справа и снизу.
TMetafile
Определяет изображение в формате METAFILE.
TPicrure
Определяет контейнер для изображений различных типов.
TPoint
Определяет точку на плоскости.
TRect
Определяет прямоугольник.
TSize
Определяет горизонтальный и вертикальный размер.
TSizeConstraints
Определяет минимальные и максимальные размеры.
TStrings
Определяет список текстовых строк.
|
Пример: базовый компонент TStrings (JS+)
|
|
var tab=20;
// Главная форма
frm=new TForm();
frm.Caption="JS+ - Базовые компоненты";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы со списком строк TStrings";
// Заголовок
lbl=new TLabel(frm);
lbl.Caption="Список телефонов";
lbl.Font.Style=fsBold;
lbl.Left=(frm.ClientWidth-lbl.Width)/2;
lbl.Top =tab;
// Кнопка 1
bt1=new TButton(frm);
bt1.Caption="Обновить";
bt1.Top=lbl.Top+lbl.Height+tab;
bt1.numTag=1;
bt1.Hint="Обновить список";
bt1.ShowHint=true;
bt1.OnClick=btn_Click;
// Кнопка 2
bt2=new TButton(frm);
bt2.Caption="Сортировать";
bt2.Width=frm.TextWidth(bt2.Caption)+30;
bt2.Left =frm.ClientWidth-bt2.Width-tab;
bt2.Top =bt1.Top+bt1.Height+tab;
bt2.numTag=2;
bt2.Hint="Сортировать список";
bt2.ShowHint=true;
bt2.OnClick=btn_Click;
bt1.Left =bt2.Left;
bt1.Width=bt2.Width;
// Список строк
str=new TStrings();
Make_Strings(str);
// Текстовое поле
mem=new TMemo(frm);
mem.BorderStyle=bsSingle;
mem.SetBounds(tab,bt1.Top,bt1.Left-tab*2,stb.Top-bt1.Top-tab);
mem.Lines.Assign(str);
frm.ShowModal();
// Формирует список телефонов
function Make_Strings(str)
{
var phn_Str;
str.Clear();
do {
phn_Str=""+Math.round(Math.random()*10000000);
switch (phn_Str.substr(0,1)) {
case "0":
case "8": continue;
}
if (phn_Str.length<7)
continue;
phn_Str=phn_Str.substr(0,3)+"-"+phn_Str.substr(3);
str.Add(phn_Str);
}
while (str.Count<10);
}
// Обработчик события OnClick
function btn_Click(btn)
{
switch (btn.numTag) {
case 1: Make_Strings(str); break;
case 2: str.Sort();
}
mem.Lines.Assign(str);
}
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
