Something important I forgot to mention is the
textfields(other controls) must be child to a
dialog instead of a window as in:
use Win32::GUI;
# Hide the Dos Window
($DOShwnd, $DOShinstance) = GUI::GetPerlWindow();
GUI::Hide($DOShwnd);
# must define as DialogBox not Window or else tabs won't work
$W = new GUI::DialogBox (
-title => "Shipper Report",
-left => 100,
-top => 20,
-width => 375,
-height => 500,
-style => ws_sysmenu,
-name => "Window",
);
$BeginDate_l = $W->AddLabel(-name => "BeginDate_1",
-text => "BegDt (i.e. yyyymmdd)",
-left => 175,
-top => 325,
-height => 18,
-align => left,
-width => 125 );
$BeginDate = $W->AddTextfield(-name => "BeginDate",
-foreground => 0x8080FF,
-left => 70,
-top => 325,
-group => 1,
-tabstop => 1,
-height => 18,
-width => 75 );
$BeginDate->SendMessage(197, 8, 0); # limit user to 8 characters input
Regards,
Eric Hansen
-----Original Message-----
From: Eric Hansen [SMTP:[EMAIL PROTECTED]]
Sent: Monday, June 28, 1999 8:44 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Tab stop info
Include these 2 properties with your textfields:
-group => 1,
-tabstop => 1,
The order in which you list the textfields in the code
determines the order they are in the tab sequence.
That goes for all controls(i.e. If you have buttons or
other objects on the screen).
Regards,
Eric Hansen
-----Original Message-----
From: Paul Connell [SMTP:[EMAIL PROTECTED]]
Sent: Monday, June 28, 1999 4:00 AM
To: '[EMAIL PROTECTED]'
Subject: Tab stop info
How do you set up tab keying from one text field to another? How do you set the order?
BTW the info on field character limiting was great, thanks :-)
Paul Connell
begin 600 WINMAIL.DAT
M>)\^(@T-`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <`
M& ```$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$$
MD 8`X $```$````0`````P``, (````+``\.``````(!_P\!````50``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````'!E<FPM=VEN,S(M9W5I0&AT='!T96-H
M+F-O;0!33510`'!E<FPM=VEN,S(M9W5I0&AT='!T96-H+F-O;0`````>``(P
M`0````4```!33510`````!X``S !````' ```'!E<FPM=VEN,S(M9W5I0&AT
M='!T96-H+F-O;0`#`!4,`0````,`_@\&````'@`!, $````>````)W!E<FPM
M=VEN,S(M9W5I0&AT='!T96-H+F-O;2<````"`0LP`0```"$```!33510.E!%
M4DPM5TE.,S(M1U5)0$A45%!414-(+D-/30`````#```Y``````L`0#H!````
M'@#V7P$````<````<&5R;"UW:6XS,BUG=6E :'1T<'1E8V@N8V]M``(!]U\!
M````50````````"!*Q^DOJ,0&9UN`-T!#U0"`````'!E<FPM=VEN,S(M9W5I
M0&AT='!T96-H+F-O;0!33510`'!E<FPM=VEN,S(M9W5I0&AT='!T96-H+F-O
M;0`````#`/U?`0````,`_U\``````@'V#P$````$`````````JEJ`02 `0`2
M````4D4Z(%1A8B!S=&]P(&EN9F\`N@4!!8 #``X```#/!P8`' `(`#H`"P`!
M`$8!`2" `P`.````SP<&`!P`" `R`!8``0!)`0$)@ $`(0```$4R-$4U138P
M-C R1$0S,3$Y-$0Q,# Q,#5!.3=#0C)#``@'`0.0!@#(" ``(@````L``@`!
M````"P`C```````#`"8```````L`*0```````P`N```````#`#8``````$ `
M.0``WX1";L&^`1X`< `!````#@```%1A8B!S=&]P(&EN9F\````"`7$``0``
M`" ````!OL%$HFSHCV! +3$1TYI'``C'<NS(``G-O ```%1/<!X`'@P!````
M!0```%--5% `````'@`?# $````9````97)I8VAA;G-E;D!I='-I+6-O<G N
M8V]M``````,`!A T"?7&`P`'$$H%```>``@0`0```&4```!33TU%5$A)3D=)
M35!/4E1!3E1)1D]21T]45$]-14Y424].25-42$5415A41DE%3$13*$]42$52
M0T].5%)/3%,I35535$)%0TA)3$143T%$24%,3T=)3E-414%$3T9!5TE.1$]7
M``````(!"1 !````D04``(T%```["P``3%I&=7ZY'IT#``H`<F-P9S$R-78R
M`/0!]R "I /C`@!C@F@*P'-E=# @!Q.'`H,`4 ^V<')Q,A"V9GT*@ C((#L)
M;PXP-;,"@ J!=6,`4 L#8P!!Q0M@;@X0,#,S"Z8&`$L#<!" : N 9R '<' G
M"1$`< 5 22 "$')G8F\%0'1O( > `C!I;P(@%[ $(!=@90JB"H!T#&5X`# (
MD&QD<R@_&, 9X 7 !: ", -@;'.2*1D0=7,%0&)E&V"W%W :T!CB80KC"H!D
M!S$N;Q>A`( :8&$<T&]FHQT1`_!N9&\'X&$$( T+@#H:! KT;&DS-B\!0!H3
M'" <<%<+@#,RX#HZ1U5)$Z ?QPJ ,",@2&D!`!G"($0>;P0@(6$?$AH$*"1$
MD$]3:'<?`"P@)*.3'A(`<&-E&_ ]("'1*R&Q$(!0!)!L(\0H*?\B!293(O(D
MER>&(G8<$P$!%PN '' ?440=LT)O>/P@;AC!(\4%L1K (3$!D34$('<"("<%
M0"TP<FOY&@0D5R8A*K 'X"93*Q@J*!H$(# A+1E0=&Q#'' P(3T^("(E<7"2
M<!M!4F47XB(L+\G?,* !@# B,/(64# E("_*?&]P,S,P\@'0,^L#\&1C%V P
MQ3,W-3/K&>!I[&=H,R(Q`34SP2_)'# ">3"G=W-?<WES91DA=3/K;F$'@#,V
M(A\CQ#(F)X =-2W50F5GZ0N 1&$:8%\#("8P+C# +3Y!9&1,`: :P.XH._0Q
M`CZX,3(J0F\P40L:<4"V1 5 *&DN94@N('E$\6UM/^ I_T&_0LPR\S."-SQ(
MWS24-O+?#C!(+T+,."4S@CA%GT+;_P= .$ #H#$!,O)-;T+;-F2[,X(.," G
MACZH/VA4&G9_0%\_$46/0LP8@3[ `V!U0Q\`,/(P>#@P64!&WD8E($K/1J\P
M\C<SVUS_WTG_7)]#%UB"7E,Q5F]"W/\L\5XU85!>[TO?3.]G/U&[OS<P4K\:
M8#^P!F ?`$T'D(AS86<H@#$Y-R4@MV:@61 ]L2 BT"!P;3" [B A(07 &/$X
M'($*P #0QQI@$& >`7!U="(:,<"J9PL1<S(U10408R+@_P!Q"? B&A7!(+$#
M8!I@;9#9$40Q-C!0<J)/!1 ^T?\'0 70:N1RHQ^V<;0@LPLQP7&V:2TQ-#0!
M0"!PCV:0,\ ,P79#8B!&`V$;'Z ,DF(0H&_I(%M3<$U44#H&<1 Q<%) 2S"
M`) M!:%P+@6@;:Y='[5W<&J1='?730(@:&1A>24@2EBP'' R;VNA:U!]D&N0
M.G90$+!-J7L75&]WUR<Q@6PV4:,A@6"P=6E .&!T!3 5!9!H>L(G>QAU8FIC
M<>%WUU)%.G[ `: @_V-S"X "$'1/=5H@=!72"[;]&A-))> *0",4(3$2,'&A
MWS&!&5 'D0/P-I%Y"&$8X+\:=Q^E8(^*5F-+(AI4(U'_!; $@1X!'M 7<! P
MB2)L,?\<,2-"&FB.0B-"!: !`!U%?Q" !)!L8"JP&;.-Y1G1>9\=$ EPD%8!
MD8-097$*4.TEX2Z-5C\0(!BP!Y$8@?T=$&P#(!MV1)084!Z@CN+U$$!V''!B
M;B 8\ 8Q!;'[&@0;%&^"`Y@AD'0$\0GA_BF4A6ZO;[]PR(1OA74!P;]Q4W(O
M<S^=7W5?=F,RH!!C=N]W]5!A=0,@"%!NMRJPE>%Y)' ;<::"0$]#CBT%$!I@
M>L$N=6M[#_-\'WTI-#HSP'X??R^ /[^!3W?7@R^B+YZLAFM('R&_'Q".TQ!Q
M;) TT)/":Y+@_Q>"`U*9H8^4&' :LASC*[%=&S$_,""T?9(G/R(:0OY4+D C
M0K$RF:*W)&U';#3]%X)W'U$)P3\0)2 78 !PXFL$(#HM*2(:I@H:! 42P0#
MH ````,`$! ``````P`1$ `````>`$(0`0````$``````````P" $/____]
M``<P<,B9*FW!O@% ``@P<,B9*FW!O@$+``" "" &``````# ````````1@``
M```#A0````````,``H (( 8``````, ```````!&`````!"%`````````P`%
M@ @@!@``````P ```````$8`````4H4``'00```>`"6 "" &``````# ````
M````1@````!4A0```0````4````X+C R``````,`)H (( 8``````, `````
M``!&``````&%````````"P`O@ @@!@``````P ```````$8`````#H4`````
M```#`#" "" &``````# ````````1@`````1A0````````,`,H (( 8`````
M`, ```````!&`````!B%````````'@!!@ @@!@``````P ```````$8`````
M-H4```$````!`````````!X`0H (( 8``````, ```````!&`````#>%```!
M`````0`````````>`$. "" &``````# ````````1@`````XA0```0````$`
D````````'@`]``$````%````4D4Z( `````#``TT_3<``%Y9
`
end
