Всем привет!

Сегодня хотел бы вспомнить про FoxPro, лого у FoxPro лисица, ведь fox с английского переводится как лисица. Моя сeстра когда жила в Алматы, программировала на работе на Clipper и FoxPro под DOS. Перед отъездом в Германию я изучал Microsoft Visual FoxPro 5.0. И сегодня пойдёт речь об более современной версии - Microsoft Visual FoxPro 7.0 Professional Edition. К сожалению у меня upgrade версия, но у меня есть лицензионный Visual Studio 6.0 Enterprise Edition, поэтому Microsoft Visual FoxPro 7.0 без проблем установилась Короче в Казахстане на выставке давали специальные диски, где расхваливаливали во всю Microsoft Visual FoxPro 6.0. Короче инструмент Microsoft Visual FoxPro давал возможность быстро разработать программное обеспечение под Windows, которое заточено на хранение и поиск данных. Допустим для телекомуникационных компаний - база данных телефон и абонентов, в полиции учёт преступников и их преступлений, может быть в больнице картотека пациентов и их болезни, ещё где-нибудь.

Допустим с новым компьютером, который мне подарили родители в Алматы, была предустановленая демо-версия программы "Зарплата и Пенсионные отчисления",

При загрузки показывается стартовая заставка Microsoft Visual FoxPro 5.0, а потом запускается сама программа:

Вот так выглядет лицензионная коробка Microsoft Visual FoxPro 7.0 Professional, но Update, справа диск с программой Visual Studio 6.0 Enterprise Edition, благодаря ей Microsoft Visual FoxPro 7.0 смогла установиться на мой компьютер:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Итак, в Microsoft Visual FoxPro 7.0 на CD входит сама система разработки ПО, создания помощи в формате CHM, урезаный установщик Install Shield только для Visual FoxPro, а так-же документация MSDN 2000 на 3х CD-ROMах. Единственное что я не нашёл на диски это программа, спомощью которой можно создавать пиктограммы или иконки для Visual FoxPro приложения.

Я всё забыл про Visual FoxPro, но недавно я гуглил и гуглил. Я узнал из интернета (гугла), что чтобы распространять или продавать созданое ПО, нужно компилировать программу в формате APP, а потом в установщик подключать откомпилированный в формате APP, и исполняемые файлы (VFP7.EXE, VFP7DEU.DLL, итд.). Ещё я понял, что желательно когда распространяешь ПО, создавать папку не в Program Files, а в какую-нибудь свою папку, допустим если ПО для милиции/полици то лучше создать папку POLICE на диске C:\.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Чтобы клиент, которому ПО было продано мог запускать ваше приложение, нужно запустить следующую команду примерно вот так:

vfp7.exe -T myproj.app

Чтобы записать информацию из текстовых полей в таблицу, нужно выполнить следующее, есть допустим таблица CDS, и там есть следующие поля cd_id, description, и year:

IF !USED("cds") THEN
  USE cds IN 0
ENDIF
SELECT cds
APPEND BLANK 
REPLACE cd_id WITH thisform.txtCd_id.Value IN cds
REPLACE description WITH thisform.txtDescription.Value IN cds
REPLACE year WITH thisform.txtyear.Value IN cds

А чтобы перемещаться по записям:

Назад:

IF NOT BOF()
  SKIP -1
  thisform.Refresh()
ENDIF

Вперёд:

IF NOT EOF()
  SKIP 1
  thisform.Refresh()
ENDIF

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Вот что у меня получилось, простая база данных преступников для полиции, это программа спокойно запустилась в Windows 8.1, а среда разработки запускается и в Windows 2000, как настроение у меня появится, покажу как его делал:

Программу написанную в среде Microsoft Visual FoxPro 7 компилировал в app, а запускаю я программу вот так:

vfp7.exe -T police.app

Кстати со средой Microsoft Visual FoxPro 7 там были готовые иконки, иконку флага США я взял именно со среды.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всё приходится вспоминать, т.к. давно не программировал в Microsoft Visual FoxPro. Типа у нас программа база данных для полиции:

