source: extensions/pLoader/trunk/src/Uploader/GUI/Layout/PhotoPropertiesExif.pm @ 5403

Last change on this file since 5403 was 4974, checked in by ronosman, 14 years ago

Feature 1462 added : remove runtime dialog box external dependancies.

File size: 1.3 KB
Line 
1use Wx;
2use strict;
3
4use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK );
5use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP );
6use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW );
7use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
8use Wx qw( wxLC_REPORT wxSUNKEN_BORDER );
9
10# Bitmap functions
11
12use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
13
14# Window functions
15
16use vars qw($IMG_PROP_EXIF_LIST); $IMG_PROP_EXIF_LIST = 10000;
17use vars qw($IMG_PROP_EXIF_CLOSE); $IMG_PROP_EXIF_CLOSE = 10001;
18
19sub image_prop_exif {
20    my( $parent ) = $_[0];
21    my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL );
22   
23    my( $item1 ) = Wx::ListCtrl->new( $parent, $main::IMG_PROP_EXIF_LIST, wxDefaultPosition, [400,200], wxLC_REPORT|wxSUNKEN_BORDER );
24    $item0->AddWindow( $item1, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
25
26    my( $item2 ) = Wx::Button->new( $parent, $main::IMG_PROP_EXIF_CLOSE, "OK", wxDefaultPosition, wxDefaultSize, 0 );
27    $item0->AddWindow( $item2, 0, wxALIGN_CENTER|wxALL, 5 );
28
29    $_[0]->SetSizer( $item0 );
30    $item0->SetSizeHints( $_[0] );
31   
32    $item0;
33}
34
35
36# Toolbar functions
37
38use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK );
Note: See TracBrowser for help on using the repository browser.