Ayuda por favor...

[BuRtOn]

Saludos amigos, miren lo que pasa es que me dejaron un programa y es un editor de texto, el programa contiene readibuttons , estatic text, memos, y es igual a lo que hacemos aqui cuando enviamos un mensaje, que tiene la opcion de negrita , cursiva, subrayado, tamaño de letra, tipo de letra, y un campo donde editamos nuestro texto, pero no tengo ni ideaaaa, como hacen para importar las fuentes de las letras, y no solo eso, no tengo ni idea como hacer para que el texto herede las caracteristicas que yo le doy, y lo unico que me dijo un profesor, fue que mirara el richedit, algo asi, enserio que es algo recomplicado para mi, por que no hemos visto ni los ciclos repetitivos, miren el codigo que me dio la profesora fue este, pero no funciona y que teniamos que hacer que funcione, solicito que me ayuden, no a hacer el trabajo, pero si que me digan como hago para heredar el tipo de letra y tamaño etc, y para importar los tipos de letras:

Código Delphi [-]
unit ufrmEditor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;
type
  TfrmEditor = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    N1: TMenuItem;
    Salir1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Salir1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmEditor: TfrmEditor;
implementation
uses Math;
{$R *.dfm}
procedure TfrmEditor.FormActivate(Sender: TObject);
begin
  ListBox1.Items := Screen.Fonts;  
end;
procedure TfrmEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If MessageDlg('¿Realmente desea salir?', mtInformation,[mbYes,mbNo],0)=mrYes then
    Action:=caFree
  else
    Action:=caNone;
end;
procedure TfrmEditor.Salir1Click(Sender: TObject);
begin
  Close;
end;
procedure TfrmEditor.Abrir1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TfrmEditor.Guardar1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end.

esto es todo, por favor es urgente amigos, se supone que es para mañana, pero no es justo, me lo dejo hoy, y no nos dice ni pio, ni pistas, espero que me colaboren..

[ContraVeneno]

Empezado por BuRtOn

esto es todo, por favor es urgente amigos, se supone que es para mañana, pero no es justo, me lo dejo hoy, y no nos dice ni pio, ni pistas, espero que me colaboren..

A que caray Burton... revisa este enlace...

P.D. Eso que te dejaron de tarea super urgente, ya se ha hecho miles y miles de veces, revisa la carpeta de demos o ejemplos de delphi, ahí ya viene uno hecho, funcionando y sin errores.

[BuRtOn]

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte, por que se trata que yo lo haga a como de lugar, y me esforce mucho e hice mi propio programita de editor de texto, me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina , eso si me toco leer como nunca, y ahi aprendi mucho, y pude analisar cada parte miren como me quedo el programita:

Código Delphi [-]
unit ufrmeditor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls;
type
  Tfrmeditor = class(TForm)
    mnuPrincipal: TMainMenu;
    Archivo1: TMenuItem;
    Edicion1: TMenuItem;
    Formato1: TMenuItem;
    Ayuda1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    Salir1: TMenuItem;
    Cortar1: TMenuItem;
    Copiar1: TMenuItem;
    Pegar1: TMenuItem;
    Fuente1: TMenuItem;
    Acercade1: TMenuItem;
    opdGuardar: TSaveDialog;
    opdAbriri: TOpenDialog;
    RichEdit1: TRichEdit;
    Nuevo1: TMenuItem;
    fndFuente: TFontDialog;
    bbtCursiva: TBitBtn;
    bbtSubrayado: TBitBtn;
    bbtNegrita: TBitBtn;
    bbtLeft: TBitBtn;
    bbtRight: TBitBtn;
    bbtCenter: TBitBtn;
    imgFirma: TImage;
    StaticText5: TStaticText;
    imgPresentacion: TImage;
    procedure Cortar1Click(Sender: TObject);
    procedure Pegar1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Nuevo1Click(Sender: TObject);
    procedure Fuente1Click(Sender: TObject);
    procedure Salir1Click(Sender: TObject);
    procedure bbtNegritaClick(Sender: TObject);
    procedure bbtCursivaClick(Sender: TObject);
    procedure bbtSubrayadoClick(Sender: TObject);
    procedure bbtLeftClick(Sender: TObject);
    procedure bbtCenterClick(Sender: TObject);
    procedure bbtRightClick(Sender: TObject);
    procedure Acercade1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmeditor: Tfrmeditor;
