Editor de texto by lostph

[lostph]

Pessoal, sou novo no delphi bem novo mesmo e começei a me interessar por esta facinante linguagem de programação.
Não tem muito tempo que estudo porem fiz meu primeiro programinha, é o básico do básico sabe, mais pra mim foi significativo.

se quiserem dar opniões, criticas ou ideis , são b em vindas.


Download:
http://rapidshare.com/files/46560075/Ed ... to_1.0.rar

[Be.Cool]

posta o source ai pra nois


fui.

[lostph]

Apedido do Be.Cool, segue abaixo o source se tiver algo de erradp me avisem ou se tiverem criticas sugestoes, pooo são sempre bem vindas.

abraços.

Code Select Expand

unit editor;

interface

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

type
  TfmrEditor = class(TForm)
    MainMenu1: TMainMenu;
    Arquivos1: TMenuItem;
    Abrir1: TMenuItem;
    N1: TMenuItem;
    Salvar1: TMenuItem;
    Sair1: TMenuItem;
    Editar1: TMenuItem;
    Recorta1: TMenuItem;
    Copiar1: TMenuItem;
    Colaer1: TMenuItem;
    Selecionartudo1: TMenuItem;
    Formtara1: TMenuItem;
    Fontes1: TMenuItem;
    Cores1: TMenuItem;
    Alinhamento1: TMenuItem;
    Direita1: TMenuItem;
    Esquerda1: TMenuItem;
    Centralizado1: TMenuItem;
    Utilitarios1: TMenuItem;
    Calculadora1: TMenuItem;
    Ajuda1: TMenuItem;
    Sobre1: TMenuItem;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure Abrir1Click(Sender: TObject);
    procedure Salvar1Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure Recorta1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Colaer1Click(Sender: TObject);
    procedure Selecionartudo1Click(Sender: TObject);
    procedure Fontes1Click(Sender: TObject);
    procedure Cores1Click(Sender: TObject);
    procedure Direita1Click(Sender: TObject);
    procedure Esquerda1Click(Sender: TObject);
    procedure Centralizado1Click(Sender: TObject);
    procedure Calculadora1Click(Sender: TObject);
    procedure Sobre1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmrEditor: TfmrEditor;

implementation

{$R *.dfm}

procedure TfmrEditor.Abrir1Click(Sender: TObject);
begin
if opendialog1.execute then
Memo1.Lines.LoadFromFile(opendialog1.filename);
memo1.SetFocus;


end;

procedure TfmrEditor.Salvar1Click(Sender: TObject);
begin
if savedialog1.execute then
memo1.lines.SaveToFile(Savedialog1.filename);
end;

procedure TfmrEditor.Sair1Click(Sender: TObject);
begin
Halt;

end;

procedure TfmrEditor.Recorta1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

procedure TfmrEditor.Copiar1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

procedure TfmrEditor.Colaer1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

procedure TfmrEditor.Selecionartudo1Click(Sender: TObject);
begin
Memo1.SelectAll;
end;

procedure TfmrEditor.Fontes1Click(Sender: TObject);
begin
If fontdialog1.Execute then
memo1.Font:=fontdialog1.Font;

end;

procedure TfmrEditor.Cores1Click(Sender: TObject);
begin
If colordialog1.Execute then
memo1.Color:=colordialog1.Color;
end;

procedure TfmrEditor.Direita1Click(Sender: TObject);
begin
memo1.alignment:=taRightJustify;
end;

procedure TfmrEditor.Esquerda1Click(Sender: TObject);
begin
memo1.alignment:=taLeftJustify;
end;

procedure TfmrEditor.Centralizado1Click(Sender: TObject);
begin
memo1.alignment:=taCenter;
end;

procedure TfmrEditor.Calculadora1Click(Sender: TObject);
begin

If Winexec('c:\WINDOWS\system32\calc.exe',sw_shownormal)=2 then
showmessage('Arquivo não encontrado')
end;

procedure TfmrEditor.Sobre1Click(Sender: TObject);
begin
MessageDlg('Editor de texto 1.0 by lostph', mtinformation,[mbok],0);
end;

procedure TfmrEditor.SpeedButton3Click(Sender: TObject);
begin
if opendialog1.execute then
Memo1.Lines.LoadFromFile(opendialog1.filename);
memo1.SetFocus;
end;

procedure TfmrEditor.SpeedButton2Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TfmrEditor.SpeedButton1Click(Sender: TObject);
begin
if savedialog1.execute then
memo1.lines.SaveToFile(Savedialog1.filename);
end;

procedure TfmrEditor.SpeedButton6Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

procedure TfmrEditor.SpeedButton5Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

procedure TfmrEditor.SpeedButton4Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

procedure TfmrEditor.SpeedButton7Click(Sender: TObject);
begin
If Winexec('c:\WINDOWS\system32\calc.exe',sw_shownormal)=2 then
showmessage('Arquivo não encontrado')
end;

end.

[Fvox]

aaah, já fiz um desse  :D

boa sorte com seus estudos em object pascal 

[#phobia]

Huahuahuahua!

Com certeza Fvox!

Eu também quando comecei a aprender Delphi fiz um editor quase igual esse dai, a única diferença é que tinha um pouco mais de recursos, masnada de mais...  :D

Abs.

[lostph]

Obrigado phobia, é realmente o tempo eh essencial.
eu tambem não to com muito tempo, mais como eu trabalho com meu pai, as vezes tenho folga e são nessas folgas que procuro aprende o maximo pois tem dias que não consigo nem sentar no pc, so anoitão... que provavelmente vai ser essas hrs que vo estuda.

mais então phobia, se você tiver mais tempo agora, vamos estuda juntos ...
assim podemos nos 2 aprende e troca informações...
Obrigado.

[#phobia]

I velho...
Vlw, mas só vou folgar a partir de dezembro deste ano (ta chegando... )!
Ai sim vou voltar aos meus profundos estudos de programação, etc...   xD

Abs.

[Be.Cool]

É isso mesmo, se você começa a aprender a programa com delphi ou visual basic vc tem que criar um editor!
é isso lostph, continue estudando, delphi é uma linguagem com infinitos recursos!



fui.