Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Экранные Средства    >>    vdos
   
 
 VDOS - Высокоуровневый интерфейс к Turbo Prof.   Виктор Вагнер 31.05.1994

Высокоуровневый интерфейс к Turbo Professional, позволяющий за одну строчку вызвать окошко ввода имени файла с выбором из списка, создать выскакивающее окошко для ввода строки или числа и т.д.



6k 
 

From: "Victor B. Wagner" <vitus@agropc.msk.su> Модуль VDOS - набор высокоуровневых интерфейсов к Turbo Professional, позволяющих за одну строчку вызвать окошко ввода имени файла с выбором из списка, создать выскакивающее окошко для ввода строки или числа и т.д. Да, он задает определенный стиль интерфейса (в нем даже определены цвета по умолчанию), но при написании небольших интерактивных программ он позволяет сэкономить время, не конструируя интерфейсных элементов заново. В общем, это аналог Vision-овских модулей StdDlg и MsgBox, только для Professional. Правда, сюда входят некоторые вещи из области интерфейса файловой системы, типа создания резервной копии файла перед ее перезаписью, не вошедшие в модуль swdos, точнее его предшественник тех времен, когда я писал на Professional. Как это работает: Oбщие принципы: 1. Все что можно, делается по умолчанию. 2. Все умолчания, которые можно, можно менять. Процедуры и функции function SearchFile(var flname:string;ext:extstr):byte; Выдает окошко для ввода имени файла, помещая туда в качестве значения по умолчанию '*.'+ext, если flname была пустой строкой, или ее старое значение. Если после нажатия Enter flname не содержит расширения, добавляется ext. Если в том, что получилось, содержатся звездочки и вопросительные знаки, создается окошко со списком файлов, удовлетворяющих шаблону и пользователь может выбрать. Esc возвращает в строку ввода. Функция возвращает: 0- выбрано имя существующего файла 1- выбрано имя несуществующего файла 2- пользователь отказался от выбора (нажал Esc в окошке ввода имени) По интерфейсу очень похоже на среду Turbo Pascal 5.x, если кто такую помнит Функции ввода строки: function getname(var s:string;prompt:string):boolean; function getreal(var r:TPString.Float;prompt:string):boolean; function getlongint(var l:longint:prompt:string):boolean; все работают одинаково. Выдают выскакивающее окошко с указанным в параметре Prompt заголовком и позволяют ввести значение. Возвращают