Editor de texto.

[rauros]

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.

[dec]

Hola,

Me pregunto, ¿qué problema tienes? ¿Necesitas alguna orientación o algo?

[jachguate]

Bueno, no dejas ninguna pregunta puntual.

Delphi trae un demo que es un editor de texto. Mirá tu carpeta demos.

Hasta luego.

[ixMike]

Así empecé yo 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

[dec]

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.

[dec]

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

PD. Voy a cerrar la carpeta "Proyectos", porque, seguró que encontraría otras cosa igual de horripilantes.

[rauros]

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.

[rauros]

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)

[dec]

Hola,

¿No cuentas con la ayuda de Delphi? En ella tienes todo lo que te pueden ofrecer los componentes, como el "TSaveDialog" que mencionas...

[rauros]

Más que leo y más que leo pero no encuentro lo que quiero. ¿Alguna ayuda?

[rauros]

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. Por favor y gracias muchísimas gracias de antemano.

El ejemplo que necesitaría (está claro que así no sería):

savedialog.execute;
filetosave(txt,richedit1.strings);

Mi ejemplo se basa (o por lo menos eso intento) en que lo que haya escrito dentro de un richedit (¿¿¿es strigns???) se guarde en un archivo de texto.

[dec]

Hola,

Código Delphi [-]

begin  
  if SaveDialog1.Execute then begin
    RichEdit1.SaveToFile(SaveDialog1.FileName);
  end;
end;

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