Ver Mensaje Individual
  #3  
Antiguo 01-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por CarlosAlberto Ver Mensaje
Estimados miembros: ¿en un stringgrid se puede colocar a los datos de una FILA o de una COLUMNA un color DISTINTO DEL NEGRO?
Hola CarlosAlberto.

Un ejemplo con TStringGrid:
Código Delphi [-]
...
implementation

var
  ColDraw: Integer = 1;
  RowDraw: Integer = 2;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = ColDraw then  // Pinta la columna indicada por la variable ColDraw
  // Si cambias la condición por: ARow = RowDraw, pintará la fila indicada
    with TStringGrid(Sender) do
    begin
      Canvas.Brush.Color:= clRed;  // color fondo
      Canvas.FillRect(Rect);
      Canvas.Font.Color:= clWhite; // color letra
      Canvas.TextOut(Rect.Left+1, Rect.Top+1, Cells[ACol,ARow]);
    end;
end;

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita