VPF::Free vision потестируйте - Форум программистов

marinovsoft

Дата 22.3.2014, 18:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 25.1.2009
Где: Кемерово

Репутация: нет
Всего: нет

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

Присоединённый файл ( Кол-во скачиваний: 5 )

4.7z 19,59 Kb

marinovsoft

Дата 24.3.2014, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 25.1.2009
Где: Кемерово

Репутация: нет
Всего: нет

Вот пример как это выглядет в режиме 160х62

Это сообщение отредактировал(а) marinovsoft - 24.3.2014, 08:03

marinovsoft

Дата 24.3.2014, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 25.1.2009
Где: Кемерово

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 25.1.2009
Где: Кемерово

Репутация: нет
Всего: нет

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

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

Код


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;

Это сообщение отредактировал(а) marinovsoft - 24.3.2014, 16:52

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »