equal
deleted
inserted
replaced
218 begin |
218 begin |
219 Result:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
219 Result:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
220 end; |
220 end; |
221 |
221 |
222 procedure SendStat(sit: TStatInfoType; s: shortstring); |
222 procedure SendStat(sit: TStatInfoType; s: shortstring); |
223 const stc: array [TStatInfoType] of char = 'r'; |
223 const stc: array [TStatInfoType] of char = 'rDK'; |
224 begin |
224 begin |
225 SendIPC('i' + stc[sit] + s) |
225 SendIPC('i' + stc[sit] + s) |
226 end; |
226 end; |
227 |
227 |
228 initialization |
228 initialization |