Ver Mensaje Individual
  #4  
Antiguo 30-05-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Reputación: 26
ContraVeneno Va por buen camino
Question colorear líneas en string grid

se puede colorear una fila en un stringrid?
todavía sigo buscando la respuesta a esta pregunta...
si alguien la tiene se los agradecería mucho

para obtener el valor de una celda

var Valor: String;
....

//valor de la celda seleccionada actualmente en el string grid
Valor:=stringrid.cells[stringrid.col,stringrid.row];
......

Encontre lo que buscaba, coloco la respuesta por si existe algún interesado:
Código Delphi [-]
 
procedure TFrmInicial.stgActRecomDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
inherited;
With Sender as TStringGrid do begin
try
    if StrToFloat(cells[ACol, ARow]) >= 95 then
        begin
         //for BackGround Color
         Canvas.Brush.Color := clRed;
         Canvas.FillRect(Rect);
         //for Font.Color
         Canvas.Font.Color := clWhite;
         Canvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Cells[acol, arow]);
        end
        else if (StrToFloat(cells[ACol, ARow]) >= 80) then
        begin
         //for BackGround Color
         Canvas.Brush.Color := clYellow;
         Canvas.FillRect(Rect);
         //for Font.Color
         Canvas.Font.Color := clBlack;
         Canvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Cells[acol, arow]);
        end 
    except on e:exception do exit; end;
end; //Fin with
end;

Este código funciono perfecto con lo que yo necesito, espero que al menos los coloque en el camino correcto si algún día lo requieren...

Última edición por ContraVeneno fecha: 22-06-2005 a las 17:18:25. Razón: respuesta
Responder Con Cita