Zeoslib TZTables

[Casimiro Noteví]

Pues entonces más fácil, sin condicionantes:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn; State: TGridDrawState);  
begin
  DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
  DBGrid1.Canvas.Font.Color := clRed;
  DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;

Y nada más

[RebeccaGL]

No eso no, mira este ejemplo.

Código Delphi [-]
 
procedure TForm_BeEMPPRJ.DBGrid_CVMMOVDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  // Init
  DBGrid_CVMMOV.Canvas.Font.Style := [];
  DBGrid_CVMMOV.Canvas.Font.Color := clWindowText;
 
  if (DBGrid_CVMMOV.SelectedRows.CurrentRowSelected)  then
    DbGrid_CVMMOV.Canvas.Brush.Color := $00EFD3C6
  else
    DbGrid_CVMMOV.Canvas.Brush.Color := clWindow;
 
  if (gdSelected in State) and
     (DBGrid_CVMMOV.Focused) then
  begin
    DBGrid_CVMMOV.Canvas.Font.Color := clWhite;
    DbGrid_CVMMOV.Canvas.Brush.Color := clHighlight;
  end;
 
  // Continue
  DBGrid_CVMMOV.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Algo asi como tener todo el Brush toda la barra del DBGrid pintado en la posicion del registro en curso.
Pero este ejemplo no funciona.

[RebeccaGL]

!!!Me volvio a salir este mismo errorrrrrrrrrrrrrrrrr. ayudaaaaaaaaa..

En este codigo hago Post en la tabla Año y me manda las posiciones de los registros mes y dias por donde sea.

Table_STDANO es la tabla padre Table_STDMES es hija de la Table_STDANO y Table_SDTDIA es hija de la Tabla_STDMES.

Table_STDANO >> Table_STDMES >> Table_STDDIA

Ejemplo. Si estoy en el año 2010 mes=Septiempbre y dia=22, entonces hago post en Table_STDANO y la Table_STDMES se posiciona en culaquier mes y pierdo el mes de Septiembre igual con la Table_STDDIA.

He revisado todos los Eventos de tablas dbgrids pero nada, la verdad no se que esta pasando, o seran que los componentes zeos estan con fallas.

Pagare $$$ por la ayuda pero diganme cual es el problema y como solucionarlo, por favor....

[tgsistemas]

connor,
disculpa si digo una tonteria pero personalmente prefiero utilizar qrys en lugar de tables para el acceso a los datos.
En tu caso crearía un qrySTDANO y un qrySTDDIA asociado al anterior, bastaria con refrescar el qrySTDDIA cuando se produzcan cambios (update, delete, browse...) en el qrySTDANO.
Por lo que entiendo de tus explicaciones, creo que no debes tener bien la relación master/detail en los componentes.

Para el tema de pintar los dbgrids hay muchos ejemplos en el foro como te decía Casimiro incluso componentes como los GLib de Neftali

Saludos

[rgstuamigo]

Pues yo para pintar la fila que tiene actualmente el foco lo hago así:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
      if (gdSelected in State) then //si la actual columna está seleccionada
       begin
        (Sender as TDBGrid).Canvas.Brush.Color:=clBlack;//pinto el fondo
        (Sender as TDBGrid).Canvas.Font.Color:=clRed;//cambio el color de la fuente                 
       end
end;

Espero sea de ayuda....
Saludos...

[RebeccaGL]

La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.

Código Delphi [-]
 
// Definicion Global desprotejer DBGrid
type
  TDBGrid = class(DBGrids.TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  aRect : TRect;
begin
  // Init
  TDBGrid(Sender).Canvas.Font.Style := [];
  TDBGrid(Sender).Canvas.Font.Color := clWindowText;
  TDBGrid(Sender).Canvas.Brush.Color := clWindow;

  TDBGrid(Sender).Canvas.Brush.Color := $00EFD3C6;
  aRect := TDBGrid(Sender).CellRect(DataCol + 1, TDBGrid(Sender).Row);

  if (gdSelected in State) and
     (TDBGrid(Sender).Focused) then
  begin
    TDBGrid(Sender).Canvas.Font.Color := clWhite;
    TDBGrid(Sender).Canvas.Brush.Color := clHighlight;
  end;

  TDBGrid(Sender).DefaultDrawColumnCell(aRect, DataCol, Column, State);
end;

[rgstuamigo]

Empezado por connor

La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.
...

Creo entender tu problema , ese error puedes solucionarlo haciendo que el DBGrid se repinte por completo cada ves que deslizas o mueves con el mouse al DBGrid.
Para lograrlo puedes utilizar el evento OnDataChange del componente DataSource al que está enganchado tu DBGrid y poner un código como éste:

Código Delphi [-]
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBGrid1.Invalidate;//<--hago que se repinte el DBGrid por completo
end;

Espero que con eso soluciones tu problema.
Saludos...

[RebeccaGL]

rgs gracias por responder, ya halle la solucion para este problema del dbgrid y lo hice de esta manera.

Código Delphi [-]
 
type
  THackDBGrid = class(TDBGrid);
...
 
procedure TForm_BeEMPPRJ.DBGrid_COMMOVDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  DBGrid_COMMOV.Canvas.Font.Style := [];
  DBGrid_COMMOV.Canvas.Font.Color := clWindowText;
  DbGrid_COMMOV.Canvas.Brush.Color := clWindow;

  if (THackDBGrid(DBGrid_COMMOV).DataLink.ActiveRecord + 1 = THackDBGrid(DBGrid_COMMOV).Row) then
    DBGrid_COMMOV.Canvas.Brush.Color := $00EFD3C6;

  if (gdSelected in State) and
     (DBGrid_COMMOV.Focused) then
  begin
    DBGrid_COMMOV.Canvas.Font.Color := clWhite;
    DbGrid_COMMOV.Canvas.Brush.Color := clHighlight;
  end;

  DBGrid_COMMOV.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Ahora solo me quedan dos problemas, y creo que son los mas graves, unos es que antes de ejecutar mi programa en otra PC me sale el error

"cant find any matching row in the user table"

Y el otro error es que tengo tres tablas enlazadas

Tabla_AÑO >> Tabla_MES >> Tabla_DIA

Tabla_AÑO es la tabla padre Tabla_MES es la tabla hija y Tabla_DIA es hija de Tabla_MES

Cuando hago un Post en Tabla_AÑO se disparan por cualquier lado los registros de las tablas hijas Tabla_MES y Tabla_DIA, es decir, que si estoy en el año 01-01-2010 y hago un post la Tabla_AÑO los registros de las tablas hijas se mueven de "Enero a Octubre", o a cualquier dia del año, sin nigun motivo sin hacer scroll ni nada.

Estoy usando componentes ZeosLib creo que esos componentes estan con errores y se cruzan, bueno nose, pero esos son los problemas que ahora me preocupan mucho y no se como resolverlos.



Gracias, saludos.