[4974] | 1 | use Wx qw/wxFONTFAMILY_SWISS wxFONTSTYLE_NORMAL wxFONTWEIGHT_NORMAL wxFONTWEIGHT_BOLD wxGREEN /; |
---|
| 2 | use Wx::Calendar; |
---|
| 3 | use Wx::DateTime; |
---|
| 4 | use strict; |
---|
| 5 | |
---|
| 6 | # Custom source |
---|
| 7 | use Uploader::GUI::wxChoiceFilteredPanel; |
---|
| 8 | |
---|
| 9 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
---|
| 10 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
---|
| 11 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW wxEXPAND); |
---|
| 12 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
---|
| 13 | use Wx qw( wxTR_HAS_BUTTONS wxTR_LINES_AT_ROOT wxSUNKEN_BORDER wxLI_HORIZONTAL wxTE_MULTILINE ); |
---|
| 14 | use Wx qw( wxDP_DROPDOWN ); |
---|
| 15 | |
---|
| 16 | # Bitmap functions |
---|
| 17 | |
---|
| 18 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
---|
| 19 | |
---|
| 20 | # Window functions |
---|
| 21 | |
---|
| 22 | use vars qw($PHOTO_PROPERTIES_NB); $PHOTO_PROPERTIES_NB = 10000; |
---|
| 23 | use vars qw($PHOTO_PROPERTIES_CATEGORIES); $PHOTO_PROPERTIES_CATEGORIES = 10001; |
---|
| 24 | use vars qw($ID_LINE); $ID_LINE = 10002; |
---|
| 25 | use vars qw($PHOTO_PROPERTIES_UPLOAD); $PHOTO_PROPERTIES_UPLOAD = 10003; |
---|
| 26 | |
---|
| 27 | sub PhotoPropertiesCategoriesTags { |
---|
| 28 | my( $parent ) = @_; |
---|
| 29 | my( $topsizer ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
[5103] | 30 | |
---|
| 31 | $parent->{_multi_selection_mode_panel} = Wx::Panel->new( |
---|
| 32 | $parent, |
---|
| 33 | -1, |
---|
| 34 | wxDefaultPosition, |
---|
| 35 | [450, -1] |
---|
| 36 | ); |
---|
| 37 | |
---|
| 38 | _multi_selection_mode_panel_layout( |
---|
| 39 | $parent->{_multi_selection_mode_panel} |
---|
| 40 | ); |
---|
| 41 | |
---|
| 42 | $parent->{_multi_selection_mode_panel}->Show(0); |
---|
| 43 | |
---|
| 44 | $topsizer->Add( |
---|
| 45 | $parent->{_multi_selection_mode_panel}, |
---|
| 46 | 0, |
---|
| 47 | wxEXPAND|wxLEFT|wxRIGHT, |
---|
| 48 | 5 |
---|
| 49 | ); |
---|
| 50 | |
---|
| 51 | |
---|
[4974] | 52 | # defines minimum size |
---|
| 53 | my( $item2 ) = Wx::Notebook->new( $parent, $main::PHOTO_PROPERTIES_NB, wxDefaultPosition, [450,160], 0 ); |
---|
| 54 | my( $item1 ) = $item2; |
---|
| 55 | if( Wx->VERSION < 0.21 ) { |
---|
| 56 | $item1 = Wx::NotebookSizer->new( $item2 ); |
---|
| 57 | } |
---|
[5120] | 58 | $parent->{_properties_notebook} = $item2; |
---|
[4974] | 59 | |
---|
| 60 | # the notebook has adaptive size : stretch factor 2, wxEXPAND |
---|
[5103] | 61 | $topsizer->Add( $item1, 2, wxEXPAND|wxALL, 5 ); |
---|
[4974] | 62 | |
---|
| 63 | my( $item3 ) = Wx::TreeCtrl->new( $parent, $main::PHOTO_PROPERTIES_CATEGORIES, wxDefaultPosition, [450,160], wxTR_HAS_BUTTONS|wxTR_LINES_AT_ROOT ); |
---|
| 64 | # the notebook has adaptive size : stretch factor 1, wxEXPAND |
---|
[5103] | 65 | $topsizer->AddWindow( $item3, 1, wxEXPAND|wxALL, 5 ); |
---|
[4974] | 66 | |
---|
| 67 | my( $item4 ) = Wx::StaticLine->new( $parent, $main::ID_LINE, wxDefaultPosition, [20,-1], wxLI_HORIZONTAL ); |
---|
[5103] | 68 | $topsizer->AddWindow( $item4, 0, wxEXPAND|wxALL, 5 ); |
---|
[4974] | 69 | |
---|
| 70 | my( $item5 ) = Wx::Button->new( $parent, $main::PHOTO_PROPERTIES_UPLOAD, "", wxDefaultPosition, [-1,40], 0 ); |
---|
| 71 | my $btfont = Wx::Font->new(16, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD ); |
---|
| 72 | $item5->SetFont($btfont); |
---|
| 73 | # $item5->SetForegroundColour( Wx::wxGREEN ); |
---|
| 74 | $item5->SetForegroundColour( Wx::Colour->new(255, 51, 99) ); |
---|
[5103] | 75 | $topsizer->AddWindow( $item5, 0, wxEXPAND|wxALL, 5 ); |
---|
[4974] | 76 | |
---|
| 77 | $parent->SetSizer( $topsizer ); |
---|
| 78 | $topsizer->SetSizeHints( $parent ); |
---|
| 79 | |
---|
| 80 | $topsizer; |
---|
| 81 | } |
---|
| 82 | use vars qw($TAGS); $TAGS = 10004; |
---|
| 83 | use vars qw($PHOTO_PROPERTIES_TAG); $PHOTO_PROPERTIES_TAG = 10005; |
---|
| 84 | |
---|
| 85 | sub photo_properties_tags { |
---|
| 86 | my( $parent, $tags ) = @_; |
---|
| 87 | my( $topsizer ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
| 88 | |
---|
| 89 | my( $item1 ) = Wx::StaticText->new( $parent, $main::TAGS, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
| 90 | $topsizer->AddWindow( $item1, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 ); |
---|
| 91 | |
---|
| 92 | $tags->{parentwnd}=$parent; |
---|
| 93 | my( $panel ) = Uploader::GUI::wxChoiceFilteredPanel->new($tags); |
---|
| 94 | # the panel has adaptive size : stretch factor 1, wxEXPAND |
---|
| 95 | $topsizer->AddWindow( $panel, 1, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
| 96 | |
---|
| 97 | $parent->SetSizer( $topsizer ); |
---|
| 98 | $topsizer->SetSizeHints( $parent ); |
---|
| 99 | |
---|
| 100 | $topsizer; |
---|
| 101 | } |
---|
| 102 | |
---|
| 103 | use vars qw($CAPTION); $CAPTION = 10006; |
---|
| 104 | use vars qw($PHOTO_PROPERTIES_CAPTION); $PHOTO_PROPERTIES_CAPTION = 10007; |
---|
| 105 | use vars qw($AUTHOR); $AUTHOR = 10008; |
---|
| 106 | use vars qw($PHOTO_PROPERTIES_AUTHOR); $PHOTO_PROPERTIES_AUTHOR = 10009; |
---|
| 107 | use vars qw($COMMENT); $COMMENT = 10010; |
---|
| 108 | use vars qw($PHOTO_PROPERTIES_COMMENT); $PHOTO_PROPERTIES_COMMENT = 10011; |
---|
| 109 | use vars qw($CREATE_DATE); $CREATE_DATE = 10012; |
---|
| 110 | use vars qw($PHOTO_PROPERTIES_CREATE_DATE); $PHOTO_PROPERTIES_CREATE_DATE = 10013; |
---|
| 111 | use vars qw($PRIVACY_LEVEL); $PRIVACY_LEVEL = 10014; |
---|
| 112 | use vars qw($PHOTO_PROPERTIES_PRIVACY_LEVEL); $PHOTO_PROPERTIES_PRIVACY_LEVEL = 10015; |
---|
| 113 | |
---|
| 114 | sub photo_properties_caption_comments { |
---|
| 115 | my( $parent ) = @_; |
---|
[5103] | 116 | |
---|
| 117 | my $topsizer = Wx::BoxSizer->new( wxVERTICAL ); |
---|
| 118 | |
---|
| 119 | $topsizer->Add( |
---|
| 120 | TextField( |
---|
| 121 | $parent, |
---|
| 122 | $main::CAPTION, |
---|
| 123 | $main::PHOTO_PROPERTIES_CAPTION |
---|
| 124 | ), |
---|
| 125 | 0, |
---|
| 126 | wxEXPAND|wxALL, |
---|
| 127 | 2 |
---|
| 128 | ); |
---|
| 129 | |
---|
| 130 | $topsizer->Add( |
---|
| 131 | TextField( |
---|
| 132 | $parent, |
---|
| 133 | $main::COMMENT, |
---|
| 134 | $main::PHOTO_PROPERTIES_COMMENT, |
---|
| 135 | 1 |
---|
| 136 | ), |
---|
| 137 | 1, |
---|
| 138 | wxEXPAND|wxALL, |
---|
| 139 | 2 |
---|
| 140 | ); |
---|
| 141 | |
---|
| 142 | my $sizer_author_create = Wx::BoxSizer->new( wxVERTICAL ); |
---|
| 143 | $sizer_author_create->Add( |
---|
| 144 | TextField( |
---|
| 145 | $parent, |
---|
| 146 | $main::AUTHOR, |
---|
| 147 | $main::PHOTO_PROPERTIES_AUTHOR |
---|
| 148 | ), |
---|
| 149 | 1, |
---|
| 150 | wxEXPAND|wxALL, |
---|
| 151 | 2 |
---|
| 152 | ); |
---|
| 153 | |
---|
| 154 | $sizer_author_create->Add( |
---|
| 155 | DatepickerField( |
---|
| 156 | $parent, |
---|
| 157 | $main::CREATE_DATE, |
---|
| 158 | $main::PHOTO_PROPERTIES_CREATE_DATE |
---|
| 159 | ), |
---|
| 160 | 1, |
---|
| 161 | wxEXPAND|wxALL, |
---|
| 162 | 2 |
---|
| 163 | ); |
---|
| 164 | |
---|
| 165 | my $sizer_author_create_privacy = Wx::BoxSizer->new( wxHORIZONTAL ); |
---|
| 166 | |
---|
| 167 | $sizer_author_create_privacy->Add($sizer_author_create, 0, wxEXPAND|wxALL, 0); |
---|
| 168 | |
---|
| 169 | $sizer_author_create_privacy->Add( |
---|
| 170 | ChoiceField( |
---|
| 171 | $parent, |
---|
| 172 | $main::PRIVACY_LEVEL, |
---|
| 173 | $main::PHOTO_PROPERTIES_PRIVACY_LEVEL, |
---|
| 174 | 1 |
---|
| 175 | ), |
---|
| 176 | 1, |
---|
| 177 | wxEXPAND|wxALL, |
---|
| 178 | 2 |
---|
| 179 | ); |
---|
| 180 | |
---|
| 181 | $topsizer->Add( $sizer_author_create_privacy, 0, wxEXPAND|wxALL, 2 ); |
---|
| 182 | |
---|
| 183 | $parent->SetSizer( $topsizer ); |
---|
| 184 | $topsizer->SetSizeHints( $parent ); |
---|
[4974] | 185 | |
---|
[5103] | 186 | $topsizer; |
---|
| 187 | } |
---|
| 188 | |
---|
| 189 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
---|
| 190 | |
---|
| 191 | |
---|
| 192 | sub TextField { |
---|
| 193 | my ( $parent, $id_label, $id_textctrl, $expand ) = @_; |
---|
| 194 | |
---|
| 195 | $expand ||=0; |
---|
| 196 | |
---|
| 197 | my( $sizer ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
[4974] | 198 | |
---|
[5103] | 199 | $sizer->Add( |
---|
| 200 | Wx::StaticText->new( |
---|
| 201 | $parent, |
---|
| 202 | $id_label, |
---|
| 203 | "text", |
---|
| 204 | wxDefaultPosition, |
---|
| 205 | wxDefaultSize, |
---|
| 206 | 0 |
---|
| 207 | ), |
---|
| 208 | 0, |
---|
| 209 | wxALL, |
---|
| 210 | 1 |
---|
| 211 | ); |
---|
[4974] | 212 | |
---|
[5103] | 213 | $sizer->Add( |
---|
| 214 | Wx::TextCtrl->new( |
---|
| 215 | $parent, |
---|
| 216 | $id_textctrl, |
---|
| 217 | "", |
---|
| 218 | wxDefaultPosition, |
---|
| 219 | [-1,-1], |
---|
| 220 | 0 |
---|
| 221 | ), |
---|
| 222 | $expand, |
---|
| 223 | wxEXPAND|wxALL, |
---|
| 224 | 1 |
---|
| 225 | ); |
---|
[4974] | 226 | |
---|
[5103] | 227 | $sizer; |
---|
| 228 | } |
---|
[4974] | 229 | |
---|
[5103] | 230 | sub DatepickerField { |
---|
| 231 | my ( $parent, $id_label, $id_ctrl, $expand ) = @_; |
---|
| 232 | |
---|
| 233 | $expand ||=0; |
---|
| 234 | |
---|
| 235 | my( $sizer ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
[4974] | 236 | |
---|
[5103] | 237 | $sizer->Add( |
---|
| 238 | Wx::StaticText->new( |
---|
| 239 | $parent, |
---|
| 240 | $id_label, |
---|
| 241 | "text", |
---|
| 242 | wxDefaultPosition, |
---|
| 243 | wxDefaultSize, |
---|
| 244 | 0 |
---|
| 245 | ), |
---|
| 246 | 0, |
---|
| 247 | wxALL, |
---|
| 248 | 1 |
---|
| 249 | ); |
---|
[4974] | 250 | |
---|
[5103] | 251 | $sizer->Add( |
---|
| 252 | Wx::DatePickerCtrl->new( |
---|
| 253 | $parent, |
---|
| 254 | $id_ctrl, |
---|
| 255 | Wx::DateTime->new(), |
---|
| 256 | wxDefaultPosition, |
---|
| 257 | [200,-1], |
---|
| 258 | wxDP_DROPDOWN |
---|
| 259 | ), |
---|
| 260 | $expand, |
---|
| 261 | wxEXPAND|wxALL, |
---|
| 262 | 1 |
---|
| 263 | ); |
---|
[4974] | 264 | |
---|
[5103] | 265 | $sizer; |
---|
| 266 | } |
---|
[4974] | 267 | |
---|
[5103] | 268 | sub ChoiceField { |
---|
| 269 | my ( $parent, $id_label, $id_ctrl, $expand ) = @_; |
---|
[4974] | 270 | |
---|
[5103] | 271 | $expand ||=0; |
---|
[4974] | 272 | |
---|
[5103] | 273 | my( $sizer ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
[4974] | 274 | |
---|
[5103] | 275 | $expand||=0; |
---|
[4974] | 276 | |
---|
[5103] | 277 | $sizer->Add( |
---|
| 278 | Wx::StaticText->new( |
---|
| 279 | $parent, |
---|
| 280 | $id_label, |
---|
| 281 | "text", |
---|
| 282 | wxDefaultPosition, |
---|
| 283 | wxDefaultSize, |
---|
| 284 | 0 |
---|
| 285 | ), |
---|
| 286 | 0, |
---|
| 287 | wxALL, |
---|
| 288 | 1 |
---|
| 289 | ); |
---|
[4974] | 290 | |
---|
[5103] | 291 | $sizer->Add( |
---|
| 292 | Wx::Choice->new( |
---|
| 293 | $parent, |
---|
| 294 | $id_ctrl, |
---|
| 295 | wxDefaultPosition, |
---|
| 296 | [-1,-1], |
---|
| 297 | [], |
---|
| 298 | 0 |
---|
| 299 | ), |
---|
| 300 | 1, |
---|
| 301 | wxEXPAND|wxALL, |
---|
| 302 | 1 |
---|
| 303 | ); |
---|
[4974] | 304 | |
---|
[5103] | 305 | $sizer; |
---|
| 306 | } |
---|
[4974] | 307 | |
---|
[5103] | 308 | sub _multi_selection_mode_panel_layout{ |
---|
| 309 | my ( $panel ) = @_; |
---|
| 310 | |
---|
| 311 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
| 312 | |
---|
| 313 | my $fb = Wx::Font->new( 10, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD ); |
---|
| 314 | my $fn = Wx::Font->new( 10, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL ); |
---|
| 315 | |
---|
| 316 | $panel->{_text1} = Wx::StaticText->new( $panel, -1, "Text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
| 317 | $panel->{_text1}->SetFont($fb); |
---|
| 318 | $item0->Add( $panel->{_text1}, 0, wxALIGN_LEFT|wxALL, 1 ); |
---|
| 319 | |
---|
[4974] | 320 | |
---|
[5103] | 321 | $panel->{_text2} = Wx::StaticText->new( $panel, -1, "Text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
| 322 | $panel->{_text2}->SetFont($fn); |
---|
| 323 | $item0->Add( $panel->{_text2}, 0, wxALIGN_LEFT|wxALL, 1 ); |
---|
[4974] | 324 | |
---|
[5103] | 325 | $panel->SetSizer( $item0 ); |
---|
| 326 | $item0->SetSizeHints( $panel ); |
---|
[4974] | 327 | |
---|
[5103] | 328 | } |
---|