powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как в StringGrid установить выравнивание данных по правому краю ячейки?
5 сообщений из 5, страница 1 из 1
Как в StringGrid установить выравнивание данных по правому краю ячейки?
    #32053251
Sergic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сабж, собственно. Чой-то ломает пробелами слева добивать, а нужное свойство найти не могу.
...
Рейтинг: 0 / 0
Как в StringGrid установить выравнивание данных по правому краю ячейки?
    #32053750
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А свойства и нету!
Быстро только пробелы. А так, или нестандартные компоненты искать, или самому ячейки отрисовывать.
...
Рейтинг: 0 / 0
Как в StringGrid установить выравнивание данных по правому краю ячейки?
    #32054696
Sergic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ок. А не подскажешь ли, как проще это сделать (я имею ввиду, прижать вправо пробелами).
...
Рейтинг: 0 / 0
Как в StringGrid установить выравнивание данных по правому краю ячейки?
    #32054732
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Создай обработчик события OnDrawCell
Определи в нем переменную XAlign
XAlign := Rect.Right - TStringGrid( Sender ).Canvas.TextWidth( ST )
где ST - твоя строка
Далее:
TStringGrid( Sender ).Canvas.TextOut( Rect.Left + XAlign, Rect.Top, ST ) ;
...
Рейтинг: 0 / 0
Как в StringGrid установить выравнивание данных по правому краю ячейки?
    #32054737
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сорри, погорячился:
XAlign := ( Rect.Right - Rect.Left ) - TStringGrid( Sender ).Canvas.TextWidth( ST )
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как в StringGrid установить выравнивание данных по правому краю ячейки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]