--- nono/wx/wxplanemonitor.cpp 2026/04/29 17:05:12 1.1 +++ nono/wx/wxplanemonitor.cpp 2026/04/29 17:05:27 1.1.1.5 @@ -11,10 +11,18 @@ #include "wxplanemonitor.h" #include "wxcolor.h" #include "wxuimessage.h" -#include "bt454.h" +#include "bt45x.h" #include "planevram.h" #include "videoctlr.h" +//#define WINDOW_DEBUG 1 + +#if defined(WINDOW_DEBUG) +#define DPRINTF(fmt...) printf(fmt) +#else +#define DPRINTF(fmt...) /**/ +#endif + enum { ID_PLANE0 = IDGROUP_PLANEVRAM, ID_PLANE1, @@ -37,17 +45,30 @@ static_assert(ID_local_end - 1 <= (int)I // プレーン VRAM ビットマップ // +// イベントテーブル +wxBEGIN_EVENT_TABLE(WXPlaneVRAMBitmapPanel, inherited) + EVT_MOUSE_EVENTS(WXPlaneVRAMBitmapPanel::OnMouse) +wxEND_EVENT_TABLE() + // コンストラクタ WXPlaneVRAMBitmapPanel::WXPlaneVRAMBitmapPanel(wxWindow *parent) : inherited(parent) { - plane_width = gPlaneVRAM->GetComposite().GetWidth(); - plane_height = gPlaneVRAM->GetComposite().GetHeight(); + // デバイスを取得 + planevram = GetPlaneVRAMDevice(); + // どちらか一方は NULL のはず + bt45x = gMainApp.FindObject(OBJ_BT45x); + videoctlr = gMainApp.FindObject(OBJ_VIDEOCTLR); + + plane_width = planevram->GetComposite().GetWidth(); + plane_height = planevram->GetComposite().GetHeight(); // まず等倍でセット scale = 1; SetScale(1); + cursor = wxDefaultPosition; + // VM からの通知を受け取る WXUIMessage::Connect(UIMessage::PALETTE, this, wxCommandEventHandler(WXPlaneVRAMBitmapPanel::OnPaletteChanged)); @@ -56,7 +77,7 @@ WXPlaneVRAMBitmapPanel::WXPlaneVRAMBitma // デストラクタ WXPlaneVRAMBitmapPanel::~WXPlaneVRAMBitmapPanel() { - WXUIMessage::Disconnect(UIMessage::PALETTE, + WXUIMessage::Disconnect(UIMessage::PALETTE, this, wxCommandEventHandler(WXPlaneVRAMBitmapPanel::OnPaletteChanged)); } @@ -70,13 +91,15 @@ WXPlaneVRAMBitmapPanel::Draw() assert(view.GetRight() < virtual_width); assert(view.GetBottom() < virtual_height); - const BitmapI8& src = gPlaneVRAM->GetComposite(); + const BitmapI8& src = planevram->GetComposite(); if (scale > 1) { Rect dr(0, 0, bitmap.GetWidth(), bitmap.GetHeight()); - bitmap.DrawScale(dr, src, &pal[0], view.x, scale, 1, view.y, scale, 1); + bitmap.DrawBitmapI8Scale(dr, src, &pal[0], + view.x, scale, 1, + view.y, scale, 1); } else { - bitmap.DrawBitmap(0, 0, src, &pal[0], view); + bitmap.DrawBitmapI8(0, 0, src, &pal[0], view); } } @@ -118,20 +141,23 @@ WXPlaneVRAMBitmapPanel::GenPalette() { if (apply_palette) { // パレットを適用する場合 - const ColorXBGR *vmpal; - // 雑に X680x0/LUNA 対応 - if (gVideoCtlr) { - vmpal = gVideoCtlr->GetHostPalette(); + // (雑に X680x0/LUNA 対応) + const std::vector *vmpal; + if (videoctlr) { + vmpal = &videoctlr->GetHostPalette(); } else { - vmpal = gBT454->GetHostPalette(); + vmpal = &bt45x->GetHostPalette(); } - const Color bg = vmpal[0].ToColor(); - for (int i = 0; i < pal.size(); i++) { - if ((i & planemask)) { - int n = i % 16; - pal[i] = vmpal[n].ToColor(); + int vmpal_size = vmpal->size(); + const Color bg = (*vmpal)[0]; + int d = 0; + int s; + for (; d < pal.size(); d++) { + s = d % vmpal_size; + if ((s & planemask)) { + pal[d] = (*vmpal)[s]; } else { - pal[i] = bg; + pal[d] = bg; } } } else { @@ -181,15 +207,45 @@ WXPlaneVRAMBitmapPanel::OnScroll(wxScrol } } +// マウスイベント +void +WXPlaneVRAMBitmapPanel::OnMouse(wxMouseEvent& event) +{ + auto window = dynamic_cast(GetGrandParent()); + assert(window); + + // pt はこのパネル左上からの位置 + const wxPoint& pt = event.GetPosition(); + + // pt がパネル内の座標なのに Leaving() になることがある。 + // pt がパネル外の座標なのに Leaving() にならないことがある。 + if (event.Leaving() == false && GetClientRect().Contains(pt)) { + // cursor は仮想画面上の座標 + cursor.x = (view.x + pt.x) / scale; + cursor.y = (view.y + pt.y) / scale; + assertmsg(cursor.x < plane_width, "cursor.x=%d", cursor.x); + assertmsg(cursor.y < plane_height, "cursor.y=%d", cursor.y); + } else { + cursor = wxDefaultPosition; + } +} + // // プレーン VRAM パネル // +// +------------------------+------------------+ +// | WXPlaneVRAMBitmapPanel | WXScrollBar(V) | +// | VRAM 表示パネル | 縦スクロールバー | +// +------------------------+------------------+ +// | WXScrollBar(H) | WXBitmapPanel | +// | 横スクロールバー | 空き地 | +// +------------------------+------------------+ + // イベントテーブル wxBEGIN_EVENT_TABLE(WXPlaneVRAMPanel, inherited) EVT_SIZE(WXPlaneVRAMPanel::OnSize) - EVT_TIMER(wxID_ANY, WXPlaneVRAMPanel::OnTimer) wxEND_EVENT_TABLE() // コンストラクタ @@ -209,22 +265,13 @@ WXPlaneVRAMPanel::WXPlaneVRAMPanel(wxWin // Sizer 使わず自前でレイアウトする。 SetAutoLayout(true); - // 最小値は適当 - int vscr_width = vscroll->GetClientSize().x; - int hscr_height = hscroll->GetClientSize().y; - SetMinClientSize(wxSize(16 + vscr_width, 16 + hscr_height)); - SetMaxClientSize(wxSize(viewctl->virtual_width + vscr_width, - viewctl->virtual_height + hscr_height)); - // スクロールバーからの通知イベントは表示パネルへ回す vscroll->Connect(NONO_EVT_SCROLL, wxScrollEventHandler(WXPlaneVRAMBitmapPanel::OnScroll), NULL, viewctl); hscroll->Connect(NONO_EVT_SCROLL, wxScrollEventHandler(WXPlaneVRAMBitmapPanel::OnScroll), NULL, viewctl); - // 更新タイマーはモニターパネル同様の 30Hz にしておく。 - timer.SetOwner(this); - timer.Start(33); + DPRINTF("Panel.ctor end\n"); } // デストラクタ @@ -235,27 +282,80 @@ WXPlaneVRAMPanel::~WXPlaneVRAMPanel() bool WXPlaneVRAMPanel::Layout() { + DPRINTF("Panel.Layout\n"); if (inherited::Layout() == false) { return false; } - // コントロールを配置 const wxSize size = GetClientSize(); - int vscr_width = vscroll->GetClientSize().x; - int hscr_height = hscroll->GetClientSize().y; - int view_width = size.x - vscr_width; - int view_height = size.y - hscr_height; + DPRINTF("Panel.Layout inherited, client=(%d,%d)\n", size.x, size.y); + wxSize vscr = vscroll->GetClientSize(); + wxSize hscr = hscroll->GetClientSize(); + DPRINTF("Panel.Layout vscr=(%d,%d) hscr=(%d,%d)\n", + vscr.x, vscr.y, hscr.x, hscr.y); + // 主方向(スクロール方向) の最小サイズ + int vmin = vscroll->GetMinLength(); + int hmin = hscroll->GetMinLength(); + + // 最小サイズはスクロールバーの大きさで制約がかかる。 + // (VRAM パネルなので実際はもっと広くてもいいかも知れない) + SetMinClientSize(wxSize(hmin + vscr.x, vmin + hscr.y)); + SetMaxClientSize(wxSize(viewctl->virtual_width + vscr.x, + viewctl->virtual_height + hscr.y)); + +#if defined(WINDOW_DEBUG) + const wxSize& min = GetMinClientSize(); + const wxSize& max = GetMaxClientSize(); + const wxSize& cli = GetClientSize(); + printf("Panel.Layout min=(%d,%d) max=(%d,%d) client=(%d,%d)\n", + min.x, min.y, max.x, max.y, cli.x, cli.y); +#endif + + // コントロールを配置 + int view_width = size.x - vscr.x; + int view_height = size.y - hscr.y; + DPRINTF("Panel.Layout view=(%d,%d)\n", view_width, view_height); + // 最低でも 1px ないと GTK とかに怒られる + if (view_width < 1) { + view_width = 1; + } + if (view_height < 1) { + view_height = 1; + } + viewctl->SetSize(0, 0, view_width, view_height); - vscroll->SetSize(view_width, 0, vscr_width, view_height); - hscroll->SetSize(0, view_height, view_width, hscr_height); - corner->SetSize(view_width, view_height, vscr_width, hscr_height); + vscroll->SetSize(view_width, 0, vscr.x, view_height); + hscroll->SetSize(0, view_height, view_width, hscr.y); + corner->SetSize(view_width, view_height, vscr.x, hscr.y); // XXX 内部のコントロールのサイズが確定してからでないと DoSize() できない DoSize(size); + DPRINTF("Panel.Layout done\n"); return true; } +// フォントサイズ変更 +void +WXPlaneVRAMPanel::FontChanged() +{ + // このパネル自体はフォントを出力しないが + // フォントサイズ変更に反応する必要があるため、用意している。 + + // 自身がフォントを使わないので呼ばなくてもいいが、お作法として。 + inherited::FontChanged(); + DPRINTF("Panel.FontChanged %d\n", font_height); + + // SubWindow はパネルの FontChanged() までは呼んでくれるけど、 + // パネルが子を持ってるケースは自力で伝搬させるとかする必要がある。 + hscroll->FontChanged(); + vscroll->FontChanged(); + + // レイアウト変更も手動で指示。 + Layout(); + DPRINTF("Panel.FontChanged end\n"); +} + // サイズ変更イベント void WXPlaneVRAMPanel::OnSize(wxSizeEvent& event) @@ -263,6 +363,7 @@ WXPlaneVRAMPanel::OnSize(wxSizeEvent& ev // Mac ではウィンドウ作成時に 0 以下の値が来ることがある。 // GTK では 1 で来ることがある。 wxSize size = event.GetSize(); + DPRINTF("Panel.OnSize (%d,%d)\n", size.x, size.y); if (size.x <= 1 || size.y <= 1) { return; } @@ -280,6 +381,7 @@ void WXPlaneVRAMPanel::DoSize(wxSize size) { wxSize viewsize = viewctl->GetClientSize(); + DPRINTF("Panel.DoSize: view=(%d,%d)\n", viewsize.x, viewsize.y); int virtual_width = viewctl->virtual_width; int virtual_height = viewctl->virtual_height; Rect& view = viewctl->view; @@ -327,13 +429,6 @@ WXPlaneVRAMPanel::DoSize(wxSize size) vscroll->SetScrollParam(vpos, vthumbsize, vrange, vpagesize); } -// タイマーイベント -void -WXPlaneVRAMPanel::OnTimer(wxTimerEvent& event) -{ - Refresh(); -} - // プレーン選択変更 void WXPlaneVRAMPanel::EnablePlane(int plane, bool value) @@ -367,12 +462,21 @@ WXPlaneVRAMPanel::SetScale(int scale_) // プレーン VRAM ウィンドウ // +// ↓+-----------------------------+ +// | wx コントロール用パネル | +// +-----------------------------+ +// | WXTextScreen *statuspanel | ← 情報欄 +// +-----------------------------+ +// | WXPlaneVRAMPanel *viewpanel | ← ビットマップ (スクロールバー込み) +// +-----------------------------+ + // イベントテーブル wxBEGIN_EVENT_TABLE(WXPlaneVRAMWindow, inherited) EVT_COMMAND_RANGE(ID_PLANE0, ID_PLANE7, wxEVT_CHECKBOX, WXPlaneVRAMWindow::OnPlane) EVT_CHECKBOX(ID_PALETTE, WXPlaneVRAMWindow::OnApplyPalette) EVT_CHOICE(ID_SCALE, WXPlaneVRAMWindow::OnScale) + EVT_TIMER(wxID_ANY, WXPlaneVRAMWindow::OnTimer) wxEND_EVENT_TABLE() // コンストラクタ @@ -380,28 +484,48 @@ WXPlaneVRAMWindow::WXPlaneVRAMWindow(wxW : inherited(parent, wxID_ANY, name, inherited::DEFAULT_STYLE | wxRESIZE_BORDER) { + // デバイスを取得 + planevram = GetPlaneVRAMDevice(); + + int nplane = planevram->GetPlaneCount(); + auto *topsizer = new wxBoxSizer(wxVERTICAL); // 上にコントロールパネル(のまず下敷き) - ctrlpanel = new WXBitmapPanel(this); + ctrlpanel = new wxPanel(this); topsizer->Add(ctrlpanel, 0, wxEXPAND); // コントロールパネル用の横 Sizer auto *ctrlbox = new wxBoxSizer(wxHORIZONTAL); - // プレーン選択チェックボックス (#3, #2, #1, #0 の順に並べる) - for (int i = planesw.size() - 1; i >= 0; i--) { - planesw[i] = new wxCheckBox(ctrlpanel, ID_PLANE(i), - string_format("#%d", i)); - ctrlbox->Add(planesw[i], 0, wxALIGN_CENTER); + // プレーン選択チェックボックス + auto *csbox = new wxStaticBoxSizer(wxHORIZONTAL, ctrlpanel, + _("Planes to display")); + // GTK3 標準のレンダリングだとコントロールの周りの空きがなさすぎて + // 特にスタティックボックスは読みづらいので自力で少し空ける。どうして…。 + ctrlbox->Add(csbox, 0, wxALIGN_CENTER | wxALL, 3); + // X68030 なら 4プレーン。 + // LUNA で 1bpp なら 4プレーン (上位3つは Disabled)、 + // LUNA で 4bpp なら 4プレーン、 + // LUNA で 8bpp なら 8プレーン。 + int nplane4 = (nplane == 1) ? 4 : nplane; + for (int i = 0; i < nplane4; i++) { + auto *ctrl = new wxCheckBox(ctrlpanel, ID_PLANE(i), + string_format("%d", i)); + planesw.push_back(ctrl); + } + // 降順に並べる + for (int i = nplane4 - 1; i >= 0; i--) { + csbox->Add(planesw[i]); } // パレット合成チェックボックス applysw = new wxCheckBox(ctrlpanel, ID_PALETTE, _("Apply palette")); - ctrlbox->Add(applysw, 0, wxALIGN_CENTER); + ctrlbox->Add(applysw, 0, wxALIGN_CENTER | wxALL, 3); // セパレータを出したいのだが… - ctrlbox->Add(new wxStaticText(ctrlpanel, wxID_ANY, "|"), 0, wxALIGN_CENTER); + ctrlbox->Add(new wxStaticText(ctrlpanel, wxID_ANY, "|"), 0, + wxALIGN_CENTER | wxALL, 3); // 倍率 wxString scale_choice[] = { @@ -412,25 +536,26 @@ WXPlaneVRAMWindow::WXPlaneVRAMWindow(wxW scalesw = new wxChoice(ctrlpanel, ID_SCALE, wxDefaultPosition, wxDefaultSize, countof(scale_choice), scale_choice); - ctrlbox->Add(scalesw, 0, wxALIGN_CENTER); + ctrlbox->Add(scalesw, 0, wxALIGN_CENTER | wxALL, 3); // sizer と下敷きパネルを紐付ける ctrlpanel->SetSizer(ctrlbox); ctrlbox->SetSizeHints(ctrlpanel); + // 情報パネルは大きさを固定 + statuspanel = new WXTextScreen(this, nnSize(60, nplane)); + statuspanel->SetMinClientSize(statuspanel->GetDesiredSize()); + topsizer->Add(statuspanel, 0, wxEXPAND); + viewpanel = new WXPlaneVRAMPanel(this); topsizer->Add(viewpanel, 1, wxEXPAND); SetSizer(topsizer); - // 最小サイズは上コントロール部の横幅が最小基準 - wxSize minsize = ctrlpanel->GetMinClientSize(); - minsize.y += viewpanel->GetMinClientSize().y; - SetMinClientSize(minsize); - // 最大サイズは DoScale() 内で設定している + FontChanged(); - // 1bpp ならプレーン選択はすべて無効、4bpp ならすべて有効。 - if (gPlaneVRAM->GetPlaneCount() == 1) { + // 1bpp ならプレーン選択はすべて無効、それ以外はすべて有効。 + if (nplane == 1) { for (int i = 0; i < planesw.size(); i++) { planesw[i]->Enable(false); } @@ -445,7 +570,7 @@ WXPlaneVRAMWindow::WXPlaneVRAMWindow(wxW applysw->SetValue(sticky_apply); scalesw->SetSelection(sticky_scale); } else { - if (gPlaneVRAM->GetPlaneCount() == 1) { + if (nplane == 1) { // 初回 1bpp なら #0 プレーンのみオン。 for (int i = 0; i < planesw.size(); i++) { planesw[i]->SetValue((i == 0)); @@ -468,6 +593,12 @@ WXPlaneVRAMWindow::WXPlaneVRAMWindow(wxW } DoApplyPalette(applysw->IsChecked()); DoScale(scalesw->GetSelection()); + + // 更新タイマーはモニターパネル同様の 30Hz にしておく。 + timer.SetOwner(this); + timer.Start(33); + + DPRINTF("Window.ctor end\n"); } // デストラクタ @@ -478,10 +609,30 @@ WXPlaneVRAMWindow::~WXPlaneVRAMWindow() void WXPlaneVRAMWindow::FontChanged() { - // 親 (wxSubWindow) の FontChanged() を実行しないようにするための - // 空のオーバーライド。親の FontChanged() が呼ぶ DoSize() が - // ウィンドウサイズを変更しようとするが、ここはテキストフォントを - // 持っていないのでその操作は不要。うーん。 + DPRINTF("Window.FontChanged\n"); + inherited::FontChanged(); + DPRINTF("Window.FontChanged inherited\n"); + + // 子コントロールのサイズが変わったのでウィンドウサイズを再計算。 + // 最小サイズは上コントロール部と情報パネルの横幅のうち大きい方が基準。 + wxSize minsize = ctrlpanel->GetMinClientSize(); + const wxSize& statsize = statuspanel->GetDesiredSize(); + const wxSize& statmin __unused = statuspanel->GetMinClientSize(); + const wxSize& viewmin __unused = viewpanel->GetMinClientSize(); + DPRINTF("Window.FontChanged ctrl.min=(%d,%d)\n", minsize.x, minsize.y); + DPRINTF("Window.FontChanged stat.min=(%d,%d) des=(%d,%d)\n", + statmin.x, statmin.y, statsize.x, statsize.y); + DPRINTF("Window.FontChanged view.min=(%d,%d)\n", viewmin.x, viewmin.y); + + minsize.x = std::max(minsize.x, statsize.x); + minsize.y += statsize.y; + minsize.y += viewmin.y; + DPRINTF("Window.FontChanged SetMin=(%d,%d)\n", minsize.x, minsize.y); + SetMinClientSize(minsize); + SetClientSize(minsize); + Layout(); + + DPRINTF("Window.FontChanged end\n"); } // プレーン選択のチェックボックスイベント @@ -545,14 +696,30 @@ WXPlaneVRAMWindow::DoScale(int scale_ind // 最大サイズは表示部の最大サイズから wxSize maxsize = viewpanel->GetMaxClientSize(); maxsize.y += ctrlpanel->GetMinClientSize().y; + maxsize.y += statuspanel->GetMinClientSize().y; SetMaxClientSize(maxsize); // 保存しておくのはインデックスのほう sticky_scale = scale_index; } +// タイマーイベント +void +WXPlaneVRAMWindow::OnTimer(wxTimerEvent& event) +{ + viewpanel->Refresh(); + + // この位置の情報で screen を更新 + TextScreen& screen = statuspanel->GetScreen(); + const wxPoint& cursor = viewpanel->GetCursor(); + + // UpdateInfo() は cursor.x が範囲外の時の描画も行っている。 + planevram->UpdateInfo(screen, cursor.x, cursor.y); + statuspanel->Refresh(); +} + // static 変数 -std::array WXPlaneVRAMWindow::sticky_plane; +std::array WXPlaneVRAMWindow::sticky_plane; bool WXPlaneVRAMWindow::sticky_apply; int WXPlaneVRAMWindow::sticky_scale; bool WXPlaneVRAMWindow::sticky_used;