source: extensions/pLoader/trunk/res/photo_properties_wdr.pl @ 4507

Last change on this file since 4507 was 4477, checked in by ronosman, 15 years ago

Feature 1321 added : display and modify photo create date with a date picker widget in photo properties panel.

File size: 5.1 KB
RevLine 
[4475]1#-----------------------------------------------------------------------------
2# Perl source generated by wxDesigner from file: photo_properties.wdr
3# Do not modify this file, all changes will be lost!
4#-----------------------------------------------------------------------------
5
6use Wx;
7use Wx::Calendar;
8use Wx::DateTime;
9use Wx::Grid;
10use strict;
11
12# Custom source
13use Uploader::GUI::wxChoiceFilteredPanel;
14
15use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK );
16use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP );
17use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW );
18use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
[4477]19use Wx qw( wxTE_MULTILINE wxDP_DROPDOWN );
[4475]20
21# Bitmap functions
22
23use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
24
25# Window functions
26
27use vars qw($CAPTION); $CAPTION = 10000;
28use vars qw($PHOTO_PROPERTIES_CAPTION); $PHOTO_PROPERTIES_CAPTION = 10001;
[4476]29use vars qw($AUTHOR); $AUTHOR = 10002;
30use vars qw($PHOTO_PROPERTIES_AUTHOR); $PHOTO_PROPERTIES_AUTHOR = 10003;
31use vars qw($COMMENT); $COMMENT = 10004;
32use vars qw($PHOTO_PROPERTIES_COMMENT); $PHOTO_PROPERTIES_COMMENT = 10005;
[4475]33use vars qw($CREATE_DATE); $CREATE_DATE = 10006;
34use vars qw($PHOTO_PROPERTIES_CREATE_DATE); $PHOTO_PROPERTIES_CREATE_DATE = 10007;
35use vars qw($TAGS); $TAGS = 10008;
36use vars qw($PHOTO_PROPERTIES_TAG); $PHOTO_PROPERTIES_TAG = 10009;
[4476]37use vars qw($PRIVACY_LEVEL); $PRIVACY_LEVEL = 10010;
38use vars qw($PHOTO_PROPERTIES_PRIVACY_LEVEL); $PHOTO_PROPERTIES_PRIVACY_LEVEL = 10011;
[4475]39
40sub PhotoProperties {
41    my( $parent ) = $_[0];
[4476]42    my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL );
[4475]43   
[4476]44    my( $item1 ) = Wx::BoxSizer->new( wxHORIZONTAL );
[4475]45   
46    my( $item2 ) = Wx::BoxSizer->new( wxVERTICAL );
47   
[4476]48    my( $item3 ) = Wx::StaticText->new( $parent, $main::CAPTION, "text", wxDefaultPosition, wxDefaultSize, 0 );
49    $item2->AddWindow( $item3, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]50
[4476]51    my( $item4 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CAPTION, "", wxDefaultPosition, [200,-1], 0 );
52    $item2->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL, 5 );
[4475]53
[4476]54    my( $item5 ) = Wx::StaticText->new( $parent, $main::AUTHOR, "text", wxDefaultPosition, wxDefaultSize, 0 );
55    $item2->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]56
[4476]57    my( $item6 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_AUTHOR, "", wxDefaultPosition, [200,-1], 0 );
58    $item2->AddWindow( $item6, 0, wxALIGN_CENTER, 5 );
59
[4475]60    my( $item7 ) = Wx::StaticText->new( $parent, $main::COMMENT, "text", wxDefaultPosition, wxDefaultSize, 0 );
[4476]61    $item2->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]62
63    my( $item8 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_COMMENT, "", wxDefaultPosition, [200,100], wxTE_MULTILINE );
[4476]64    $item2->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]65
[4476]66    my( $item9 ) = Wx::StaticText->new( $parent, $main::CREATE_DATE, "text", wxDefaultPosition, wxDefaultSize, 0 );
67    $item2->AddWindow( $item9, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]68
[4477]69    my( $item10 ) = Wx::DatePickerCtrl->new( $parent, $main::PHOTO_PROPERTIES_CREATE_DATE, Wx::DateTime->new(), wxDefaultPosition, [200,-1], wxDP_DROPDOWN );
[4476]70    $item2->AddWindow( $item10, 0, wxALIGN_CENTER_VERTICAL, 5 );
[4475]71
[4476]72    $item1->Add( $item2, 0, wxALIGN_CENTER_HORIZONTAL|wxALL, 5 );
[4475]73
[4476]74    my( $item11 ) = Wx::BoxSizer->new( wxVERTICAL );
[4475]75   
[4476]76    my( $item12 ) = Wx::StaticText->new( $parent, $main::TAGS, "text", wxDefaultPosition, wxDefaultSize, 0 );
77    $item11->AddWindow( $item12, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]78
[4476]79    my $tags = $_[1];
80$tags->{parentwnd}=$parent;
81my( $item13 ) = Uploader::GUI::wxChoiceFilteredPanel->new($tags);
82    $item11->AddWindow( $item13, 0, wxALIGN_CENTER_VERTICAL, 5 );
[4475]83
[4476]84    $item1->Add( $item11, 0, wxALIGN_CENTER_HORIZONTAL|wxALL, 0 );
[4475]85
[4476]86    $item0->Add( $item1, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
[4475]87
[4476]88    my( $item14 ) = Wx::BoxSizer->new( wxHORIZONTAL );
89   
[4475]90    my( $item15 ) = Wx::BoxSizer->new( wxVERTICAL );
91   
[4476]92    my( $item16 ) = Wx::StaticText->new( $parent, $main::PRIVACY_LEVEL, "text", wxDefaultPosition, wxDefaultSize, 0 );
93    $item15->AddWindow( $item16, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );
[4475]94
[4476]95    my( $item17 ) = Wx::Choice->new( $parent, $main::PHOTO_PROPERTIES_PRIVACY_LEVEL, wxDefaultPosition, [520,-1], [], 0 );
96    $item15->AddWindow( $item17, 0, wxALIGN_CENTER_VERTICAL, 5 );
[4475]97
[4476]98    $item14->Add( $item15, 0, wxALIGN_CENTER_HORIZONTAL, 5 );
[4475]99
[4476]100    $item0->Add( $item14, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
[4475]101
102    my( $set_size ) = @_ >= 3 ? $_[2] : 1;
103    my( $call_fit ) = @_ >= 2 ? $_[1] : 1;
104    if( $set_size == 1 ) {
105         $_[0]->SetSizer( $item0 );
106         
107         if( $call_fit == 1 ) {
108             $item0->SetSizeHints( $_[0] );
109         }
110    }
111   
112    $item0;
113}
114
115# Menu bar functions
116
117
118# Toolbar functions
119
120use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK );
121
122
123# End of generated file
Note: See TracBrowser for help on using the repository browser.