source: extras/pLoader/trunk/res/photo_exif_wdr.pl @ 2597

Last change on this file since 2597 was 2597, checked in by ronosman, 16 years ago

pLoader initial release

  • Property svn:eol-style set to LF
File size: 5.5 KB
Line 
1#-----------------------------------------------------------------------------
2# Perl source generated by wxDesigner from file: photo_exif.wdr
3# Do not modify this file, all changes will be lost!
4#-----------------------------------------------------------------------------
5
6use Wx;
7use strict;
8
9use Wx qw( wxDefaultSize wxDefaultPosition wxID_OK wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_EXIT wxID_ABOUT wxID_HELP );
10use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW wxADJUST_MINSIZE );
11use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
12
13
14# Bitmap functions
15
16use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
17
18# Window functions
19
20use vars qw($ID_TEXT); $ID_TEXT = 10000;
21use vars qw($ID_EXIF_CREATE_DATE); $ID_EXIF_CREATE_DATE = 10001;
22use vars qw($ID_EXIF_WIDTH); $ID_EXIF_WIDTH = 10002;
23use vars qw($ID_EXIF_HEIGHT); $ID_EXIF_HEIGHT = 10003;
24use vars qw($ID_EXIF_ORIENTATION); $ID_EXIF_ORIENTATION = 10004;
25use vars qw($ID_EXIF_ISO); $ID_EXIF_ISO = 10005;
26use vars qw($ID_EXIF_SHUTTER_SPEED); $ID_EXIF_SHUTTER_SPEED = 10006;
27use vars qw($ID_EXIF_APERTURE); $ID_EXIF_APERTURE = 10007;
28use vars qw($ID_EXIF_FOCAL_LENGTH); $ID_EXIF_FOCAL_LENGTH = 10008;
29use vars qw($ID_EXIF_MODEL); $ID_EXIF_MODEL = 10009;
30use vars qw($ID_EXIF_LENS); $ID_EXIF_LENS = 10010;
31
32sub PhotoExif {
33    my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL );
34   
35    my( $item1 ) = Wx::FlexGridSizer->new( 0, 2, 0, 0 );
36   
37    my( $item2 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Create date :", wxDefaultPosition, wxDefaultSize, 0 );
38    $item1->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
39
40    my( $item3 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_CREATE_DATE, "", wxDefaultPosition, [100,-1], 0 );
41    $item1->AddWindow( $item3, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
42
43    my( $item4 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Width :", wxDefaultPosition, wxDefaultSize, 0 );
44    $item1->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
45
46    my( $item5 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_WIDTH, "", wxDefaultPosition, [400,-1], 0 );
47    $item1->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
48
49    my( $item6 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Height :", wxDefaultPosition, wxDefaultSize, 0 );
50    $item1->AddWindow( $item6, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
51
52    my( $item7 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_HEIGHT, "", wxDefaultPosition, [400,-1], 0 );
53    $item1->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
54
55    my( $item8 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Orientation :", wxDefaultPosition, wxDefaultSize, 0 );
56    $item1->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
57
58    my( $item9 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_ORIENTATION, "", wxDefaultPosition, [400,-1], 0 );
59    $item1->AddWindow( $item9, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
60
61    my( $item10 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "ISO :", wxDefaultPosition, wxDefaultSize, 0 );
62    $item1->AddWindow( $item10, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
63
64    my( $item11 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_ISO, "", wxDefaultPosition, [400,-1], 0 );
65    $item1->AddWindow( $item11, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
66
67    my( $item12 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Shutter speed :", wxDefaultPosition, wxDefaultSize, 0 );
68    $item1->AddWindow( $item12, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
69
70    my( $item13 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_SHUTTER_SPEED, "", wxDefaultPosition, [400,-1], 0 );
71    $item1->AddWindow( $item13, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
72
73    my( $item14 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Aperture :", wxDefaultPosition, wxDefaultSize, 0 );
74    $item1->AddWindow( $item14, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
75
76    my( $item15 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_APERTURE, "", wxDefaultPosition, [400,-1], 0 );
77    $item1->AddWindow( $item15, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
78
79    my( $item16 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Focal length :", wxDefaultPosition, wxDefaultSize, 0 );
80    $item1->AddWindow( $item16, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
81
82    my( $item17 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_FOCAL_LENGTH, "", wxDefaultPosition, [400,-1], 0 );
83    $item1->AddWindow( $item17, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
84
85    my( $item18 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Model :", wxDefaultPosition, wxDefaultSize, 0 );
86    $item1->AddWindow( $item18, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
87
88    my( $item19 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_MODEL, "", wxDefaultPosition, [400,-1], 0 );
89    $item1->AddWindow( $item19, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
90
91    my( $item20 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Lens :", wxDefaultPosition, wxDefaultSize, 0 );
92    $item1->AddWindow( $item20, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
93
94    my( $item21 ) = Wx::StaticText->new( $_[0], $main::ID_EXIF_LENS, "", wxDefaultPosition, [400,-1], 0 );
95    $item1->AddWindow( $item21, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
96
97    $item0->Add( $item1, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
98
99    my( $set_size ) = @_ >= 3 ? $_[2] : 1;
100    my( $call_fit ) = @_ >= 2 ? $_[1] : 1;
101    if( $set_size == 1 ) {
102         $_[0]->SetSizer( $item0 );
103         
104         if( $call_fit == 1 ) {
105             $item0->SetSizeHints( $_[0] );
106         }
107    }
108   
109    $item0;
110}
111
112# Menu bar functions
113
114
115# Toolbar functions
116
117
118# End of generated file
Note: See TracBrowser for help on using the repository browser.