07/05/02 16:54:58
>>448
標準命令だけやってみた
a=""
repeat 50:a+str(cnt)+"\n":loop
mesbox a,64,64:idA=stat:mesboxhwnd(idA)=objinfo(idA,2):_lparam=mesboxhwnd(idA)
pos 64,0:mesbox a,64,64,0:idB=stat:mesboxhwnd(idB)=objinfo(idB,2)
dim len,idB+1:dim lin_old,idB+1
oncmd gosub *WM_COMMAND,$111
repeat
repeat 2,idA:lin_old(cnt)=len(cnt):sendmsg mesboxhwnd(cnt),$CE,0,0:len(cnt)=stat
if lin_old(cnt) not len(cnt) {_lparam=mesboxhwnd(cnt)}:loop
gosub *EM_LINESCROLL
await 10:loop
*WM_COMMAND
if iparam!$111 or $602!(wparam>>16) {return}
_lparam=lparam:_wparam=wparam
sendmsg mesboxhwnd(idA),$CE,0,0:len(idA)=stat
sendmsg mesboxhwnd(idB),$CE,0,0:len(idB)=stat
*EM_LINESCROLL
if len(idA) not len(idB){
if _lparam=mesboxhwnd(idA) {sendmsg mesboxhwnd(idB),$B6,0,len(idA)-len(idB):len(idB)=len(idA)
}else{sendmsg mesboxhwnd(idA),$B6,0,len(idB)-len(idA):len(idA)=len(idB)}}
return
/*
俺に出来るのはここまでだ・・・