Editor de texto.

[rauros]

Tengo otra duda. Si dejas pulsado el botón se activa el evento cada x tiempo? No estoy en mi casa y no puedo comprobarlo.

[ixMike]

Sí, pero de esta forma:

-Pulsas (sin soltar).
-Instantáneamente aparece lo pulsado.
-Pasa como un segundo.
-Hasta que no sueltes, cada pocas centésimas de segundo se repite la pulsación.


Salu2.

P.D.: También te podrías haber esperado a llegar a casa, ¿no?

[rauros]

Lo siento, tenía mucha curiosidad. La próxima vez me la trago. He adelantado mucho muchísimo en el proyecto. Ahora necesito saber como puedo imprimir memo1 si el dialogo de impresión es PrintDialog1 (el nombre me da igual que pongáis...). He buscado sobre el tema pero el sistema que se usa para imprimir el texto enriquecido no tiene nada que ver... Muchas gracias de nuevo.

[rauros]

Saludillos. Ayer estuve hablando con IxMike sobre el tema, pero me dió un error muy raro simplemente al escribir esto:

Código Delphi [-]
Memo1.Lines.AddStrings(Printer.Printers);

La impresora está detectada y funciona correctamente. Una descripción del error:

·Me obliga a resetear la apliación (ctrl + f2)
·Datos del mensaje:
EAccesViolation. Acces violation at address 00429EAC (Resumido con los datos más importantes)

·Cuando abro la ventanilla del idioma en ensamblador aprace esto:

cmp dword ptr [eax+$10],$00

Si con esto podéis ayudarme os lo agradecería mucho. Si no podéis os subo una foto de el error o lo que vosotros me digáis que necesitéis. Que no os quiero molestar mucho. Gracias de antemano.

[rauros]

Aparte necesito una pequeñita ayuda. Es que cuando se cierra la aplicación te pregunte si quieres guardar. Entonces yo he hecho esto, pero si clico en cualquier botón me lo vuelve a preguntar(dos veces, luego hace lo que tiene que hacer).

Código Delphi [-]
If cambiado = true then begin
form3:=Tform3.Create(Self);
if form3.ShowModal=mrOk then begin//si se ha puslado aceptar...
form3.Free;
if form1.SaveDialog1.Execute then begin//Se carga guardar...
Form1.memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
halt;
end;
end
else if form3.ShowModal=mrCancel then begin//si se ha puslado cancelar...
canclose:=false;
form3.Destroy;
end;
end;
end;

[[Delphius]]

Empezado por rauros

Aparte necesito una pequeñita ayuda. Es que cuando se cierra la aplicación te pregunte si quieres guardar. Entonces yo he hecho esto, pero si clico en cualquier botón me lo vuelve a preguntar(dos veces, luego hace lo que tiene que hacer).

Código Delphi [-]If cambiado = true then begin form3:=Tform3.Create(Self); if form3.ShowModal=mrOk then begin//si se ha puslado aceptar...
form3.Free;
if form1.SaveDialog1.Execute then begin//Se carga guardar...
Form1.memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
halt;
end;
end else if form3.ShowModal=mrCancel then begin//si se ha puslado cancelar...
canclose:=false;
form3.Destroy;
end;
end;
end;

El problema de porque te lo muestra dos veces se debe a que ShowModal abre la ventana y se queda esperando la orden de pulsado y una vez que se recibe esa orden (que se traduce en esas constantes mrok, etc) se debe decidir que hacer se soluciona de esta simple manera:

Código Delphi [-]
if form3.ShowModal = mrOK
  then begin
         // se ha dado OK... que hacer
         end
  else begin
          // se ha dado en Cancel... que hacer...
        end;

E incluso podrías hacerlo mejor con un case:

Código Delphi [-]
case form3.ShowModal of
mrOK: //que hacer....
...
end;

Por lo de el error de Access Violation y el código ese... tendría que fijarme... no tengo delphi abierto en estos momentos.

Saludos,

[rauros]

El problema es que no se usar el case con más de una linea seguida... ¿Cómo puedo hacer 2 sumas, por ejemplo?

Case x of
1: y:=5+3;
y:= y * 2;
2: ...

etc... Cargar dos lineas en el mismo case.

[rauros]

Otro error. Y este si que es grave. La compilación del archivo solo me funciona a mí. A los demás usuarios no les funciona. Mando el proyecto + código source a esta dirección: http://rs2.rapidshare.com/files/9707...tor_textos.zip

Gracias varias de antemano.

[ixMike]

Varios detalles....

- En el bucle de "chorraditas" añade la línea Application.ProcessMessages, así por lo menos podremos deter el efecto cerrando la aplicación (y ni se te ocurra preguntar qué es ProcessMessages, ¡lo buscas! )

- En "Contactar", podrías mostrar ambos mensajes en la misma ventana. Tan sólo tienes que separar ambas líneas con el carácter #13 (Enter):

Código Delphi [-]
MessageBox(Handle, 'Linea 1'+#13+'Linea 2'+#13#13#13+'Línea muy separada', 'Título', MB_OK+MB_ICONINFORMATION);

- El MessageBox (o Application.MessageBox) también te sirve para hacer el "guardado de seguridad". Es más cómodo (y gasta menos tiempo a la hora de diseñar y menos espacio en el ejecutable). Algo así:

Código Delphi [-]
Case Application.MessageBox(PChar('¿Desea guardar cambios al archivo "'+NombreArchivo+'"?'), 'Guardado de seguridad', MB_ICONQUESTION + MB_YESNOCANCEL) of
  ID_YES: Guaradar;
  ID_NO: Salir;
  //ID_CANCEL: No ponemos nada, puesto que "Cancelar" ahí es no hacer nada
 end;

Busca en el archivo de ayuda Win32.hlp todas las posibles opciones (flags) para MessageBox. Por ejemplo, otra que podrías poner en lugar de MB_ICONQUESTION sería MB_ICONWARNING.

- Interesante dato del portafolios (aunque, ¿no es portapapeles? ).

- "Altura" y "anchura" son palabras incorrectas, Lo ideal sería hacer como Delphi, o Word:

Lin 10 : Col 5

Línea y columna (posición "y" y posición "x").

Además, con que lo pongas en un sólo panel sobra (de hecho, se hace más legible )

Y lo más importante, ¡he podido ejecutarlo! No sé qué fallo tendrán las otras máquinas...