Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Как заменить в DbGrid значение на лету при выводе его туда   Найти похожие ветки 

 
SergeySA   (2002-05-23 19:19) [0]

HI всем.
Возникла такая проблема:
Есть форма с dbGrid куда выводятся результаты запросов
Вот надо-бы как-то при выводе (не меняя базы) отображать
в сетке вместо скажем символа "+" символ "-"
На лету то есть брать значение выводиго значения
и в случаи необходимости заменять его.
Наверно надо через обработку DBGridDrawDataCell но
как именно подменить не знаю.


 
ins   (2002-05-23 19:28) [1]

procedure TFormCompanies.grdDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (qry.FieldByName("XXXX").ASString="+") then begin
with grd.Canvas do begin
Brush.Color:=$00E5E5E5; //тута можешь и цвет поменять фона
Font.Color:=clNavy; //тута - самого шрифта
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,"-");
end;
end;
end;


 
Mike_Goblin ©   (2002-05-24 13:54) [2]

Событие TField - OnGetText

procedure TForm1.ParamsCSParamVisibleGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if ParamsCSParamVisible.IsNull then Text:="пусто";
if ParamsCSParamVisible.Value = True then Text:="Да" else Text:="Нет";
end;



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

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-55209
Федина Лидия
2002-06-04 17:52
2002.06.17
формирование справки - Help


6-55253
Uri
2002-04-05 19:06
2002.06.17
Сокетный сервер


14-55283
Suntechnic
2002-04-30 20:48
2002.06.17
Вот загадку прислали :)...


1-55065
kmc
2002-06-05 18:31
2002.06.17
Как получить версию программы (version info) для этой же программ


1-55073
PTE
2002-06-04 12:07
2002.06.17
как задать свойство Edit, что бы весь текст набирался в верхнем?