Есть таблица taeter (т.е. преступники) см.:

А вот так выглядет форма frmtaeter.scx:

Вот код frmtaeter.scx:

событие cmdSpeichern:

IF !USED("taeter") THEN 
  USE taeter IN 0
ENDIF
SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp
SELECT taeter
APPEND BLANK 
REPLACE taeter_id WITH temp.newID IN taeter
REPLACE vorname WITH thisform.txtVorname.Value IN taeter
REPLACE nachname WITH thisform.txtNachname.Value IN taeter
REPLACE gebdatum WITH thisform.txtGebDatum.Value IN taeter
REPLACE geschlecht WITH thisform.txtGeschlecht.Value IN taeter
REPLACE datum WITH thisform.txtDatum.Value IN taeter
thisform.Release()

Событие cmdAbbrechen:

Thisform.Release()

Пояснение, вроде бы в Microsoft Visual FoxPro нет авто увеличения счётчика для ключевого поле, как в Microsoft Access, поэтому делают так:

SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Завтра возможно займусь календарём для моего приложения:

Когда подключу его в форму, будет выглядеть вот так:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет, продолжим разговор про Microsoft Visual FoxPro 7.0 Professional Edition:

Чтобы сменить заголовок главного окна и иконку, нужно написать следующее:

_screen.Caption = "Vasja Pupkin"
_screen.Icon = "C:\police\flgusa01.ico"

Вот:

Вуаля! А вот и результат, вместо заголовка окна "Microsoft Visual FoxPro" увидите "Vasja Pupkin", а вместо иконки лисы, вы увидите флаг США:

Чтобы отобразить меню, я пишу DO "C:\police\menü1.mpr", и в главном окне появляется кастомное меню:

Потом, оказывается форма выделенная жирным шрифтом, это стартовая форма, т.е. если откомпилировать наше приложение и превратить в формат APP, то запустится форма, которая выделена жирным шрифтом, я в ней и меняю заголовок окна, и иконку у главного окна, просто у формы есть событие Load:

Потом можно заполнить контактные данные приложения, скорей всего это контактные данные фирмы, которое разработало это ПО, вот я тоже всякую фигню заполнил, и иконку поставил флаг США:

Программировать на Microsoft Visual FoxPro 7.0 одно удовольствие, очень сильно приятно, успокаивают психику и нервы. Засчёт того что получается всё как надо, получаешь удовольствие. В мозг выстреливает дофамин и серетанин. Ощущения что я нахожусь под сильный кайфом.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Итак, продолжу болтавню про программирование на Microsoft Visual FoxPro 7.0 Professional. Короче методом тыка, и у меня есть некий опыт работы со ставителями отчётов (Visual Basic 6.0, CrystalReport, Microsoft Access), я создал простенький отчёт, так выглядет в режиме редактирования :

Вуаля а вот и отчёты:

Вуаля! А вот и результат, короче я распечатал отчёты на виртуальном принтере Foxit Reader PDF Printer, который после печати сохраняет в формате PDF вот такой отчёт:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Теперь давайте поговорим про кастомное меню. Короче как уже выше писал, посколько Visual FoxPro распространяется со средой разработки, то нужно загрузить кастомное меню, иначе пользователь при запуске VFP9.exe увидит стандартное FoxPro-шное меню. Я загружаю кастомное меню как выше писал при загрузки формы. Ещё я заметил что в Visual FoxPro, чтобы в кастомном меню закрыть Visual FoxPro, нужно написать всего лишь команду QUIT, см.:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет! Продолжим, заниматься Microsoft Visual FoxPro 7. Короче чтобы буква пола т.е. Geschlecht в отчётах было большой т.е. M или W, я в свойствах указал Großbuchstaben, поэтому в отчётах стоит большие буквы M или W:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

