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

Как центрировать картинку в Gridе?   Найти похожие ветки 

← →
h0use ©   (2004-03-02 16:29) [0]

Вот обработчик OnDrawColumnCell:

procedure TMain.grBrdDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Style:Integer;
begin
if (Column.FieldName="Exists") or (Column.FieldName="Sold") then
begin
Column.Font.Color:=grBrd.Color;
if TDBGrid(Sender).DataSource.DataSet.FieldByName(Column.FieldName).AsBoolean
then Style := 24
else Style := 22;
ilMain.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top, Style );
end;
end;


Но в результате картинки жалко ютяться в левом углу грида, как им сказать, чтоб рисовались по центру?

---

← →
MBo ©   (2004-03-02 16:32) [1]

тебе известны размеры прямоугольника и картинки. какие проблемы рассчитать смещение?

---

← →
Семен Сорокин ©   (2004-03-02 16:34) [2]

ты забыл показать процедуру Draw и передавай туда RectБ а не левую и верхнюю границы, а там в зависисмости от размеров картинки - центрируй.

---

← →
h0use ©   (2004-03-02 16:35) [3]

Логично...туплю под конец дня

---

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

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



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