Editor de texto.
Saludillos. Me gustaría hacer un editor de textos cutre, he ir implementando le mejoras como resalte de código y contador de lineas. Pero de momento lo más sencillo posible. Una ventana en la que aparezca un cuadrado en el que poder escribir. Poder guardar lo que escribo en .txt, y poder cargar archivos .txt . Saludillos y gracias.
|
Hola,
Me pregunto, ¿qué problema tienes? ¿Necesitas alguna orientación o algo? |
Bueno, no dejas ninguna pregunta puntual.
Delphi trae un demo que es un editor de texto. Mirá tu carpeta demos. Hasta luego. ;) |
Así empecé yo :rolleyes: qué recuerdos...
Tranquilo, superar al bloc de notas es sencillo. Quizá sólo te falte Unicode. Es curioso cómo dec ha sido el primero en contestar. xEditor, ¿dónde se descarga? Yo esperaba que te recomendara los SynEdit, o su variante Unicode, pero si quieres hacerlo sencillo, mira ese ejemplo que comenta jachguate, está bastante bien (pero no lo copies, que tiene copyright de Borland... CodeGear). Así empecé yo... y nunca llegué a acabarlo del todo, pero sí que tuvo importantes funcionalidades extra (a ver si un día lo retomo y lo termino). Salu2 :) |
Hola,
En el Directorio del ClubDelphi he dejado el código fuente de XEditor, dentro de la carpeta "Ejemplos", aunque será más bien el ejemplo de cómo no hay que hacer las cosas. :D :D |
Hola,
Acabo de subir al mismo lugar otro de "mis editores", Editor HTML. En este caso he subido el código fuente y la última versión del mismo (compilada). Es anterior a XEditor, así que os podéis hacer una idea de lo malo que será. :D :D :D PD. Voy a cerrar la carpeta "Proyectos", porque, seguró que encontraría otras cosa igual de horripilantes. :D :D :D |
Vale. Voy a usar el ejemplo de delphi 7. Empezaré por lo más sencillo, que es poner un recuadro de texto, e iré intentado hacer que funcione bien (que baje de reglón con el botón enter, y todas esas cosas). Cuando termine os mandaré los errores que seguro seguriiisimo que voy a tener. Saludillos y gracias a todos por la ayuda que me dais, me habéis dado y me daréis.
|
Okey. Ahora no puedo grabar archivos. Necesito más datos sobre SaveDialog porque no se como funciona. Para que funcione grabando/cargando archivos .txt .scp . Gracias de antemano. (ahora cuando me canse de investigar subo el código)
|
Hola,
¿No cuentas con la ayuda de Delphi? En ella tienes todo lo que te pueden ofrecer los componentes, como el "TSaveDialog" que mencionas... |
Más que leo y más que leo pero no encuentro lo que quiero. ¿Alguna ayuda?
|
Solo pido un ejemplo de como funciona SaveDialog. Porque no hago más que darle vueltas al text rich este que viene de ejemplo y no encontrar ninguna respuesta. :confused: Por favor y gracias muchísimas gracias de antemano.
El ejemplo que necesitaría (está claro que así no sería): Código:
savedialog.execute; |
Hola,
|
No puedo usar procedure SaveToFile con richedit...
|
Bueno, me voy. Luego vuelvo. Os dejo el código de lo que he conseguido hasta ahora.
Objetos:
Programa:
Unidad:
|
Creo que existe un error en el código de dec y es:
Ahora, te recomiendo mucho que no solo hagas copiar y pegar, trata de entender el código que se te proporciona antes de usarlo... Saludos... |
Eso es lo que hago siempre ... El problema es que yo no tengo ni idea de que iba por en medio la parte line...
|
{\rtf1\ansi\ansicpg1252\deff0\deflang3082{\fonttbl{\f0\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs16 \par } Vale. Si lo pongo en blanco aparece eso. ¿Se puede hacer que no salga? |
Hello,
Me disculpo por el error. :o |
Okey. Ahora necesito saber como cambiar entre forms. He probado con application.form2.visible:=true pero no funciona. ¿Alguna ayuda?
Nota: Ayudadme también con lo arriba expuesto. |
|
Hola.
Veamos, si utilizas un RichEdit, el texto con que trabajarás será texto enriquecido, es decir, que le puedes poner negritas, cursivas, distintos tamaños, colores y resaltados... por eso cuando "lo ponías en blanco" te salían esos carácteres extraños, ¿por casualidad abriste el archivo con Bloc de notas? :rolleyes: Te recomiendo que empieces por lo muy sencillo, texto plano, sin formato, con un TMemo. El componente lleva automatizado prácticamente todo: escribir en él (con sus enters, Ctrl + C, Ctrl + V... Ctrl + Right... Av. Pág.... todo). Creo que le falta lo de cambiar Insert por Overwrite (insertar-sobreescribir), pero no es muy difícil de implementar. De todas formas, eso para después :) El texto que se escribe en el TMemo se guarda en su propiedad Lines, de tipo TStrings. Con este tipo puedes abrir y guardas los archivos te texto. OpenDialog y SaveDialog sólo sirven para mostrar el diálogo de abrir/guardar, y darte el nombre del archivo seleccionado (propiedad FileName), nada más. Seguro que quieres poner un menú. Utiliza TMainMenu. Nada más colocarlo te aparece (al igual que con TOpenDialog y TSaveDialog) un "cuadradito" en el form. Es porque es un componente no visual. Si le haces doble clic, aparecerá otra ventana, donde podrás diseñar el menú del programa. En cada item nuevo de menú, puedes asociar a su propiedad ShortCut, un atajo de teclado (Ctrl + A para abrir, por ejemplo). Sólo tienen un evento, OnClick, así que no tienen pérdida (ten cuidado, en los menús de la barra, el sólo darles el foco con ratón o teclado una vez el menú está activo, hace que el evento OnClick se ejecute). Para cambiar la fuente, tienes TFontDialog. Muestra el típico diálogo de cambiar fuente, y la fuente elejida se guarda en su propiedad Font. Esto es lo principal que necesitas saber. Después te podremos ayudar a añadir cosas para hacer tu programa más funcional, como que recuerde la fuente con que se usó, colocarle una barra de estado, una barra de herramientas... todo lo que se te pueda ocurrir. Investiga todos estos componenetes que te he nombrado en la ayuda de Delphi. Pero a fondo, con diccionario de inglés en mano. Y si hay una propiedad o método que no entiendas, pues pásate por aquí para preguntar (pero recuerda hacer antes una búsqueda, tanto en los foros como en Google u otro buscador). Salu2 ;) |
Okey. Lo único que no sabía era lo del richedit que ahora que lo pienso en castellano es texto enriquecido (uuu soy casi superdotado xD). Lo he cambiado por Tmemo, y menú yo ya tenía. Ahora voy a por un toolbar. Así que mi siguiente pregunta es donde puedo encontrar fotitos chorras de esas que salen como copiar, pegar, imprimir etc... Le he puesto un popup también al memo con algo muy simple. Y si editas el texto y te sales sin guardar te pregunta si quieres guardar o no. Otra pregunta que tengo es como parar el proceso de cerrado de una aplicación. Gracias de antemano.
|
Bueno, como me voy a madrugar ya os pongo el código que tengo hasta ahora.
·Program:
·Unidad prinicipal:
·Unidad de guardado de seguridad:
·Unidad gráfica principal.
·Unidad gráfica de guardado de seguridad:
|
El Memo ya tiene su propio menú de sistema. Sólo es conveniente cambiarlo si puedes añadir más cosas.
¿Fotitos chorras? En el CD Delphi Pack 1 venían un montón... pero ya no sé qué fue de eso :( ¿Parar el proceso de cerrado? ¿Te refieres a que al darle a la "x" de cerrar, o pulsar Alt + F4, o llamar al método Close; no se cierre el programa? En en evento OnCloseQuery del Form principal, pon CanClose:=False; pero ten en cuenta que debes poner alguna condición, sino sólo podrás salir con Application.Terminate; o con Halt; Salu2 :) |
Okey pero el canclose va con application? Con form? Sola? he probado con todas pero me dan errores.
|
Eso va en el evento OnCloseQuery y podrías abreviarlo en:
Hasta luego. ;) |
Cita:
Cita:
|
Okey, ahora quiero saber como coger el valor de Tform1.memo1.lines desde tform2. Gracias por la ayuda.
Por si no ha quedado claro. Quiero coger lo escrito en un memo (memo1) de un form (Tform1) y usarlo en otro form (Tform2). |
El form está en una unit. Tan sólo tienes que añadir esa unit a la uses del otro form.
Aunque ni si quiera eso es necesario, sencillamente, desde cualquier parte de form2 escribe:
Al darle a compilar, te saldrá un mensaje de Delphi preguntando si quieres añadir la unit. Tú sólo di que sí. Salu2. |
Oye ahora es una duda sobre sintaxis sobre lo que dijo jachguate.
En matemáticas cuando niegas algo se convierte al contrario. Quiero saber que si not true = false. Por lo de canclose. CanClose := not Cambiado; Y otra cosa. Si canclose:=true; se para automáticamente el programa? O termina procedure y entonces si canclose:=true lo cierra? |
Hola rauros, creería que la ayuda que acompaña a Delphi lo explica bien.
Cita:
Por el tema del NOT es como dices, el negado: Código:
Valor |NOT valor Saludos, |
Okey. Lo entiendo al dedillo. Ahora para complementarlo necesitaría saber que valor alberga la posición del puntero del memo en cada momento. Por ejemplo:
Saludillos hijos de cristo La posición sería 1:9 abc def ghi La posición sería 3:3 Saludillos y gracias por toda la ayuda. |
No se llama puntero, se llama cursor ;), y puedes saberlo mediante las propiedades Row, Line, Col... o algo así (es que en mi versión esas propiedades no existen :().
Salu2 :) P.D.: Te recomiendo que, cuando no sepas algo, recorras todas las propiedades, eventos y métodos de un tipo de objeto, y te guíes por tu conocimiento de inglés para adivinar para qué sirven. Así yo he aprendido muchísimo. |
Vale. En memo1 no he podido encontrar ni memo1.row ni memo1.col . He encontrado lo más parecido memo1.lines lo más parecido.
|
El sistema de richedit (la demo de delphi) es este:
En private está declarada. El problema es este:
Que en richedit hay selectionchange y en memo no hay... ¿Hay alguna manera de adaptarlo para memo? Lo que quiero es: Que aparezca abajo en el "statusbar" la información de donde está el puntero. Gracias de antemano |
Creo que ya te dije para qué es la propiedad Lines del TMemo. ¿Has probado con Position, Coordinates, XY.... algo así? Busca, busca, busca, busca.... ahí está la clave.
Acabo de hacer una búsqueda: http://www.clubdelphi.com/foros/showthread.php?t=34479 Ale, CaretPos. Salu2 :) |
Vale. Ahora necesito que me recomendéis un buen evento para que se actualice cada vez que clique, he probado con OnKeyPress porque creía que hacía referencia a cada botón pulsado del teclado pero se ve que no es eso. Gracias muchas a todos que me ayudáis día y noche.
|
Y otra pregunta (estoy pesadito ee jej). He intentado modificar caretpos.x para hacer una especie de "ir a linea" pero me da error de "left side cannot be assigned to". ¿Ese error es porque no se puede modificar? En ese caso, ¿Cómo puedo arreglarlo? Gracias muchas de antemano.
Nota: es caretpos.y pero no funciona igual... |
Hola...
Ese error se de mayormente cuando la propiedad que deseas modificar es de tipo Record o asignar un valor a una constante... Tienes que buscar otro mecanismo para hacer lo que quieres, tal vez mediante un mensaje enviado al control TMemo... Saludos... |
Para la próxima vez, ten en cuenta que "cada vez que clique" significa click del ratón, y tú lo que pides es "cada vez que pulse una tecla", o más simple, "teclee".
El evento OnKeyPress sólo captura teclas que escriben, y unas pocas más (Escape, Enter, Backspace, Tab...). Para todas las demás, tendrás que usar OnKeyDown u OnKeyUp (según pulses o sueltes). Los valores de Key están listados en Virtual Key Codes (ayuda de Delphi). Todos empiezan por "VK_". Salu2. |
La franja horaria es GMT +2. Ahora son las 21:43:50. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi