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