Редактор BAT файлов с подвеской синтаксиса

[RenatPro]

Редактор BAT файлов с подвеской синтаксиса:

Оцените пожалуйста!
Если кому то понравится выложу исходный код!

Изменение:
#Поправил кодировку!

Dinmaite И не надо удалять! если тебе не нужно не значит, что другим не понадобится.
Можно было просто перенести в эту тему.

var
  Form1: TForm1;
  namebat: string;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
    SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
    SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
    namebat := SaveDialog1.FileName;
  end
  else;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  namebat := '0';
end;


procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
SynMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
  SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
  namebat := OpenDialog1.FileName;
  end
  else
  SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
   SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
end;


procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  SynMemo1.Clear;
  SynMemo1.Lines.Add('@echo off');
  SynMemo1.Lines.Add('color 1a');
  SynMemo1.Lines.Add('chcp 1251');
  SynMemo1.Lines.Add('TITLE Проект');
  SynMemo1.Lines.Add('');
  SynMemo1.Lines.Add(':: Тут ваш код!');
  SynMemo1.Lines.Add('');
  SynMemo1.Lines.Add('echo Привет мир!');
  SynMemo1.Lines.Add('Pause');
  namebat := '0';

end;

procedure TForm1.MenuItem8Click(Sender: TObject);
begin
 SynMemo1.PasteFromClipboard; //вставка
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
begin
  SynMemo1.CopyToClipboard; //копировать
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if namebat <> '0' then
  begin
    SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
    SynMemo1.Lines.SaveToFile(namebat);
    SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
    end;

  if namebat = '0' then

    if SaveDialog1.Execute then
      begin
    SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
    SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
    SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
    namebat := SaveDialog1.FileName;
    end
    else;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  if namebat <> '0' then
  begin
    SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
    SynMemo1.Lines.SaveToFile(namebat);
    SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
    Process1.CommandLine := PChar(UTF8ToSys(namebat));
    Process1.Execute;
  end;
  if namebat = '0' then

    if SaveDialog1.Execute then
    begin
      SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);
      SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
      SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
      namebat := SaveDialog1.FileName;
      Process1.CommandLine := PChar(UTF8ToSys(namebat));
      Process1.Execute;
    end
    else;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   SynMemo1.Clear;
  SynMemo1.Lines.Add('@echo off');
  SynMemo1.Lines.Add(':: Цвет');
  SynMemo1.Lines.Add('color 1a');
  SynMemo1.Lines.Add(':: Кодировка');
  SynMemo1.Lines.Add('chcp 1251');
  SynMemo1.Lines.Add('Название');
  SynMemo1.Lines.Add('TITLE Проект');
  //SynMemo1.Lines.Add('');
  SynMemo1.Lines.Add('');
  SynMemo1.Lines.Add(':: Тут ваш код!');
  SynMemo1.Lines.Add('echo Привет мир!');
  SynMemo1.Lines.Add('');
  SynMemo1.Lines.Add('Pause');
  namebat := '0';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
  SynMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
  SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
  namebat := OpenDialog1.FileName;
  end
  else
  SynMemo1.Text := AnsiToUtf8(SynMemo1.Text);
   SynMemo1.Text := UTF8ToAnsi(SynMemo1.Text);

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  SynMemo1.redo; // повтор действия
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  SynMemo1.Undo; // отмена действия
end;

end.

[Рэйзор]

оценил по скрину: SynEdit + 5 кнопок (иконки Fugue Icons) + 15 строк кода

[RenatPro]

Цитата: Сообщение от Z.Рэйзор оценил по скрину: SynEdit + 5 кнопок (иконки Fugue Icons) + 15 строк кода

Время время)))

[Рэйзор]

Цитата: Сообщение от RenatPro Время время)))

ну а судя по тому, что иконки не кривые - используется еще и AlphaControls.

Итог: 5 минутное бесполезное поделие с использованием кучи сторонних библиотек вместо собственного кода, и непонятно зачем все это лежит в этом разделе.

[RenatPro]

Цитата: Сообщение от Z.Рэйзор ну а судя по тому, что иконки не кривые - используется еще и AlphaControls. Итог: 5 минутное бесполезное поделие с использованием кучи сторонних библиотек вместо собственного кода, и непонятно зачем все это лежит в этом разделе.

Кину код хоть постыдите и научите правильно писать программы!)) Описание требуется?)
Писал программу в пару строчек с процедурами не заморачивался легче было скопировать вставить добавить кнопку)
А да ни одного стороннего компонента! И есть Лицензия на программу GNU General Public License!

Можно посмотреть твои работы для обучения?