SB0‚)moving AccMatrixFLOATcodeFLOAT€indexFLOAT€countFLOATHSpaceHANDLEHListHANDLEsampleSTRING_enable1FLOATFgColorCOLORREF DoneColor rgb(0,191,0)COLORREF ErrorColor rgb(255,0,0)COLORREFKColorCOLORREFHObjectHANDLE€HTextHANDLE€HStringHANDLE€valueSTRING€symbolSTRING€aFLOAT€errorFLOAT€retFLOAT€ RGBMatrixFLOAT ColorMatrixFLOATfallFLOAT€ forceindexFLOAT€countallFLOAT regenerateFLOAT€initFLOAT€ 2FLOAT AccMatrix FLOAT code,index,count HANDLE HSpace,HList STRING sample FLOAT _enable COLORREF FgColor,DoneColor,ErrorColor,KColor HANDLE HObject,HText,HString STRING value,symbol FLOAT a //if (~code) // ret:=MessageBox(String(~code),"",mb_ok) //endif if (~code) if (~code>=33 && ~code<=125); code:=MGet(~AccMatrix,1,~code,1); endif if (~code>=192 || ~code==32) HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) value:=GetString2d(~HSpace,~HString) if (~value==" "); value:=" "; endif if (Chr(~code)!=~value) error:=~error+1 ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~ErrorColor) else ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~DoneColor) endif index:=~index+1 HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~KColor) //Ïîäñâåòêà êëàâèø //ïîëó÷åíèå êîäà ïåðâîãî ñèìâîëà if (~index!=0) symbol:=GetString2d(~HSpace,GetTextString2d(~HSpace,GetTextObject2d(~HSpace,vGetH(~HList,~index-1,"")))) if (~symbol==" "); symbol:="space"; endif // ïîäñâåòêà shift a:=ASCII(~symbol) if (~a<0); a:=~a+256; endif if (~a<224 && ~symbol!="space") HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"hshift")) //ret:=Messagebox("","",mb_ok) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,0,1))) a:=~a+32 symbol:=chr(~a) endif HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"h"+~symbol)) if (~a==32) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,0,1))) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f0")) ret:=SetBrushColor2d(~HSpace,~HObject,RGBf(MGet(~RGBMatrix,1,0,1))) else ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,mGet(~ColorMatrix,1,~a,1),1))) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f"+String(mGet(~ColorMatrix,1,~a,1)))) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,mGet(~ColorMatrix,1,~a,1),1))) endif endif if (~index==~count) index:=0 HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~KColor) fall:=1 forceindex:=0 regenerate:=~countall init:=~countall exit() endif symbol:=GetString2d(~HSpace,GetTextString2d(~HSpace,GetTextObject2d(~HSpace,vGetH(~HList,~index,"")))) if (~symbol==" "); symbol:="space"; endif // ïîäñâåòêà shift a:=ASCII(~symbol) if (~a<0); a:=~a+256; endif if (~a<224 && ~symbol!="space") HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"hshift")) ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) a:=~a+32 symbol:=chr(~a) endif HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"h"+~symbol)) ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) if (~a==32) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f0")) else HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f"+String(mGet(~ColorMatrix,1,~a,1)))) endif ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) fall:=1 endif code:=0 endif if (~forceindex) HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) error:=~error+1 ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~ErrorColor) index:=~index+1 //Ïîäñâåòêà êëàâèø //ïîëó÷åíèå êîäà ïåðâîãî ñèìâîëà if (~index!=0) symbol:=GetString2d(~HSpace,GetTextString2d(~HSpace,GetTextObject2d(~HSpace,vGetH(~HList,~index-1,"")))) if (~symbol==" "); symbol:="space"; endif // ïîäñâåòêà shift a:=ASCII(~symbol) if (~a<0); a:=~a+256; endif if (~a<224 && ~symbol!="space") HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"hshift")) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,0,1))) a:=~a+32 symbol:=chr(~a) endif HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"h"+~symbol)) if (~a==32) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,0,1))) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f0")) ret:=SetBrushColor2d(~HSpace,~HObject,RGBf(MGet(~RGBMatrix,1,0,1))) else ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,mGet(~ColorMatrix,1,~a,1),1))) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f"+String(mGet(~ColorMatrix,1,~a,1)))) ret:=SetBrushColor2d(~HSpace,~HObject,RGBF(MGet(~RGBMatrix,1,mGet(~ColorMatrix,1,~a,1),1))) endif endif if (~index==~count) index:=0 HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~KColor) fall:=1 forceindex:=0 regenerate:=1 exit() endif symbol:=GetString2d(~HSpace,GetTextString2d(~HSpace,GetTextObject2d(~HSpace,vGetH(~HList,~index,"")))) if (~symbol==" "); symbol:="space"; endif // ïîäñâåòêà shift a:=ASCII(~symbol) if (~a<0); a:=~a+256; endif if (~a<224 && ~symbol!="space") HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"hshift")) ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) a:=~a+32 symbol:=chr(~a) endif HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"h"+~symbol)) ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) if (~a==32) HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f0")) else HObject:=GetBrushObject2d(~HSpace,GetObject2dByName(~HSpace,#0,"f"+String(mGet(~ColorMatrix,1,~a,1)))) endif ret:=SetBrushColor2d(~HSpace,~HObject,RGB(255,255,255)) HObject:=vGetH(~HList,~index,"") HText:=GetTextObject2d(~HSpace,~HObject) HString:=GetTextString2d(~HSpace,~HText) ret:=SetText2d(~HSpace,~HText,GetTextFont2d(~HSpace,~HText),~HString,~FgColor,~KColor) fall:=1 forceindex:=0 endif @@ system.dbm ¸5€@@9@_@;+5(ð?ð?? h@9@@6,5‰zÅ  í  î {yz 5hz {y‘5Žð?   ï Z 3   ï Z ð? zÅ  í  î   ï Z 754ð?zÅíî{yz 5zspace{yŒ :5 p@ l@:yzspace‘+5mzhshiftà/  ð?ð??– @@ {zhy|à/ @@65Í ð?ð??– zf0à/  ð?ð??– 34 ð?ð?ð??ð??– zfð?ð??Ž|à/  ð?ð?ð??ð??– 65ƒ zÅ  í  î   ï Z ð?    zÅíî{yz 5¦zspace{yŒ :5¿p@ l@:yzspace‘+5 zhshiftà/  ào@ào@ào@–– @@ {zhy|à/  ào@ào@ào@–– @@65Lzf0à/ 3kzfð?ð??Ž|à/  ào@ào@ào@–– ð?  5·zÅ  í  î ð?   ï Z ð? 752ð?zÅíî{yz 5zspace{yŒ :5p@ l@:yzspace‘+5kzhshiftà/  ð?ð??– @@ {zhy|à/ @@65Ë ð?ð??– zf0à/  ð?ð??– 32 ð?ð?ð??ð??– zfð?ð??Ž|à/  ð?ð?ð??ð??– 65€ zÅ  í  î   ï Z ð?  ð? zÅíî{yz 5£zspace{yŒ :5¼p@ l@:yzspace‘+5zhshiftà/  ào@ào@ào@–– @@ {zhy|à/  ào@ào@ào@–– @@65Izf0à/ 3hzfð?ð??Ž|à/  ào@ào@ào@–– zÅ  í  î   ï Z ð?  &¿Lº