F�rum Como criar um Procedura para o Evento OnDrawColumnCell #471672

01/03/2014

Ol� Pessoal,

A minha duvida em quest�o � que eu tenho v�rios Grids que utilizam o mesmo c�digo no Evento OnDrawColumnCell onde a unica coisa que muda � o TDataSource que � utilizado nele.

Eu sei que para criar uma procedure para utilizar como parametro um TDataSource � s� fazer:

procedure Grid(DTS : TDataSource);

Mais a quest�o � que o c�digo que eu quero colocar em um procedure tem o parametro State : TGridDrawState que pertence ao Evento OnDrawColumnCell. Portanto quando eu passo o c�digo para um procedure que eu criei ele n�o consegue achar o State : TGridDrawState.

O c�digo que estou tentando colocar em um procedure � este:

    if not odd(dtsConsultarKit.DataSet.RecNo) then
    begin
      dbConsultarKit.Canvas.Brush.Color := clRed;
    end
    else
    begin
      dbConsultarKit.Canvas.Brush.Color := clWhite;
    end;
    if gdSelected in State then
  begin
    with (Sender as TDBGrid).Canvas do
    begin
      Brush.Color := clYellow;
      FillRect(Rect);
      //Font.Style := [fsbold]
    end;
  end;
  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);

Como podem ver ele utiliza o State que pertence ao Evento OnDrawColumnCell, e se eu criar um procedure procedure Grid(DTS : TDataSource) ele vai ficar exigindo o State e eu gostaria de saber se isso � possivel passar para a procedure que eu criei para colocar o c�digo la dentro, para n�o ficar 6 c�digo repetidos e sim so precisar passar um parametro por uma procedure.

Desde j� agradecido!

Edson Vilhalba

Curtir t�pico

+ 0

Responder

Posts

06/03/2014

Alan Souza

d� pra pegar o DataSource direto pelo typecast que voc� j� faz pro resto.

with TDbGrid(Sender) do
begin
  if not odd(DataSource.DataSet.RecNo) then
  begin
    Canvas.Brush.Color := clRed;
  end
  else
  begin
     Canvas.Brush.Color := clWhite;
  end;
  if gdSelected in State then
begin
  Canvas.Brush.Color := clYellow;
  Canvas.FillRect(Rect);
  //Canvas.Font.Style := [fsbold]
end;
DefaultDrawDataCell(Rect, Columns[datacol].Field, State);
end;

Responder

Gostei + 0