Текущий архив: 2003.09.22;
Скачать: CL | DM;
Вниз
DBGrid Найти похожие ветки
← →
pashtet © (2003-08-29 17:11) [0]Доброго времени сутоу , Мастера Delphi!
как сделать так чтобы при входе в дбгрид активная строка была синяя, а при выходе из него серая?
← →
Smashich © (2003-08-29 17:35) [1]фокусы. престидижитатор.
← →
MsGuns © (2003-08-29 19:25) [2]
procedure TfrmOut.grOutProdDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
BkgColor: TColor;
begin
if gdSelected in State then OutRect := Rect;
if not (gdSelected in State) then
BkgColor := TDBGrid(Sender).Color
else
if TDBGrid(Sender).Focused then
BkgColor := clActiveCaption // Синий для текущей строки
else
BkgColor := clMedGray; // Серый для текущей строки
TDBGrid(Sender).Canvas.Brush.Color:=BkgColor;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Страницы: 1 вся ветка
Текущий архив: 2003.09.22;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
