Asi si nerozumíme.
Já bych chtěl vkládat ten obrázek přímo za běhu, tak jak jsem to uved v mem prvním postu s tým Image1.
Třeba takto ale ne s použiti Image1 ale ImageList jak jste mi doporučil.
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Canvas.StretchDraw(StringGrid1.CellRec t(1,1),Image1.Picture.Graphic);
end;
procedura DrawCell by se starala jen o překreslovaní.
Misto toho vkladaní 1,0 přimo vykreslovat ten obrazek.
IdIcmpClient.ReceiveTimeout := 1000;
IdIcmpClient.Host := kontrolovanaadresa;
IdIcmpClient.Ping();
if testpingu = 1 then StringGrid1.Cells[10,i]:= '1'; // funkčni ping
if testpingu = 0 then StringGrid1.Cells[10,i]:= '0'; // nefunkčni ping
end;
StringGrid1.Repaint;
end;