implementation
{$R *.dfm}
procedure Tfrmeditor.Cortar1Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure Tfrmeditor.Pegar1Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure Tfrmeditor.Copiar1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure Tfrmeditor.Guardar1Click(Sender: TObject);
begin
if opdGuardar.Execute then
RichEdit1.Lines.SaveToFile(opdGuardar.FileName);
end;
procedure Tfrmeditor.Abrir1Click(Sender: TObject);
begin
if opdAbriri.Execute then
   RichEdit1.Lines.LoadFromFile(opdAbriri.FileName);
end;
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin
if RichEdit1.Text <> '' then
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES
then
Guardar1Click( Self );
RichEdit1.Clear;
end;
procedure Tfrmeditor.Fuente1Click(Sender: TObject);
begin
if fndFuente.Execute then
with RichEdit1, fndFuente do
begin
SelAttributes.Name := Font.Name;
SelAttributes.Size := Font.Size;
SelAttributes.Color := Font.Color;
SelAttributes.Pitch := Font.Pitch;
SelAttributes.Style := Font.Style;
SelAttributes.Height := Font.Height;
end;
end;
procedure Tfrmeditor.Salir1Click(Sender: TObject);
begin
if MessageDlg('¿Estas Seguro Que Deseas salir?', mtInformation,[mbYes,mbNo],0)= mryes then
close;
end;
procedure Tfrmeditor.bbtNegritaClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsBold in Style ) then
Style := Style + [fsBold]
else
Style := Style - [fsBold];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtCursivaClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsItalic in Style ) then
Style := Style + [fsItalic]
else
Style := Style - [fsItalic];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtSubrayadoClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsUnderline in Style ) then
Style := Style + [fsUnderline]
else
Style := Style - [fsUnderline];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtLeftClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taLeftJustify;
end;
procedure Tfrmeditor.bbtCenterClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taCenter;
end;
procedure Tfrmeditor.bbtRightClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taRightJustify;
end;
procedure Tfrmeditor.Acercade1Click(Sender: TObject);
begin
ShowMessage('Creado por: Ing. John Quintero ');
end;
end.

Aun desconosco cosas como, para que es el stfocuos miren donde lo utilizo:

Código Delphi [-]
Style := Style - [fsUnderline];
RichEdit1.SetFocus; // no entiendo esto
end;

y lo ultimo que tampoco entendi mucho, fue este fragmento de codigo, que sirve para generar un docuemnto nuevo, y que pregunte si uno quiere guardar el docuemnto que esta en el editor, como cuando trabajas word:

Código Delphi [-]
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin
if RichEdit1.Text <> '' then //no entiendo esto
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES //no entiendo esto
then
Guardar1Click( Self ); //no entiendo esto
RichEdit1.Clear;
end;

les agradeceria que me pudieran ayudar con estas cositas, que no me quedaron muy claras, necesito saber para que y por que se utilizan, y gracias por todo, y sin broncas contraveneno, que me ha servido mucho tus regaños, jejeje ...

[[Delphius]]

Empezado por BuRtOn

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte, por que se trata que yo lo haga a como de lugar, y me esforce mucho e hice mi propio programita de editor de texto, me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina , eso si me toco leer como nunca, y ahi aprendi mucho, y pude analisar cada parte miren como me quedo el programita:

