namespace Reproductor;
interface
uses
System.Drawing,
System.Collections,
System.Collections.Generic,
System.Linq,
System.Windows.Forms,
System.ComponentModel;
type
MainForm = partial class(System.Windows.Forms.Form)
private
method Nav(Address:String);
method NavFile(FileName:String);
method Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs);
method salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
method toolSBack_Click(sender: System.Object; e: System.EventArgs);
method toolSNext_Click(sender: System.Object; e: System.EventArgs);
method toolSReload_Click(sender: System.Object; e: System.EventArgs);
method toolSStop_Click(sender: System.Object; e: System.EventArgs);
method toolSHome_Click(sender: System.Object; e: System.EventArgs);
method toolSIr_Click(sender: System.Object; e: System.EventArgs);
method Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
method Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs);
method Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs);
method abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
method abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
method trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
method pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
method MainForm_Load(sender: System.Object; e: System.EventArgs);
method acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
protected
method Dispose(disposing: Boolean); override;
public
constructor;
end;
implementation
{$REGION Construction and Disposition}
constructor MainForm;
begin
InitializeComponent();
end;
method MainForm.Dispose(disposing: Boolean);
begin
if disposing then begin
if assigned(components) then
components.Dispose();
end;
inherited Dispose(disposing);
end;
{$ENDREGION}
method MainForm.Nav(Address:String);
begin
if Not Address.StartsWith('http://') And
Not Address.StartsWith('https://') then
Address := 'http://' + Address;
try
Navegador.Navigate(New Uri(Address));
except
on E:Exception do
Navegador.DocumentText := '<h1><span style="font-weight: bold; font-family: Calibri;"><img alt="" src="http://cdn.iconfinder.net/data/icons/solarsystem/PNG/128x128/earth.png"> </span></h1><h1><span style="font-weight: bold; font-family: Calibri;">Un error ha ocurrido... :(</span></h1>___________________________<span style="font-weight: bold; font-family: Calibri;">DaGiMe Explorer<br> v1.0 <br> Desarrollado por <a href="http://daw-labs.com">DaW - Labs</a><br></span>';
end;
end;
method MainForm.NavFile(FileName: String);
begin
if Not FileName.StartsWith('file:///') then
FileName := 'file:///'+FileName;
Navegador.Navigate(New Uri(FileName));
end;
method MainForm.Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs);
begin
Direccion.Text := Navegador.Url.AbsoluteUri;
lbEstado.Text := Navegador.StatusText;
Text := Navegador.Document.Title + ' - DaGiMe Explorer';
end;
method MainForm.salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
begin
Close();
end;
method MainForm.toolSBack_Click(sender: System.Object; e: System.EventArgs);
begin
if Navegador.CanGoBack = True then
Navegador.GoBack;
end;
method MainForm.toolSNext_Click(sender: System.Object; e: System.EventArgs);
begin
if Navegador.CanGoForward = True then
Navegador.GoForward;
end;
method MainForm.toolSReload_Click(sender: System.Object; e: System.EventArgs);
begin
Navegador.Refresh();
end;
method MainForm.toolSStop_Click(sender: System.Object; e: System.EventArgs);
begin
Navegador.Stop();
end;
method MainForm.toolSHome_Click(sender: System.Object; e: System.EventArgs);
begin
Nav(toolsHome.ToolTipText);
end;
method MainForm.toolSIr_Click(sender: System.Object; e: System.EventArgs);
begin
Nav(Direccion.Text);
end;
method MainForm.Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
begin
if (E.KeyCode = Keys.Enter) then
Nav(Direccion.Text);
end;
method MainForm.Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs);
begin
lbEstado.Text := Navegador.StatusText;
end;
method MainForm.Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs);
begin
lbEstado.Text := 'Página cargada con éxito';
end;
method MainForm.abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
begin
Direccion.Focus;
Direccion.SelectAll;
end;
method MainForm.abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
begin
if OpenFile.ShowDialog = DialogResult.OK then
NavFile(OpenFile.FileName);
end;
method MainForm.trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
begin
Navegador.ShowSaveAsDialog
end;
method MainForm.pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
begin
end;
method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
begin
Nav(ToolSHome.ToolTipText);
end;
method MainForm.acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
var
F:Form;
begin
F := New DaGiMeF;
F.Show;
end;
end.