|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.08.2007, 18:21 | #1 |
Форумчанин
Регистрация: 09.11.2006
Сообщений: 274
|
StringGrid как выровнять по центру и по правому краю?
подскажите как выровнять по центру и по правому краю???
Единственный приличный формат, разработанный Microsoft'ом, - format c:
|
31.08.2007, 09:17 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Текст в колонках или что ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
03.09.2007, 11:13 | #3 |
Форумчанин
Регистрация: 09.11.2006
Сообщений: 274
|
Единственный приличный формат, разработанный Microsoft'ом, - format c:
|
03.09.2007, 12:12 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Самому рисовать текст в OnDrawCell:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var cr:TRect; begin with StringGrid1.Canvas do begin cr:=StringGrid1.CellRect(acol,arow) ; FillRect(cr); TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2), cr.Top,StringGrid1.Cells[acol,arow]); end; end;
I'm learning to live...
|
03.09.2007, 13:24 | #5 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState); var Txt: array[0..255] of Char; begin StrPCopy(Txt, StringGrid1.Cells[Col, Row]); SetTextAlign(StringGrid1.Canvas.Han dle, GetTextAlign(StringGrid1.Canvas.Han dle) and not (TA_LEFT or TA_CENTER) or TA_RIGHT); ExtTextOut(StringGrid1.Canvas.Handl e, Rect.Right - 2, Rect.Top + 2, ETO_CLIPPED or ETO_OPAQUE, @Rect, Txt, StrLen(Txt), nil); end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
03.09.2007, 14:11 | #6 |
Форумчанин
Регистрация: 09.11.2006
Сообщений: 274
|
Спасибо большое
Единственный приличный формат, разработанный Microsoft'ом, - format c:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
StringGrid | Devikss | Общие вопросы Delphi | 8 | 25.05.2008 16:14 |
Ворд 2003 вставить текст по центру ячейки | Паша | Microsoft Office Word | 1 | 10.03.2008 13:40 |
Выделение в ListBox по правому клику | mutabor | Общие вопросы Delphi | 4 | 01.10.2007 22:33 |
выравнивание по центру в QuickReport | Vasya | БД в Delphi | 3 | 18.08.2007 20:43 |
Код 13 и stringGrid | Alar | Общие вопросы Delphi | 1 | 08.02.2007 22:44 |