PC-01 Lviv

Поздравляю с огромным прогрессом в столь малые сроки!

За ч/б-режим отдельное спасибо, это самое оно то.

Но видимых невооруженным взглядом проблем пока хватает с лихвой. Вот что я заметил при запуске в Win7 SP1 (en):
1) Явные проблемы с цветопередачей на титульной заставке;
2) Вопросительные знаки в меню вместо сообщений на русском;
3) Похоже, эмуль аццки течёт, после нескольких минут работы вся система начинает ощутимо лагать;
4) Если ввести классическое BLOAD"",R, то эмуль сам собой загружает некий таинственный файл...

_________________
Carthago delenda est, Carthaginem delendam esse

О! Это классика для русскоязычного Делфи под английской Виндой! Лечится изменениями нескольких ключей в регистре, но это не наш метод! MARAT_BEST пишите англоязычный софт - не будет никаких проблем!

спасибо буду стараться дальше в том же духе

ч/б-режим ... ну как же без него !
1)Согласен .... буду фиксить позже
2)Стандартная проблема .. думаю решу быстро
3)Есть сий изъян, буду фиксить вместе с оптимизацией
4)это не баг это фича (наверное) ....будем копать !!!

вылечим и еще добавим англицкий !!!

MARAT_BEST

Лечится не у Вас, а на машине пользователя (проставлениям правильных кодировок). Как полечить делфийскую прогу, я не знаю, хотя, думаю, это возможно. Только вопрос, оно нам надо? Латыница наше все!

что мне мешает подправить это из моей программы на машине пользователя , ни нанося никакого вреда...
получиться .. сделаю и тот и тот язык
нет так будет тока англицкий!

MARAT_BEST Честность и Мудрость. Ибо за изменение системных регистров без ведома юзера, некторые потом пробивают IP автора и приезджают на "девятке" чинить разобры.
А если серьезно, то нельзя так менять параметр, который может повилять на работу многих других программ. Если юзер захочет - то сделает это осознанно, Вы можете только такую опцию доделать. Но все равно, по-хорошему, надо бы разобраться почему Делфи глючит в этой ситуации и поправить, чтобы работало без правки реестра.

одно другому не мешает, обычно выводится текст действия, "описание последствия" и вопрос - "выполнить или нет", а если уже выполнено, то "отменить или оставить".

А каким шрифтом выводить описание?

примерно таким
??????? ????? ?

нашел утечку, исправил
со цветами , думаю вместе будем разбираться со специалистами
насчет ? вместо русских буковок, исправил без правки реестра
насчет BLOAD"",R доработаю как и подгрузку дополнительных файлов

А где архив со свежачком?

Хочу разобраться со цветом.

данный код нормально разбивает цвета

 procedure WriteVRAM(b:Byte;x,y: integer);
Var
pix1,pix2,pix3,pix4:byte;
begin
 pix1:=0;
 pix2:=0;
 pix3:=0;
 pix4:=0;
if (b and 128)=128 then pix1:=pix1+1;
if (b and 8)=8     then pix1:=pix1+2;
if (b and 64)=64   then pix2:=pix2+1;
if (b and 4)=4     then pix2:=pix2+2;
if (b and 32)=32   then pix3:=pix3+1;
if (b and 2)=2     then pix3:=pix3+2;
if (b and 16)=16   then pix4:=pix4+1;
if (b and 1)=1     then pix4:=pix4+2;

gamecanvas.Canvas.Pixels[x,y]:=   compute_color_index(ports[$C1],Mycolor[pix1]);
gamecanvas.Canvas.Pixels[x+1,y]:=compute_color_index(ports[$C1],Mycolor[pix2]);
gamecanvas.Canvas.Pixels[x+2,y]:=compute_color_index(ports[$C1],Mycolor[pix3]);
gamecanvas.Canvas.Pixels[x+3,y]:=compute_color_index(ports[$C1],Mycolor[pix4]);


end; 

сделал процедуру с учетом порта $C1

function TMainFormEmu.compute_color_index(port : byte; color : tcolor): tcolor;
begin
  Result:=ClBLACK;
  if ((port and $40)<>0) then
  begin
    Result:= (Result xor ClBLUE);
  end;
  if ((port and $20)<>0) then
  begin
    Result:= (Result xor CLGREEN);
  end;
  if ((port and $10)<>0) then
  begin
    Result:= (Result xor ClRED);
  end;

  case color of
  clBLACK:
     begin
       if ((port and $08)=0) then
         begin
           Result:= (Result xor CLRED);
         end;
       if ((port and $04)=0) then
         begin
          Result:= (Result xor ClBLUE);
         end;
      end;
   clGREEN: begin
      Result:= (Result xor ClGREEN);
      end;
   clred:  begin
       Result:= (Result xor ClRED);
       if ((port and $02)=0) then
           begin
             Result:= (Result xor ClGREEN);
           end;
        end;
    clBLUE: begin
         Result:= (Result xor ClBLUE);
         if ((port and $01)=0) then
            begin
             Result:= (Result xor ClRED);
            end;
       end;
end;
end;

однозначно косячит желтый цвет