StringGrid

← →
Bee © (2004-10-23 22:17) [0]

Добрый вечер!
Имеется такой код для закраски строки StringGrid:

procedure TResultForm.SGNewDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin SGNew.Canvas.Brush.Color := clSilver; Rect.Left := stlb; Rect.Right := stlb; Rect.Top := 1; Rect.Bottom := n; SGNew.Canvas.FillRect(Rect); end;

Подскажите, что неверно или чего не хватает, потому что строка не закрашивается. Заранее спасибо!<

← →
Anatoly Podgoretsky © (2004-10-23 22:45) [1]

Left-right=0

← →
Defunct © (2004-10-23 22:46) [2]

неверно то, что вы при прорисовке каждой ячейки закрашиваете строку...

надо сделать например так:

procedure TForm1.DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin With Sender as TStringGrid Do If ARow = Row Then Begin Canvas.Brush.Color := clSilver; Canvas.TextRect(Rect, 2,2, Cells[ACol, ARow]); End; end;

еще скорее всего вам понадобится перерисовка ячеек по каким-то другим событиям, например, при изменении позиции скрола, изменении номера закрашиваемой строчки и т.п. Ее можно сделать так:

Procedure TForm1.RedrawCell(DG: TStringGrid; ACol, ARow: Integer); Var State : TGridDrawState; Rect : TRect; Begin Rect := DG.CellRect(ACol, ARow); If (Rect.Top>0) And (Rect.Bottom - Rect.Top > 1) Then If (Rect.Left>0) And (Rect.Right - Rect.Left > 1) Then DrawCell( DG, ACol, ARow, DG.CellRect(ACol, ARow), State ); End;

← →
Кириешки © (2004-10-23 23:23) [3]

Свой StringGrid я закрашивал так :

CollectionDiscList = StringGrid.

procedure TDisc.CollectionDiscListDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin DoubleBuffered := True; CollectionDiscList.Perform(EM_LIMITTEXT, 999999999, 0); if Settings.CheckListBox1.Checked[6] then BEGIN if (gdFocused in State) then begin CollectionDiscList.Canvas.Font.Color := clLime; CollectionDiscList.Canvas.Font.Style := [fsBold]; CollectionDiscList.Canvas.Brush.Color := clBlack; end else BEGIN if ACol = 0 then if not (CollectionDiscList.Cells[ACol,ARow] = "") then begin CollectionDiscList.Canvas.Font.Color := clBlack; CollectionDiscList.Canvas.Brush.color := $00FEEADA; end else CollectionDiscList.canvas.brush.Color := clwhite; if ACol = 1 then if not (CollectionDiscList.Cells[ACol,ARow] = "") then begin CollectionDiscList.Canvas.Font.Color := clBlack; CollectionDiscList.Canvas.Brush.color := $00C6FFF8; end else CollectionDiscList.canvas.brush.Color := clwhite; if ACol = 2 then if not (CollectionDiscList.Cells[ACol,ARow] = "") then begin CollectionDiscList.Canvas.Font.Color := clBlack; CollectionDiscList.Canvas.Brush.color := $00EAFFEA; end else CollectionDiscList.canvas.brush.Color := clwhite; if ACol = 3 then if not (CollectionDiscList.Cells[ACol,ARow] = "") then begin CollectionDiscList.Canvas.Font.Color := clBlack; CollectionDiscList.Canvas.Brush.color := $00E1E1FF; end else CollectionDiscList.canvas.brush.Color := clwhite; if ACol = 4 then if not (CollectionDiscList.Cells[ACol,ARow] = "") then begin CollectionDiscList.Canvas.Font.Color := clMaroon; CollectionDiscList.Canvas.Brush.color := $00E1E1FF; end else CollectionDiscList.canvas.brush.Color := clwhite; end; if ARow>0 then begin CollectionDiscList.canvas.fillRect(Rect); CollectionDiscList.canvas.TextOut(Rect.Left,Rect.Top,CollectionDiscList.Cells[ACol,ARow]); end; END; end;

Все закрашивается и прекрастно работает.

Огромное спасибо за помощь! :) В особенности Defunct за доступный и точный ответ, я поняла свою ошибку.

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