# VBForm version file=1.2 builder=0.2 # [preload] Prima::ComboBox sub { return ( 'Label1' => { class => 'Prima::Label', module => 'Prima::Label', siblings => [qw(focusLink)], profile => { owner => 'Form1', text => 'Text field', focusLink => 'TextSelector', origin => [ 10, 174], name => 'Label1', size => [ 230, 30], }}, 'Form1' => { class => 'Prima::Window', module => 'Prima::Classes', parent => 1, code => Prima::VB::VBLoader::GO_SUB(''), profile => { left => 395, width => 497, origin => [ 395, 385], name => 'Form1', bottom => 385, height => 213, size => [ 497, 213], sizeDontCare => 0, text => 'TIFF filter', originDontCare => 0, centered => 1, }}, 'TextSelector' => { class => 'Prima::ComboBox', module => 'Prima::ComboBox', profile => { owner => 'Form1', text => '', style => cs::DropDownList, origin => [ 10, 141], name => 'TextSelector', onChange => Prima::VB::VBLoader::GO_SUB('my $self = $_[0]; my $old = $self-> {OLDFOCUSEDITEM}; $old = $self-> List-> get_items(0) unless defined $old; my $new = $self-> text; my $o = $self-> owner; if ( $new ne $old) { $self-> {OLDFOCUSEDITEM} = $new; $o-> {TextFields}-> {$old} = $o-> TextField-> text; $new = $o-> {TextFields}-> {$new}; $new = \'\' unless defined $new; $o-> TextField-> text( $new); } ','TextSelector', 'onChange'), items => ['Artist', 'Copyright', 'DateTime', 'DocumentName', 'HostComputer', 'ImageDescription', 'Make', 'Model', 'PageName', 'Software', ], size => [ 230, 30], }}, 'TextField' => { class => 'Prima::Edit', module => 'Prima::Edit', profile => { owner => 'Form1', onMouseClick => Prima::VB::VBLoader::GO_SUB('my ($self, $btn, $mod, $x, $y, $dblclk) = @_; ','TextField', 'onMouseClick'), text => '', origin => [ 10, 10], name => 'TextField', size => [ 230, 119], }}, 'Label2' => { class => 'Prima::Label', module => 'Prima::Label', siblings => [qw(focusLink)], profile => { owner => 'Form1', focusLink => 'Compression', text => '~Compression', origin => [ 255, 174], name => 'Label2', size => [ 230, 30], }}, 'Compression' => { class => 'Prima::ComboBox', module => 'Prima::ComboBox', profile => { owner => 'Form1', text => '', style => cs::DropDownList, origin => [ 255, 141], name => 'Compression', size => [ 230, 30], }}, 'Label3' => { class => 'Prima::Label', module => 'Prima::Label', siblings => [qw(focusLink)], profile => { owner => 'Form1', focusLink => 'XResolution', text => '~Resolution', origin => [ 255, 96], name => 'Label3', size => [ 230, 30], }}, 'XResolution' => { class => 'Prima::SpinEdit', module => 'Prima::Sliders', profile => { owner => 'Form1', min => 10, value => 1200, max => 100000, origin => [ 254, 62], name => 'XResolution', size => [ 68, 22], step => 100, }}, 'YResolution' => { class => 'Prima::SpinEdit', module => 'Prima::Sliders', profile => { owner => 'Form1', min => 10, value => 1200, max => 100000, origin => [ 335, 62], name => 'YResolution', size => [ 68, 22], step => 100, }}, 'ResolutionUnit' => { class => 'Prima::ComboBox', module => 'Prima::ComboBox', profile => { owner => 'Form1', origin => [ 411, 62], style => cs::DropDownList, name => 'ResolutionUnit', items => ['inch', 'centimeter', 'none', ], size => [ 74, 22], }}, 'OK' => { class => 'Prima::Button', module => 'Prima::Buttons', profile => { owner => 'Form1', modalResult => '1', text => '~OK', origin => [ 279, 10], name => 'OK', default => 1, size => [ 96, 36], }}, 'Cancel' => { class => 'Prima::Button', module => 'Prima::Buttons', profile => { owner => 'Form1', modalResult => '4', text => 'Cancel', origin => [ 389, 10], name => 'Cancel', size => [ 96, 36], }}, ); }