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