От программирование на Microsoft Visual FoxPro 7.0 получаешь одно удовольствие, среду быстро осваиваю, и язык программирования. Единственное что плохо, это то что в таблицах нет автоматического счётчика, как это в Microsoft Access для ключевого поле, и то что не поддерживает UTF-8, Microsoft Visual Studio 2002 (т.е. Microsoft Visual Studio 7.0) уже поддерживает UTF-8, а Microsoft Visual FoxPro 7.0 не поддерживает .

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Как во многих средах разработки Visual Studio и Visual Studio .NET, и Microsoft Access, так и в Microsoft FoxPro в форме можно указать как кнопку по умолчанию, она выделится чёрным бордюром, которая сработает при нажатие на клавишу Enter см.:

Так-же есть последовательно Tab-стопа:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Продолжим играться и изучать Visual FoxPro, теперь давайте отобразим окно:

Напишим такой код:

WAIT WINDOW "HELLO FROM uscheswoi_82" TIMEOUT 3

Вуалят а вот и результат! 3 секунды будет отображаться окошечко с надписью "HELLO FROM uscheswoi_82" см.:

Это окошечко нужно, когда написанная вами программа читает из файла или из БД, или сохраняет в файл или в БД. Чтобы пользователь знал, что программа не зависла.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Теперь давайте поговорим про вдавлиности и выпуклость. Если помотрите сюда, то увидите выпуклости и вогнутости/вдавлиности см.:

Или сюда, но тут вогнутость/вдавлиность, см.:

Есть элементы в Microsoft Visual FoxPro 7 см. сверху - shape, снизу - container. Shape может с обычным бордюром, или с 3D-бордюром быть. Обычный бордюр имеет много разных других бордюров - линии, точки, линии пунктиром, итд. Контейнер может быть вогнутым/вдавлиным, выпуклым как кнопка, ну и с обычным бордюром. Если выбран обычный бордюр, то можно покрасить его в любой цвет см.:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет! Давайте продолжим заниматься/играться в Visual FoxPro. Сегодня сделаем диалоговое окно "О программе". Короче в той программе, которую разработали в Казахстане и которую я уже показывал, там выглядет о программе так:

Но мы сделаем покрасивше, вот как-то так, форма будет называться frmabout:

Выпуклости, это элемент shape:

Окно должно иметь такие свойства:

MaxButton = .F.
MinButton = .F.
BorderStyle = 2 && Fixed Dialog

А при нажатие на кнопку OK:

THISFORM.Release()

А теперь создадим в меню пункт меню About, и при нажатие на него вызовим форму frmabout т.е. см.:

DO FORM "C:\police\frmabout.scx"

Вуаля!

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Чуть изменю диалоговое окно "о программе". Слева добавил иконку полицейского, т.е. на форму я налепил элемент image, и указал в picture bmp-иконку полицейского police2024_logo.bmp см.:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Короче пытался добавить иконку полицейского в формате-gif с прозрачным фоном, когда загрузил иконку полицейского в форме gif, иконка просто не отобразилась совсем, поэтому подкрасил иконку полицейскому фона формы код R=236,G=233,B=216, т.к. белый фон был смотрелся некрасиво. Вот полицейский белого фона, он некрасиво смотрится в форме "О программе":

А так красиво:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Теперь подправим знак (c)/© с:

POLICE 2024 Copyright(c) 2024 Anoton Mustermann

На:

POLICE 2024 Copyright© 2024 Anoton Mustermann

1. Вот так выглядет сейчас окно "О программе", и выглядет не очень:

2. Нужно в программе charmap, которая входит в Windows найти знак ©:

3. Скопировать этот знак (©) в буфер обмена и вставить в элемент Label, в форме "О программе", вуаля см., так выглядет лучше:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Продолжим игру с Microsoft Visual FoxPro 7, давайте поиграем с помощью. Чтобы добавить помощь, нужно написать следующую строчку:

SET HELP TO "C:\POLICE\main.chm"