Código Delphi [-]unit ufrmeditor;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls; type Tfrmeditor = class(TForm)
mnuPrincipal: TMainMenu;
Archivo1: TMenuItem;
Edicion1: TMenuItem;
Formato1: TMenuItem;
Ayuda1: TMenuItem;
Abrir1: TMenuItem;
Guardar1: TMenuItem;
Salir1: TMenuItem;
Cortar1: TMenuItem;
Copiar1: TMenuItem;
Pegar1: TMenuItem;
Fuente1: TMenuItem;
Acercade1: TMenuItem;
opdGuardar: TSaveDialog;
opdAbriri: TOpenDialog;
RichEdit1: TRichEdit;
Nuevo1: TMenuItem;
fndFuente: TFontDialog;
bbtCursiva: TBitBtn;
bbtSubrayado: TBitBtn;
bbtNegrita: TBitBtn;
bbtLeft: TBitBtn;
bbtRight: TBitBtn;
bbtCenter: TBitBtn;
imgFirma: TImage;
StaticText5: TStaticText;
imgPresentacion: TImage;
procedure Cortar1Click(Sender: TObject);
procedure Pegar1Click(Sender: TObject);
procedure Copiar1Click(Sender: TObject);
procedure Guardar1Click(Sender: TObject);
procedure Abrir1Click(Sender: TObject);
procedure Nuevo1Click(Sender: TObject);
procedure Fuente1Click(Sender: TObject);
procedure Salir1Click(Sender: TObject);
procedure bbtNegritaClick(Sender: TObject);
procedure bbtCursivaClick(Sender: TObject);
procedure bbtSubrayadoClick(Sender: TObject);
procedure bbtLeftClick(Sender: TObject);
procedure bbtCenterClick(Sender: TObject);
procedure bbtRightClick(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var frmeditor: Tfrmeditor; implementation {$R *.dfm} procedure Tfrmeditor.Cortar1Click(Sender: TObject);
begin RichEdit1.CutToClipboard; end;
procedure Tfrmeditor.Pegar1Click(Sender: TObject);
begin RichEdit1.PasteFromClipboard; end;
procedure Tfrmeditor.Copiar1Click(Sender: TObject);
begin RichEdit1.CopyToClipboard; end;
procedure Tfrmeditor.Guardar1Click(Sender: TObject);
begin if opdGuardar.Execute then RichEdit1.Lines.SaveToFile(opdGuardar.FileName); end;
procedure Tfrmeditor.Abrir1Click(Sender: TObject);
begin if opdAbriri.Execute then RichEdit1.Lines.LoadFromFile(opdAbriri.FileName); end;
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin if RichEdit1.Text <> '' then if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES
then Guardar1Click( Self ); RichEdit1.Clear; end;
procedure Tfrmeditor.Fuente1Click(Sender: TObject);
begin if fndFuente.Execute then with RichEdit1, fndFuente do begin SelAttributes.Name := Font.Name; SelAttributes.Size := Font.Size; SelAttributes.Color := Font.Color; SelAttributes.Pitch := Font.Pitch; SelAttributes.Style := Font.Style; SelAttributes.Height := Font.Height; end;
end;
procedure Tfrmeditor.Salir1Click(Sender: TObject);
begin if MessageDlg('¿Estas Seguro Que Deseas salir?', mtInformation,[mbYes,mbNo],0)= mryes then close; end;
procedure Tfrmeditor.bbtNegritaClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsBold in Style ) then Style := Style + [fsBold] else Style := Style - [fsBold]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtCursivaClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsItalic in Style ) then Style := Style + [fsItalic] else Style := Style - [fsItalic]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtSubrayadoClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsUnderline in Style ) then Style := Style + [fsUnderline] else Style := Style - [fsUnderline]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtLeftClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taLeftJustify; end;
procedure Tfrmeditor.bbtCenterClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taCenter; end;
procedure Tfrmeditor.bbtRightClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taRightJustify; end;
procedure Tfrmeditor.Acercade1Click(Sender: TObject);
begin ShowMessage('Creado por: Ing. John Quintero ');
end;
end.


Aun desconosco cosas como, para que es el stfocuos miren donde lo utilizo:

[delphi]Style := Style - [fsUnderline];
RichEdit1.SetFocus; // no entiendo esto
end;
[/delpohi]

SetFocus hace que el RichEdit obtenga el foco y se pueda trabajar en él.


[quote=BuRtOn;265837]
y lo ultimo que tampoco entendi mucho, fue este fragmento de codigo, que sirve para generar un docuemnto nuevo, y que pregunte si uno quiere guardar el docuemnto que esta en el editor, como cuando trabajas word:

Código Delphi [-]
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);

Código Delphi [-]
beginif RichEdit1.Text <> '' then //no entiendo esto
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES //no entiendo esto
thenGuardar1Click( Self ); //no entiendo esto
RichEdit1.Clear;
end;

MB_ICONQUESTION MB_YESNO son dos constantes. La pimera para hacer que el cuadro de dialogo muestre una imagen determinada (el globito con la i).
La segunda para que muestre dos botones: Uno dirá SI y el otro NO. Cada uno devolverá una constante de resultado, que representará al botón pulsado.

