Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Обсуждение написание модуля на харборе УРОК4
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва

PostPosted: 10 Oct 2005 22:07    Post subject: А ведь не доходит. Reply with quote

Размещаю work.prg и harb.bat в папочку \\b4_plus\source. В Батничке все пути корректирую
set HB_INSTALL=..
.....
%HB_INSTALL%\bin\harbour %HFLAGS% %1 -o%HOUT%
Естественно компилируется почти без проблем, пока в исходнике не поставишь к примеру
#include "inkey.ch"
#include "Box.ch"
Тут опять сообщение об ошибке, не нахожу мол файлов.
Перекидывать их рядом с work.prg конечно можно, но ведь хочется чтобы виделись все "инклуды".
Что такое "работать в среде программирования, вызываемой по F11," вообще непонятно.
А если в отладчике забить путь к исходнику, то это только на текущий сеанс. При новом запуске опять подставляет ////\windows\system32 и т.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 10 Oct 2005 22:31    Post subject: Reply with quote

Когда Вы по F11 открываете нужный Вам файл то там по горячей
кнопке дальше по клавише F2 он Вас спрашивает компилировать с отладкой или без и при компиляции сделает все необходим
Back to top
View user's profile Send private message Send e-mail
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл

PostPosted: 11 Oct 2005 08:15    Post subject: Reply with quote

Я в 'моей функции' пытаюсь использовать функцию Dialog. Когда пользователь, вводя значение, нажимает на Enter, появляется окно корректировки, соответствующее Initlist, из которого была вызвана 'моя функция'. Как лучше избежать этого?
Back to top
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва

PostPosted: 11 Oct 2005 09:34    Post subject: Re: А ведь не доходит. Reply with quote

GVA wrote:
Размещаю work.prg и harb.bat в папочку \\b4_plus\source. В Батничке все пути корректирую
set HB_INSTALL=..
.....
%HB_INSTALL%\bin\harbour %HFLAGS% %1 -o%HOUT%
Естественно компилируется почти без проблем, пока в исходнике не поставишь к примеру
#include "inkey.ch"
#include "Box.ch"
Тут опять сообщение об ошибке, не нахожу мол файлов.

Если работаете из командной строки - тогда пропишите путь к инклудам, что-то типа:
%HB_INSTALL%\bin\harbour %HFLAGS% %1 -o%HOUT% -i%INCLUDEDIR%
GVA wrote:

Что такое "работать в среде программирования, вызываемой по F11," вообще непонятно.

Когда в реестре нажимаете Ctrl-F5, внизу горит подсказка: F11- среда программирования.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 11 Oct 2005 10:45    Post subject: Reply with quote

Марина wrote:
Я в 'моей функции' пытаюсь использовать функцию Dialog. Когда пользователь, вводя значение, нажимает на Enter, появляется окно корректировки, соответствующее Initlist, из которого была вызвана 'моя функция'. Как лучше избежать этого?


Дело вот в чем.
При организации InitList код ENTER определяется для выполнения корректировки. Другая функция не можете переопределить существующий код клавиши и это вобщем-то разумно. Для этого Вам нужно сбросить его в NIL. Делать это возможно таким образом :

Code:
FUNCTION myf()
   Local aSetKey
   aSetKey:= SaveSetKey() - запоминание и обнуление клавиш
       DIALOG()
*****
   RestSetKey(aSetKey) - восстановление кодов клавиш после завершения работы Вашей функции
RETURN NIL
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 11 Oct 2005 12:06    Post subject: Reply with quote

Марина а кстати почему DIALOG ?
QINPUT - куда интереснее...
Back to top
View user's profile Send private message Send e-mail
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл

PostPosted: 11 Oct 2005 12:15    Post subject: Reply with quote

О Учитель! Мы рады заняться куинпутом, но наверное это тема следующих уроков?
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 11 Oct 2005 12:29    Post subject: Reply with quote

У нас впереди еще много интересного
Back to top
View user's profile Send private message Send e-mail
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл

PostPosted: 11 Oct 2005 12:33    Post subject: Reply with quote

Если серьезно, надо обязательно заняться QInput, но там ведь много надо объяснять, что зачем.

Я вот еще видела в форуме еще функцию SaveSet. В каких случаях требуется ее использование? Ведь вроде бы в примерах, в которых использовалась эта функция, не фигурировали переопределения set-ов.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 11 Oct 2005 13:03    Post subject: Reply with quote

В QINPUT если вглядеться то очень много общего с INITLIST
Но обязательно займемся
Что касается SaveSet - то она сохраняет состояние экрана,
текущую рабочую область,цветовую палитру, положение курсора, текущую строку, колонку..... (но не фильтры, индексы,связки)
Back to top
View user's profile Send private message Send e-mail
Светлана



Joined: 22 Jul 2002
Posts: 416
Location: Эпштейн Светлана

Interests: Бердск, Новосибирская обл

PostPosted: 12 Oct 2005 05:05    Post subject: Reply with quote

А можно "горячей" сделать просто функциональную клавишу, без SHIFT,CTRL,ALT?
Back to top
View user's profile Send private message Send e-mail
Светлана



Joined: 22 Jul 2002
Posts: 416
Location: Эпштейн Светлана

Interests: Бердск, Новосибирская обл

PostPosted: 12 Oct 2005 10:39    Post subject: Reply with quote

и еще. по поводу DIalog(). Есть какая нибудь "недокументированная" возможность выводить текст в несколько стро
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 12 Oct 2005 11:54    Post subject: Reply with quote

Светлана wrote:
А можно "горячей" сделать просто функциональную клавишу, без SHIFT,CTRL,ALT?


Да это через обычный SETKEY - данный параметр мы рассматриваем через InitList - потому что он при нажатии SHIFT,CTRL,ALT еще и меню на экране отображает а простую подсказку снизу Вы и сами нарисовать сможете
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 12 Oct 2005 11:55    Post subject: Reply with quote

Светлана wrote:
и еще. по поводу DIalog(). Есть какая нибудь "недокументированная" возможность выводить текст в несколько строк?


Если вместо переменных и сообщений использовать массив переменных и массив сообщений - то будет в несколько стро
Back to top
View user's profile Send private message Send e-mail
Светлана



Joined: 22 Jul 2002
Posts: 416
Location: Эпштейн Светлана

Interests: Бердск, Новосибирская обл

PostPosted: 12 Oct 2005 14:12    Post subject: Reply with quote

Не получается.
Пишу :
aMes:= array(2)
aMes[1]:= “Остаток на счете”+str(nSum,11,2)
aMes[2]:=”Разнести сумму:”
nS1:= DIALOG(aMes,”99999999.99”,nS2)

На экране появляется только первая строка и окошко для Get. Может надо где-то еще задавать кол-во стро
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru