работа с stringgrid

[SVA90]

привет всем! я не очень силен в работе с stringgrid
у меня вопросы:
1)как по нажатию кнопки изменить цвет фона текущей ячейки?(условия не заданы). нужно чтобы цвет сохранялся в ячейке даже если выделение снято!!!
2)как сделать так чтобы при нажатии на крайние верхние ячейки выделялся целый столбец, а на крайние левые - строка. И сделать возможность выделения произвольных ячеек типа ctrl+ЛКМ в exel

помогите пож

[ex.cluz]

Есть хороший, но платный компонент от TMS (AdvStringGrid).
Есть и бесплатная альтернатива (но с меньшим функционалом) - NiceGrid на http://www.priyatna.org/nicegrid.php.

[SVA90]

а с помощью обычных компонентов
невозможно?

[ex.cluz]

Можно, но если у вас есть много желания.
Кстати, многие этим занимались (вещи, которые вам нужны достаточо популярны), так что поисковик вам в помощь, неприменно найдете.

[SVA90]

вот имеется код:
..
var
x,y: integer;
..
procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin

if ((acol = x)and (arow = y)) then begin
StringGrid2.Canvas.Brush.Color := clGreen;
StringGrid2.Canvas.FillRect(rect);
end;
end;

procedure TForm1.StringGrid2SelectCell(Sender : TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
x := acol;
y := arow;
StringGrid2.Repaint;
end;


все работает, но и из-за gdFocused in State не сохраняет цвет ячейки
как сделать чтоб цвет сохранялся не знаю

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!

[TwiX]

1) OnCellDraw, по-моему так называется, вам в руки)
2) Со стрингридом сам редко работал, тут помочь не могу)

[Fuadik]

Попробуйте if ((acol = x) and (arow = y) and (State not gdSelected))

[Fuadik]

Ошибся and (State not gdFocused)