93 lines
2.7 KiB
ObjectPascal
93 lines
2.7 KiB
ObjectPascal
|
#apptype windows
|
|||
|
|
#reference 'System.Windows.Forms.dll'
|
|||
|
|
#reference 'System.Drawing.dll'
|
|||
|
|
#resource 'Open.png'
|
|||
|
|
#resource 'Save.png'
|
|||
|
|
|
|||
|
|
uses System.Windows.Forms;
|
|||
|
|
|
|||
|
|
const
|
|||
|
|
TextFileExt = 'txt';
|
|||
|
|
TextFileFilter = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> (*.'+TextFileExt+')|*.'+TextFileExt;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
myForm: Form;
|
|||
|
|
TextBox1: TextBox;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure SaveFile(FileName: string);
|
|||
|
|
begin
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows 1251, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
var f := new System.IO.StreamWriter(FileName, false, System.Text.Encoding.Default);
|
|||
|
|
f.Write(TextBox1.Text);
|
|||
|
|
f.Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure OpenFile(FileName: string);
|
|||
|
|
begin
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows 1251, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
var f := new System.IO.StreamReader(FileName, System.Text.Encoding.Default);
|
|||
|
|
TextBox1.Text := f.ReadToEnd;
|
|||
|
|
f.Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure FormClose(sender:object;args:System.EventArgs);
|
|||
|
|
begin
|
|||
|
|
myForm.Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure MenuSaveClick(sender:object; args:System.EventArgs);
|
|||
|
|
begin
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
var sd := new SaveFileDialog;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
sd.DefaultExt := TextFileExt;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
sd.Filter := TextFileFilter;
|
|||
|
|
if sd.ShowDialog=DialogResult.OK then
|
|||
|
|
//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> sd.ShowDialog <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
|
|||
|
|
SaveFile(sd.FileName);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure MenuOpenClick(sender:object; args:System.EventArgs);
|
|||
|
|
begin
|
|||
|
|
var sd := new OpenFileDialog;
|
|||
|
|
sd.DefaultExt := TextFileExt;
|
|||
|
|
sd.Filter := TextFileFilter;
|
|||
|
|
if sd.ShowDialog = DialogResult.OK then
|
|||
|
|
OpenFile(sd.FileName);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
myForm := new Form;
|
|||
|
|
myForm.Text := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
|
|||
|
|
TextBox1 := new TextBox;
|
|||
|
|
TextBox1.Multiline := true;
|
|||
|
|
TextBox1.Height := 100;
|
|||
|
|
TextBox1.Dock := DockStyle.Fill;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
TextBox1.ScrollBars := ScrollBars.Both;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
TextBox1.Font := new System.Drawing.Font('Courier New',10);
|
|||
|
|
|
|||
|
|
myForm.Controls.Add(TextBox1);
|
|||
|
|
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
var toolStrip1 := new ToolStrip;
|
|||
|
|
toolStrip1.GripStyle := System.Windows.Forms.ToolStripGripStyle.Hidden;
|
|||
|
|
var miFile := new ToolStripMenuItem('<27><><EFBFBD><EFBFBD>');
|
|||
|
|
miFile.DropDownItems.Add(new ToolStripMenuItem('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', new System.Drawing.Bitmap(GetResourceStream('Open.png')),MenuOpenClick));
|
|||
|
|
miFile.DropDownItems.Add(new ToolStripMenuItem('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>...',new System.Drawing.Bitmap(GetResourceStream('Save.png')),MenuSaveClick));
|
|||
|
|
miFile.DropDownItems.Add(new ToolStripMenuItem('<27><><EFBFBD><EFBFBD><EFBFBD>',nil,FormClose));
|
|||
|
|
toolStrip1.Items.Add(miFile);
|
|||
|
|
myForm.Controls.Add(toolStrip1);
|
|||
|
|
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = 1, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if CommandLineArgs.Length = 1 then
|
|||
|
|
OpenFile(CommandLineArgs[0]);
|
|||
|
|
|
|||
|
|
Application.Run(myForm);
|
|||
|
|
end.
|