DrawColumnCell
3 отговора
0 прегледа
DrawColumnCell
В DrawColumnCell първо оцветявам редовете с нечетни дати в МонейГрей
после чертая check box в една от колонките и накрая оцветявам в червено
техта в клетките на друга колона, съдържаща цифрови данни ако са < 0
if (DataModule1.Tbl.FieldByName('Х').AsFloat < 0) then
begin
StatGrid.Canvas.Font.Color:= clRed;
end;
if DataCol=6 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
Имам и още две цифрови колонки, в чиито клетки с Х<0 се опитвам да
почервеня текста
- ако напиша горното за колона 7 например ми оцветява и положителните стойности
- ако добавя в условието
if (DataModule1.Tbl.FieldByName('Х').AsFloat < 0) оr
(DataModule1.Tbl.FieldByName('Y').AsFloat < 0) then
begin
.....
if DataCol=6 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
if DataCol=7 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
тогава не ми оцветява нищо в реда или ми оцветява и положителни стойности
Някой играл ли си е със показване на тавлици? Как да го залъжа?
---
(на)здраве и късмет
после чертая check box в една от колонките и накрая оцветявам в червено
техта в клетките на друга колона, съдържаща цифрови данни ако са < 0
if (DataModule1.Tbl.FieldByName('Х').AsFloat < 0) then
begin
StatGrid.Canvas.Font.Color:= clRed;
end;
if DataCol=6 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
Имам и още две цифрови колонки, в чиито клетки с Х<0 се опитвам да
почервеня текста
- ако напиша горното за колона 7 например ми оцветява и положителните стойности
- ако добавя в условието
if (DataModule1.Tbl.FieldByName('Х').AsFloat < 0) оr
(DataModule1.Tbl.FieldByName('Y').AsFloat < 0) then
begin
.....
if DataCol=6 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
if DataCol=7 then
StatGrid.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
тогава не ми оцветява нищо в реда или ми оцветява и положителни стойности
Някой играл ли си е със показване на тавлици? Как да го залъжа?
---
(на)здраве и късмет
Без да съм пробвал :)
Без да съм пробвал :) , но ми се струва, че хубаво задаваш за отрицателните, ама ако очакваш някой друг да го зададе за положителните - няма кой освен теб (няма кога, освен сега :) )
И хич не ми харесва, че ползваш DataModule1.Tbl, опитай през сендера и/или там колона ли, филд ли - нещо се предава в това DrawColumnCell
И хич не ми харесва, че ползваш DataModule1.Tbl, опитай през сендера и/или там колона ли, филд ли - нещо се предава в това DrawColumnCell
Re: DrawColumnCell
В OnDrawColumnCell имаш Column параметър, който си има Field и Font property. Съответно можеш да проверяваш по Field дали си в правилната колона и да сменяш цвета на шрифта с Font пропъртито. DefaultDrawing на грида трябва да е False доколкото помня.
Не съм го правил това и не съм сигурен изобщо дали може да получиш ефекта който желаеш.
Поздрави.
Не съм го правил това и не съм сигурен изобщо дали може да получиш ефекта който желаеш.
Поздрави.
Re: Без да съм пробвал :)
SUPER! Ами да! като има условие и за + работииииииииииииииии 