Как ранее рассказывал в этой ветки с Microsoft Visual FoxPro 7 идёт в состав программа для создания помощи, и называется Microsoft HTML Help Workshop:

1. Запустим Microsoft HTML Help Workshop:

2. Создадим новый файл File->New, и выберим Project:

3. Нажмём на Weiter:

4. Сохраним проект в директорию POLICE, т.е. в C:\POLICE:

5. Тут никакие не выбераем галочки, а нажимаем на Weiter:

Вот и создали наш проект:

6. Создадим содержание, и сохраним в папку C:\POLICE, назовём Table of Contents:

7. Добавим содержание Test:

8. Создадим новый файл File->New, и выберим HTML File:

9. Напишим следующий код:

Код:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft® HTML Help Workshop 4.1">
<Title>Hello</Title>
</HEAD>
<BODY>
<H1>HELLO</H1>
</BODY>
</HTML>

10. Сохраним как main.htm:

11. Создадим тему и назовём AAA:

12. Привяжим main.htm с AAA.

13. Скомпилируем проект в chm:

Вроде бы скомпилировалось, вроде бы ошибок нет:

14. Запустим нашу откомплированную справку:

15. Теперь запустим среду Microsoft Visual FoxPro 7, и создадим новую программу:

16. Напишим код, и сохраним программу как startup.prg:

_screen.Caption = "Polizei 2024 Täterdatenbank"
_screen.Icon = "C:\windowsxp\ttt2\flgusa01.ico"
SET HELP TO "C:\POLICE\main.chm"
DO FORM "C:\POLICE\frmtaeter.scx"

17. Запустим программу, и намжём F1, вуаля!:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет! Продолжу программировать. Хочу заметить, я удалюсь из форума от радости только в том случае, если закроется группа "Свобода Слова" и удалятся такие пользователи как перхта и шедоуджек. Но группа СС никогда не закроется, т.к. они там "спускают пар", а перхта не удалится из форума, потому-что ей скучно дома пока шедоуджек по командировкам в Китае матается, ну и скорей у перхты есть справка от психиатра. По законам Германии если стоишь на учёте у психиатра ничего тебе сделать не могут. Как приехал в Германию нашёл дешёвую квартиру в дешёвом районе, у меня сосед шумел каждую ночь, и ему сделать ничего не могли, потому-что у него была справка от психиатра. Его выгнали лишь из квартиры только потому, потому-что он за квартиру не платил. см. параграв 20 https://dejure-org.translate.goog/gesetze/StGB/20.html?_x_...,

Статья 20.
Недееспособность вследствие психического расстройстваТот, кто при совершении деяния не способен сознать несправедливость деяния или действовать на основании этого понимания, действует без вины по причине патологического психического расстройства, глубокого расстройства сознания, снижения интеллекта или серьезного иного психическое расстройство.

вот видео:

Есть синдром туретта, у них словестный понос. Вот можете глянуть как ведут себя при таком синдроме см. https://www.youtube.com/@user-jm8ji4yg9x/videos, этот человек живёт в Германии

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

По постам в той группе часто проскальзывает копролалия см. https://ru.wikipedia.org/wiki/Копр�%...

Копролали́я (лат. coprolalia; от др.-греч. κόπρος «кал, грязь» + λαλιά «речь») — болезненное, иногда непреодолимое импульсивное влечение к циничной и нецензурной брани безо всякого повода. Особой выраженности достигает при синдроме Туретта, однако наблюдается и при других заболеваниях — при шизофрении, прогрессивном параличе, реже — маниакальных состояниях.

а так-же мизантропия см. https://ru.wikipedia.org/wiki/Миза�%...

Мизантрóпия^[1] (от др.-греч. μῖσος «ненависть» + ἄνθρωπος «человек»; букв. «человеконенавистничество») — это общая ненависть, неприязнь или недоверие к человеческому виду, человеческому поведению или человеческой природе. Мизантрóп — это тот, кто придерживается таких взглядов или чувств.

