3 replies to this topic

[ROCKARDO]

Buenos días a todos, tengo una consulta estoy trabajando con Delphi 7 ahora y no se como habilitar las demás propiedad de Tcolumn para un Evento DRAW de un DBGRID copie este texto de una biblia de Delphi y vi otros ejemplos en internet pero cuando lo hago en mi programa no me salen las propiedad que indica, estas son Column.FieldName o  Column.Field, cuando me salen las propiedades solo obtengo Column.Fieldaddress
 
Alguien sabe como habilito las demás propiedades para esa clase TCOLUMN  
 
este es el código q trate de utilizar:
 

delphi

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
  with Sender as TDBGrid do
     if Column.FieldName <> '' then
     DefaultDrawColumnCell(Rect, DataCol, Column, State)
     else
          if Empleados['Salary'] >= 45000 then
      Canvas.StretchDraw(Rect, CaraAlegre.Picture.Graphic)
          else
      Canvas.StretchDraw(Rect, CaraTriste.Picture.Graphic);
 end;

 
--------------------------------------
de antemano gracias
Rockardo

[enecumene]

Prueba Cambiando Column.FieldName por DataSource.Dataset.FieldByName(<Nombre del campo>).asString.

[Agustin Ortu]

Genera el evento desde el IDE (doble click) y copia y pega aca la firma, es decir, la declaración con los parámetros

[ROCKARDO]

Muchas gracias por las sugerencias volví revisar todo lo realizado y elimine otro GRID q utilice de prueba y al parecer al eliminar ese componente se volvieron a habilitar las opciones q faltaban...

 

Saludos

Rockardo