Odontograma

Question

ola pessoal...� o seguinte eu estou desenvolvendo um sistema para clinca odontologica e eu to querendo colocar nesse sistema um odontograma, mas eu nunca fiz algo desse tipo...entao se alguem que ja t...

Thiago Vidal · Answer

Cara... isso realmente vai ser um desafio pra vc.

Uma sugest�o que eu posso te dar, que eu j� usei em uma outra coisa parecida, seria vc �scanear� o odontograma de um papel, e salvar em BMP.

Em seguida, pintar cada �c�lula/dente� com um tom de branco diferente, decrescente, exemplo: $FFFFFF, $FFFFFE, $FFFFFD, e assim por diante.

Carregando essa imagem num TImage, vc pode escrever o evento OnMouseUp para capturar a informa��o do dente que foi clicado, dessa forma:

var
Cor: TColor;
  Num: Byte;
begin
  Cor := Image1.Canvas.Pixels[X, Y];
  Num := $FF - (Cor and $FF);
end;

Num vai ser a diferen�a entre o branco total $FFFFFF e a cor clicada... ex. 0, 1, 2 para $FFFFFF, $FFFFFE, $FFFFFD e assim por diante.

Pode ser que exista alguma solu��o mais simples, mas pro meu caso, atendeu perfeitamente, espero que possa ajudar no seu.

L3gion4rio · Answer

valeu pela sua dica thiago...vou ver o que eu vou fazer cara...valeu mesmo pela ajuda! abra��o pra ti....

Motta · Answer

Um colega aqui fez assim , um .bmp de um esquema do odonto. , colocou um label em cada dente e o deixa invisivel, controla o click (outros eventos) em cima do label, o prototipo ficou legal....

F�rum Odontograma #289523