ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / API _EdUndo(), _EdClose()
10 сообщений из 10, страница 1 из 1
API _EdUndo(), _EdClose()
    #35541331
BRROE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BRROE
Гость
Здравствуйте!

Имеется ли у кого пример манипулирования файлом (prg), загруженным в редактор ФоксПро через API функции аля _EdUndo(), _EdClose() и т.п. ?

Из Хелпа, например:
SET LIBRARY TO EDUNDO
= EDREDO("x")
осмыслить пока не получилось!

Понял что надо сделать
#include "C:\Program Files\Microsoft Visual FoxPro 9\Samples\API\pro_ext.h"
а что дальше?
...
Рейтинг: 0 / 0
16.09.2008, 10:57
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35541343
Мука
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мука
Участник
Нужно сперва создать библиотеку EDUNDO.FLL, потом подключить ее
SET LIBRARY TO EDUNDO.FLL ADDITIVE. В этой библиотеке должна быть описана функция
EDREDO.
После этого:
Код: plaintext
1.
 SET LIBRARY TO EDUNDO.FLL ADDITIVE
? EDREDO('X')
Можно пользоваться.
...
Рейтинг: 0 / 0
16.09.2008, 11:04
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35541349
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
BRROEИмеется ли у кого пример манипулирования файлом (prg), загруженным в редактор ФоксПро через API функции аля _EdUndo(), _EdClose() и т.п. ?

Внимательно смотрим исходники в подкаталоге Beautify в "c:\Program Files\Microsoft Visual FoxPro 9\Tools\xsource\xsource.zip"
...
Рейтинг: 0 / 0
16.09.2008, 11:05
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35541355
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
МукаНужно сперва создать библиотеку EDUNDO.FLL, потом подключить ее
SET LIBRARY TO EDUNDO.FLL ADDITIVE. В этой библиотеке должна быть описана функция
EDREDO.
После этого:
Код: plaintext
1.
 SET LIBRARY TO EDUNDO.FLL ADDITIVE
? EDREDO('X')
Можно пользоваться.
Не надо ее создавать. Уже есть в стандартной поставке фокса foxtools.fll c означенной и прочими другими функциями.
...
Рейтинг: 0 / 0
16.09.2008, 11:06
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35541361
12345зайчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345зайчик
Гость
автор _EdUndo(), _EdClose() и т.п. ?

эти ф-и находятся в FOXTOOLS.FLL


пример
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
if atc("FOXTOOLS.FLL", set("LIBRARY")) ==  0 
	m.cFoxToolsLibrary = addbs(sys( 5 )+sys( 2003 ))+"FOXTOOLS.FLL"
	if !file(m.cFoxToolsLibrary)
		return .f.
	endif
	set library to (m.cFoxToolsLibrary) additive
endif

activate window (thisform.CommWindow)

local lnWH, laa,lcOldClipText
lnWH = _WonTop()
declare laa[ 25 ], PR[ 1 ]
_EDGetEnv(lnWH,@laa)
m.PRGFILE=laa[ 1 ]
m.Kind=laa[ 25 ]
m.Size=laa[ 2 ]

lcOldClipText = _cliptext
_cliptext = thisform.cOldScript

=_EdSelect(lnWH, 0 ,m.Size)
=_EdDelete(lnWH)
=_EdPaste(lnWH)

_cliptext = lcOldClipText
=_EdRevert(lnWH)
release library (m.cFoxToolsLibrary)
...
Рейтинг: 0 / 0
16.09.2008, 11:08
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35541397
BRROE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BRROE
Гость
Теперь ясно.
Огромное всем спасибо за помощь!
...
Рейтинг: 0 / 0
16.09.2008, 11:18
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35542701
BRROE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BRROE
Гость
У меня FOXTOOLS.FLL от 13/12/2004 размер 53248. Фокспро 9SP1

Так в нем нету ряда функций (Например _EdSave)
_EdCloseFile() нужно вызывать как _EdCloseFi()

Где взять нормальный FOXTOOLS.FLL?
...
Рейтинг: 0 / 0
16.09.2008, 17:55
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35542717
12345зайчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345зайчик
Гость
есть такая беда

сохранение - это _EdRevert с бубнами - я ж тебе показал
...
Рейтинг: 0 / 0
16.09.2008, 18:01
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35542726
12345pfqxbr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345pfqxbr
Гость
вот тебе код кнопки сохранить

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
if atc("FOXTOOLS.FLL", set("LIBRARY")) ==  0 
	m.cFoxToolsLibrary = addbs(sys( 5 )+sys( 2003 ))+"FOXTOOLS.FLL"	
	if !file(m.cFoxToolsLibrary)
		return .f.
	endif
	set library to (m.cFoxToolsLibrary) additive
endif

activate window (thisform.CommWindow)
local lnWH, laa
lnWH = _WonTop()

declare laa[ 25 ], PR[ 1 ]
=_EDGetEnv(lnWH,@laa)
m.PRGFILE=laa[ 1 ]
m.Kind=laa[ 25 ]
m.Size=laa[ 2 ]

thisform.cNewScript = _EdGetStr(lnWH,  0 , m.Size)

=_EdRevert(lnWH)



release library (m.cFoxToolsLibrary)
...
Рейтинг: 0 / 0
16.09.2008, 18:03
| Ответить | Цитировать | Написать  
API _EdUndo(), _EdClose()
    #35542881
BRROE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BRROE
Гость
Нашел инструкцию по игре на бубне.
http://webzoom.freewebs.com/dsummzzz/TOOLHELP.zip

Кажись правдоподобная.

Осталось научиться танцевать.
...
Рейтинг: 0 / 0
16.09.2008, 19:32
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / API _EdUndo(), _EdClose()
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35541361&tid=1587281]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 325ms
total:  484ms
созд. / загр.: 484ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]