собенно к мизантропии склонны лица с расстройствами личности (конституциональными психопатиями), в характере которых преобладают замкнутость и чрезмерная обидчивость одновременно с подозрительностью, недоверчивостью и злобой^[99]. Мизантропия может быть проявлением диссоциального (антисоциального) расстройства личности^[100]. Она может наблюдаться и у паранойяльных больных с бредом преследования, которые мстят обществу за мнимые или действительные обиды, а также у лиц, перенёсших приступ(ы) шизофрении^[99]. Шокирующие мизантропические идеи и высказывания встречаются также со стороны страдающих псевдопсихопатической (психопатоподобной) шизофренией^[101] . При паранойяльном развитии личности мизантропия может возникать по типу гиперкомпенсации собственной неполноценности или чувства отверженности^[100]. Значительно реже мизантропия встречается у дистимических психопатов и у больных депрессией^[99].

а даже эгоцентризм см. https://ru.wikipedia.org/wiki/Эгоц�%...

Эгоцентри́зм^[1] (от др.-греч. ἐγώ — «я» и лат. centrum — «центр круга») — особая познавательная позиция, характеризующаяся неспособностью к координированию различных точек зрения, что является качественным своеобразием мышления ребёнка.

Про шизофрению

У людей с шизофрении страдает эмоционально-волевая сфера. А при некоторых видов шизофрении человек не осознаёт что у него ненормальное поведение (как найду как называется такой термин, так сразу дам ссылку).

При гебефрении происходит вот это см. https://web.archive.org/web/20161126050147/https://depress...

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

Гебефренная форма чаще начинается остро, проявляясь синдромом дурашливого возбуждения и нередко сочетаясь с эйфорией и своеобразной ребячливостью.

Быстро меняющееся поведение — один из значимых симптомов гебефрении, вероятно, отражающий вообще склонность таких больных к беспорядочной деятельности, к порывистым, импульсивным движениям, к нелепому поведению с характером напускной шалости (Сербский В.П., 1912).

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

Эмоциональные реакции неадекватны, колеблются в своей интенсивности. Настроение обычно повышено («дурашливое веселье»), со склонностью к странному и непонятному юмору, плоским шуткам. Беспричинный смех без достаточного основания может смениться плачем.

При гебефренической шизофрение часто используются нецензурная лексика см. https://arbat25.ru/myi-lechim/psixicheskie-rasstrojstva/ge...

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

Лечение нейролептиками довольно быстро устраняет и возбуждение, и ступор, но зато на первый план могут выступить гебефренические симптомы. Более часто кататоно-гебефренический синдром развивается постепенно или приходит на смену острому полиморфному синдрому или психопатоподобному дебюту (главным образом с картиной синдромов неустойчивого поведения или истероидного).
в таких случаях отчетливо бывают видны гебефренические симптомы — нелепая дурашливость, манерность, гримасничание, особая «холодная» эйфория, не заражающий, а неприятный смех, нарочитое карикатурное пуэрильное поведение (больной ведет себя как плохой актер, играющий ребенка). Наряду с ними в большей или меньшей степени бывают выражены симптомы кататонические: застывание в вычурных позах, бессмысленное стереотипное повторение одних и тех же движений, одних и тех же слов и фраз, периоды отсутствия речи (мутизм), повторение слов окружающих (эхолалия)

РЕАЛЬНЫЕ ИСТОРИИ

У подростка из обычной, среднестатистической, полной семьи диагностирована гебефреническая шизофрения. Родственников, страдавших психическими заболеваниями, у него никогда не было, в детстве он нормально развивался: ходил в детский сад, хорошо учился в школе.

С 14-ти лет родители заметили изменения поведения в худшую сторону. Это выражалось таким поведением:

• враждебный настрой ко всем окружающим;
• грубость в общении, употребление матерных слов;
• прогулы в школе;
• уверенность в своей непривлекательности;
• категорический отказ выполнять гигиенические процедуры;
• ---

• попытки сходить в туалет прямо посреди комнаты.

