FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Indicador de posicion TCustomDBGrid
Hola a tod@s,
Tengo un control derivado de TCustomDBGrid en Delphi que estoy migrando a Lazarus. Ya esta prácticamente migrado solo me falta el tema del indicador de posición el cual no logro hacer funcionar, porque o se pinta el indicador por defecto o aparecen todos los registros con el indicador. El código que utilizo es: Código:
procedure TviDBGrid.DrawCell(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState); begin inherited DrawCell(aCol, aRow, aRect, aState); //Verifico que el DataSet este listo if not Listo then begin exit; end; //Verifico que el componente este cargado if csLoading in ComponentState then begin exit; end; //Compruebo que sea la fila y columna a pintar if (aCol=0) and (ARow=DataSource.DataSet.RecNo) and (dgIndicator in Options) then begin Canvas.Brush.Color:=FixedColor; inherited Canvas.FillRect(aRect); inherited Canvas.Draw(ARect.Left+(ARect.Right-ARect.Left-FSelRow.Width) div 2, ARect.Top+(ARect.Bottom-ARect.Top-FSelRow.Height) div 2,FSelRow); //FSelRow es el Bitmap a dibujar end; end; Espero sus comentario. Un saludo y gracias de antemano.
__________________
Vivir a la deriva, sentir, que no se que hago aki... (Extremo) |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Glscene:indicador De Objetos | LuisAlf:: | Gráficos | 5 | 21-01-2010 09:13:21 |
indicador de DbGrid | cacu | OOP | 5 | 16-11-2009 20:21:53 |
Elegir Posicion de una cadena String y eliminar caracter en una posicion deseada | BuRtOn | Varios | 14 | 26-03-2009 23:59:39 |
Descendiente de TCustomDbGrid | GuerreroDelphi | Varios | 4 | 31-12-2007 03:14:15 |
cambiar color al indicador del DBGrid | jorge_mosquera | OOP | 1 | 07-04-2004 00:27:44 |
|