equal
deleted
inserted
replaced
103 |
103 |
104 procedure UpdateInputLinePrefix(); forward; |
104 procedure UpdateInputLinePrefix(); forward; |
105 procedure UpdateCursorCoords(); forward; |
105 procedure UpdateCursorCoords(); forward; |
106 |
106 |
107 // relevant for UTF-8 handling |
107 // relevant for UTF-8 handling |
108 function IsFirstCharByte(c: char): boolean; inline; |
108 function IsFirstCharByte(c: char): boolean; |
109 begin |
109 begin |
110 // based on https://en.wikipedia.org/wiki/UTF-8#Description |
110 // based on https://en.wikipedia.org/wiki/UTF-8#Description |
111 IsFirstCharByte:= (byte(c) and $C0) <> $80; |
111 IsFirstCharByte:= (byte(c) and $C0) <> $80; |
112 end; |
112 end; |
113 |
113 |