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-у.
zcolorstringgrid_bin_0_3.zip (1508Kb) - Исходный код + примеры в exe.
zcolorstringgrid_src_0_3.zip (469Kb) - Исходный код.
|
|
Скриншоты
Основные свойства:
|
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
|
|
