Разноцветные столбцы в TStringGrid, как?

← →
maxon (2008-06-27 23:12) [0]

Как БЫСТРО раскрасить каждый 2й столбик у таблицы?

Мне необходимо чтобы каждый 2-ой столбик в таблице был другого цвета. Вот мой вариант, но он крайне медлителен :(

// TStringGrid.Options:= [goFixedVertLine,goFixedHorzLine,goColSizing,goColMoving,goRowSelect]; procedure HighlightingGrid( xRow: integer; xState: TGridDrawState ); var ix: integer; // Щетчик iXMax: integer; // Кол-во столбцов rctRct: TRect; // Регион ячейки begin if xRow > 0 then // Подсветка начинается с 1-ой строки, т.е. не 0-ой begin iXMax:= fMain.sgMain.ColCount - 1; for ix:= 0 to iXMax do begin if ix mod 2 = 0 then // Подсвечиваем каждую 2-ю ячейку begin if ( gdSelected in xState ) then // Если ячейка выделена begin fMain.sgMain.Canvas.Brush.Color:= clHighlight; fMain.sgMain.Canvas.Font.Color:= clHighlightText; end else { if ( gdSelected in xState ) then } begin fMain.sgMain.Canvas.Brush.Color:= $CFCFCF; fMain.sgMain.Canvas.Font.Color:= fMain.sgMain.Font.Color; end; { if ( gdSelected in xState ) then } rctRct:= fMain.sgMain.CellRect( ix, xRow ); // Находим регион текущей ячейки fMain.sgMain.Canvas.TextRect( rctRct, rctRct.Left, rctRct.Top, fMain.sgMain.Cells[ix,xRow] ); end; { if ix mod 2 = 0 then } end; { for ix:= 0 to iXMax do } end; { if xRow > 0 then } end; procedure TfMain.sgMainDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin HighlightingGrid( ARow, State ); end;

Можно ли, как-нибудь, сделать тоже самое но быстрее?

← →
Тын-Дын © (2008-06-27 23:16) [1]

http://forum.sources.ru/index.php?showtopic=125297&hl=stringgrid

← →
maxon (2008-06-27 23:23) [2]

Спасибо Тын-Дын!

Жаль только регистрация на том форуме требуется :(

← →
Тын-Дын © (2008-06-27 23:33) [3]

> maxon (27.06.08 23:23) [2]
> Спасибо Тын-Дын!Жаль только регистрация на том форуме требуется
> :(

Читать можно без регистрации, файлы - нельзя.

← →
Плохиш © (2008-06-28 11:49) [4]

> maxon (27.06.08 23:12)
> Как БЫСТРО раскрасить каждый 2й столбик у таблицы?
>
> Мне необходимо чтобы каждый 2-ой столбик в таблице был другого
> цвета. Вот мой вариант, но он крайне медлителен :(

Конечно медленный, ну зачем по запросу на отрисовку одной ячейки перересовывать всю строку? Рисуй только одну ячейку с координатами ACol, ARow, для остальных ячеек отдельно вызовут OnDrawCell.

← →
KSergey © (2008-06-28 13:19) [5]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168

← →
sniknik © (2008-06-28 13:28) [6]

Плохиш © (28.06.08 11:49) [4]
+
"медленность" еще скрыта (при больших обьемах данных) в самом принципе стринггрида, в том что он не для данных, не для хранения/работы с ними, а только для отображения (т.е. если строк намного больше чем в нем отображается за раз, то это уже повод задуматься).
хорошие результаты по ускорению дает разделение данных и отображения (типа датасет+"отображаемое окно" из него (грид), т.е. принцип используемый бд компонентами. которыми можно и воспользоваться, чтобы не изобретать велосипед. даже если базы данных как таковой нет)

← →
maxon (2008-06-29 23:17) [7]

2 Плохиш
Об этом я и не подумал, спасибо!

procedure TfMain.sgMainDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if ARow > 0 then begin if ( ACol mod 2 = 0 ) then begin if ( gdSelected in State ) then begin fMain.sgMain.Canvas.Brush.Color:= clHighlight; fMain.sgMain.Canvas.Font.Color:= clHighlightText; end else { if ( gdSelected in xState ) then } begin fMain.sgMain.Canvas.Brush.Color:= $CFCFCF; fMain.sgMain.Canvas.Font.Color:= fMain.sgMain.Font.Color; end; { if ( gdSelected in xState ) then } fMain.sgMain.Canvas.TextRect( Rect, Rect.Left, Rect.Top, fMain.sgMain.Cells[ACol,ARow] ); end; end; end;

2 KSergey
Тоже спасибо. Будет больше времени, тоже попробую.

2 sniknik
Данных, в общем, не много но требуется отображать их в более удобочитаемом виде.

← →
Игорь Шевченко © (2008-06-30 00:33) [8]

Убери fmain из кода

← →
sniknik © (2008-06-30 08:39) [9]

> Убери fmain из кода
или, имхо лучше, "пляши" от Sender-а. переносимость кода улучшится.

procedure TfMain.sgMainDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with TStringGrid(Sender) do if ARow > 0 then if ( ACol mod 2 = 0 ) then begin if ( gdSelected in State ) then begin Canvas.Brush.Color:= clHighlight; Canvas.Font.Color := clHighlightText; end else begin Canvas.Brush.Color:= $CFCFCF; Canvas.Font.Color := Font.Color; end; Canvas.TextRect( Rect, Rect.Left, Rect.Top, Cells[ACol,ARow] ); end; end;

← →
maxon (2008-06-30 23:46) [10]

2 shiknik
Ты прав!
procedure TfMain.sgMainDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if ( ScEdOpt.bColoringGrid ) then begin if ( ARow > 0 ) and ( ACol mod 2 = 0 ) and ( not( gdSelected in State ) ) then begin with TStringGrid(Sender).Canvas do begin Brush.Color:= $CFCFCF; Font.Color:= TStringGrid(Sender).Font.Color; TextRect( Rect, Rect.Left + 2, Rect.Top + 2, TStringGrid(Sender).Cells[ACol,ARow] ); end; { with TStringGrid(Sender).Canvas do } end; { if ( ARow > 0 ) and ( ACol mod 2 = 0 ) and ( not( gdSelected in State ) ) then } end; { if ( ScEdOpt.bColoringGrid ) then } end;

> procedure TfMain.sgMainDrawCell(Sender: TObject; ACol, ARow:
> Integer;
> Rect: TRect; State: TGridDrawState);
> begin
> if ( ScEdOpt.bColoringGrid ) then
> begin
> if ( ARow > 0 ) and ( ACol mod 2 = 0 ) and ( not( gdSelected
> in State ) ) then
> begin
> with TStringGrid(Sender).Canvas do
> begin
> Brush.Color:= $CFCFCF;
> Font.Color:= TStringGrid(Sender).Font.Color;
> TextRect( Rect, Rect.Left + 2, Rect.Top + 2, TStringGrid(Sender).
> Cells[ACol,ARow] );
> end; { with TStringGrid(Sender).Canvas do }
> end; { if ( ARow > 0 ) and ( ACol mod 2 = 0 ) and ( not(
> gdSelected in State ) ) then }
> end; { if ( ScEdOpt.bColoringGrid ) then }
> end;

Увижу на работе у кого такой код - уволю. Зачем дублировать условия в комментариях ? Тем более в блоках из нескольких строк

← →
maxon (2008-06-30 23:56) [12]

Чтоб знать откуда этот END взялся!?
В следующий раз удалять буду :)

> Чтоб знать откуда этот END взялся!?
> В следующий раз удалять буду :)

Не сочти за наезд, но такой прием уместен, как минимум, когда end от begin отстоит больше чем на экран, тогда, глядя на комментарий можно понять. А когда между begin и end меньше десяти строк, то такой комментарий просто вреден - все видно по отступам, а они в твоем коде вполне присутствуют.
Но когда end от begin отстоит больше, чем на экран - это значит, что в коде скорее всего, что-то не так, хотя, безусловно бывают и исключения.

> Но когда end от begin отстоит больше, чем на экран - это
> значит, что в коде скорее всего, что-то не так, хотя, безусловно
> бывают и исключения.
>

Ох бывают. :)
Но и тогда подобные комментарии полезны лишь в случаях, когда в промежутке между "лестничными END"ами" стоИт некий код. Чтобы не перепутать END"ы.

Разноцветные столбцы в TStringGrid, как? Найти похожие ветки