Далее ситуация только усугубилась. Мальчик вообще перестал посещать школу, бесцельно слонялся по городу. Иногда полностью раздевался, приставал к прохожим, тем самым пугая их. Новым увлечением стало курение и пристрастие к алкоголю. Был принудительно доставлен в клинику на лечение.

Девушка, 14 лет. Постоянно проживала с бабушкой. Родителей видела редко из-за частых, продолжительных командировок. Первые нарушения психики бабушка заметила год назад – в 13 лет. Проявлялись они внезапным истерическим смехом, размахиванием руками, выкрикиванием ругательств.

Пройденный курс лечения помог ненадолго – через 2 месяца девочка вновь бегала по улице и, заламывая руки, рассказывала каждому встречному, как дома ее бьют и издеваются. В данный момент она помещена в стационар для купирования острых симптомов. Прогнозов на ремиссию врач не дает.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Поговорим про элемент сетку в Visual FoxPro 7. Сетка очень нужна для отображения данных из определённой таблицы базы данных. Вот так выглядет сетка:

Сначало нужно указать в Recordsource таблицу, ну или базу данных (dbf):

А в заголовках сетки т.е.в Caption указываешь текст для отображения в данной ситуации заголовок Vorname:

Сетка находится тут:

Есть два способа добавить сетку:

1. Спомощью мастера:

2. Вручную:

Посмеёмся

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Продолжем болтавню про Visual FoxPro 7, хочу продолжить с помощью. Как делать помощь написано тут см. https://community-usoft-com.translate.goog/windows-gui-hel.... Сейчас минут через 5 я выставлю лишь код.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет! Продолжем с Visual FoxPro 7:

Так должна выглядеть справка:

main.hhp:

[OPTIONS]
Compatibility=1.1 or later
Compiled file=main.chm
Contents file=Table of Contents.hhc
Default topic=main.htm
Display compile progress=No
Language=0x407 Deutsch (Deutschland)

[FILES]
main.htm
test1.htm
test2.htm

[ALIAS]
#include alias.h

[MAP]
#include alias.h

[INFOTYPES]

main.htm:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft® HTML Help Workshop 4.1">
<Title>Hello</Title>
</HEAD>
<BODY>
<H1>HELLO</H1>
</BODY>
</HTML>

test1.htm:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft® HTML Help Workshop 4.1">
<Title>Hello</Title>
</HEAD>
<BODY>
<H1>Vorname</H1>
<IMG SRC="vorname.JPG" alt="Vorname">
<br>
Bla-bla-bla Vorname...
</BODY>
</HTML>

test2.htm:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft® HTML Help Workshop 4.1">
<Title>Hello</Title>
</HEAD>
<BODY>
<H1>Nachname</H1>
<IMG SRC="vorname.JPG" alt="Vorname">
<br>
Bla-bla-bla Nachname...
</BODY>
</HTML>

alias.h:

#define main  1
#define test1 100
#define test2 101

В элементе управление поле нужно указать в свойствах HelpContextID=100:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Мне что-то не спится, я читаю что пишит Перхоть см. https://groups.germany.ru/1179577/f/34752260.html?Cat=&pag.... Где-то примерно в 4-5 утра пойду спать. Сейчас ещё что-нибудь тут напишу. До отъезда в другую страну тут буду сидеть, потом в другой стране интернете долго не будет наверное, поэтому скорей всего меня не будет долго в интернете. Но это в зависимости сколько я буду в другой стране жить.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Всем привет! Продолжим демогогию. Вчера на ответах наткнулся на ответах mail.ru следующее, читайте и офигивайте:

Сейчас объясню как помощь работает. Это работает везде так. Короче сначало мы указываем в свойствах HelpContextID = 100:

Потом указываем в проекте файлы test1.html и alias.h:

[FILES]
main.htm
test1.htm
test2.htm
[ALIAS]
#include alias.h

В файле alias.h указана test1 = 100:

#define test1 100

