StringGrid-закрашивание ячейки по клику

[kostghost]

Целый день сижу с вопросом, Как можно(если, конечно, можно) закрасить определенную ячейку в StringGrid по её координатам?
Координаты определяю

xx:=StringGrid1.Selection.Left;
yy:=StringGrid1.Selection.Top;

Как же закрашивать по этим координатам, никак не пойму.

Помогите пожалуйста непосвященному!

[Stilet]

Никак. Закраска делается в событии OnDrawCell, туда система передает координаты квадрата ячейки и ее порядковые номера по вертикали и горизонтали. Вот там и описывай отрисовку закраски

[kostghost]

Сообщение от Stilet

Никак. Закраска делается в событии OnDrawCell, туда система передает координаты квадрата ячейки и ее порядковые номера по вертикали и горизонтали. Вот там и описывай отрисовку закраски

Спасибо,но сложно это. Лично у меня через это событие получалось закрашивать только по заранее заложенному алгоритму.

Ладно. Тогда еще вопрос, как вставить текст(либо цифру) в нужную ячейку по координатам? Помню, что такая штука была...
Нашел способ,

StringGrid1.Cells[xx,yy]:=('1');

[Stilet]

Опять таки же в том же событии
Если конечно речь идет именно о экранных координатах а не о координатах ячейки.
И кстати - не вставить а отрисовать.
А если именно вставить то:

var tgc:TGridCoord;
begin
 with StringGrid1 do begin
  tgc:=MouseCoord(50,50);
  Cells[tgc.X,tgc.Y]:='Текст';
 end;
end;

Где 50, 50 - координаты "пикселя" в гриде.

[kostghost]

Прогулялся, мозги освежил. Вообщем запилил) Выложу, мб кому что-нибудь отсюда понадобится.

***
var
  Form1: TForm1;                            //x-кол-во клеток по X, y, по Y.
  x,y,i,j:integer;                          // i и j исп для очистки табл.
  arr:array[1..20,1..20] of integer;        // Основной массив 20 на 20 (Coming Soon)
  xx,yy:integer;                            // Координаты x и y выд. клетки

***
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToInt(Edit1.Text);                                   //создаем табл
y:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=x;
StringGrid1.ColCount:=y;
Button2Click(Self);                                      //вызываем 'чистильщика'

end;

procedure TForm1.Button2Click(Sender: TObject);        //чистильщик
begin
with StringGrid1 do
  for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:=('0');

end;


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Cells[Acol,Arow]='1' then                  //Черный (1)
 begin
    rect := StringGrid1.CellRect(ACol,ARow);
    StringGrid1.Canvas.Brush.Color := clBlack;
    StringGrid1.Canvas.FillRect(rect);
 end;

 if StringGrid1.Cells[Acol,Arow]='0' then                  //Белый (0)
 begin
    rect := StringGrid1.CellRect(ACol,ARow);
    StringGrid1.Canvas.Brush.Color := clWhite;
    StringGrid1.Canvas.FillRect(rect);
 end;

 if StringGrid1.Cells[Acol,Arow]='2' then                  //Зеленый (2)
 begin
    rect := StringGrid1.CellRect(ACol,ARow);
    StringGrid1.Canvas.Brush.Color := clGreen;
    StringGrid1.Canvas.FillRect(rect);
 end;


end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
xx:=StringGrid1.Selection.Left;
yy:=StringGrid1.Selection.Top;
 label1.Caption:=('x='+IntToStr(xx)+'     y='+IntToStr(yy));
  if ListBox1.ItemIndex=-1 then else
StringGrid1.Cells[xx,yy]:=(IntToStr(ListBox1.ItemIndex));      //берем 'кисть' из ItemBox
end;

end.

[SERG1980]

var x,y:integer;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 CanSelect:=false;
randomize;
 form1.StringGrid1.Canvas.Brush.Color:=random($FFFF);
 form1.StringGrid1.Canvas.FillRect(StringGrid1.CellRect(ACol, ARow));
end;