ActiveDelphi

[lincoln.mac]

Bom dia!

Abaixo deixei exemplo com fotos para melhor entender....

Tenho uma dúvida e não sei como fazer por + simples que pareça!
Tentei tudo quanto é componente com Grid no Delphi mas não sei manipulá-los...

Vou deixar bem explicado para não haver dúvidas...

1 ) Neste software gostaria de fazer ORÇAMENTO do desenho
2 ) Eu irei clicar em Carregar Imagem
3 ) Ela irá aparecer no Timage
4 ) Agora começa a dúvida .....
5 ) Preciso colocar uma Grade TRANSPARENTE preenchendo o ScrollBox
6 ) Eu irei determinar um valor para cada quadradinho (em dinheiro)
7 ) Ao clicar em cada célula (quadradinho), ele fica pintado sinalizando que está marcado
8 ) Ao clicar novamente, ele desmarca
9 ) Eu irei clicar nos quadradinhos para tampar (preencher) o desenho
10 ) Isso me dará o valor que eu irei cobrar para fazer o desenho do cliente
11 ) No exemplo abaixo, preenchi 31 células
12 ) Se cada célula custar 10 reais, o desenho custará 310 reais

Para ficar mais fácil ainda o que desejo... criei o form do jeito que eu quero e editei no photoshop para explicar! Um abraço!

Na imagem 1 segue o form criado no Delphi....



Na imagem 2 segue a grade transparente preenchendo todo Scroolbox para que eu clique em quantos quadrados vou precisar para orçar ao cliente...



Na imagem 3 aparece os quadrados preenchidos...

[lincoln.mac]

Já estou começando a chegar no que quero!

Adicionei um TGridPanel...

Fiz um FOR para gerar varias linhas e colunas, que me gerou os quadrados...
Dentro de cada quadrado vai outro FOR criando Timages carregando um arquivo PNG quadrado com meio transparente e bordas pretas atribuindo tambem em tempo real o evento ONCLICK ... onde caso clique, fique Preenchido e se clicar dnovo, apaga...

A cada clique, o software faz um LOOP dentro do tgrid procurando os TImage que estao na condicao preenchido e incrementa ou decrementa o valor (R$) ....

Acho que estou indo pelo caminho certo, msm q seja gambiarra! kkkk

Deste modo a imagem esta aparecendo de fundo da grade!