Question

我正在构建一个新闻阅读器应用程序，我有一个wxScrolledWindow，我在其中显示新闻。但是，我有类别，当点击一个类别时，我想用当前的类别新闻更新此面板。我在wxScrolledWindow上使用DeleteChildren实现了这一点，但这似乎不能正常工作。

问题是当新闻重新生成时闪烁，除非我拉伸整个窗口，否则滚动条也不会出现。此外，有时除非我这样做，手册调整新闻没有显示。我尝试刷新，但它仍然是相同的。这是我的代码：

our ($self);

sub new {
    my ($class, $parent_window) = @_;
    $self = $class->SUPER::new($parent_window, -1);
    $self->SetScrollRate(10, 10);

    my @news = (...);
    regenerate_news_list(@news);

    return $self;
}

sub regenerate_news_list($) {
    my (@news) = @_;

    $self->DestroyChildren();

    my $vbox = Wx::BoxSizer->new(wxVERTICAL);
    for my $news_item (@news) {

        my $news_panel = Wx::Panel->new($self, wxID_ANY);

        my $news_sizer = Wx::BoxSizer->new(wxVERTICAL);
        my $news_title = Wx::HyperlinkCtrl->new($news_panel, wxID_ANY, $news_item{'title'}, $news_item{'url'},  wxDefaultPosition, wxDefaultSize, wxBORDER_NONE);
        my $news_description = Wx::StaticText->new($news_panel, wxID_ANY, $news_item{'description'}, wxDefaultPosition);
        $news_description->Wrap(560);

        $news_sizer->AddSpacer(5);
        $news_sizer->Add($news_title, 0);
        $news_sizer->AddSpacer(5);
        $news_sizer->Add($news_description, 0);
        $news_sizer->AddSpacer(5);

        $vbox->Add($news_panel, 0, wxEXPAND|wxALL);
    }

    $self->SetSizer($vbox);
    $vbox->Fit($self);
    $self->Refresh();
}

Answer 1

在$self->Freeze()之前致电DestroyChildren()以在进行更新之前停止重绘，然后在完成后Thaw()之后致电Refresh()。它应该更快，不会有任何闪烁。

Answer 2

使用两个面板，一个面向用户显示，另一个面板用于准备新显示。新显示完成后，显示新面板并隐藏旧面板。交替。

如何在Wx中清除和刷新面板？

2 个答案: