equal
deleted
inserted
replaced
99 function RectToStr(Rect: TSDL_Rect): shortstring; |
99 function RectToStr(Rect: TSDL_Rect): shortstring; |
100 {$ENDIF} |
100 {$ENDIF} |
101 procedure SetKB(n: Longword); |
101 procedure SetKB(n: Longword); |
102 procedure SendKB; |
102 procedure SendKB; |
103 procedure SetLittle(var r: Double); |
103 procedure SetLittle(var r: Double); |
|
104 procedure SendStat(sit: TStatInfoType; s: shortstring); |
104 |
105 |
105 var CursorPoint: TPoint; |
106 var CursorPoint: TPoint; |
106 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
107 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
107 |
108 |
108 implementation |
109 implementation |
216 function RectToStr(Rect: TSDL_Rect): shortstring; |
217 function RectToStr(Rect: TSDL_Rect): shortstring; |
217 begin |
218 begin |
218 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) + ')' |
219 end; |
220 end; |
220 |
221 |
|
222 procedure SendStat(sit: TStatInfoType; s: shortstring); |
|
223 const stc: array [TStatInfoType] of char = 'r'; |
|
224 begin |
|
225 SendIPC('i' + stc[sit] + s) |
|
226 end; |
|
227 |
221 initialization |
228 initialization |
222 AssignFile(f, 'debug.txt'); |
229 AssignFile(f, 'debug.txt'); |
223 rewrite(f); |
230 rewrite(f); |
224 |
231 |
225 finalization |
232 finalization |