Ver Mensaje Individual
  #2  
Antiguo 03-10-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Reputación: 19
xEsk Va por buen camino
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.

Última edición por xEsk fecha: 03-10-2007 a las 00:40:05.
Responder Con Cita