err
$B$G<($5$l$?%(%i!<%3!<%I$KBP1~$9$k>\:Y%(%i!<>pJs$r%G!<%?%\%C%/%9$+$i_spc_text_ptr $B$K@_Dj$9$k!#(B
panel()
$B$K$h$j%Q%M%k$rI=<(!?_spc_text_ptr
$B$r(B NULL
$B$K@_Dj$9$k!#(B
initstdpnl |
|
$B%Q%M%k=i4|2=(B |
|
$B!Z7A<0![(B
VOID initstdpnl(void)
$B!Z%Q%i%a!<%?![(B
$B$J$7(B
$B!Z%j%?!<%sCM![(B
$B$J$7(B
$B!Z2r@b![(B
$B=i4|2=$N$?$a!"%Q%M%kI=<(MQ$N%9%Z%"%a%b%j$r(B
get_lmb()
$B$G3MF@$9$k!#(B
$B%Q%M%k$,I=<($G$-$J$$%1!<%9$r$G$-$k$@$18:$i$9$?$a$K!"(B
$B%Q%M%k$N@8@.%(%i!<;~$K%9%Z%"%a%b%j$r2rJ|$7$F:FEY!";n$9>l9g$K;HMQ$9$k!#(B
$B0lEY2rJ|$7$?%9%Z%"%a%b%j$O!"%Q%M%k$r:o=|$9$k;~E@$G:FEY3NJ]$9$k!#(B
$B!Z7A<0![(B
W clsstdpnl(void)
$B!Z%Q%i%a!<%?![(B
$B$J$7(B
$B!Z%j%?!<%sCM![(B
$BITDj(B
$B!Z2r@b![(B
$B8=:_I=<(Cf$N%Q%M%k$r:o=|$9$k!#(B
opnstdpnl |
|
$BI8=`%Q%M%k@8@.!?I=<((B |
|
$B!Z7A<0![(B
W opnstdpnl(W pnl, FUNCP fn)
$B!Z%Q%i%a!<%?![(B
W pnl $B%Q%M%k$N%G!<%?HV9f(B
FUNCP fn $B%Q%M%k=hM}4X?t(B
$B!Z%j%?!<%sCM![(B
$B!f(B0 $B%Q%M%k(BID
<0 $B%(%i!<%3!<%I(B
$B!Z2r@b![(B
pnl
$B$G;XDj$7$?%G!<%?HV9f$NI8=`%Q%M%k$r@8@.!"(B
$BI=<($9$k!#(Bfn
$B$O%Q%M%k=hM}4X?t$r<($7!"(B
$B%Q%M%k=hM}4X?t$,$J$$>l9g$O(B NULL
$B$H$9$k!#(B
- $B%G!<%?%\%C%/%9Fb$NI8=`%Q%M%kDj5A%G!<%?$K=>$C$F!"(B
$B%Q%M%k%^%M!<%8%c$KEO$9%Q%M%kDj5A%G!<%?$r:n6H%(%j%"Fb$K@8@.$9$k!#(B
$B:G=i$K%Q%M%kA4BN$NBg$-$5$r7W;;$7!"(B
$B3F9`L\$N?eJ?0LCV$r:FEY7W;;$7D>$9!#(B
$BF1;~$KFbItHV9f$NJQ49%F!<%V%k$b@8@.$9$k!#(B
$BFbItHV9f(B 31 $B$N%F%-%9%H9`L\$N>l9g$O!"(B
$B_spc_text_ptr $B$+$ierrpanel() $B$N>\:Y%(%i!<>pJs$KBP1~$9$k=hM}(B)$B!#(B
- $B%Q%M%k$r2hLL$NCf1{$K0LCV$9$k!#:8C<$O%P%$%H6-3&$H$9$k!#(B
- $B%Q%M%k=hM}4X?t$,Dj5A$5$l$F$$$k>l9g$O!"=hM}4X?t$r@[email protected]=hM}$H$7$F
$B=hM}4X?t$N4X?tCM$,(B
0x8000
$B$N;~$O!"(B
$B0x8000 $B$G%j%?!<%s$9$k!#(B
pcre_pnl()
$B$K$h$j!"(B
$B%Q%M%k$r@8@.!"I=<($9$k!#(B
$B@8@.%(%i!<$N>l9g(B :
- $B%9%Z%"%a%b%j$,3MF@$5$l$F$$$k>l9g$O!"%9%Z%"%a%b%j$r2rJ|$7!"(B4.$B$r7+$jJV$9!#(B
- $BB>%W%m%;%9$N%Q%M%k$,4{$K3+$+$l$F$$$k>l9g(B (
EX_SAVE
$B%(%i!<(B) $B$O!"(B
$B:GBg(B1$BJ,$^$G!"(B1$BICKh$K:FEY(B 4. $B$r7+$jJV$9!#(B
_no_errpanel = 0
$B$N;~$O!"(B
pact_err()
$B$K$h$jCWL?E*%(%i!<$N%Q%M%k$rI=<($9$k!#(B
- $B%(%i!<%j%?!<%s$9$k!#(B
- $B7Y9p%Q%M%k$N>l9g$O!"%S!<%W$rLD$i$9!#(B
- $B%Q%M%k(B ID $B$r4X?tCM$H$7$F%j%?!<%s$9$k!#(B
-
_no_errpanel
$B$O%j%?!<%s;~!">o$K(B 0 $B%/%j%"$5$l$k!#(B
- $BI8=`%Q%M%k$O:GBg(B4$B$D$^$G%M%9%H$7$F%*!<%W%s$G$-$k!#(B
$B!Z7A<0![(B
W exstdpnl(W pnid, FUNCP fn)
$B!Z%Q%i%a!<%?![(B
W pnid $B%Q%M%k(BID
FUNCP fn $B%Q%M%k=hM}4X?t(B
$B!Z%j%?!<%sCM![(B
$B=hM}4X?t$N4X?tCM(B
$B!Z2r@b![(B
pnid
$B$G;XDj$7$?%Q%M%k(BID$B$N%Q%M%k$Nfn $B$O%Q%M%k=hM}4X?t$r<($7!"(B
$B%Q%M%k=hM}4X?t$,$J$$>l9g$O(B NULL
$B$H$9$k!#(B
- $B%Q%M%k=hM}4X?t$,Dj5A$5$l$F$$$k>l9g$O!"=hM}4X?t$r=i4|2==hM}$H$7$F
pact_pnl()
$B$K$h$j%Q%M%kF0:npact_pnl()
$B$N4X?tCM$K$h$j0J2<$N=hM}$r9T$&!#(B
P_EVENT
$B$N;~(B :
evt_loop()
$B$,l9g$O!"(B
wuget_evt()
$B!"(Bevt_proc()
$B$rO"B3$7$Fevt_loop() $B$,l9g$O!"(B
EV_DEVICE
$B$N;~$O(B oprc_dev()
$B$rEV_MSG $B$N;~$O!"(B
$B%a%C%;!<%8%-%e!<$N@hF,$r%/%j%"$9$k!#(B
$B$=$NB>$N%$%Y%s%H$OL5;k$9$k(B
( evt_loop()
$B$,evt_loop $B4X?t%F!<%V%k%]%$%s%?(B( _wfunc
)$B$,(B NULL
$B$+H]$+$GH=CG$9$k(B)$B!#(B
$B$=$N8e!"(B2.$B$XLa$k!#(B
P_MENU
$B$N;~(B :
- $BL5;k$7$F!"(B2. $B$XLa$k!#(B
- $B$=$NB>>uBV$NJQ2=$,$J$+$C$?;~!'(B
- 2.$B$XLa$k!#(B
-
pact_pnl()
$B$GF@$i$l$?%Q%M%k$N9`L\HV9f$rFbItHV9f$KJQ49$9$k!#(B
- $BFbItHV9f$,(B 0 $B$N;~$O!"!VC$7!W$^$?$O%9%$%C%A$,(B 1 $B$D$N$_$J$N$G!"(B
$B%j%?!<%sCM(B = 0
$B$G!"(B7. $B$X?J$`!#(B
- $B%Q%M%k=hM}4X?t$,Dj5A$5$l$F$$$k>l9g$O!"=hM}4X?t$r
$B=hM}4X?t$N4X?tCM!f(B 0 $B!'4X?tCM$r%j%?!<%sCM$H$7$F(B(7)$B$X?J$`!#(B
= 0x8000 $B!'(Bpnid $B$r4X?tCM$H$7$F%j%?!<%s$9$k!#(B
< 0 $B!'=hM}B39T!"(B(2) $B$XLa$k!#(B
- $B%Q%M%k$r%/%m!<%:$7$F!"%j%?!<%s$9$k!#(B
pact_pnl()
$B$GF@$i$l$?%$%Y%s%H$O%0%m!<%P%kJQ?t(B
_pnl_evt
$B$r;H$C$F30It$+$i;2>H2DG=$G$"$k!#(B
$B%Q%M%k=hM}4X?t$O!"%Q%M%k$NA`:n$r$7$?>l9g$K
W fn (W pnid, ino, value)
pnid : $B%Q%M%k(BID
= -1 : $B@[email protected]=hM}(B
ino : $BA`:n$5$l$?9`L\$NFbItHV9f(B
= 0 : $B=i4|2==hM}(B
= -1 : $B@[email protected]=hM}(B
= -2 : $B:FI=<(=hM}(B
value : pact_pnl() $B$+$i$N%j%?!<%sCM(B
$B@[email protected]=hM}$O!"%Q%M%k%G!<%?$r:n@.$7$?8e!"(B
pcre_pnl()
$B$rA0$K8F$P$l$k!#(B
$B$3$N;~E@$G$O!"FbItHV9f$r;HMQ$7$?!"(B
rectstdpnl()
$B!"(Bptrstdpnl()
$B!"(Bitemstdpnl()
$B$,;HMQ$G$-$k$N$G!"(B
$B@[email protected]>A0$N:YIt$ND4@0$r9T$&$3$H$,$G$-$k!#(B
$B$^$?!"4X?tCM$H$7$F(B 0x8000
$B$rLa$9$H!"%Q%M%k$N@8@.$r;_$a$k$3$H$,$G$-$k!#(B
$B=i4|2==hM}$O!"(Bpcre_pnl()
$B$rpact_pnl() $B$rA0$K8F$P$l$k!#(B
$B:FI=<(=hM}$O!"%Q%M%k$N:FI=<($,I,MW$H$J$C$?$H$-$K8F$P$l$k!#(B
$B%Q%M%kDj5A%G!<%?$K$h$C$FIA2h$5$l$?FbMF$d%Q!<%DN`$,:FI=<($5$l$?$"$H!"(B
$B$3$N=hM}$,8F$P$l$k!#(B
$B%"%W%j%1!<%7%g%s$,%Q%M%k$KD>@\IA2h$7$F$$$J$1$l$P!"(B
$B2?$b$7$J$/$F$h$$!#(B
$B4X?tCM$H$7$F(B <0 $B$rLa$7$?>l9g$O!"(B
$B%Q%M%k$NF0:n$rB39T$7!"!f(B0$B$rLa$7$?>l9g$O%Q%M%k$,:o=|$5$l!"(B
$B$=$NCM$r(B exstdpnl() $B$N4X?tCM$H$7$FLa$9!#(B
$B4X?tCM(B = 0x8000 $B$N>l9g$O!"(B
$BFCexstdpnl() $B$N4X?tCM$H$7$FLa$9!#(B
dostdpnl |
|
$BI8=`%Q%M%k@8@.!" |
|
$B!Z7A<0![(B
W dostdpnl(W pnl, FUNCP fn)
$B!Z%Q%i%a!<%?![(B
W pnl $B%Q%M%k$N%G!<%?HV9f(B
FUNCP fn $B%Q%M%k=hM}4X?t(B
$B!Z%j%?!<%sCM![(B
$B=hM}4X?t$N4X?tCM(B
$B!Z2r@b![(B
pnl
$B$G;XDj$7$?%G!<%?HV9f$NI8=`%Q%M%k$r@8@.$7!"(B
$Bfn $B$O%Q%M%k=hM}4X?t$r<($7!"(B
$B%Q%M%k=hM}4X?t$,$J$$>l9g$O(B NULL $B$H$9$k!#(B
-
opnstdpnl()
$B$G%Q%M%k$r@8@.!"I=<($9$k!#(B
- $B%]%$%s%?7A>u$rA*Br;X$K$9$k!#(B
-
exstdpnl()
$B$G%Q%M%k$r
rectstdpnl |
|
$B%Q%M%k9`L\$NNN0h3MF@(B |
|
$B!Z7A<0![(B
VOID rectstdpnl(W ino, RECT *rp)
$B!Z%Q%i%a!<%?![(B
W ino $BFbItHV9f(B
RECT *rp $B7k2L$rLa$9NN0h(B
$B!Z%j%?!<%sCM![(B
$B$J$7(B
$B!Z2r@b![(B
$B8=:_I=<(Cf$N%Q%M%k$N!"(B
ino $B$G;XDj$7$?FbItHV9f$KBP1~$9$k%Q%M%k$N9`L\$NNN0h$r(B
*rp
$B$KLa$9!#(B
ino = 0
$B$N>l9g$O!"%Q%M%kA4BN$NNN0h$rLa$9!#(B
pidstdpnl |
|
$B%Q%M%k9`L\$N%Q!<%D(BID$B3MF@(B |
|
$B!Z7A<0![(B
W pidstdpnl(W ino)
$B!Z%Q%i%a!<%?![(B
W ino $BFbItHV9f(B
$B!Z%j%?!<%sCM![(B
$B!f(B0 $B%Q!<%D(BID
<0 $B3:Ev%Q!<%D$J$7(B
$B!Z2r@b![(B
$B8=:_I=<(Cf$N%Q%M%k$N!"(Bino
$B$G;XDj$7$?FbItHV9f$KBP1~$9$k%Q%M%k$N9`L\$N%Q!<%D(BID$B$r4X?tCM$H$7$FLa$9!#(B
ptrstdpnl |
|
$B%Q%M%k$N9`L\$X$N%]%$%s%?3MF@(B |
|
$B!Z7A<0![(B
TC* ptrstdpnl(W ino)
$B!Z%Q%i%a!<%?![(B
W ino $BFbItHV9f(B
$B!Z%j%?!<%sCM![(B
$B!b(BNULL $B%Q%M%k$N9`L\$X$N%]%$%s%?(B
$B!a(BNULL $B3:Ev9`L\$J$7(B
$B!Z2r@b![(B
$B8=:_I=<(Cf$N%Q%M%k$N!"(Bino $B$G;XDj$7$?FbItHV9f$KBP1~$9$k%Q%M%k$N9`L\$X$N%]%$%s%?$r4X?tCM$H$7$FLa$9!#(B
itemstdpnl |
|
$B%Q%M%k9`L\HV9f3MF@(B |
|
$B!Z7A<0![(B
W itemstdpnl(W ino)
$B!Z%Q%i%a!<%?![(B
W ino $BFbItHV9f(B
$B!Z%j%?!<%sCM![(B
$B!b(BNULL $B%Q%M%k$N9`L\HV9f(B
$B!a(BNULL $B3:Ev9`L\$J$7(B
$B!Z2r@b![(B
$B8=:_I=<(Cf$N%Q%M%k$N!"(Bino
$B$G;XDj$7$?FbItHV9f$KBP1~$9$k%Q%M%k$N9`L\HV9f(B ( 1 $B!A(B )
$B$r4X?tCM$H$7$FLa$9!#(B
offtoptr |
|
$B%G!<%?%*%U%;%C%H$N%]%$%s%?$X$NJQ49(B |
|
$B!Z7A<0![(B
VOID offtoptr(UW *ptr)
$B!Z%Q%i%a!<%?![(B
UW *ptr $B%G!<%?%*%U%;%C%H(B
$B!Z%j%?!<%sCM![(B
$B$J$7(B
$B!Z2r@b![(B
ptr
$B$G;XDj$7$?%"%I%l%9$K$"$k%G!<%?%*%U%;%C%H$r%]%$%s%?$XJQ49$9$k!#(B
$B7k2L$O(B ptr $B$N;X$9@h$rD>@\JQ99$9$k!#(B
$B!Z7A<0![(B
VOID adjscalr(RECT *rp)
$B!Z%Q%i%a!<%?![(B
RECT *rp $BD9J}7A(B
$B!Z%j%?!<%sCM![(B
$B$J$7(B
$B!Z2r@b![(B
*rp
$B$G;XDj$5$l$?D9J}7A$N(B c.left < 0
$B$N;~!"(B
1 / 16 $BI8=`J8;z%5%$%:C10L$N:BI8CM$H$_$J$7$F*rp $B$K3JG<$5$l$k!#(B
sysmsg |
|
$B%7%9%F%`%a%C%;!<%8%Q%M%kI=<((B |
|
$B!Z7A<0![(B
VOID sysmsg(W msg)
$B!Z%Q%i%a!<%?![(B
W msg $B%a%C%;!<%8$N%G!<%?HV9f(B
$B!Z%j%?!<%sCM![(B
$B$J$7(B
$B!Z2r@b![(B
msg
$B$G;XDj$7$?%G!<%?HV9f$NJ8;zNs%G!<%?$r%G!<%?%\%C%/%9$+$iu$r%S%8!<7A>u$KJQ99$9$k!#(B
msg = 0
$B$N>l9g$O!"(B
$B%7%9%F%`%a%C%;!<%8%Q%M%k$r%/%j%"$7!"(B
$B%]%$%s%?7A>u$rA*Br;X$KJQ99$9$k!#(B
$B%0%m!<%P%kJQ?t(B _inh_panel
$B$,(B 0 $B$G$J$$;~$O!"2?$b9T$o$J$$!#(B
- $B%?%C%A%Q%M%k;EMM$N>l9g$O!"(B
$B%7%9%F%`%a%C%;!<%8%Q%M%k$K$O$J$K$bI=<($7$J$$!#(B
$BI8=`%Z%s;EMM$H$N8_49@-$N$?$a$K$3$N4X?t$OMQ0U$5$l$F$$$k!#(B
chgbgcol |
|
$B%&%#%s%I%&GX7J?'%Q%M%k=hM}(B |
|
$B!Z7A<0![(B
W chgbgcol(W *mask, COLOR *color, COLOR bgcol)
$B!Z%Q%i%a!<%?![(B
W *mask $B%^%9%/(B(0$B!A(B7)$B!"(B0$B$O2>?HGX7J?'$HF1$8(B
1$B!A(B7$B$O!"(B FILL0$B!A(BFILL100$B!#(B($BF~=PNO(B)
COLOR *color $BGX7J?'(B($BF~=PNO(B)
COLOR bgcol $B2>?HGX7J?'(B($BF~NO(B)
$B!Z%j%?!<%sCM![(B
0 $BJQ99$J$7(B($B$^$?$O!"%(%i!<(B)
1 $BJQ99$"$j(B(*mask, *color $B$KJQ997k2L$,La$5$l$k(B)
$B!Z2r@b![(B
$B%&%#%s%I%&$NGX7J?'$N%Q%M%k=hM}A4BN$r9T$&!#(B
$B%Q%M%k$O!"I8=`%Q%M%k$H$7$F%G!<%?%\%C%/%9Fb$K(B (0x8000+250) $B$N%G!<%?HV9f$GDj5A$5$l$F$$$J$/$F$O$J$i$J$$!#(B
$Bdostdpnl() $B4X?t$r;HMQ$9$k!#(B
$B0J2<$N%0%m!<%P%kJQ?t$r;HMQ$9$k(B ( getscreen()
$B4X?t$r$"$i$+$8$a
IMPORT W CHSSTD;
IMPORT PATTERN BLACK100;
IMPORT WEVENT _pnl_evt;
$B$3$N>O$NL\
$BA0JG(B:2.5 $B%G!<%?%\%C%/%9$K$b$I$k(B
$B