Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   checked en dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=48729)

numalian 02-10-2007 23:10:56

checked en dbgrid
 
Hola chicos..
Tengo una duda,, es que no se como insertar un checked en una columna de mi dbgrid y que esta salga en cada fila...haria falta crear esa columna en la base de datos?
gracias

xEsk 03-10-2007 00:37:02

Hola, uhm... para realizar esto que buscas, con los componentes estándar del Delphi no puedes hacerlo "directamente". Debes hacértelo tu mismo (que alguien me corrija si no es cierto xD), también es cierto que hay componentes que te lo hacen.

Aquí te pongo una versión reducida (con lo básico) de un código que te pinta el checkbox en lugar de poner "True" o "False".

Código Delphi [-]
uses Themes;

procedure TForm1.dbgDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
    // windwos classic
   CtrlState: Array[Boolean] of Integer =
     (
       DFCS_BUTTONCHECK,
       DFCS_BUTTONCHECK or DFCS_CHECKED
     );
   // windows xp
   CtrlStateXP: Array [Boolean] of TThemedButton =
     (
       tbCheckBoxUncheckedNormal,
       tbCheckBoxCheckedNormal
     );

var
   CheckBoxRectangle : TRect;
   Details: TThemedElementDetails;

begin
   // miramos si es un campo booleano
   if Column.Field.DataType = ftBoolean then
     begin
       // elimina el texto de "True" y "False"
       TDBGrid(Sender).Canvas.FillRect(Rect);
       // si se esta usando el tema del windows XP entonces
       if ThemeServices.ThemesEnabled then
         begin
          // obtiene el dibujo segun sea "true" o "false"
           Details:=ThemeServices.GetElementDetails(CtrlStateXP[{Aqui el valor TRUE o FALSE}])
           // dibuja el checkbox
           ThemeServices.DrawElement(TDBGrid(Sender).Canvas.Handle, Details, Rect);
         end
       // sino, muestra el cutre y viejo checkbox del windows clasico
       else
         begin
           CheckBoxRectangle.Left   := Rect.Left + 2;
           CheckBoxRectangle.Right  := Rect.Right - 2;
           CheckBoxRectangle.Top    := Rect.Top + 2;
           CheckBoxRectangle.Bottom := Rect.Bottom - 2;
           // dibuja "checked" o "unchecked" segun sea "true" o "false"
           DrawFrameControl(TDBGrid(Sender).Canvas.Handle, CheckBoxRectangle, DFC_BUTTON,
                            CtrlState[{Aqui el valor TRUE o FALSE}])
         end;
     end;
end;

Lo que hace este código, es pintar una casilla de check en lugar de poner "True" o "False". El procedimiento detecta también, si se esta usando el tema clásico o el tema del XP, para poner una imagen u otra.

El código lo he sacado de un programa viejote que hice, lo he "pulido" y quitado el código que no tiene relación con lo expuesto (puede que falle al compilarlo, pero es una buena base, hehehe).

De todas formas puedes encontrar más información al Google o mirar en el foro, porqué creo que ya han tratado el tema.

Saludos.

Neftali [Germán.Estévez] 03-10-2007 09:54:25

Cita:

Empezado por numalian (Mensaje 235688)
Hola chicos...

Hola y bienvenido al club.
Yo te recomiendo que leas la Guia de estilo de los foros.

Si realizas una búsqueda en los foros encontrarás bastantes hilos sobre el tema que preguntas, como alternativa a lo que ya te han comentado.


La franja horaria es GMT +2. Ahora son las 01:46:37.

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