Страница 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... Все равно много и не знаю,когда закончу и что из этого получится.
Переписывать придется понемногу.
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 в паскале тоже есть
Но пока что оставил ваш вариант.
И еще насчет зависаний часов - в 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 (мы же секта
)
Надо бы его встроить...
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 поправил
Работает, но сообщения об успешной распаковке не надо было в отдельном окне делать)
Завтра исправлю)