#include <owl\applicat.h>
#include <owl\decmdifr.h>
#include <owl\editfile.h>
#include <owl\mdi.h>
#include <owl\controlb.h>
#include <owl\statusba.h>
#include <owl\buttonga.h>
#include "pr73_1.rc"

//Класс приложения.
class TMDIApp: public TApplication
{
  public:
	 TMDIApp():TApplication(){}
	 void InitMainWindow();
  protected:
	  TMDIClient *clienTWndw;
	  TControlBar *controlBar;
	  TMDIChild *childWnd;
	  void CmFileOpen();

	  DECLARE_RESPONSE_TABLE (TMDIApp);
};

DEFINE_RESPONSE_TABLE1(TMDIApp, TApplication)
EV_COMMAND (CM_FILEOPEN, CmFileOpen),
END_RESPONSE_TABLE;

// TMDIApp::InitMainWindow()
// Эта функция создает главное окно приложения,
// окно-клиент, панель инструментов и
// строку сообщения.
void TMDIApp::InitMainWindow()
{  // Создать окно-клиент.
  clienTWndw = new TMDIClient;
  // Создать окно обрамления.
  TDecoratedMDIFrame *frameWnd = new TDecoratedMDIFrame 
       ("Пример текстового редактора", MENU_1, *clienTWndw, TRUE);
  // Определить размеры и расположение окна обрамления.
  frameWnd->Attr.X = 50;
  frameWnd->Attr.Y = 50;
  frameWnd->Attr.W=GetSystemMetrics(SM_CXSCREEN)/3;
  frameWnd->Attr.H=GetSystemMetrics(SM_CXSCREEN)/3;
  // Создать инструментальную линейку.
  controlBar = new TControlBar (frameWnd,TControlBar::Vertical);
  controlBar->Insert(*new TButtonGadget(ID_OPEN, CM_FILEOPEN));
  controlBar->Insert(*new TSeparatorGadget (10));
  controlBar->Insert(*new TButtonGadget(ID_EXIT, CM_EXIT));
  controlBar->Insert(*new TSeparatorGadget (30));
  controlBar->Insert(*new TButtonGadget(ID_FIND, CM_EDITFIND));
  controlBar->Insert(*new TSeparatorGadget (10));
  controlBar->Insert(*new TButtonGadget(ID_FINDREPLACE, CM_EDITFINDNEXT));
  controlBar->Insert(*new TSeparatorGadget (10));
  controlBar->Insert(*new TButtonGadget(ID_REPLACE, CM_EDITREPLACE));
	// Вставить панель инструментов в окно обрамления.
  frameWnd->Insert(*controlBar, TDecoratedFrame::Right);
  // Установить режим подсказки, чтобы сразу
  // показывать подсказку.
  controlBar->SetHintMode(TGadgetWindow::EnterHints);
  // Создать строку сообщения.
  TMessageBar *msgbar=new TMessageBar(0);
  //Вставить строку сообщения в окно обрамления.
  frameWnd->Insert(*msgbar, TDecoratedFrame::Bottom);
  EnableCtl3d (TRUE);
  // Установить значение указателя MainWindow приложения.
  SetMainWindow(frameWnd);
};

void TMDIApp::CmFileOpen()
{  // Создать объект TData диалогового окна.
  TOpenSaveDialog::TData fileData (OFN_FILEMUSTEXIST |
	 OFN_HIDEREADONLY | OFN_PATHMUSTEXIST,
	 "Все файлы (*.*) | *.* |Текстовые файлы (*.txt) | *.txt |", 0, 0, " * ");
  // Задать имя файла как пустую строку.
  strcpy(fileData.FileName, "");
  // Создать диалоговое окно Open.
  TFileOpenDialog *dialog = new TFileOpenDialog (MainWindow, fileData);
  // Выполнить диалоговое окно Open.
  int result = dialog->Execute();
  // Если пользователь выходит по кнопке ОК...
  if (result == IDOK)
	 // Создать новый управляющий элемент редактирования файла.
	{TEditFile *editFile =new TEditFile (0, 0, 0, 0, 0, 0, 0, fileData.FileName);
	 // Создать новое дочернее окно для файла.
	 childWnd = new TMDIChild (*clienTWndw, "", editFile);
	 // Отобразить новое дочернее окно.
	 childWnd->Create();
	 }
};

int OwlMain(int,char *[])
{
  return TMDIApp().Run();
}

#ifndef WORKSHOP_INVOKED
#include "windows.h"
#endif

#include <owl\mdi.rh>
#include <owl\editfile.rh>

#define MENU_1          100
#define ID_MDIEDIT      101
#define ID_DOCUMENT     102
#define ID_OPEN         CM_FILEOPEN
#define ID_EXIT         CM_EXIT
#define ID_FIND         CM_EDITFIND
#define ID_FINDREPLACE  CM_EDITFINDNEXT
#define ID_REPLACE      CM_EDITREPLACE

#ifdef RC_INVOKED

#include <owl\except.rc>
#include <owl\statusba.rc>

MENU_1 MENU
{
	POPUP "&File"
	{
		 MENUITEM "&Open",       CM_FILEOPEN
		 MENUITEM SEPARATOR
		 MENUITEM "E&xit",       CM_EXIT
	}
	POPUP "&Edit"
	{
		 MENUITEM "&Find...", CM_EDITFIND
		 MENUITEM "Find &Next", CM_EDITFINDNEXT
		 MENUITEM "&Replace...", CM_EDITREPLACE
	}
}

STRINGTABLE
{  CM_FILEOPEN,      "Открыть"
   CM_EXIT,          "Выход"
   CM_EDITFIND,      "Найти"
   CM_EDITFINDNEXT,  "Найти далее"
   CM_EDITREPLACE,   "Заменить"
   IDS_FILECHANGED,  "Файл был изменён. \n\nСохранить изменения?"
   IDS_CANNOTFIND,   "Фрагмент не найден \042%s\042"
}

ID_OPEN        BITMAP "open1.bmp"
ID_EXIT        BITMAP "exit1.bmp"
ID_FIND        BITMAP "find1.bmp"
ID_FINDREPLACE BITMAP "findnx1.bmp"
ID_REPLACE     BITMAP "replace1.bmp"

#endif