Скачать: CL | DM;

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

← →
Mishenka   (2007-08-16 11:19) [0]

Как в StringGrid указать выравнивание текста (по левому, правому краям или по центру) в определенном столбце или ячейке?

---

← →
Игорь Шевченко ©   (2007-08-16 11:35) [1]

В событии OnDrawCell рисовать с нужным выравниванием, используя DrawText

procedure TForm1.GridDrawCell(Sender: TObject; ACol,
 ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 Flags: Integer;
 DrawRect: TRect;
begin
 Grid.Canvas.FillRect(Rect);
 DrawRect := Rect;
 case ACol of
 1:
     Flags := DT_CENTER or DT_NOPREFIX or DT_EXPANDTABS
 2:
     Flags := DT_RIGHT or DT_NOPREFIX or DT_EXPANDTABS or DT_SINGLELINE;
 else
     Flags := DT_LEFT or DT_NOPREFIX or DT_EXPANDTABS;
 end;
 DrawText(Grid.Canvas.Handle, PChar(Grid.Cells[ACol,ARow]), -1, DrawRect, Flags);
 end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c