Fórmulas químicas con Delphi

[[Lepe]]

acabo de ver un pequeño error relacionado con la sombra que comentas:

Código Delphi [-]
  Fsub := TFont.Create;
  tmp := TFont.Create;

  PaintBox1.Canvas.Font.Size:= 12;
  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;

  PintaFormula('K2SO4',tmp,Fsub,PaintBox1.Canvas);

 tmp.Free;
 Fsub.Free;

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

De ahí que no lo hiciera bien.

En cuanto a los 3 clics de ratón ... ni idea, acabo de probarlo y me funciona correctamente desde un botón.

Al evento Paint del Paintbox1, asignale tambien el evento del botón, con eso, siempre que haga falta repintarlo, se pondrá la formula, digamos que sería como un Label, algo persistente.

saludos

[Deiv]

Claro, no era sombra, sino que se sobreescribía cambiando el tamaño de la fuente (DISMINUÍA), estuve revisando el código (con los ARREGLOS), interesante forma de trabajar tiene, ahora por ejemplo:

- 1er click = COMO SIEMPRE no muestra NADA,
- 2do click = RECIÉN Muestra la Fórmula,
- 3er click = Se DISMINUYE el TAMAÑO de la FUENTE del PaintBox (LETRAS) - Esta es la NOVEDAD!!

- 1er click = Al parecer la Procedure PintaFormula() no trabaja la primera vez, y solo en el segundo click funciona.

Me pasé varios minutos buscando el error, y solo al cambiar el tamaño en:

PaintBox1.Font.Size:= 8;

- 1er click= ¡¡HURRA!! al fin muestra la Fórmula, al 1er click,
- 2do click= No pasa nada, todo OK.
- 3er click= Todo OK.

Aunque encontré el error, PERO NO SÉ EXPLICARLO, es que en las Propiedades de mi PaintBox la Fuente-Size estaba en = 8 y no coordinaba me parece lo que por código se escribía: PaintBox1.Font.Size:= 12; cuando igualé el tamaño de la fuente en la propiedad con el código, FUNCIONA AL PRIMER CLICK. En resumen si igualo el tamaño de las propiedades con el tamaño por código, a cualquier tamaño que fuere responde al primer click.

Ahora solamente me queda averiguar, haber si me dais una mano, ¿por qué ahora al 2do click se disminuye (cambia) el tamaño de la Fuente del PaintBox (LETRAS) o lo que sería para el programa los símbolos químicos?. Como inicialmente mencioné si igualo las propiedades del Size=8 no tengo ninguno de los problemas con los click (pareciera que tengo que estar supeditado a la fuente=8???) . Interesante....
Saluditos

[[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