JS+
Усиленный язык сценариев для Windows
с возможностью встраивания
в ваши приложения
О языке JS+ Справочник Скачать JS+ DLL
Контакты
СПРАВОЧНИК ПО ЯЗЫКУ JS+ Содержание

TBrush

- базовый компонент
Компонент TCanvas
Определяет графическую кисть компонента TCanvas.

Доступ к объекту
Доступ к объекту выполняется через визуальные компоненты, имеющие свойство Brush. Например:

frm=new TForm();
...

brushObj=frm.Canvas.Brush;

Собственные свойства
Свойство Тип Описание
Bitmap TBitmap дескриптор собственного изображения кисти
Color TColor цвет кисти
Style Enum стиль кисти (см. ниже)
Только чтение
Handle Number дескриптор кисти Windows GDI (hBrush)

Свойство Style
Значение Пример изображения
bsBDiagonal
bsClear
bsCross
bsDiagCross
bsFDiagonal
bsHorizontal
bsSolid
bsVertical

Собственные методы
Метод Описание
HandleAllocated проверяет наличие у кисти дескриптора Windows GDI

Стандартные методы

Пример 1 (JS+)
// Главная форма
frm=new TForm();
frm.Caption="JS+ - базовый компонент TBrush";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы с графической кистью";

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var dx=frm.ClientWidth-50,dy=frm.ClientHeight-50;
  var x=(frm.ClientWidth-dx)/2,y=(stb.Top-dy)/2;
  var cnv=frm.Canvas;

  cnv.Brush.Style=bsSolid;
  cnv.Brush.Color=clWhite;
  cnv.Pen.Color=clHighlight;
  cnv.Ellipse(x,y,dx=x+dx,dy=y+dy);

  cnv.Brush.Style=bsDiagCross;
  cnv.Brush.Color=cnv.Pen.Color;
  cnv.Ellipse(x,y,dx,dy);
}
Пример 2 (JS+)
// Главная форма
frm=new TForm();
frm.Caption="JS+ - базовый компонент TBrush";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы с графической кистью";

// Изображение BITMAP
bmp=frm.Canvas.Brush.Bitmap=new TBitmap();
bmp.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TBrush\\Image.bmp");

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var dx=frm.ClientWidth-50,dy=frm.ClientHeight-50;
  var x=(frm.ClientWidth-dx)/2,y=(stb.Top-dy)/2;
  var cnv=frm.Canvas;

  cnv.Pen.Color=clGray;
  cnv.Ellipse(x,y,x+dx,y+dy);
}
Совместимость
C++ Builder/Delphi
См. также
JS+Руководство пользователя
Адрес этой страницы: http://jsplus.ru/MANUAL/JSPlus/Component/Base/TCanvas/TBrush.htm
© 2024,