Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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-07-2012
Victorialerda Victorialerda is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 8
Poder: 0
Victorialerda Va por buen camino
como pintar una grilla con un boton

Hola, tenemos una grilla(dbgrid) en la cual cuando se selecione una fila, que atraves d un boton pinte esa fila seleccionada.
¿Alguna ayuda para este problema?
Muchas gracias.
Responder Con Cita
  #2  
Antiguo 29-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración
Responder Con Cita
  #3  
Antiguo 29-07-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola VictoriaLerda.

No está muy claro que es lo que queres realizar... Pero como para darte una idea, te pongo un ejemplo de como podrías activar/desactivar el pintado de la fila seleccionada mediante un TButton:
Código Delphi [-]
...
implementation

(* Activa/desactiva pintado de la fila seleccionada,
   aprovecho la propiedad Tag como bandera *)
procedure TForm1.btnOnOffClick(Sender: TObject);
begin
  btnOnOff.Tag:= Integer(not Boolean(btnOnOff.Tag));
  DBGrid1.Invalidate;
end;

(* Pinta la fila si btnOnOff.Tag = 1 (True) *)
type
  TDBGridEx = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Boolean(btnOnOff.Tag) then
    with TDBGridEx(TDBGrid(Sender)) do
      if (DataLink.ActiveRecord+1 = Row)or(gdFocused in State)or(gdSelected in State) then
      begin
        Canvas.Brush.Color:= clMoneyGreen;
        DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
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
¿Cómo pintar un círculo matemáticamente? aeff Varios 11 12-01-2009 02:06:05
como ver un tipo de datos de una grilla en otra grilla en el mismo form? calistian Varios 5 01-10-2008 20:29:04
Como mostrar con DevExpress la grilla como quedo en la última consulta? Alexander Conexión con bases de datos 3 27-03-2007 23:37:03
Pintar una columna de una grilla zugazua2001 Varios 2 16-08-2006 17:26:10
Pintar Celdillas especificas en una grilla josem Conexión con bases de datos 2 19-07-2004 21:57:17


La franja horaria es GMT +2. Ahora son las 13:03:54.


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