Olá galera, nesta Quick Tips irei mostrar alguns eventos e propriedades do DrawGrid(Palheta Additional)

Veja a hierarquia deste componente.

TObject - TPersistent - TComponent - TControl - TWinControl - TCustomControl - TCustomGrid - TCustomDrawGrid - TDrawGrid

Vamos a construção do exemplo,

  Adicione 1 DrawGrid
  Adicione 1 StatusBar(Adicione um Panel)



DrawGrid : Selecione o evento DrawCell e implemente o seguinte código, objetivo é pintar de amarelo, ou qualquer outra cor a célula selecionada.





DrawGrid : Selecione o evento MouseMove e implemente o seguinte código, objetivo é mostrar na statusbar a linha e coluna que o mouse está posicionado.



Form : Selecione o evento onCreate e implemente o seguinte código, objetivo é posicionar em uma determinada coluna o foco do cursor.



Fico por aqui e na próxima Quick Tips.

Um abraço

Wesley Y
wesley@lithic.com.br