Fórmulas químicas con Delphi

[Deiv]

Lepe,
He probado tu código y funciona de maravilla,
solo un par de preguntas más por favor, para mis pobres conocimientos no puedo deducir donde está el problema en:
1.- Ya sea tal como me enviaste: TForm1.FormMouseDown(..), ya sea que el código le coloco en un Button: TForm1.Button1Click(..), ¿no sé por qué razón responde SOLO al DOBLE CLICK? y no a UNO.
2.- Y si hago un tercer click este me vuelve a dibujar otro y se sobrepone cual si fuera un label con sombra.
¿A que se debe todo ello?
Un saludo

[[Lepe]]

Tienes razón debía haber posteado el código para un botón, pero no le dí importancia, usé un programa que tenía hecho, y el evento que más corage me dió fuel el mouseDown.

Quizás sin querer estes usando el evento DblClick del botón, que es el de doble clic, fijate porque la diferencia en el nombre es mínima.

En cuanto a la sombra, antes de llamar a PintaFormula puedes añadirle: Paintbox1.Repaint;


Ese efecto es normal. El Paintbox es un control para dibujar, pero cuando se necesite redibujar el control, por ejemplo, si pasas una ventana delante del explorador de windows por encima de tu programa, verás que el paintbox se borra, y la formula que había puede quedar parcialmente borrada.

Lo que quiero decir, es que en el evento del PaintBox OnPaint, tienes que llamar a todo el código ese, para que se dibuje la fórmula cada vez que se tenga que redibujar el paintbox.

Windows debe redibujar una ventana o los controles que tenga dentro, muy frecuentemente, y como no sabe lo que hay pintado en el PaintBox, debes decirselo tú, y redibujarlo a mano llamando a esa rutina.

saludos

[Deiv]

Hola,

Creo que me expliqué mal, ya que no quise decir doble click, sino que al hacer un solo click con el evento TForm1.Button1Click(..) no funciona, y solamente repitiendo (volviendo hacer un nuevo click) recién me muestra la fórmula. En otras palabras en el primer click no me responde, en el segundo sí ¿por qué?

Estoy utilizando Delphi 7, tendrá algo que ver?

Lo de la sombra lo probaré en cuanto llegue a casa, pero esta aparece después de mi tercer click, es decir: 1er click=nada, segundo click=fórmula, 3er click=con especie de sombra o montado mas abajo.

Un saludo

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