Fórmulas químicas con Delphi

[[Lepe]]

Obviamente no has comprendido mi último mensaje.

[Deiv]

Código Delphi [-]
 PaintBox1.Font.Size:= 12; 
// le tengo que poner 12, porque la fuente que elegí tenía como tamaño mínimo
// 8 por tanto, despues no deja decrementar la fuente

......... donde tenía el tamaño mínimo???

El tema está en que cambiaba la fuente del Paintbox, cuando en realidad quería cambiar la fuente del Paintbox1.canvas

Sigo experimentando, ya parezco Laboratorio tanto hablar de quimica.....

[Deiv]

....................................

[[Lepe]]

A este proyecto que envio en fichero adjunto, no le veo ningun fallo, y todo se hace por código.

saludos

[Deiv]

Lepe, encontré el error y es que como enviaste 2 post con el código:

Código Delphi [-]
tmp.Assign(PaintBox1.Canvas.Font);
PaintBox1.Font.Size:= 12; 
Fsub.Assign(PaintBox1.Font);
Fsub.Size:= Fsub.Size -2;

Era un juego visual, pues en aquel estaba primero tmp, luego PaintBox, en el segundo de abajo estaba al revés por lo que obvie esa parte

Código Delphi [-]
PaintBox1.Canvas.Font.Size:= 12; //ERROR, YO LO TENÍA = PaintBox1.Font.Size
tmp.Assign(PaintBox1.Canvas.Font);
with PaintBox1.Canvas do
    FillRect(Rect(0,0,Width,Height));
Fsub.Assign(PaintBox1.Canvas.Font);
Fsub.Size:= Fsub.Size -2;

Ese error me achicaba las letras, y no me dejaba pintarlo al primer click.
FIN DE ESTE HILO.
Thanks Lepe
Saludos