by
ru
en
by

Avemey

logo
ФайлыГлавнаяСсылкиФотографииАниме

Lazarus/Delphi компонент ZCLabel

TZCLabel выводит текст как и TLabel, но с возможностью поворота на произвольный угол.

Предназначен для работы в:
  • Lazarus
  • Delphi 6, 7, BDS 2005, BDS 2006, 2007, 2009, 2010, XE и XE2
  • C++Builder 5, 6 (проверял только на 6-ой)
Основные возможности:
  • поворот многострочного текста с учётом выравнивания (только для TrueType шрифтов)
  • рисование текста на произвольном канвасе

Примеры кода.

Входит в комплект к ZColorStringGrid-у.

zip zcolorstringgrid_bin_0_3.zip (1508Kb) - Исходный код + примеры в exe.
zip zcolorstringgrid_src_0_3.zip (469Kb) - Исходный код.

ZCLabel скриншот

ZCLabel sample screenshot
Скриншоты

Основные свойства:
Property Краткое описание
AlignmentVertical: byte Выравнивание по вертикали:
  • 0 - сверху
  • 1 - по центру
  • 2 - снизу
0 по умолчанию.
AlignmentHorizontal: byte Выравнивание по горизонтали:
  • 0 - слева
  • 1 - по центру
  • 2 - справа
0 по умолчанию.
AutoSizeHeight: boolean Если установлено в True, то изменяет высоту компонента под размер текста. По умолчанию False.
AutoSizeWidth: boolean Если установлено в True, то изменяет ширину компонента под размер текста. По умолчанию False.
AutoSizeGrowOnly: boolean Если установлено в True, то размеры автоматически могут только увеличиваться. По умолчанию False.
IndentVert: byte Отступ по вертикали. По умолчанию 0.
IndentHor: byte Отступ по горизонтали. По умолчанию 3.
LineSpacing: integer Расстояние между строками текста. По умолчанию 0.
Rotate: integer Угол поворота текста. По умолчанию 0.
SymbolWrap: boolean Если True, то перенос слов осуществляется на любом символе, в противном случае только на пробеле. По умолчанию False.
WordWrap: boolean Если True, то переносит слова. По умолчанию True.

Методы:
Метод Краткое описание
procedure DrawTextOn(ACanvas: TCanvas; AText: string; var ARect: TRect; CalcOnly: boolean; ClipArea: boolean = false); overload; Рисует текст AText на канвасе ACanvas
  • ACanvas: TCanvas - холст для рисования
  • AText: string - текст
  • ARect: TRect - прямоугольник для текста
  • CalcOnly: boolean - если true, то только рассчитывает ARect
  • ClipArea: boolean - если true, то обрезает текст, который не поместился в ARect
procedure DrawTextOn(ACanvas: TCanvas; AText: string; var ARect: TRect; AColor: TColor; CalcOnly: boolean; ClipArea: boolean = false); overload; Рисует текст AText цветом AColor на канвасе ACanvas
  • ACanvas: TCanvas - холст для рисования
  • AText: string - текст
  • ARect: TRect - прямоугольник для текста
  • AColor: TColor - цвет надписи
  • CalcOnly: boolean - если true, то только рассчитывает ARect
  • ClipArea: boolean - если true, то обрезает текст, который не поместился в ARect
ФайлыГлавнаяСсылкиФотографииАниме

Copyright © 2006-2012 Неборак Руслан Владимирович