Форум: "Базы";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Layner   (2003-09-03 13:13) [0]

Есть рабочий код для раскраски фона ROW, как бы ещё добавить разнообразия, вставив небольшую фигуру, посмотрите плз, но это я что то пытался дописать, и не получается...
procedure Tmf.RxDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
BkgColor: TColor;
rect1: TRect;
begin
if not (gdSelected in State) then begin
BkgColor := clWindow;
rect1:=rect(0,0,5,5);
end
else
if TDBGrid(Sender).Focused then
BkgColor := clDefault
else
BkgColor := clMedGray;
TDBGrid(Sender).Canvas.Brush.Color:=BkgColor;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

---

← →
Hooch   (2003-09-03 14:43) [1]

например ...
var
tmp: TRect;
begin
if Column.FieldName = "MyPaintColumn" then
begin
TDBGridEh(Sender).Canvas.Brush.Color := TDBGridEh(Sender).Color;
TDBGridEh(Sender).Canvas.FillRect(Rect);
tmp := Rect;
Windows.InflateRect(tmp,-3,-3);
TDBGridEh(Sender).Canvas.Pen.Color := clRed;
TDBGridEh(Sender).Canvas.Rectangle(tmp);
end
else
begin
TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

---

← →
Layner   (2003-09-04 09:11) [2]

Hooch © (03.09.03 14:43)
Большое спасибо Hooch, вопрос, а как бы ещё по верх разрисовки текст выдать? Сейчас он красиво рисует красную рамку в ячейке, без текста..

---

← →
Smashich   (2003-09-04 09:56) [3]

посмотри в хелпе методы canvas

---

← →
VAleksey   (2003-09-04 10:10) [4]

TDBGridEh(Sender).Canvas.OutText

---

← →
AndB   (2003-09-04 12:55) [5]

Ага, а вот все тоже самое, но колонка имеет PickList ;-)
Тогда как? Я пытался THintWindow-ом прикрывать. Получается, но така фигня...

---

← →
ZEE   (2003-09-04 13:08) [6]

>Layner (04.09.03 09:11) [2]
>как бы ещё по верх разрисовки текст выдать?
TDBGridEh(Sender).Canvas.TextOut()

---

← →
VAleksey   (2003-09-04 13:24) [7]

Ну, типа ... я того, ... описАлся немного :-)

---

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

Форум: "Базы";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Наверх

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