Как рисовать на FixedCol в StringGrid только на выделенной строке

← →
vvvvv (2003-05-26 12:38) [0]

То есть что-то вроде dgIndicator в DBGrid

← →
Skier © (2003-05-26 12:40) [1]

TStringGrid.Row ?

← →
NAlexey © (2003-05-26 13:03) [2]

Метод один, рисовать также как и на не FixedCol. Или вопрос состоит в том как вообще рисовать в StringGrid?

← →
vvvvv (2003-05-26 13:13) [3]

Нет, вопрос не в том, как вообще рисовать на StringGrid. Вопрос - Как рисовать на FixedCol в StringGrid только на выделенной строке?

← →
vvvvv (2003-05-26 13:16) [4]

Колонка 0 - Fixed

with StringGrid1 do
if gdSelected in State then
Canvas.TextOut(0 ,Rect.Top+2, "Selected")
else
if not (gdSelected in State) then
Canvas.TextOut(0 ,Rect.Top+2, "")

Это, разумеется не работает. Вопрос - как правильно?

← →
rounin (2003-05-26 13:32) [5]

OnDrwaCell:

with Sender as TStringGrid do
if (Row = ARow)and(dgFixed in State{ACol = 0}) then ...

OnSelectCell:

(Sender as TStringGrid).Invalidate;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do begin
if (ARow = Row) and (ACol = 0) then begin
Canvas.Brush.Color := clRed;
Canvas.FillRect(Rect);
end //if
else begin
Canvas.Brush.Color := clSilver;
Canvas.FillRect(Rect);
end; //else
end; //with
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
TStringGrid(Sender).Invalidate;
end;

← →
vvvvv (2003-05-26 13:55) [7]

Спасибо

Как рисовать на FixedCol в StringGrid только на выделенной строке Найти похожие ветки