equal
deleted
inserted
replaced
29 function ShortStringAsPChar(s: shortstring): PChar; |
29 function ShortStringAsPChar(s: shortstring): PChar; |
30 |
30 |
31 implementation |
31 implementation |
32 uses Types, uVariables, uUtils {$IFDEF ANDROID}, log in 'log.pas'{$ENDIF}; |
32 uses Types, uVariables, uUtils {$IFDEF ANDROID}, log in 'log.pas'{$ENDIF}; |
33 |
33 |
34 const cLineWidth: LongInt = 0; |
34 const cLinesCount = 8; |
35 cLinesCount = 8; |
35 var cLineWidth: LongInt; |
36 |
36 |
37 type |
37 type |
38 TTextLine = record |
38 TTextLine = record |
39 s: shortstring |
39 s: shortstring |
40 end; |
40 end; |