pasar codigo DBGrid a cxGrid, seleccionar una fila y cambiar el color, no desapareser

[Neftali [Germán.Estévez]]

A mi me funciona bien, pero sino puedes acceder a la misma página haciendo lo siguiente:

http://www.devexpress.com/Support/KnowledgeBase/

En ésta página escribe como texto:
How to Apply a Custom Draw Procedure

y en el producto:
ExpressGuqntumGrid

[sakuragi]

gracias nueva mente

creo que hanteriormente que intente el server tava caido ya pude entrar

lo checare

gracias

saludos

[VIRU]

lograste hacer lo que querias, yo despues de buscar bastante decidi usarlo con los styles generas el style y lo aplicas en mi caso era cambiar el color de una fuente de una celda segun su contenido.

procedure TForm1.wwdbgrid1DBTableView1SexoStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

begin
if arecord.Values[2] = 'H' then
astyle := cxstyle1;
end;

en caso que quiersa identificar la columna por su nombre y no por su index...

procedure TForm1.wwdbgrid1DBTableView1SexoStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Sexo');
if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then
astyle := cxstyle1;
end;


espero te sirva

[sakuragi]

gracias

lo checare

[sakuragi]

hola que tan de nuevo.

ese metedo quise implementarlo en otro evento pero no me deja se traba en esta linea:

Código Delphi [-]
  if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then

esto lo proben los eventos "OnClick" y "OnKeyDown"

declare todas las varibles:

Código Delphi [-]
 var
    Sender: TcxCustomGridTableView; 
 ARecord: TcxCustomGridRecord;
    AItem: TcxCustomGridTableItem; 
 AStyle: TcxStyle;
  AColumn: TcxCustomGridTableItem;

no se si para en estos eventos se tiene que cambiar la forma de la sintaxys ya lo probe de muchas formas pero no me ha salido bien.

saludos

gracias

[VIRU]

Dame mas datos cual es el error que te tira y en que parte de la linea te da el error.

[sakuragi]

hola que tal.

mas bien no es un erro de mensaje se traba el programa en esta linea

esto es en el evento "OnClick" y "OnKeyDown"

Código Delphi [-]
 if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then

eso lo detecte con mensajes box hantes y despues de la linea.

tambien por el "showmessage" que no me mostraba nada, mas bien
se trababa tambien.

creo que es algo de esa linea


pero igual a como esta en el evento "OnGetContentStyle" lo puse
igual.


saludos