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