Тот же Stringgrid

← →
Igor_Zal (2006-11-30 11:27) [0]

Уважаемые Мастера.
Посмотрите пожалуйста пример рабочего кода для Stringgrid.

procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const
WidthCellBorder = 3;
var
Clean:TRect;
begin
with sg.Canvas do
begin
if gdFocused in State then
begin
Brush.Color:=clblack;
FillRect(Rect);
Brush.Color:=clwindow;
Pen.Width:=WidthCellBorder;
pen.Color:=clblack;
Rectangle(Rect.Left,rect.Top,Rect.Right,Rect.Bottom);
Brush.Color:=clWindow;
Brush.Color:=$00CFA0A0;
if sg.FixedRows >0 then
FillRect(sg.CellRect(ACol,0));
if sg.FixedCols > 0 then
FillRect(sg.CellRect(0,ARow));
sg.Invalidate;
end else
begin
if gdSelected in State then
begin
Brush.Color:=$00CFA0A0;
FillRect(Rect);
Clean.Left:=sg.CellRect(sg.Selection.Left,sg.Selection.Top).Left;
Clean.Right:=sg.CellRect(sg.Selection.Right,sg.Selection.Top).Right;
Clean.Top:=sg.CellRect(sg.Selection.Left,sg.Selection.Top).Top;
Clean.Bottom:=sg.CellRect(sg.Selection.Left,sg.Selection.Bottom).Bottom;
Brush.Style := bsClear;
pen.Color:=clblack;
pen.Width:=WidthCellBorder;
Rectangle(Clean);
Brush.Color:=clWindow;
Pen.Color:=clWindow;
pen.Width:=1;
Brush.Color:=$00CFA0A0;
if sg.FixedRows >0 then
FillRect(sg.CellRect(0,ARow));
if sg.FixedCols > 0 then
FillRect(sg.CellRect(Acol,0));
sg.Invalidate;
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sg.DoubleBuffered:=true;
end;

Память при этом исполнении расходуется мало,
но кода нажимаешь в Windows XP
CTL+ALT+Del в менеждере видно,
что у нашей программы (ЦП постоянно меняется)
В Excel такого нет (после выделения ЦП = 0), когда
выделяешь по такому же принципу.

Помогите решить такую проблему.
Заранее спасибо.

← →
Elen © (2006-11-30 11:31) [1]

> Igor_Zal

А проблема то в чем? Что сильно меняется?

← →
Elen © (2006-11-30 11:31) [2]

Удалено модератором
Примечание: дубль

← →
icWasya © (2006-11-30 12:26) [3]

а зачем sg.Invalidate внутри sgDrawCell ??

← →
Igor_Zal (2006-12-01 09:52) [4]

А можно ли в данном случае обойтись без Invalidate?
Как тогда перерисоват диапазон с жирной линией по краям(как в Excel).
Если использовать OnSelectCell - трудно сделать для дипазона, когда одна ячейка все получается.
Помогите решить проблему.
Получается, чтомы перерисовываем ячейки дважды и идет постоянная нагрузка на уровень загруженности процесса.
Заранее спасибо.

← →
ЮЮ © (2006-12-01 12:38) [5]

Поставь Invalidate в другой обработчит, в не в DrawCell. Туда - где надо принудительно вызвать перерисовку, ибо перерисовка требуется именно твоему гриду и не нужна стандартному.

Если использовать OnSelectCell - трудно сделать для дипазона, когда одна ячейка все получается.
Если этот обработчик вызывается при изменении области выделения. то там и ставь Invalidate. А отрисовка все-равно в OnDrawCell

← →
Igor_Zal (2006-12-01 12:52) [6]

Значит пытаться перерисовать дипазон в OnSelectCell, даже если
выделяется более чем одна ячейка. То есть, как я понял, Invalidate нужно
применить в этом месте?

> Значит пытаться перерисовать дипазон в OnSelectCell, даже
> если
> выделяется более чем одна ячейка.

Только код в OnDrawCell должен сразу закладываться на TStringGrid.Selection

← →
Igor_Zal (2006-12-01 13:41) [8]

Так в OnDrawCell sg и ориентируется на Sg.Selection, зачем закладывать
на TStringGrid.Selection или я что-то не понимаю.
Если можно покажите на примере.

> Igor_Zal (01.12.06 13:41) [8]

> Если можно покажите на примере.

http://rsdn.ru/Forum/Message.aspx?mid=631076&only=1

--
Regards, LVT.

Тот же Stringgrid Найти похожие ветки