💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Код программы

Лабораторная работа №1-3

Создание многооконного текстового редактора

Задание: Создать стандартный интерфейс MDI Windows-приложения «Текстовый редактор» создержащий меню, панель инструментов, строку состояния обеспечив следующую функциональность:

Открытие документа из файла, сохраниение документа в файле, удаление в буфер, вставка из буфера, курсивный шрифт, отображение позиции курсора + выравние текста(защита)

Интерфейс программы

Интерфейс приложения представлен на начальном этапе представлен на рисунке 1.1, а на конечном этапе представлен интерфейс с дочерним окном на рисунке 1.2.

Рисунок 1.1

Рисунок 1.2

Код программы

Исходный код материнской формы:

procedure TForm1.ACenterExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.Paragraph.Alignment: = taCenter;

end;

procedure TForm1.ACutExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.CutToClipBoard;

end;

procedure TForm1.AExitExecute(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.AItalicExecute(Sender: TObject);

begin

With (ActiveMDIChild as tform2).RichEdit1.SelAttributes do

begin

if FsItalic in Style then

Style: =Style - [FsItalic]

else

Style: =Style + [FsItalic]

end;

end;

procedure TForm1.ALeftExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.Paragraph.Alignment: = taLeftJustify;

end;

procedure TForm1.AOpenExecute(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

Form2: =Tform2.Create(Self);

Form2.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);

Form2.RichEdit1.Modified: = false;

FileName: =OpenDialog1.FileName;

Form2.show;

Form2.Caption: ='Документ - '+ExtractFileName(FileName);

end;

end;

procedure TForm1.APasteExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.PasteFromClipBoard;

end;

procedure TForm1.ARightExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.Paragraph.Alignment: = taRightJustify;

end;

procedure TForm1.ASaveExecute(Sender: TObject);

begin

(ActiveMDIChild as tform2).RichEdit1.Lines.SaveToFile(OpenDialog1.FileName)

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if MessageDlg('Выйти из программы? ', mtConfirmation, [mbYes, mbNo], 0)=mrYes

then Action: =caFree

else Action: =caNone;

end;

Исходный код дочерней формы:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if RichEdit1.Modified then

begin

if MessageDlg('Файл был изменён. Перед выходом он не будет сохранён. Подтвердить выход? ',

mtConfirmation, [mbYes, mbNo], 0)=mrYes then

if OpenDialog1.Execute then

begin

RichEdit1.Lines.SaveToFile(OpenDialog1.FileName);

Action: =caFree;

end

else

Action: =CaFree;

end

else

Action: =CaFree;

end;

procedure TForm2.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Form1.StatusBar1.Panels[2].Text: = IntToStr(RichEdit1.Caretpos.y+1);

Form1.StatusBar1.Panels[4].Text: = IntToStr(RichEdit1.Caretpos.X+1);

end;