Dbgrid Ou Stringgrid Com Figuras?

[hencker]

Como mostrar figuras num DBGrid ou StringGrid? Preciso de um componente específico?

[Graymalkin]

Consegui fazer isso com o DrawGrid, utilizando também uma ImageList. Preenchi a ImageList com algumas figuras e coloquei o seguinte código no evento DrawCell da DrawGrid:

var idx : integer;

begin
    idx := ACol;
    if (idx<=ImageList1.Count) and (ARow=1) then
      ImageList1.Draw(DrawGrid1.Canvas, Rect.Left, Rect.Top, idx);
end;

Com isso, ele vai preencher a primeira linha (sem contar a linha fixa) com as figuras existentes na ImageList (ou até que ela acabe).

Abraços,

Graymalkin

[hencker]

Meu caso é o seguinte, se o dado da celula for 00 então aparece a figura 0, se o resultado for 01 aparece a figura 01... e assim por diante, teria como fazer isso?

[Graymalkin]

Sim, você pode fazer assim (usei um StringGrid agora, mas é no mesmo evento [DrawCell]):

var valor : string;
begin
  valor := StringGrid1.Cells[ACol, ARow];
  if valor='00' then
      ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 0)
  else
    if valor='01' then
      ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 1);
end;

Ou você pode pegar o valor da célula, converter para inteiro e utilizá-lo como índice.

Abraços,

Graymalkin