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

Вниз

Можно ли закрасить определенным цветом   Найти похожие ветки 

 
STANT ©   (2002-11-15 16:48) [0]

Нужно визуально показать пользователю, какие ячейки DBGrid не доступны для редактирования, например, выделить серым цветом. Подскажите пожалуйста, можно ли это сделать в DBGrid и если можно, то как?


 
Prooksius ©   (2002-11-15 17:07) [1]

DBGridEh.OnGetCellParams


 
Manic Mechanic ©   (2002-11-15 17:15) [2]

Можно не только раскрасить, но и че-нить нарисовать.

procedure TFKart.DBGDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: GridDrawState);
begin
if(RxMD.RecNo in [1,4,7,10,13])then begin
if(DBG.Row=RxMD.RecNo){and(DBG2.Col=DataCol)}then begin
DBG.Canvas.Brush.Color:= clNavy;
DBG.Canvas.Font.Color:= clYellow;
end else begin
DBG.Canvas.Brush.Color:= $00E4E2CB;
DBG.Canvas.Font.Color:= clNavy;
end;
DBG.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;

if(Column.FieldName="MonthName")then begin
if(RxMD.RecNo = BARec.KSUM)then
ImList.Draw(DBG.Canvas,Rect.Left+2,Rect.Top+2,18)
else if(RxMD.RecNo = BARec.KSUM)then begin
ImList.Draw(DBG.Canvas,Rect.Left+2,Rect.Top+2,48);
end else if(RxMD.RecNo = BARec.KSUF)then
ImList.Draw(DBG.Canvas,Rect.Left+2,Rect.Top+2,48)
end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-14738
Anatoly Podgoretsky
2002-11-14 00:56
2002.12.05
Именинники 14 ноября


3-14400
Ali2002
2002-11-15 14:33
2002.12.05
Лицензирование Interbase помогите СРОЧНО !!!


3-14383
sosv
2002-11-19 16:17
2002.12.05
Клиент - сервер


3-14462
JurMax
2002-11-18 20:28
2002.12.05
Как прочитать формат JPEG из SQLServer 2000


7-14849
Vitum
2002-10-02 05:37
2002.12.05
Как прочитать значения Perfomance Objects and Counters