<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div>Hi,<br><br> I need to display <span id="misspell-0" class=""><span>pseudo-graphic</span></span> characters on Windows <span id="misspell-1" class=""><span id="misspell-0" class=""><span id="misspell-0" class=""><span id="misspell-0" class="">XP</span></span></span></span> (<span id="misspell-2" class=""><span>English</span></span> version) using video unit<br>from fpc-2.4.4 .<br> When I use "Raster Fonts" they are displayed correctly <br></div><div>but when I use "<span id="misspell-3" class=""><span id="misspell-1" class=""><span id="misspell-1" class=""><span id="misspell-1" class="">Lucida</span></span></span></span> Console" font, small squares are displayed instead.<br> The <span id="misspell-4" class=""><span>current</span></span> code page displayed by <span id="misspell-5" class=""><span
id="misspell-2" class=""><span id="misspell-2" class=""><span id="misspell-2" class="">chcp</span></span></span></span> command is 437.<br><br> Is there any workaround for "<span id="misspell-6" class=""><span id="misspell-3" class=""><span id="misspell-3" class=""><span id="misspell-3" class="">Lucida</span></span></span></span> Console" font ?<br><br>To demonstrate the problem I wrote a small test program using <span id="misspell-7" class=""><span id="misspell-4" class=""><span id="misspell-4" class=""><span id="misspell-4" class="">TextOut</span></span></span></span> procedure from <span id="misspell-8" class=""><span id="misspell-5" class=""><span id="misspell-5" class=""><span id="misspell-5" class="">rtl</span></span></span></span> documentation:<br><br>program <span id="misspell-9" class=""><span id="misspell-6" class=""><span id="misspell-6" class=""><span id="misspell-6" class="">vid</span></span></span></span>_test;<br><br>uses
video;<br><br>procedure <span id="misspell-10" class=""><span id="misspell-7" class=""><span id="misspell-7" class=""><span id="misspell-7" class="">TextOut</span></span></span></span>(X, Y: Word ; <span id="misspell-11" class=""><span id="misspell-8" class=""><span id="misspell-8" class=""><span id="misspell-8" class="">Const</span></span></span></span> S: String);<br>var<br> W,P,I,M : Word;<br>begin<br> P := ((X - 1) + (Y - 1) * <span id="misspell-12" class=""><span id="misspell-9" class=""><span id="misspell-9" class=""><span id="misspell-9" class="">ScreenWidth</span></span></span></span>);<br> M := Length(S) ;<br> If P + M > <span id="misspell-13" class=""><span id="misspell-10" class=""><span id="misspell-10" class=""><span id="misspell-10" class="">ScreenWidth</span></span></span></span> * <span id="misspell-14" class=""><span id="misspell-11" class=""><span id="misspell-11" class=""><span id="misspell-11"
class="">ScreenHeight</span></span></span></span> then<br> M:= <span id="misspell-15" class=""><span id="misspell-12" class=""><span id="misspell-12" class=""><span id="misspell-12" class="">ScreenWidth</span></span></span></span> * <span id="misspell-16" class=""><span id="misspell-13" class=""><span id="misspell-13" class=""><span id="misspell-13" class="">ScreenHeight</span></span></span></span> - P;<br> for I := 1 to M do<br> <span id="misspell-17" class=""><span id="misspell-14" class=""><span id="misspell-14" class=""><span id="misspell-14" class="">VideoBuf</span></span></span></span>^[P + I - 1] := <span id="misspell-18" class=""><span id="misspell-15" class=""><span id="misspell-15" class=""><span id="misspell-15" class="">Ord</span></span></span></span>(S[i]) + ($07 <span id="misspell-19" class=""><span id="misspell-16" class=""><span id="misspell-16" class=""><span id="misspell-16"
class="">shl</span></span></span></span> 8);<br> <span id="misspell-20" class=""><span id="misspell-17" class=""><span id="misspell-17" class=""><span id="misspell-17" class="">UpdateScreen</span></span></span></span>(False);<br>end;<br><br>var<br> i: Integer;<br> S: String;<br>begin<br> <span id="misspell-21" class=""><span id="misspell-18" class=""><span id="misspell-18" class=""><span id="misspell-18" class="">InitVideo</span></span></span></span>;<br> S := 'Some <span id="misspell-22" class=""><span id="misspell-19" class="">pseudo-graphic</span></span> chars: ';<br> for i := 10 to 20 do<br> S := S + <span id="misspell-23" class=""><span id="misspell-20" class=""><span id="misspell-19" class=""><span id="misspell-19" class="">chr</span></span></span></span>(i);<br><br> <span id="misspell-24" class=""><span id="misspell-21" class=""><span id="misspell-20" class=""><span id="misspell-20"
class="">TextOut</span></span></span></span>(5, 5, S);<br> <span id="misspell-25" class=""><span id="misspell-22" class=""><span id="misspell-21" class=""><span id="misspell-21" class="">DoneVideo</span></span></span></span>;<br> <span id="misspell-26" class=""><span id="misspell-23" class=""><span id="misspell-22" class=""><span id="misspell-22" class="">readln</span></span></span></span>;<br>end.</div><div></div></div></body></html>