Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Free vision потестируйте

Автор: marinovsoft 22.3.2014, 18:50

Выдернул из сорцов Dos Navigator FileViewer, компилить FPC
При работе на "широких" мониторах (160 символов в ширину) наблюдаются косяки отображения в режиме hex (переключение по F4), а именно - неверно раскрашиваются символы "0", точнее раскарашиваются, но не все. Понятно, что причина на 99.9% в выходе за размерность байта. Поймать не могу. Пните в нужном направлении.

Автор: marinovsoft 24.3.2014, 08:02

Вот пример как это выглядет в режиме 160х62
http://s2.ipicture.ru/Gallery/Viewfull/38253268.html

Автор: marinovsoft 24.3.2014, 13:52

Портились регистры, переписал процедуру, вопрос снят.

Код


procedure MoveColor(var Buf:Word; Num: Word; Attr: Byte);
  assembler;
asm
   push EBX
   push ECX
   mov    EBX,Buf
   xor    ECX,ECX
   mov    CX, Num
   or     ECX,ECX
   jz     @End
   mov    AL,Attr
@Rep:
   mov    [EBX+1],al
   add    bx,2
   loop   @Rep
@End:
   pop ECX
   pop EBX
end;

Автор: marinovsoft 24.3.2014, 16:19

В общем, так тоже регистры портились, но уже в пределах функции.

Остановился на этом варианте

Код


procedure  MoveColor(var Buf; Num: Word; Attr: Byte);
var
  I:Word;
Type
  TB = Array[0..0] of byte;
begin
   I:=1;
   while Num > 0 do
   begin
      Dec(Num);
      {$R-}
      TB(Buf)[I]:=Attr;
      {$R+}
      Inc(I,2);
   end;
end;