Guardar1Click hace que se dispare el evento OnClick del botón Guardar1.

BuRtOn, sugiero que leas la ayuda que viene con delphi.
usa F1, ¡F1!

Empezado por BuRtOn

les agradeceria que me pudieran ayudar con estas cositas, que no me quedaron muy claras, necesito saber para que y por que se utilizan, y gracias por todo, y sin broncas contraveneno, que me ha servido mucho tus regaños, jejeje ...

Sabiendo que pides las cosas con prisas y urgencia con más razón debo evitar meterme. Me ha resultado un poco atropellado de tu parte haber pedido ayuda de esta manera tan apresurada. Veo que no seguiste mis recomendaciones cuanto te envié el MP.

Contra no te pidió que copies solo te dijo que hay una demo que puedes ver y consultar.

Saludos,

[BuRtOn]

Claro que si amigo segui tus indicaciones pero al 100%, ayer cuando pregunte las propiedades del richedit, no sabia nada, es mas en mi salon no hemos ni visto los bucles, entonces me quede buscando libros en PDF, y encontre una pagina que se llama el rinconcito delphi, y alli , me daban unos manuales muy buenos pero no estaba el richedit, asi que me guie por la ayuda de delphi, y me dio aun mas idea, auqneu estuviera en ingles, pero no importaba, lo que yo queria lograr hera poder llegar hoy , y ser el unico que llevara su propio programita si vez, entonces busque la cacar oculta de delphi, aqui en los archivos pdf, y no la vi , entonces busque por otras paginas, y salia la cara oculta de delphi 4 , 6 y c#,pero solo salia el indice, jeje, hasta que por fin de tanto leer , encontre un tutorial que se llama delphi al limite, y ahi encontre todo lo del richedit, entonces si vez amigo, segui tu consejo al pie de la letra lei hasta que no puede, y con logica, logre hacer mi programita....ha y gracias por la ayuda hera lo unico que me hacia falta....

[ContraVeneno]

Empezado por BuRtOn

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte... me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina

¿y en que parte de mi mensaje dije que copiaras el código?

A mi me extraña que digas que yo digo cosas que no dije ...

En la carpeta de demos, ahí ya viene hecho ese trabajo, para que lo consultes y tengas una referencia bastante clara sobre como hacer un editor de texto.

P.D. era, pasado del verbo ser, es sin h... eres, presente del verbo ser es sin h

[BuRtOn]

jaja, ya que pena contraveneno, perdoname, no supe expresar lo que quice decir, pero igual , ustedes son como padres para mi, jaja, y es enserio, por que aunque me regañan resto, con eso me hacen crecer, y tener disciplina, y ya termine mi programita, y les agradesco que siempre esten dispuesto a ayudarme o aportar cosas a mi aprendisaje, y el mensaje lo coloque urgente, hera por que estaba desesperado, por que no tenia ni idea, de como hacer eso, pero ya, me calme, y ya termine el programa, y delphius me aclaro las ultimas dudas que tenian, pero aun me queda una, que es dar foco ?¿?¿? , aqui en colombia un foco, es una bombilla o lampara , y no se que es eso, o a que se refieren....

Gracias por su tiempo prestado amigos.

[[Delphius]]

Empezado por BuRtOn

pero aun me queda una, que es dar foco ?¿?¿? , aqui en colombia un foco, es una bombilla o lampara , y no se que es eso, o a que se refieren....

¿Me estás tomando el pelo?
Tomer el foco o recibir el foco es cuando un control queda activado o seleccionado. Habilitado para hacer una acción. Por ejemplo cuando tu presionas TAB y te pasas de un control a otro. queda "activado" y habilitado dicho control para que tu realices la operación sobre él.
¿Viste que los botones cuando presionas tab adquieren un borde fino? Bueno... es porque ha recibido el foco.

Creo que con eso queda claro.

Saludos,

[ContraVeneno]

en México, acostumbramos a decir "enfocar" en lugar de "tomar el foco"...

Es decir, enfocarte en ese control, ese es el que tiene el control...

acá también un foco es una bombilla que da luz, aunque poco a poco, los focos van desapareciendo y van siendo reemplazados por lámparas fluorescentes.