Форум: "Базы";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизМожно ли закрасить определенным цветом Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c