Fórmulas químicas con Delphi

[[Lepe]]

Deiv no tendrás problema, el código lo he compilado en Delphi 6 y no uso rutinas raras.

Simplemente coloca ese trozo de código en una ventana que tenga un paintbox1. A continuación pulsa CTRL + SHIFT + C, para que delphi autocomplete la clase.

despues al evento OnMouseDown de la ventana le añades el evento TheMouseDown.

hecho, al hacer clic en la ventana, fuera del paintbox, se pintará el K2SO4 con subindices.

Básicamente el código ese, lo que hace es partir de dos fuentes distintas, una usada para escribir las letras y parentesis (Fnormal) y otra para escribir los subíndices(Fsubindice), solo se diferencian en el tamaño de la letra.

Se analiza la tira de caracteres y si es un número, se usa la fuente de Subindices, además de ponerlo un poco más abajo....igual que haces tú con el top de los labels, yo lo hago mediante la coordenada Y = 20, Y = 30.

Esto se hace con cada letra, así que ha de tenerse en cuenta que vamos avanzando una letra cada vez, para que la siguiente letra no se pinte encima de la anterior; esto se hace a través de la variable Xpixel.

Si necesitas algo más, dinoslo

saludos