|
Вопрос # 4 031/ вопрос открыт / |
|
Здравствуйте!
Как можно в компоненте StringGrid вывести текст(значения) по центру ячейки? (код приветствуется)
 |
Вопрос задал: roman4er (статус: Посетитель)
Вопрос отправлен: 14 апреля 2010, 18:06
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 14 апреля 2010, 18:24; участников в обсуждении: 1.
|
min@y™ (статус: Доктор наук), 14 апреля 2010, 18:24 [#1]:
Ну, если тебя устроит отрисовка содержимого по OnDrawCell, то могу подкинуть функцию выравнивания текста.
// Начальная точка вывода текста на канве внутри прямоугольника Rect
// с выравниванием Alignment
function GetTextPosition(const Text: string;
const Canvas: TCanvas;
const Rect: TRect;
const Alignment: TAlignment): TPoint;
const
TextMargin = 25; // Временно
begin
case Alignment of
taLeftJustify : Result.x:= TextMargin;
taCenter : Result.x:= ((Rect.Right - Rect.Left) div 2) - (Canvas.TextWidth(Text) div 2);
taRightJustify : Result.x:= (Rect.Right - Rect.Left) - Canvas.TextWidth(Text) - TextMargin;
end;//case
Result.y:= ((Rect.Bottom - Rect.Top) div 2) - (Canvas.TextHeight(Text) div 2);
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
