1 | use Wx; |
---|
2 | use strict; |
---|
3 | |
---|
4 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
---|
5 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
---|
6 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW ); |
---|
7 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
---|
8 | use Wx qw( wxLC_REPORT wxSUNKEN_BORDER ); |
---|
9 | |
---|
10 | # Bitmap functions |
---|
11 | |
---|
12 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
---|
13 | |
---|
14 | # Window functions |
---|
15 | |
---|
16 | use vars qw($IMG_PROP_EXIF_LIST); $IMG_PROP_EXIF_LIST = 10000; |
---|
17 | use vars qw($IMG_PROP_EXIF_CLOSE); $IMG_PROP_EXIF_CLOSE = 10001; |
---|
18 | |
---|
19 | sub 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 | |
---|
38 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
---|