Editor de texto.

[rauros]

No puedo usar procedure SaveToFile con richedit...

[rauros]

Bueno, me voy. Luego vuelvo. Os dejo el código de lo que he conseguido hasta ahora.

Objetos:

Código Delphi [-]
object Form1: TForm1
  Left = 302
  Top = 239
  Width = 676
  Height = 426
  Caption = 'Editor de texto'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCanResize = FormResize
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit: TRichEdit
    Left = 0
    Top = 0
    Width = 665
    Height = 353
    TabOrder = 0
    OnChange = RichChange
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 353
    Width = 668
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Text = 'Escribe arriba lo que desees.'
        Width = 50
      end>
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileName = 'prueba'
    Filter = 'Archivos de texto|*.txt|Scripts|*.scp'
    Left = 32
    Top = 40
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 40
    object N1: TMenuItem
      Caption = 'Archivo'
      Default = True
      object Guardar1: TMenuItem
        Caption = 'Guardar'
        OnClick = Guardar1Click
      end
    end
  end
end

Programa:

Código Delphi [-]
program edittxt;

uses
  Forms,
  editortextos in 'editortextos.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Unidad:

Código Delphi [-]
unit editortextos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    RichEdit: TRichEdit;
    StatusBar1: TStatusBar;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Guardar1: TMenuItem;
    procedure FormResize(Sender: TObject; var NewWidth, NewHeight: Integer;
      var Resize: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Guardar1Click(Sender: TObject);
    procedure RichChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cambiado: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
RichEdit.Width:=form1.Width - 9 ;
RichEdit.Height:=form1.height - 73
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if cambiado = true then
form1.SaveDialog1.Execute;
end;

procedure TForm1.Guardar1Click(Sender: TObject);
begin
 //  if SaveDialog1.Execute then begin
 //   RichEdit1.SaveToFile(SaveDialog1.FileName);
 // end;
  Showmessage('Próximamente jaj');
end;

procedure TForm1.RichChange(Sender: TObject);
begin
cambiado:=true
end;

end.

[[maeyanes]]

Creo que existe un error en el código de dec y es:

Código Delphi [-]
begin  
  if SaveDialog1.Execute then
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName)
end;

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

[rauros]

Eso es lo que hago siempre ... El problema es que yo no tengo ni idea de que iba por en medio la parte line...

[rauros]

{\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?

[dec]

Hello,

Me disculpo por el error.

[rauros]

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.

[jachguate]

Código Delphi [-]
Form2.Show;
Form2.BringToFront;

Hasta luego.

[ixMike]

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?

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

[rauros]

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.

[rauros]

Muchas gracias por toda toda y toda la ayuda, me ha servido siempre. Cambiando de tema, empecemos ya con el código coloreado, creo que todo lo demás ya lo tengo muy visto (he añadido un sistema con claves de registro para que el programa se abra en el mismo sitio que en el que se cierra). He cogido los ejemplos pero veo que son muy complejos y que faltan algunos .dcu . Y lo que quiero es saber como se colorea, lo más simple posible. Puesto que voy a coger uno de los dos ejemplos y me voy a liar antes de encontrar la solución.
Preguntas:

·¿Qué objeto debo usar?
·¿Con este objeto puedo guardar en texto simple (.txt)?