|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
StringGrid автоизменение ширины ячейки
Есть ячейки с данными, но строка в ячейку не входит, слишком длинная.
И строки по длине разные. Как сделать авто длинну ячеек?? По форуму искал часа полтора, ответа не нашел. FAQ на поиск StringGrid не отвечает. А еще мне надо открыть только 1 и 3 столбцы. Остальное скрыть. Вот собстно пока все. В литературе разной кстати тоже таких подробностей нет. Или просто не попадалась такая. Последний раз редактировалось ColorDb, 27.07.2009 в 12:45. |
#2
|
||||
|
||||
Хм... если мне не изменяет память - стринг-грид такого не позволяет, у него только общая ширина ячеек...
А скрыть - так храни все данные в двухмерном массиве, а выдавай нужное... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
ДА, авто длинны нет, пришлось написать немного.
У меня их Exel переводится в мою прогу. А там нужно иногда скрывать столбцы. То есть в опциях проги нужно указывать какие столбцы показывать. Вот например в основном работа с 1-3 столбцами. Остальные должны быть скрыты. И в любой момент открыты. Вот задача вся в чем состоит. |
#4
|
|||
|
|||
При большом желании и «автодлина» (как вы изволите выражаться) может быть запрограммирована.
Это обработчик события OnDrawCell. Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var txtWidth: Integer; begin with (Sender as TStringGrid) do begin txtWidth := Canvas.TextWidth(Cells[ACol, ARow]); if ColWidths[ACol] < txtWidth then ColWidths[ACol] := txtWidth + 3; end; end; |
#5
|
|||
|
|||
Ну да вот типа того пришлось сделать.
А лишние столбцы скрылись с помощью нулевой длины ячеек. Ладно с этим решили спасибо всем за отклик. |