Производительность труда [3/3]
Vladimir Tokarev
* в RU.FOXPRO
* в RU.VISUAL.FOXPRO
******************
*> File: _quit.txt
*
* Запись буфера в файл _cliptext.TMP
*
set safety off
IF NOT EMPTY(_cliptext)
StrToFile(_cliptext, '_cliptext.TMP')
ENDIF
QUIT
* eof: _quit.txt
****************
*****************
*> Файл: _del.prg
**
** удаление от текущей записи до конца файла или до начала
** вызывается из системного меню после работы _system.txt
** Файл работает в пунктах меню ФоксПро "Record -> Delete/Recall ..."
**
LPARAMETERs tnChoice
IF PARAMETERS() < 1 OR TYPE('tnChoice') <> 'N'
tnChoice = 1
ENDIF
DO CASE
CASE tnChoice = 1 && 'Delete\Recall to EOF'
do while not eof()
if not deleted()
delete
else
recall
endif
skip
enddo
CASE tnChoice = 2 && 'Delete\Recall to BOF'
do while not bof()
if not deleted()
delete
else
recall
endif
skip -1
enddo
ENDCASE
RETURN
* eof: _del.prg
***************
*****************
*> File: _mew.prg
*
* Старт редактора Мульти-Эдит (этот Файл вызывается из _system.txt)
* Файл работает в пункте меню ФоксПро "Tools -> Редактор Multi-Edit"
* 1 Active and normal size
* 2 Active and minimized
* 3 Active and maximized
* 4 Inactive and normal size
* 7 Inactive and minimized
RUN /N3 d:\mew\mew32.exe /sr
RETURN
* eof: _mew.prg
***************
******************
*> File: _msdn.prg
*
* Старт разных версий MSDN (FoxPro Help)
* Файл работает в пункте меню ФоксПро "Help"
* 1 Active and normal size
* 2 Active and minimized
* 3 Active and maximized
* 4 Inactive and normal size
* 7 Inactive and minimized
LPARAMETERs tnChoice
IF PARAMETERS() < 1 OR TYPE('tnChoice') <> 'N'
tnChoice = 1
ENDIF
Local lchh
lchh = ADDBS(GETENV('windir')) + 'HH.EXE' && D:\WINNT\HH.EXE
DO CASE
CASE tnChoice = 1 && msdn 1999
RUN /N3 &lchh "C:\PROGRAM FILES\MICROSOFT VISUAL
STUDIO\MSDN\99APR\1033\FoxHelp.chm"
CASE tnChoice = 2 && msdn 2001
RUN /N3 &lchh D:\VS60\MSDN\2001JUL\1033\Fox7Help.chm
CASE tnChoice = 3 && knowledge base 1999
RUN /N3 &lchh "C:\PROGRAM FILES\MICROSOFT VISUAL
STUDIO\MSDN\99APR\1033\kbfoxpro.chm"
CASE tnChoice = 4 && knowledge base 2001
RUN /N3 &lchh D:\VS60\MSDN\2001JUL\1033\kbfoxpro.chm
ENDCASE
RETURN
* eof: _msdn.prg
****************
*********************
*> File: _compile.prg
* Компилирует все файлы в рабочем каталоге
* Файл работает в пункте меню ФоксПро "Program -> Compile All"
* Структура рабочего каталога
* (для нахождения файлов заголовков *.H)
SET PATH TO ,CLASS,;
DATA,;
FLL,;
FORM,;
GRAPHIC,;
HELP,;
INCLUDE,;
LIBRARY,;
MENU,;
METADATA,;
OTHER,;
PROGRAM,;
REPORT
* Массив имен подкаталогов с .PRG & .MPR
Local laDir[1]
DIMENSION laDir[5]
laDir[1] = 'class'
laDir[2] = 'fll'
laDir[3] = 'library'
laDir[4] = 'menu'
laDir[5] = 'program'
*******************
Local laArray[1], ;
laFile[1], ;
i, ;
j
* Главный каталог
COMPILE *.prg && ENCRYPT NODEBUG
COMPILE *.mpr && ENCRYPT NODEBUG
IF ADIR(laArray, '*.err') > 0
CLEAR TYPEAHEAD
For i=1 to aLen(laArray, 1)
? ' ' + laArray[i,1]
EndFor
? chr(7)
Wait Window 'ОШИБКИ, ПРИ КОМПИЛЯЦИИ, В ГЛАВHОМ КАТАЛОГЕ' NOWAIT
ENDIF
* Подкаталоги
FOR i=1 to aLEN(laDir,1)
IF ADIR(laFile, ADDBS(ALLTRIM(laDir[i])) + '*.prg') > 0
COMPILE ADDBS(ALLTRIM(laDir[i])) + '*.prg' && ENCRYPT NODEBUG
ENDIF
IF ADIR(laFile, ADDBS(ALLTRIM(laDir[i])) + '*.mpr') > 0
COMPILE ADDBS(ALLTRIM(laDir[i])) + '*.mpr' && ENCRYPT NODEBUG
ENDIF
IF ADIR(laArray, ADDBS(ALLTRIM(laDir[i])) + '*.err') > 0
CLEAR TYPEAHEAD
For j=1 to aLen(laArray, 1)
? ''
? ' ' + ADDBS(ALLTRIM(laDir[i])) + laArray[j,1]
EndFor
? chr(7) + chr(7)
Wait Window 'ОШИБКИ, ПРИ КОМПИЛЯЦИИ, В ПОДКАТАЛОГЕ ' + ;
ADDBS(laDir[i]) NOWAIT
ENDIF
ENDFOR
RETURN
* eof: _compile.prg
*******************
_Клавиши, задействованные в основном меню VFP 6.0_
+ - определены изготовителем СУБД
! - назначены (или переопределены) мною в приведенном примере кода
w - принадлежат операционной системе Windows
- - нельзя использовать
- не задействовано в описанной выше среде
(Shift+F3 , Shift+F4 и Alt+L определяют вставки к браузеру классов)
CTRL ALT SHIFT
A + + -
B ! ! -
C + + -
D + +! -
E + + -
F + + -
G + ! -
H + + -
I + -
J + -
K ! -
L + ! -
M + + -
N + -
O + + -
P + + -
Q + + -
R + +! -
S + -
T + + -
U ! -
V + + -
W + + -
X + -
Y + -
Z +! -
F1 +! + !
F2 ! +
F3 ! !
F4 ! + + !
F5 +! +
F6 ! +
F7 ! +
F8 ! +
F9 ! +
F10 +! + +
F11 !
F12 !
ESC W W -
BACKSPACE ! -
INS ! -
DEL ! -
HOME + ! -
END + ! -
PGUP + -
PGDN + -
TAB W
SPACEBAR W -
LEFTARROW -
RIGHTARROW -
UPARROW -
DOWNARROW -
ENTER + -
0 ! -
1 - ! -
2 - ! -
3 - -
4 - ! -
5 - -
6 - -
7 - -
8 - -
9 - -
---------------------------------------------------------------------
CTRL
A + Select All (Edit)
B ! Browse (DBF)
C + Copy (Edit)
D + Do (Program)
E + Do (*.prg) (Program)
Run Form (Form)
Delete Item (Menu)
F + Find (Edit)
G + Find Again (Edit)
H + Change Part (Table)
I + Insert Item (Menu)
J + Project Info (Project)
K ! Калькулятор (Tools)
L + Replace (Edit)
M + Resume (Program)
N + New (File)
O + Open (File)
P + Print (File)
Q + Run Query (Query)
Closes the active window or dialog box
R + Redo (Edit)
S + Save (File)
T + Delete (Table)
U ! Undo (Edit)
V + Paste (Edit)
W + As Ctrl+Q and saves changes
X + Cut (Edit)
Y + Append New (Table)
Z +! Undo (Edit) -> Clear (Edit)
F1 + Cycle (Window)
F2 + Command (Window)
F3
F4 + Closes active window
F5 + Restores maximized window
F6 + Cycles windows
F7 + Moves active window
F8 + Sizes active window
F9 + Minimize (Window)
F10 + Zoom (Window)
F11
F12
ESC W Hет в ФоксПро (Аналог нажатия "Пуск" в Виндоуз)
BACKSPACE
INS
DEL
HOME + Move to first object (Properties Window)
END + Move to last object (Properties Window)
PGUP + Move to previous object (Properties Window)
PGDN + Move to next object (Properties Window)
TAB
SPACEBAR
LEFT ARROW
RIGHT ARROW
UP ARROW
DOWN ARROW
ENTER
0
1 - Hет в ФоксПро
2 - Hет в ФоксПро
3 - Hет в ФоксПро
4 - Hет в ФоксПро
5 - Hет в ФоксПро
6 - Hет в ФоксПро
7 - Hет в ФоксПро
8 - Hет в ФоксПро
9 - Hет в ФоксПро
---------------------------------------------------------------------
ALT
A + 'Table'
B ! Запуск 'Class Browser'
C + 'Class'
D +! 'Database' , 'DBF'
E + 'Edit'
F + 'File'
G ! Запуск 'Debugger'
H + 'Help'
I
J
K
L ! Запуск 'Class Browser' с последним классом
M + 'Form' , 'Menu'
N
O + 'Format' , 'Project'
P + 'Program'
Q + 'Query'
R +! 'Report' , 'Record'
S
T + 'Tools'
U
V + 'View'
W + 'Window'
X
Y
Z
F1 ! User`s help
F2
F3
F4 + QUIT
F5
F6
F7
F8
F9
F10 + Play a macro
F11
F12
ESC W
BACKSPACE ! Delete or Recall to BOF
INS ! Insert a record
DEL ! Delete or Recall to EOF
HOME ! Go Top
END ! Go Bottom
PGUP
PGDN
TAB W Hет в ФоксПро (Переключение задач в ОС)
SPACEBAR W Hет в ФоксПро (Меню окна в ОС)
LEFT ARROW
RIGHT ARROW
UP ARROW
DOWN ARROW
ENTER + Edit Properties
0 ! Перейти к средней записи таблицы
1 ! VGA25 (Window)
2 ! VGA50 (Window)
3
4 ! Вызов внешнего редактора
5
6
7
8
9
---------------------------------------------------------------------
SHIFT
F1
F2
F3 Старт 'Class Browser' с последним 'Modify Class'
F4 Modify Class 'последнего класса'
F5
F6
F7
F8
F9
F10
F11
F12
TAB
---------------------------------------------------------------------
_Hедоработки_
В браузере классов на F5 установлено "обновление"
_Перспективы_
В системное меню можно ввести новый попап, по идеи из NC 5.0
(В NC при наличии в каталоге файла tools.mnu :
имя пункта1;команда1
имя пункта2;команда2
вверху появляется пункт Tools)
_Примечание_
ФАК состоит из основного материала - Continuing with "FAQ" for you...
и пpиложений с темами:
Библиотека МайкроСофт для ФоксПро
Hовейшая история эхи RU.FOXPRO
Hовейшая история эхи RU.VISUAL.FOXPRO
Internet - ресурсы для работы с FoxPro
API библиотеки
ReFox - вопросы и ответы
Архивы файлов для СУБД ФоксПро
Производительность труда
- Создание "среды" для разработки программ.
- Сравнение PRG-классов против VCX-классов. (послано в Фидо 12.09.2003)
HTML веpсию матеpиала можно посмотpеть на:
http://foxclub/faq.php3 (ваpиант от января 2001 г.)
Вариант от 14.08.2001 г.
http://foxpopuli.narod.ru/tokarev/
Здесь пpиложение [Создание "среды" для разработки программ] от 08.03.2003