unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
StdCtrls;
type
{ TJanelaPrincipal }
TJanelaPrincipal = class(TForm)
Button1: TButton;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem15: TMenuItem;
MenuItem16: TMenuItem;
MenuItem2: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
SalvarAlteracoes: TMenuItem;
SubMenuBrilhoContraste: TMenuItem;
SubMenuCor: TMenuItem;
SubMenuRecortar: TMenuItem;
SubMenuRotacionar: TMenuItem;
SubMenuOlhosVermelhos: TMenuItem;
SubMenuRedimensionar: TMenuItem;
SubMenuCompactarImagens: TMenuItem;
MenuPrincipal: TMainMenu;
MenuArquivo: TMenuItem;
EncerrarPrograma: TMenuItem;
MenuEditar: TMenuItem;
SubMenuDesfazer: TMenuItem;
SubMenuRefazer: TMenuItem;
MenuItem14: TMenuItem;
Recortar: TMenuItem;
SubMenuCopiar: TMenuItem;
SubMenuColar: TMenuItem;
MenuItem18: TMenuItem;
SubMenuLocalizar: TMenuItem;
SubMenuIncluiPastas: TMenuItem;
SubMenuProximo: TMenuItem;
MenuAjuda: TMenuItem;
SubMenuAjuda: TMenuItem;
SubMenuTutorial: TMenuItem;
MenuItem24: TMenuItem;
SubMenuSobre: TMenuItem;
MenuVer: TMenuItem;
MenuFerramentas: TMenuItem;
MenuItem28: TMenuItem;
SubMenuAutoCorrecao: TMenuItem;
MenuItem3: TMenuItem;
SubMenuAbrir: TMenuItem;
SubMenuListaRecente: TMenuItem;
SubMenuSalvarAgora: TMenuItem;
SubMenuSalvarComo: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MenuEditarClick(Sender: TObject);
procedure MenuArquivoClick(Sender: TObject);
procedure MenuAjudaClick(Sender: TObject);
procedure EncerrarProgramaClick(Sender: TObject);
procedure MenuItem10Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
procedure MenuItem9Click(Sender: TObject);
procedure SubMenuTutorialClick(Sender: TObject);
procedure SubMenuAjudaClick(Sender: TObject);
procedure SubMenuProximoClick(Sender: TObject);
procedure SubMenuLocalizarClick(Sender: TObject);
procedure SubMenuColarClick(Sender: TObject);
procedure SubMenuCopiarClick(Sender: TObject);
procedure RecortarClick(Sender: TObject);
procedure SubMenuRefazerClick(Sender: TObject);
procedure SubMenuDesfazerClick(Sender: TObject);
procedure SubMenuSobreClick(Sender: TObject);
procedure SubMenuFecharImagemClick(Sender: TObject);
procedure SubMenuSalvarComoClick(Sender: TObject);
procedure SubMenuSalvarAgoraClick(Sender: TObject);
procedure SubMenuListaRecenteClick(Sender: TObject);
procedure SubMenuAbrirClick(Sender: TObject);
procedure SubMenuCompactarImagensClick(Sender: TObject);
procedure SubMenuRedimensionarClick(Sender: TObject);
procedure SubMenuOlhosVermelhosClick(Sender: TObject);
procedure SubMenuRotacionarClick(Sender: TObject);
procedure SubMenuBrilhoContrasteClick(Sender: TObject);
procedure SubMenuRecortarClick(Sender: TObject);
procedure SubMenuCorClick(Sender: TObject);
procedure MenuVerClick(Sender: TObject);
procedure MenuFerramentasClick(Sender: TObject);
procedure MenuItem28Click(Sender: TObject);
procedure SubMenuAutoCorrecaoClick(Sender: TObject);
procedure SubMenuIncluiPastasClick(Sender: TObject);
private
{ private declarations }
procedure MyButtonClick(Sender: TObject);
//Aqui cria uma declaração privada
//Serve para criar um botão na hora que certo comando for executado
// Assim você economiza memória ;) ^_^
public
{ public declarations }
end;
var
JanelaPrincipal: TJanelaPrincipal;
implementation
{$R *.lfm}
{ TJanelaPrincipal }
procedure TJanelaPrincipal.MenuVerClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuArquivoClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuAjudaClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.EncerrarProgramaClick(Sender: TObject);
begin
close // Encerra o programa a partir do botão Sair (Menu Arquivo)
end;
procedure TJanelaPrincipal.MenuItem10Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuItem1Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuItem3Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuItem7Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuItem9Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuTutorialClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuAjudaClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuProximoClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuLocalizarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuColarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuCopiarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.RecortarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuRefazerClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuDesfazerClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuSobreClick(Sender: TObject);
var
MyForm: TForm;
MyButton: TButton;
begin
MyForm:=TForm.Create(nil); //cria um novo form quando se clica no botão
MyForm.SetBounds(300, 300, 320, 350);
MyForm.Caption:='Elender Picture Manager';
MyButton:=TButton.create(MyForm);
MyButton.Caption:='Este Programa foi criado por mim';
MyButton.SetBounds(110, 110, 200, 130);
MyButton.Parent:=MyForm;
MyButton.OnClick:=@MyButtonClick;
MyForm.ShowModal;
FreeAndNil(MyForm);
end;
procedure TJanelaPrincipal.SubMenuFecharImagemClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuSalvarComoClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuSalvarAgoraClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuListaRecenteClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuAbrirClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuCompactarImagensClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuRedimensionarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuOlhosVermelhosClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuRotacionarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuBrilhoContrasteClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuRecortarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuCorClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuEditarClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.FormCreate(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.Button1Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuFerramentasClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MenuItem28Click(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuAutoCorrecaoClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.SubMenuIncluiPastasClick(Sender: TObject);
begin
end;
procedure TJanelaPrincipal.MyButtonClick(Sender: TObject);
begin
Showmessage('Obrigado por usar este programa!');
if Sender is TButton then
TForm(TButton(Sender).Parent).Close;
end;
end.