[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 | |
---|
| 6 | use Wx; |
---|
| 7 | use Wx::Calendar; |
---|
| 8 | use Wx::DateTime; |
---|
| 9 | use Wx::Grid; |
---|
| 10 | use strict; |
---|
| 11 | |
---|
| 12 | # Custom source |
---|
| 13 | use Uploader::GUI::wxChoiceFilteredPanel; |
---|
| 14 | |
---|
| 15 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
---|
| 16 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
---|
| 17 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW ); |
---|
| 18 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
---|
[4477] | 19 | use Wx qw( wxTE_MULTILINE wxDP_DROPDOWN ); |
---|
[4475] | 20 | |
---|
| 21 | # Bitmap functions |
---|
| 22 | |
---|
| 23 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
---|
| 24 | |
---|
| 25 | # Window functions |
---|
| 26 | |
---|
| 27 | use vars qw($CAPTION); $CAPTION = 10000; |
---|
| 28 | use vars qw($PHOTO_PROPERTIES_CAPTION); $PHOTO_PROPERTIES_CAPTION = 10001; |
---|
[4476] | 29 | use vars qw($AUTHOR); $AUTHOR = 10002; |
---|
| 30 | use vars qw($PHOTO_PROPERTIES_AUTHOR); $PHOTO_PROPERTIES_AUTHOR = 10003; |
---|
| 31 | use vars qw($COMMENT); $COMMENT = 10004; |
---|
| 32 | use vars qw($PHOTO_PROPERTIES_COMMENT); $PHOTO_PROPERTIES_COMMENT = 10005; |
---|
[4475] | 33 | use vars qw($CREATE_DATE); $CREATE_DATE = 10006; |
---|
| 34 | use vars qw($PHOTO_PROPERTIES_CREATE_DATE); $PHOTO_PROPERTIES_CREATE_DATE = 10007; |
---|
| 35 | use vars qw($TAGS); $TAGS = 10008; |
---|
| 36 | use vars qw($PHOTO_PROPERTIES_TAG); $PHOTO_PROPERTIES_TAG = 10009; |
---|
[4476] | 37 | use vars qw($PRIVACY_LEVEL); $PRIVACY_LEVEL = 10010; |
---|
| 38 | use vars qw($PHOTO_PROPERTIES_PRIVACY_LEVEL); $PHOTO_PROPERTIES_PRIVACY_LEVEL = 10011; |
---|
[4475] | 39 | |
---|
| 40 | sub 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; |
---|
| 81 | my( $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 | |
---|
| 120 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
---|
| 121 | |
---|
| 122 | |
---|
| 123 | # End of generated file |
---|