Может кто знает компонент-сетку для графики ?

[s3ek]

Приветствую уважаемых =)

Может кто встречал компонент-сетку, на которой можно размещать графическую информицию ?

вот типа такой (см прикрепленный файл)

Заранее благодарен.
Протсо пишу редактор уровней для игры...

[zetrix]

StringGrid, но лучше DrawGrid - она для этих целей и создавалась

[s3ek]

Спасибо...то что надо !)

и еще такой вопрос...как получить координаты выделенных ячеек ?

[zetrix]

Чтоб рисовать самому, надо прорисовывать всю сетку вручную:

DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
ACol, ARow - координаты (номера) строки, столбца
Rect - прямоугольная область ячейки - сюда и рисовать надо
State - статус ячейки (gdSelected - выделенная, gdFocused - в фокусе ввода, gdFixed - фиксированная) - проверять так If (gdSelected in State) then ...
Если в state нет ничего, то ячейка является простой.

Прорисовка вызывается для 1! ячейки, если кликать по ней мышкой, и для ВСЕЙ сетки (по ячейкам) - если форма, например, разворачивается.

[s3ek]

Спасибо разобрался.
Но у меня возникла проблема...глюк при отображении рисунка в ячейке.

вот код:

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
Col, Row: integer;
Rect: TRect;
bit: TBitmap;
fn:string;
begin

Form1.DrawGrid1.MouseToCell(X, Y, Col, Row);

// У меня несколько радиобоксов, приходится вот таким способом проверять

if radiobutton4.Checked = true then
begin
   
   form1.Caption := '4'; // это номер элемента который рисуется
   bit:= TBitmap.Create; 
   bit.LoadFromFile('wall_02.bmp');
end;

Rect:= Form1.DrawGrid1.CellRect(col, row); 
Form1.DrawGrid1.Canvas.Brush.Bitmap := bit; 
Form1.DrawGrid1.Canvas.FillRect(Rect);        
bit.Free; 
end;

когда добавляю картинку в ячейку (допустим пооска у картинки посередине) то полоска сьезжает на 5 пикселей в низ. Добавляю в другую ячейку, опять сьезжает, но уже в другом направлении.

Картинки как и ячейки 16 на 16
пробовал делать больше на 1 ячейки, всеравно такая же фигня =(

В чем может быть дело ?