Выравнивание текста в StringGrid.

← →
PenguinX © (2004-07-10 12:11) [0]

Привет всем Мастерам!
Скажите пожалуйста, как можно выравнять текст по центру в отдельной ячейке StringGrid? И ещё - как можно отловить изменение размеров столбца?
Заранее большое спасибо!

← →
KilkennyCat © (2004-07-10 14:59) [1]

Изменение размеров столбца отловить не сложно.
Делаем глобальную пременную, где будем хранить текущее состояние размера столбца.
В событии онДроуЦелл сравниваем эту переменную с размером нужного столбца, в случае изменения обрабатываем что надо и присваиваем нашей глоб. переменной новое значение.

← →
KilkennyCat © (2004-07-10 15:12) [2]

Выравнивание текста - пока вижу единственный вариант: создание собственного обработчика onDrawCell, где уже можно смело пользоваться канвасом грида и отрисовывать текст с использованием TextExtent и TextOut

← →
Profi © (2004-07-10 21:38) [3]

Выравнивание текста в колонках StringGrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Txt: array [0..255] of char; begin StrPCopy(Txt,StringGrid1.Cells[ACol, ARow]); SetTextAlign(StringGrid1.Canvas.Handle,GetTextAlign(StringGrid1.Canvas.Handle) and not (TA_Left or TA_Center) or (TA_Right); ExtTextOut(StringGrid1.Canvas.Handle, Rect.Reght - 2, Rect.Top + 2, ETO_CLIPPED or ETO_OPAQUE, @Rect, Txt, StrLen(Txt), nil); end;

← →
Cardinal © (2004-07-10 23:29) [4]

>Profi

нескромный ник

Все так говорят. Но я же не виноват, что меня так прозвали.

>меня так прозвали.

Тогда - другое дело.

Выравнивание текста в StringGrid. Найти похожие ветки