Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-04-2008
muli muli is offline
Miembro
 
Registrado: jun 2003
Ubicación: A Coruña
Posts: 193
Poder: 21
muli Va por buen camino
Solo una columna del Grid

Quisiera que dado el valor de un campo(false/true) una columna del grid se pusiera de negrita, el tema es que soy capaz de ponerle un color distinto pero lo de negrita lo tengo atragantado.

Saludos.
__________________
SI UN PROBLEMA TIENE SOLUCION, YA NO ES UN PROBLEMA, Y SI NO LA TIENE PARA QUE PREOCUPARSE.
Responder Con Cita
  #2  
Antiguo 28-04-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Control.Font.Bold.Enabled := True;


Contro.Font.Bold.Enabled := UnDataset.FieldByname('UnCampo').AsBoolean;


no se que estaba pensando.
__________________


Última edición por ContraVeneno fecha: 28-04-2008 a las 21:16:46.
Responder Con Cita
  #3  
Antiguo 28-04-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola muli, para poner en negrita:

Código Delphi [-]
  DBGridRegistros.Canvas.Font.Style := [fsBold];

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #4  
Antiguo 28-04-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por ContraVeneno Ver Mensaje
Código Delphi [-]
Control.Font.Bold.Enabled := True;





Cita:
Empezado por Caro
Código Delphi [-]
DBGridRegistros.Canvas.Font.Style := [fsBold];
Yo lo haría ligeramente distinto:

Código Delphi [-]
DBGridRegistros.Canvas.Font.Style := DBGridRegistros.Canvas.Font.Style + [fsBold];

para no machacarnos algún otro estilo presente.

// Saludos

Última edición por roman fecha: 28-04-2008 a las 20:56:05.
Responder Con Cita
  #5  
Antiguo 28-04-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
changos... eso me pasa por contestar "de memoria"... no se que estaba pensando.
__________________

Responder Con Cita
  #6  
Antiguo 29-04-2008
muli muli is offline
Miembro
 
Registrado: jun 2003
Ubicación: A Coruña
Posts: 193
Poder: 21
muli Va por buen camino
Si todas las opciones son validas, pero para el registro entero (la linea), pero yo necesito para una sola columna.
Código Delphi [-]
IF tabla.fieldbyname('negrita').AsBoolean=True then
Begin
  DBGrid.Columns[0].Font.Style:=DBGrid.Columns[0].Font.Style+[fsBold];
End;
Me pone todos los registros en la columna 0 en negrita. y yo solo quiero los que cumplan la condición.

Saludos.
__________________
SI UN PROBLEMA TIENE SOLUCION, YA NO ES UN PROBLEMA, Y SI NO LA TIENE PARA QUE PREOCUPARSE.
Responder Con Cita
  #7  
Antiguo 29-04-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola de nuevo muli, te pone todos los registros en negrita, por que en tu codigo le dices que te lo ponga toda la columna 0 en negrita. Debes hacerlo en el evento OnDrawColumnCell.

Código Delphi [-]
procedure TFListadoAlbFacturas.DBGridDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if (Column.Index = 0) then
  begin
   if tabla.fieldbyname('negrita').AsBoolean=True then
    begin
     DBGrid.Canvas.Font.Style := DBGrid.Canvas.Font.Style + [fsBold];
     
     // Pintamos la celda
     DBGrid.DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;
  end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Forzar columna de un grid lbidi OOP 0 31-08-2006 05:15:42
Inconveniente con una columna de mi grid el_barto Firebird e Interbase 3 09-06-2005 18:56:34
Bloquear una columna en un Grid... Perio Varios 0 10-05-2005 17:05:17
Levantar Datos de Columna en Grid lionsoft Varios 6 28-03-2005 20:50:06
Posicionar puntero en columna de un grid Delphiboy Varios 1 23-03-2005 23:31:59


La franja horaria es GMT +2. Ahora son las 20:38:44.


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
Copyright 1996-2007 Club Delphi