Fórum Como colocar um texto e um bmp em uma célula no Drawgrid ? #369587

procedure TfrmAtualizacao.stgrTesteDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Texto: string;
begin
  { Indice_da_Coluna -> índice da coluna que deve ser colocada a imagem com o texto }
  if  ACol = Indice_da_Coluna then
    begin
      { Coloca a imagem na célula }
      stgrTeste.Canvas.FillRect( Rect );
      stgrTeste.Canvas.StretchDraw( Rect, ImgTeste.Picture.Graphic );
  
      { Para copiar somente os 8 primeiros caracteres }
      Texto := Copy( stgrProcesso.Cells[ACol, ARow], 1, 8 );

      { Escreve o texto na célula }
      stgrTeste.Canvas.Brush.Style := bsClear;
      stgrTeste.Canvas.TextOut( Rect.Left + 2, Rect.Top + 2, Texto );
    end
  ;
end;

procedure TForm.stgrTesteDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Texto: string;
  [b]gfcStatus: TGraphic;[/b]
begin
  { Indice_da_Coluna -> índice da coluna que deve ser colocada a imagem com o texto }
  if  ACol = Indice_da_Coluna then
    begin
      [b]gfcStatus := RetornaImagemStatus( stgrTeste.Cells[Indice_da_Coluna_Status, ARow] );[/b]

      { Coloca a imagem na célula }
      stgrTeste.Canvas.FillRect( Rect );
      [b]if  gfcStatus <> nil then
          stgrTeste.Canvas.StretchDraw( Rect, gfcStatus )
      ;[/b]
 
      { Para copiar somente os 8 primeiros caracteres }
      Texto := Copy( stgrTeste.Cells[ACol, ARow], 1, 8 );

      { Escreve o texto na célula }
      stgrTeste.Canvas.Brush.Style := bsClear;
      stgrTeste.Canvas.TextOut( Rect.Left + 2, Rect.Top + 2, Texto );
    end
  ;
end;

[b]
function TForm.RetornaGraphicStatus(Status: string): TGraphic;
begin
  Result := nil;
  if  Status = ´1´ then
      Result := imgOcupado.Picture.Graphic
  else
    if  Status = ´2´ then
        Result := imgManutencao.Picture.Graphic
    ;
  ;
end;[/b]