Changeset 3461 for extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm
- Timestamp:
- Jun 26, 2009, 10:14:10 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm
r3458 r3461 361 361 362 362 use Uploader::GUI::wxImageListCtrl; 363 use Uploader::GUI::wxImagePreview;364 363 use Uploader::GUI::wxImageProcessingProgressDlg; 365 364 use Wx::Html; … … 387 386 ); 388 387 389 390 388 $self->perspective( 391 389 $params->{perspective} … … 865 863 866 864 $self->image_preview( 867 Uploader::GUI::wxImagePreview->new(865 Wx::HtmlWindow->new( 868 866 $self, 869 867 -1, 870 [400,300], 868 [-1,-1], 869 [-1,-1], 871 870 ) 872 871 ); … … 947 946 $self->manager->AddPane 948 947 ( $self->create_notebook_imagelist, Wx::AuiPaneInfo->new->Name( "ImageViewer" ) 949 ->CenterPane-> Position(1)->Resizable->CloseButton(0) );948 ->CenterPane->Resizable->CloseButton(0) ); 950 949 951 950 $self->manager->AddPane( … … 1002 1001 $self->manager->AddPane 1003 1002 ( $self->image_preview, Wx::AuiPaneInfo->new->Name( "image_preview" ) 1004 ->Floatable(1)-> Fixed->CloseButton(1));1003 ->Floatable(1)->Resizable->CloseButton(1)); 1005 1004 1006 1005 $self->manager->AddPane … … 1484 1483 $self->imageviewer->Refresh; 1485 1484 1486 $self->image_preview->Set Bitmap(1487 wxNullBitmap1485 $self->image_preview->SetPage( 1486 "<html></html>" 1488 1487 ) if !$self->imageviewer->GetItemCount; 1489 1488 … … 1684 1683 my ( $self ) = @_; 1685 1684 1686 $self->image_preview->SetBitmap( 1687 wxNullBitmap 1688 ); 1689 1690 $self->image_preview->Refresh; 1685 1686 my $html_src = sprintf(" 1687 <html> 1688 <body> 1689 <img src=\"%s\"/> 1690 </body> 1691 </html> 1692 ", 1693 $self->imagelist->current_image->preview_file, 1694 ); 1695 1696 $self->image_preview->SetPage( 1697 $html_src 1698 ); 1691 1699 1692 1700 my $bmp = Wx::Bitmap->new( … … 1695 1703 ); 1696 1704 1697 1698 $self->image_preview->SetBitmap( 1699 $bmp 1700 ); 1701 1702 my $size = [8+$bmp->GetWidth, 26+$bmp->GetHeight]; 1705 my $size = [40+$bmp->GetWidth, 60+$bmp->GetHeight]; 1706 1703 1707 $self->manager->GetPane("image_preview")->FloatingSize($size); 1704 1708 1705 $self->image_preview->Refresh;1706 1709 } 1707 1710
Note: See TracChangeset
for help on using the changeset viewer.