Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   DBGrill o CRDBGrill (https://www.clubdelphi.com/foros/showthread.php?t=45786)

emeritos 13-07-2007 18:08:51

DBGrill o CRDBGrill
 
Hola a todos.

Me gustaria saber si hay alguna propiedad en los objetos DBGrill o CRDBGrill que cuando selecionemos y registro se vea con un color distinto todo la fila y ademas y sobre todo que se vea como mas grande (por supuesto solo el selecionado o posicionado)

Gracias

loxod 16-07-2007 22:03:16

Si lo que quieres es que un DBGrid cambio el color del renglo seleccionado, esto te puede servir:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State)
    then dbgrid1.canvas.brush.color := clYellow;

dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;

emeritos 17-07-2007 12:17:31

Muchas gracias, pero lo que pretendo es que la fila selecionada, ademas de ponerse toda en un color (elegido por mi), sobre salte sobre las demas poniendose mas grande, es decir en un tamaño de letra mas grande.

Gracias.

loxod 17-07-2007 16:27:26

Pues en lo mismo, solo tienes que agregar un par de lineas mas:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State) then
     begin
        dbgrid1.canvas.brush.color := clYellow;
        dbgrid1.Canvas.Font.Size := 10;
        dbgrid1.Canvas.Font.Style := [fsBold]
     end;

    dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;


La franja horaria es GMT +2. Ahora son las 17:38:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi