StringGrid и всё что с ней связано....

[GAGARIN-NEW]

Здравствуйте кулкодеры =)
У меня такой трабл...Есть StringGrid(Табличка в простонародье) .. так вот мне нужно чтобы в ней было 4 колонки и динамическое количество строк (типа лог).
Причём в этом логе 1 маленькая колонка - это картинка сообщения ...
2 колонка - это время события
3 колонка - это нужный мне текст
4 колонка описание того что случилось то ....

ПРИ ЭТОМ МН НУЖНО ЧТОБЯ НАЖАВ НА ЛЮБУЮ СТРОЧКУ 3 КОЛОНКИ Я МОГ УЗНАТЬ ТЕКСТ КОТОРЫЙ В НЕЙ НАПИСАН и СКОПИРОВАТЬ ЕГО В LebeledEdit ! (ТОЛЬКО В 3-ей КОЛОНКЕ !!!)

Помагите мне пожалуйста с этим элементом...
-----------------------------------------------------------
|__|_________|________|____________ _________________
|(| 22.43.11 | h2Q3R9 | Сбой на 2 машине : выключение
|(-)| 05.12.25 | m7b1g2 | Сбой на 1 машине : Процесс остановлен

Заранее благодарен

[Квэнди]

Хм, а от нас то вы что именно хотите ?

[SERG1980]

Добавить строки StringGrid1.RowCount:=StringGrid1.R owCount+1;

На счёт отображения текста:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ACol=2 then label1.Caption:=StringGrid1.Cells[ACol,ARow]
end;

[pu4koff]

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

На счёт отображения текста:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ACol=2 then label1.Caption:=StringGrid1.Cells[ACol,ARow]
end;

только это лучше написать на onSelectCell, а не Draw. На OnDrawCell надо вешать прорисовку картинок в первой колонке

[GAGARIN-NEW]

Что я хотел увидеть в ответе :
1) как добавлять текст в ячейки (как создавать новую строку я допёр сам тока надо её теперь заполнить ...)
2) как определить на какую ячейку я нажал правой кнопкой мыши (мне нужна только 3 ячека во всех строках) и считать текст который в ней был предварительно добавлен...
3) как сделать чтобы при нажатии правой мышой на другие ячейки (кроме 3-ей во всех строках) PopupMenu не открывалось ???

ЗЫ
2 Квэнди вашето на форуме я хотел найти ответы на вопросы....

[SERG1980]

в принципе всё что написали этого достаточно. А вообще советую скачать книгу с этого сайта под названием "100 компонентов. Архангельский", там ты найдёшь всё остальное

[GAGARIN-NEW]

а ссыли ктото может кинуть ???

и ещё .. я вот нашол в DelphiWorld

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
with Canvas do
begin
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;
end;

в итоге во все поля ячейки рисуется моя картинка из Image1 !!! а мне нужно чтобы рисовалось тока в первой колонке (динамически! при добавлении строки)причём чтобы рисуночки были разные ....(Надеюсь все видели лог в Неро 6 - 7 с временем прогресбаром и картинками )


Правка :
Запись чтоние ячеек я нашол .... а теперь как мне определить на какую ячейку я нажал и и именно с неё взять текст ???

[Alex21]

Сообщение от GAGARIN-NEW

ав итоге во все поля ячейки рисуется моя картинка из Image1 !!! а мне нужно чтобы рисовалось тока в первой колонке (динамически! при добавлении строки)причём чтобы рисуночки были разные

 
if ACol=0 then 
{ваш код}

Для разных картинок используйте не Image а ImageList

[pu4koff]

1) StringGrid1.Cells[1,1] := 'medved';
2),3)

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  p: TGridCoord;
begin
  if Button = mbRight then
  begin
    p := StringGrid1.MouseCoord(X,Y);
    if p.X = 2 then
    begin
      caption := StringGrid1.Cells[p.x,p.y];
      StringGrid1.PopupMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
    end;
  end;
end;

только у PopupMenu свойство AutoPopup выставляешь в false

[SERG1980]

http://www.programmersclub.ru/book100comp