GXDE (GraphX Desktop Environment)

Всевозможные операционные системы от CP/M до Vista

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 26 янв 2017, 22:00

Предлагаю повременить с созданием читалки PDF,т.к код действительно великоват,а пока добавить какие-нибудь мелкие утили,которые будет легко встроить или переписать на Pascal и встроить.
Последний раз редактировалось SteveZeleniy 26 янв 2017, 22:01, всего редактировалось 1 раз.
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение Computershik » 26 янв 2017, 22:38

Согласен
Завтра сделаю)
тьфу я про предыдущий пост про часы
насчет утилит тоже согласен)
Последний раз редактировалось Computershik 26 янв 2017, 22:44, всего редактировалось 2 раз(а).
Computershik
Мастер Даунгрейда
 
Сообщения: 175
Зарегистрирован: 20 апр 2016, 00:38
Откуда: от того же верблюда, что и SteveZeleniy

Опасность!

Сообщение SteveZeleniy » 26 янв 2017, 22:55

Насчет обновления времени часов:лучше оставьте счет по секундам.Только сейчас обнаружил:если на 60 секунд поставить,то часы ЖЕСТКО запаздывают.
Последний раз редактировалось SteveZeleniy 26 янв 2017, 22:56, всего редактировалось 1 раз.
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение Computershik » 26 янв 2017, 23:14

К вопросу об утилитах
http://base.vingrad.ru/view/1154-Algori ... vaniya-MD5
подсчёт контрольной суммы md5
может пригодиться для написания примитивного антивируса-сканера, например
Computershik
Мастер Даунгрейда
 
Сообщения: 175
Зарегистрирован: 20 апр 2016, 00:38
Откуда: от того же верблюда, что и SteveZeleniy

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 27 янв 2017, 16:27

Антивирусов и так куча + проблема обновления БД.Так что не стоит утруждаться.
Но это очень может пригодиться для программы проверки суммы md5.Но это уже будет интересно только опытным юзерам.
Последний раз редактировалось SteveZeleniy 28 янв 2017, 14:18, всего редактировалось 5 раз(а).
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 27 янв 2017, 21:04

Нашел менее громоздкую читалку PDF,начал переписывать под Pascal... Все равно много и не знаю,когда закончу и что из этого получится.
Переписывать придется понемногу. :roll:
https://codeload.github.com/sumatrapdfreader/sumatrapdf/zip/master
Последний раз редактировалось SteveZeleniy 27 янв 2017, 21:46, всего редактировалось 4 раз(а).
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 12:41

Главная проблема GXDE-тормоза.Быстро работает в DosBox только если запускать через BP.Нужно внедрить в программу Быструю графику(минимум импорта изображений:у рабочего стола нет изображения,тема самая примитивная.Это для тех,кому лень ждать,пока загрузится pngшка)
Т.е. впихнуть по ключу /fast включение режима без импортирования изображений,что я уже сделал
Последний раз редактировалось SteveZeleniy 28 янв 2017, 14:16, всего редактировалось 6 раз(а).
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 14:10

Для добавления быстрого запуска(по ключу /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;
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 14:21

Нашел один интересный текстовый редактор на Паскале с открытым исходным кодом.Может пригодиться.
http://old-dos.ru/index.php?page=files&mode=files&do=show&id=6184
Последний раз редактировалось SteveZeleniy 28 янв 2017, 14:22, всего редактировалось 2 раз(а).
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение Computershik » 28 янв 2017, 15:19

SteveZeleniy,
нет слов :)

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

И еще насчет зависаний часов - в Dosbox-е время течет по-другому даже в Windows 95, так что в GXDE тем более.
Последний раз редактировалось Computershik 28 янв 2017, 15:29, всего редактировалось 2 раз(а).
Computershik
Мастер Даунгрейда
 
Сообщения: 175
Зарегистрирован: 20 апр 2016, 00:38
Откуда: от того же верблюда, что и SteveZeleniy

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 15:32

Ну,ELSE есть,но мне так удобнее.А когда будет несколько возможных режимов,то ELSE тут уж не обойтись будет.Есть,конечно ELSE IF,но это уже слишком длинно.Тьфу,это уже C. :? Лучше case.(Опять же когда будет много режимов).А пока действительно лучше ELSE.
Последний раз редактировалось SteveZeleniy 28 янв 2017, 15:54, всего редактировалось 6 раз(а).
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение Computershik » 28 янв 2017, 15:53

http://ishodniki.ru/list/pascal/pascal- ... /3026.html
В GXDE есть пока только просмотрщик архивов.
Это модуль для распаковки zip-архивов. Автор - наш Отец Stefan Goehler (мы же секта :mrgreen: )
Надо бы его встроить...
Последний раз редактировалось Computershik 28 янв 2017, 15:53, всего редактировалось 1 раз.
Computershik
Мастер Даунгрейда
 
Сообщения: 175
Зарегистрирован: 20 апр 2016, 00:38
Откуда: от того же верблюда, что и SteveZeleniy

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 15:56

Вас понял.Размер небольшой,и это уже радует.Посмотрим,что внутри....
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение SteveZeleniy » 28 янв 2017, 19:11

Доделал.Качать отсюда.
http://old-dos.ru/dl.php?id=15341
Требуется доработка функции abort (UNZIP.PAS)
Использование распаковщика:
Код: Выделить вс
UNZIP10(Infile:String);
Последний раз редактировалось SteveZeleniy 28 янв 2017, 19:12, всего редактировалось 1 раз.
Аватара пользователя
SteveZeleniy
Мастер Даунгрейда
 
Сообщения: 248
Зарегистрирован: 26 янв 2017, 19:42
Откуда: Ну мало ли мест в мире....
Железо: Барахло 2000-ного где-то года

Re: GXDE (GraphX Desktop Environment)

Сообщение Computershik » 28 янв 2017, 20:56

Очень рад! :)
Опечатку "UZIP10 поправил
Работает, но сообщения об успешной распаковке не надо было в отдельном окне делать)
Завтра исправлю)
Последний раз редактировалось Computershik 28 янв 2017, 21:46, всего редактировалось 1 раз.
Computershik
Мастер Даунгрейда
 
Сообщения: 175
Зарегистрирован: 20 апр 2016, 00:38
Откуда: от того же верблюда, что и SteveZeleniy

Пред.След.

Вернуться в Операционные системы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2