Ver Mensaje Individual
  #4  
Antiguo 26-01-2020
compuin compuin is offline
Miembro
 
Registrado: oct 2010
Posts: 210
Reputación: 14
compuin Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
Para eso tienes que pintar tú mismo las celdas. Te pongo un ejemplo:


Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    // Dibujar texto centrado horizontal y verticalmente o a la derecha
    InflateRect(Rect, -1, -1);
    Canvas.FillRect(Rect);
    InflateRect(Rect, -3, -3);
    DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
      DT_CENTER or DT_VCENTER or DT_SINGLELINE);   // Texto centrado en la celda
//      DT_RIGHT or DT_VCENTER or DT_SINGLELINE);   // Texto alineado a la derecha en la celda
  end;
end;




Saludos.

Me sale el error Expected '='('found. en una pequena ventana
Responder Con Cita