Страница 2 из 33

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 26 янв 2017, 21:00
SteveZeleniy
Предлагаю повременить с созданием читалки PDF,т.к код действительно великоват,а пока добавить какие-нибудь мелкие утили,которые будет легко встроить или переписать на Pascal и встроить.

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 26 янв 2017, 21:38
Computershik
Согласен
Завтра сделаю)
тьфу я про предыдущий пост про часы
насчет утилит тоже согласен)

Опасность!

СообщениеДобавлено: 26 янв 2017, 21:55
SteveZeleniy
Насчет обновления времени часов:лучше оставьте счет по секундам.Только сейчас обнаружил:если на 60 секунд поставить,то часы ЖЕСТКО запаздывают.

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 26 янв 2017, 22:14
Computershik
К вопросу об утилитах
http://base.vingrad.ru/view/1154-Algori ... vaniya-MD5
подсчёт контрольной суммы md5
может пригодиться для написания примитивного антивируса-сканера, например

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 27 янв 2017, 15:27
SteveZeleniy
Антивирусов и так куча + проблема обновления БД.Так что не стоит утруждаться.
Но это очень может пригодиться для программы проверки суммы md5.Но это уже будет интересно только опытным юзерам.

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 27 янв 2017, 20:04
SteveZeleniy
Нашел менее громоздкую читалку PDF,начал переписывать под Pascal... Все равно много и не знаю,когда закончу и что из этого получится.
Переписывать придется понемногу. :roll:
https://codeload.github.com/sumatrapdfreader/sumatrapdf/zip/master

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 11:41
SteveZeleniy
Главная проблема GXDE-тормоза.Быстро работает в DosBox только если запускать через BP.Нужно внедрить в программу Быструю графику(минимум импорта изображений:у рабочего стола нет изображения,тема самая примитивная.Это для тех,кому лень ждать,пока загрузится pngшка)
Т.е. впихнуть по ключу /fast включение режима без импортирования изображений,что я уже сделал

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 13:10
SteveZeleniy
Для добавления быстрого запуска(по ключу /fast):
Нужно добавить переменную fastmode типа boolean,задать ей значение false
и вместо этой строки загрузки изображения:
Код: Выделить всё
loadpng(0,0, 'icons\harmony.png');

поставить эти строки:
Код: Выделить всё
if ParamStr(1)='/fast' then{Fast mode}
begin
securemode:=true;
setfillstyle(1, rgb(0,78,152));
bar(0,0,maxx,maxy);
SetColor(rgb(255,255,255));
line(100,maxy-31,maxx,maxy-31);
end;
if securemode=false{Slow mode}
then begin
loadpng(0,0, 'icons\harmony.png');

end;

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 13:21
SteveZeleniy
Нашел один интересный текстовый редактор на Паскале с открытым исходным кодом.Может пригодиться.
http://old-dos.ru/index.php?page=files&mode=files&do=show&id=6184

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 14:19
Computershik
SteveZeleniy,
нет слов :)

Не совсем понял, зачем нужна вторая переменная securemode. ELSE в паскале тоже есть :D
Но пока что оставил ваш вариант.

И еще насчет зависаний часов - в Dosbox-е время течет по-другому даже в Windows 95, так что в GXDE тем более.

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 14:32
SteveZeleniy
Ну,ELSE есть,но мне так удобнее.А когда будет несколько возможных режимов,то ELSE тут уж не обойтись будет.Есть,конечно ELSE IF,но это уже слишком длинно.Тьфу,это уже C. :? Лучше case.(Опять же когда будет много режимов).А пока действительно лучше ELSE.

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 14:53
Computershik
http://ishodniki.ru/list/pascal/pascal- ... /3026.html
В GXDE есть пока только просмотрщик архивов.
Это модуль для распаковки zip-архивов. Автор - наш Отец Stefan Goehler (мы же секта :mrgreen: )
Надо бы его встроить...

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 14:56
SteveZeleniy
Вас понял.Размер небольшой,и это уже радует.Посмотрим,что внутри....

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 18:11
SteveZeleniy
Доделал.Качать отсюда.
http://old-dos.ru/dl.php?id=15341
Требуется доработка функции abort (UNZIP.PAS)
Использование распаковщика:
Код: Выделить всё
UNZIP10(Infile:String);

Re: GXDE (GraphX Desktop Environment)

СообщениеДобавлено: 28 янв 2017, 19:56
Computershik
Очень рад! :)
Опечатку "UZIP10 поправил
Работает, но сообщения об успешной распаковке не надо было в отдельном окне делать)
Завтра исправлю)