Когда форма запущена и если мы находимся на поле Vorname, и нажимаем клавишу F1, то программа считывает что HelpContextID=100, и вызывает файл справки с 100, а там открывается страница test1.htm, вуаля!:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Давно незанимался Visual FoxPro 7, продолжим играться. Сегодня добавим иконочку на форму. Иконочка будет выглядет вот так:

1. Итак вот готовые иконочки заключённого:

2. Нажмём на Icon:

3. Выберим иконочку criminal4.ico:

4. Теперь она появилась на форме:

5. Вуаля! Вот иконочка на форме:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Давайте дальше играться. Короче я только-что обнаружил что в Visual FoxPro можно проигрывать звук, так скажем колокольчик (Bell, Warnton).

1.Вот я в настройках, в разделе Warnton добавил звуковой файл tada.wav, те Wiedargeben = tada.wav, см.:

2. Чтобы узнать какой установлен звуковой файл нужно написать следующую команду:

? SET("BELL", 1)

У меня показывает:

c:\windows\media\tada.wav

3. Чтобы запустить колокольчик напишим так:

SET BELL ON
? CHR(7)

Если написали правильно, то услышите звук. Лично я слышу в наушниках этот звук т.е.(tada.wav).

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Вот вспоминаю незадолго до отъезда в Германию запускаю Microsoft Visual FoxPro 5.0, и играюсь, а потом бац, и приходит вызов в Германию, срочно собираем вещи, и 01.04.2004 мы уже в Германии. Давайте дальше играться... чтобы закрепить так скажем знания.

Я в настройках Warnton Wiedergeben указываю C:\Windows\media\chord.wav:

Вот наш код:

SET BELL ON
txt = ""
txt = INPUTBOX("Your name?", "Input your name")
IF txt == "" THEN 
  ? CHR(7)
ELSE
  MESSAGEBOX("Hello " + txt + "!")
ENDIF

Запускаем, появляется такое диалоговое окно, в котором просит ввести ваше имя, если вводим допустим Anton Popov:

То показывается такое диалоговое окно, с надписью "Hello Anton Popov!":

Если же ничего не вводим, то услышим звуковой сигнал chord.wav.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Теперь давайте поменяем иконку у формы frmabout.scx (Info) с лисицы, вот на такую:

1. Нажмём на Icon:

2. Выберем иконку about.ico:

3. Вуаля! Вот новая иконка:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Подправлю иконку:

1. Я правлю в программе Junior Icon Editor, обвёл чёрные линии:

2. Добавлю about2.ico в форму:

3. Вот и результат:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Как тут уже писал выше, что с Microsoft Visual FoxPro 7.0 Professional Edition входит урезаный установщик InstallShield Express - Visual FoxPro Limited Edition:

Так выглядет когда создаёшь новый проект:

Есть немецкий, и даже русский язык:

Вот так выглядет созданый новый проект:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Спомощью InstallShield Express - Visual FoxPro Limited Edition можно создавать установщик, чтобы когда продаёшь готовый программный продукт можно было заказчику/клиенту установить эту программу на компьютер. Не знаю как InstallShield Express - Visual FoxPro Limited Edition, но в более дорогих версиях InstallShield возможно можно сделать активатор, т.е. когда компьютерная программа привязана к ключу, и этот ключ нужно активировать.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

В Алматы я был несколько раз на компьютерной выставке. И взял вот такие диски, там Российские разработчики а так-же обучающие компании программированию хвалили Microsoft Visual FoxPro, на этих дисках есть демо/тестовая версия Visual FoxPro, вот так выглядели диски с компьютерной выставке, которая проходила в Алматы каждый год в Атакенте:

Я не знаю зачем, но зачем-то я их взял с собой в Германию.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Вот выдержки из презентации Microsoft Visual FoxPro 6.0:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Вот ещё выдержка из презентации Microsoft Visual FoxPro 6.0:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида

Вот презентация по Microsoft Visual FoxPro 5.0:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида