WindHack

Estaba instalando el Lazarus en mi PC, y apenas finalizó la instalación me dió por estrenarlo programando un Notepad sencillo.

(* Programado por .:WindHack:.
The Notepad GNU...
Fecha de COmpilacion: 09 - 19 - 2009
IDE: Lazarus
*)
 
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Menus, StdCtrls, ActnList,unit2;
 
type
 
{ TForm1 }
 
TForm1 = class(TForm)
MainMenu1: TMainMenu;
MenuItem11: TMenuItem;
MenuItem9: TMenuItem;
MText: TMemo;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
Open: TOpenDialog;
Save: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure MenuItem10Click(Sender: TObject);
procedure MenuItem11Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
procedure MenuItem8Click(Sender: TObject);
procedure MenuItem9Click(Sender: TObject);
procedure MenuItem20Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
 
var
Form1: TForm1;
 
const
Espacio = ' - ';
 
implementation
 
{ TForm1 }
 
procedure TForm1.MenuItem4Click(Sender: TObject);
var
FileName:String;
begin
if Open.Execute then
MText.Lines.LoadFromFile(Open.FileName);
FileName := Open.FileName;
Caption := ExtractFileName(FileName+Espacio+'Ejemplo Notepad Ubuntu by .:WIndHack:.');
end;
 
procedure TForm1.MenuItem6Click(Sender: TObject);
begin
MText.CopytoClipBoard;
end;
 
procedure TForm1.MenuItem7Click(Sender: TObject);
begin
MText.CutToClipboard;
end;
 
procedure TForm1.MenuItem8Click(Sender: TObject);
begin
MText.PasteFromClipboard;
end;
 
procedure TForm1.MenuItem9Click(Sender: TObject);
begin
MText.Undo;
end;
 
procedure TForm1.MenuItem20Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
MText.Align:=alClient;
end;
 
procedure TForm1.MenuItem10Click(Sender: TObject);
begin
MText.SelectAll;
end;
 
procedure TForm1.MenuItem11Click(Sender: TObject);
begin
Form2.ShowModal();
end;
 
procedure TForm1.MenuItem2Click(Sender: TObject);
var
FileName:String;
begin
if Save.Execute then
begin
FileName := Save.FileName;
MText.Lines.SaveToFile(SAve.FileName);
Caption :=ExtractFileName(FileName+Espacio+'Ejemplo Notepad Ubuntu by .:WIndHack:.');
end else
Exit;
end;
 
initialization
{$I unit1.lrs}
 
end.

Bien, solo hay una falla…¿Cuál?, el tamaño del compilado, pues Lazarus o mejor dicho FreePascal, genera ejecutables extremadamente grandes.

Si desean descargar el source, solo presionen aquí