1 | #include "stdafx.h"
|
---|
2 |
|
---|
3 | using namespace ActiveBasic::IDE;
|
---|
4 | using namespace ActiveBasic::IDE::WindowComponents;
|
---|
5 |
|
---|
6 | LRESULT CALLBACK WindowFunc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam);
|
---|
7 | void SetupWindow(HWND hwnd);
|
---|
8 | void ResetTextEditFont(HWND hwnd);
|
---|
9 |
|
---|
10 | ::LRESULT MainFrame::OnCreate( ::UINT msg, ::WPARAM wParam, ::LPARAM lParam, ::BOOL& handled )
|
---|
11 | {
|
---|
12 | // ウィンドウエリアマネージャに親ウィンドウを登録
|
---|
13 | wam.SetParentWnd( m_hWnd );
|
---|
14 |
|
---|
15 | RECT rect;
|
---|
16 | GetClientRect( &rect );
|
---|
17 |
|
---|
18 | // MDIベースを作成
|
---|
19 | mdiWindow = new MdiWindow();
|
---|
20 | mdiWindow->Create(
|
---|
21 | m_hWnd,
|
---|
22 | rect,
|
---|
23 | NULL,
|
---|
24 | WS_CHILD
|
---|
25 | );
|
---|
26 | wam.AddMdiWindow( mdiWindow );
|
---|
27 |
|
---|
28 |
|
---|
29 |
|
---|
30 |
|
---|
31 |
|
---|
32 | extern HWND hOwner;
|
---|
33 | hOwner = m_hWnd;
|
---|
34 | extern WNDPROC oldMainFrameWndProc;
|
---|
35 | oldMainFrameWndProc = (WNDPROC)::GetWindowLong( hOwner, GWL_WNDPROC );
|
---|
36 | ::SetWindowLong( hOwner, GWL_WNDPROC, (LONG)WindowFunc );
|
---|
37 |
|
---|
38 | SetupWindow(hOwner);
|
---|
39 |
|
---|
40 | //テキストエディタフォント設定
|
---|
41 | ResetTextEditFont(hOwner);
|
---|
42 |
|
---|
43 |
|
---|
44 |
|
---|
45 | return 0;
|
---|
46 | }
|
---|
47 |
|
---|
48 | void MainFrame::OnSize(UINT nType, CSize size)
|
---|
49 | {
|
---|
50 | //mdiWindow->MoveWindow( 0, 0, size.cx, size.cy );
|
---|
51 | }
|
---|
52 |
|
---|
53 | ::LRESULT MainFrame::OnClose( ::UINT msg, ::WPARAM wParam, ::LPARAM lParam, ::BOOL& handled )
|
---|
54 | {
|
---|
55 | DestroyWindow();
|
---|
56 | return 0;
|
---|
57 | }
|
---|
58 | ::LRESULT MainFrame::OnDestroy( ::UINT msg, ::WPARAM wParam, ::LPARAM lParam, ::BOOL& handled )
|
---|
59 | {
|
---|
60 | mdiWindow->DestroyWindow();
|
---|
61 | delete mdiWindow;
|
---|
62 |
|
---|
63 | ::PostQuitMessage( 0 );
|
---|
64 |
|
---|
65 | return 0;
|
---|
66 | }
|
---|