4 respuestas en este tema

[noel78]

Saludos...
Estoy probando Unigui y quiero saber si se puede pintar la fila de del UniDBGrid1

e visto el siguiente codigo en los ejemplos pero no hallo la manera de poder pintar la fila

delphi

procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
  if ACol=0 then
  begin
    Attribs.Color:=$E0E0E0;
    Attribs.Font.Style:=[fsBold];
  end;
 
  if Column.FieldName='UnitPrice' then
  begin
    if Column.Field.AsFloat>100 then
    begin
      Attribs.Font.Color:=clMaroon;
      Attribs.Font.Style:=[fsBold, fsItalic];
    end;
  end
  else if Column.FieldName='Quantity' then
  begin
    if Column.Field.AsInteger<200 then
    begin
      Attribs.Font.Color:=clRed;
      Attribs.Font.Style:=[fsBold];
      Attribs.Color:=$F0F0FF;
    end;
  end;
end;
 
saludos y gracias de antemano

[fredycc]

Hola, prueba intentando en ese mismo evento (UniDBGrid1DrawColumnCell) solo con:

delphi

if Arow = 3 then    //<-- Fila que se pintará
   Attribs.Color:=clLtGray;

Saludos

[noel78]

Gracias freddycc por responder.
Bueno el codigo que pusiste funciona perfectamente. Pero yo necesito que me pinte la fila completa si por ejemplo el campo SEXO=hombre me pinte toda la fila

Ejemplo:

delphi

if Column.FieldName='SEXO' then
        begin
         if Column.Field.AsString ='HOMBRE' then
         Attribs.Color:=clLtGray;
        end;
//Con este codigo logro que me pinte solo la celda y no hallo manera de q pinte toda la fila
//saludos y gracias de antemano

Aprovecho para pedirte el favor y muevas este hilo a la seccion de UNIGUI. saludos

[cadetill]

Buenas,

Entonces lo que tienes que hacer es preguntar al DataSet, no a la columna, es decir, algo así

delphi

if DBGrid1.DataSource.DataSet.FieldByName('sexo').AsString = 'HOMBRE' then Attribs.Color:=clLtGray;

Espero te sirva

Nos leemos

[noel78]

Si funciona perfecto Gracias......