On-line: Andrey, PSP, Haz, гостей 2. Всего: 5 [подробнее..]
АвторСообщение



Пост N: 16
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 03.02.16 23:26. Заголовок: Почему?


Почему?
Я не понимаю, почему в одних местах я пишу Fontname и Fontsize, а в других – Font и Size (тогда бы уж по логике – Name и Size).
Я не понимаю, почему в DoMethod или SetProperty я пишу сначала имя формы, потом имя контрола, а в _ExtDisableControl, например – наоборот?
Я не понимаю, почему в DEFINE BROWSE есть ALLOWEDIT < .T. | .F.> ] [ INPLACEEDIT < .T. | .F.> ] [ ALLOWAPPEND < .T. | .F.> ],
а в [ @ <nRow> ,<nCol> BROWSE - [ LOCK ] и [ DELETE ]
Почему, писючи программку, ч каждый раз останавливаюсь, думая, что писать: INPUTMASK или PICTURE?
Ну и т д.
Это что – первую волну разработчиков скосили пулеметами, а последующие в азарте подхватывали упавшее знамя, не рассматривая что на нем – серп с молотом или веселый Роджер…. ((((
Когда-то примерно при 4 с конца генсеке активно пропагандировали Neat-Pl, но там была преемственность с Pl/1 и о том, какое это благо, даже не задумывались… ((((
Четверть века назад мне приходилось в течение где-то месяца с перерывами в 20-30 мин то колотить по ФЫВАПовской клавиатуре ec7920 (при этом постоянно помнить – не дай бог нажать Fk3, кажется – там тоже такие клавиши были, но чисто с аппаратн назначением), то по клаве суперового 286. И каждый раз напоминать себе – где пишется Then после If, а где нет, и где можно набивать по несколько операторов в одной строке.
Сейчас вот такое же состояние…..
Вся радуга моих талантов наиболее полно отражается в трехстопье “Плагиатор-Рутинер-Штамповщик”, посему текущие условия дюже грузят и так перегруженную голову…. ((((
Пишу не в ожидании ответа, а просто душа вылиться хочет…


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 40 , стр: 1 2 All [только новые]





Пост N: 17
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 04.02.16 00:01. Заголовок: P S На эту тему вспо..


P S
На эту тему вспомнился бородатый анекдот про урок русского языка в грузинской школе и его итог: "Понять это нельзя, это модно толко запомнит!"


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 18
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 04.02.16 00:09. Заголовок: P P S И вопрос уже с..


P P S
И вопрос уже сегодняшнего дня:
Как в Browse получить/изменить цвет тевущей (выделенной) строки таблицы?
Не нашел, увы, в примерах (это к Andrey ))) ).


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4683
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 04.02.16 03:38. Заголовок: mshep пишет: Как в ..


mshep пишет:

 цитата:
Как в Browse получить/изменить цвет тевущей (выделенной) строки таблицы?


В МиниГуи есть Browse и TsBrowse. С Browse не работал вообще, сразу начал с TsBrowse.

Для TsBrowse изменить цвет: "тевущей (выделенной) строки таблицы" - это 5 и 6 параметр массива цвета.
Смотреть примеры: \MiniGUI\SAMPLES\Advanced\Tsb_colors_2 и \MiniGUI\SAMPLES\Advanced\Tsb_config

oBrw1:SetColor( { 1}, { { || CLR_BLACK } } ) // 1 , текста в ячейках таблицы
oBrw1:SetColor( { 2}, { { || MyRGB(aBackClr) } } ) // 2 , фона в ячейках таблицы
oBrw1:Setcolor( { 3}, { CLR_YELLOW } ) // 3 , текста шапки таблицы
oBrw1:SetColor( { 4}, { { || { nHeadClr1, nHeadClr2 } } } ) // 4 , фона шапка таблицы
oBrw1:SetColor( { 5}, { { || CLR_BLACK } } ) // 5 , текста курсора, текст в ячейках с фокусом
oBrw1:SetColor( { 6}, { { || { 4915199,255} } } ) // 6 , фона курсора
oBrw1:SetColor( { 7}, { { || CLR_RED } } ) // 7 , текста редактируемого поля
oBrw1:SetColor( { 8}, { { || CLR_YELLOW } } ) // 8 , фона редактируемого поля
oBrw1:SetColor( { 9}, { CLR_YELLOW } ) // 9 , текста подвала таблицы
oBrw1:SetColor( {10}, { { || { nHeadClr1, nHeadClr2 } } } ) // 10, фона подвала таблицы
oBrw1:SetColor( { 11 }, { { || CLR_GRAY } } ) // 11, текста неактивного курсора (selected cell no focused)
oBrw1:SetColor( { 12 }, { { || { RGB(255,255,74), RGB(240,240,0)}} } ) // 12, фона неактивного курсора (selected cell no focused)
oBrw1:SetColor( { 13 }, { { || CLR_HRED } } ) // 13, текста шапки выбранного индекса
oBrw1:SetColor( { 14 }, { { || { nHeadClr1, nHeadClr2 } } } ) // 14, фона шапки выбранного индекса
oBrw1:SetColor( { 15 }, { { || CLR_GRAY } } ) // 15, линий между ячейками таблицы
oBrw1:SetColor( {16}, { { || { nHeadClr1, nHeadClr2 } } } ) // 16, фона спецхидер
oBrw1:SetColor( {17}, { { || CLR_WHITE } } ) // 17, текста спецхидер
oBrw1:SetColor( { ХХ - смотреть примеры

Цвета CLR_* смотреть в TSBROWSE.CH
При задании цвета так: { nHeadClr1, nHeadClr2 } будет градиент из 2-х цветов.

Можно цвета задавать и так:
// переназначим цвет: строка маркера/курсора текущй записи таблицы
oBrw1:SetColor( { 6 }, { { |a,b,c| IF( c:nCell == b,{ 4915199, 255 },;
{ Rgb( 255, 192, 160 ), Rgb( 255, 226, 0 ) }) } } )

// примеры закраски всей строки по номеру строки таблицы чет\нечет
oBrw1:SetColor( { 2 }, { { |a,b,o| iif( o:nAt % 2 == 0, RGB( 255, 255, 255 ), RGB( 230, 230, 230 ) ) } } )

// примеры закраски всей строки по номеру месяца из строки o:aArray[o:nAt][5] (5-я ячейка таблицы, тип поля ДАТА)
oBrw1:SetColor( { 2 }, { { |a,b,o| iif( Month(o:aArray[o:nAt][5]) % 2 == 0, ;
MyRGB( {0, 204, 255} ) ,;
MyRGB( aBackClr ) ) } } )

////////////////////////////////////////////////////////////////////
// Функции ЦВЕТА
FUNCTION MyRGB(aDim)
RETURN RGB(aDim[1],aDim[2],aDim[3])


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 766
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 04.02.16 10:51. Заголовок: Andrey пишет: Для T..


Andrey пишет:

 цитата:
Для TsBrowse изменить цвет:



Дополню Андрея по TSBrowse.
Пример Tsb_Cursor - вся текущая строка меняет цвет. Это достигается установкой флага lFixLite в колонках где цвет менять надо
В примере это все, поэтому
 
AEval( oBrw:aColumns, {|oCol| oCol:lFixLite := .T. } )

Но можно и определенные колонки установить к покраске

 
oBrw:aColumns[1]:lFixLite := .T.
oBrw:aColumns[3]:lFixLite := .T.
oBrw:aColumns[5]:lFixLite := .T.


Саму окраску курсора в нужных колонках делает 6-й параметр SetColor
К примеру
 
oBrw:SetColor( { 6 }, { {|a, b, c| IF( c:nCell == b, { RGB( 66, 255, 236 ), RGB( 111, 183, 155 ) }, ;

где,
a - сам бровс объект
b - номер колонки в которой есть курсор
с - текущая окрашиваемая колонка

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 84
Зарегистрирован: 12.02.08
ссылка на сообщение  Отправлено: 04.02.16 15:57. Заголовок: Как красить Browse S..


Как красить Browse SAMPLE\BASIC\BROWSE7\

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 873
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.02.16 16:46. Заголовок: mshep пишет: Я не п..


mshep пишет:

 цитата:
Я не понимаю, почему в DEFINE BROWSE есть ALLOWEDIT < .T. | .F.> ] [ INPLACEEDIT < .T. | .F.> ] [ ALLOWAPPEND < .T. | .F.> ],
а в [ @ <nRow> ,<nCol> BROWSE - [ LOCK ] и [ DELETE ]


Потому что это два разных стиля синтаксиса, поодерживаемые в Минигуи:
1- альтернативный синтаксис;
2- базовый (основной) синтаксис.

mshep пишет:

 цитата:
Я не понимаю, почему в DoMethod или SetProperty я пишу сначала имя формы, потом имя контрола


А использование функций DoMethod и SetProperty - это третий стиль синтаксиса

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4684
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 04.02.16 17:53. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
это третий стиль синтаксиса



Давайте его тоже как нибудь назовём ?

Т.е. есть стиль синтаксиса: базовый, альтернативный и ?????
А то слово третий как то не по русски ... (анология совсем другая напрашивается, как в Кавказкой пленнице - третьим будешь ? )

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 874
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.02.16 21:30. Заголовок: Andrey пишет: Давай..


Andrey пишет:

 цитата:
Давайте его тоже как нибудь назовём


Это функциональный синтаксис. А есть еще и четвертый - командный синтаксис

Примеры командного синтаксиса ниже:

 цитата:

MODIFY PROPERTY ;
CONTROL Button_1 ;
OF Form_1 ;
CAPTION 'New Caption'

FETCH CONTROL Button_1 OF Form_1 CAPTION TO TmpVar



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 19
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 07.02.16 17:20. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Потому что это два разных стиля синтаксиса, поодерживаемые в Минигуи:
1- альтернативный синтаксис;
2- базовый (основной) синтаксис.


Типа - для хохлов один, для москалей - другой?
А 3 и 4 уже белорусы придумали что ли? ((((



Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1184
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 07.02.16 17:26. Заголовок: mshep, придётся прис..


mshep, придётся приспосабливаться. С вас же денег не просят))

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 20
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 07.02.16 17:26. Заголовок: valery2 пишет: Как ..


valery2 пишет:

 цитата:
Как красить Browse SAMPLE\BASIC\BROWSE7\


Пасибки, раскрашивать проблем нет. Мне надо в подсказку для пользователя передать гамму используемых в табл для разл.строк цветов.
Цвета что я использую я туда без проблем передаю, а то, что сам Browse использует - (цвет текущ строки) - приходится просто на глазок подбирать или в открытую писать: "сыный" ))).
Типа x_col = GetProperty( X_form, 'Browse_1', 'цвет для тек.строки' ) надо.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 21
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 07.02.16 17:28. Заголовок: PSP пишет: mshep, п..


PSP пишет:

 цитата:
mshep, придётся приспосабливаться. С вас же денег не просят))


Когда-то в 90-91 я купил дистрибутив и доки по Clipper5.
Это единственное лицензионное (не шаровое) мат обеспеч, что я использовал в жизни. )))
А книжки (синенькие) теперь наверно уже раритет.
VB6 мне обошелся в 12 гривен лет 10 назад, помню, за компашку с инсталляцией


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 22
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 07.02.16 17:36. Заголовок: И еще посл.вопрос, ..


И еще посл.вопрос, пока не ушел:
Какой генератор отчетов удобнее подключить в Clipper? FastReport может быть установлен в Borland Delphi 4-7, 2005 и C++Builder 4-6 а здесь?
В IDE видел какой-то встроенный, но не вдохновил он меня.
И можно ли в нем описывать переменное число колонок таблицы (точное кол-во определяется на этапе выполнения)?
А то грозит мне, подозреваю, все-таки через Word тащить формы.... (((


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4686
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.02.16 20:28. Заголовок: mshep пишет: А то г..


mshep пишет:

 цитата:
А то грозит мне, подозреваю, все-таки через Word тащить формы.... (((


Через Ексель лучше будет ! Пример давал.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 23
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 08.02.16 00:28. Заголовок: Догадываюсь. Но бух..


Догадываюсь. Но бухгалтера - народ консервативный....... Я их успел к ворду прочно приручить. (((((


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4687
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 08.02.16 00:37. Заголовок: mshep пишет: Я их у..


mshep пишет:

 цитата:
Я их успел к ворду прочно приручить.



Тогда переделай пример под Ворд. Будет возможность по эксперементировать.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 24
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 08.02.16 01:01. Заголовок: Простенькие таблички..


Простенькие таблички в вордах печатаю сразу.
А сейчас к ж/о переходить время.
Проблема - узнать как пишется объединение ячеек таблицы, добавление/удаление столбцов.
По натуре я штамповщик, мне умненькое увидеть, к себе приладить, а далее наштампую!! )))
Мне сейчас элементарная подсказка от умных ребятишек нужна:
Вот есть уже созданная табличка в ворде -
oTable := oActive:Tables[3] например.
Всего-то 4 действия нужны:
1) вставить какое-то число столбцов в опред место таблицы (например, после 3 столбца добавить еще 5)
Как сие пишется? InsertColumnsRight что ли? и как указывается старт номер столбца?
2) То же с Delete: удалить например 2 столбца после первых трех ( т е 4 и 5)
3) объединение ячеек строки заголовка (например, объединить в первой строке ячейки с 3 по 8 в одну
Здесь сразу вопрос: а к Cells[9] потом обращаться как к Cells[9] или Cells[4] (если по этой строке)?
4) объединение ячеек по вертикали (например, в 1 колонке объединить ячейки 1 и 2 строк.
Все остальное доштампую, формы в основном не более 3-4 листов, так что и в ворде не слишком долго.
А сейчас пока печатаю им в txt даже бех псевдографики, как в добрые dosoвские времена....


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 767
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 08.02.16 10:42. Заголовок: mshep пишет: Я их у..


mshep пишет:

 цитата:
Я их успел к ворду прочно приру


Не стоит останавливаться , открой им мир Excel.
А по существу - работа в Worde с таблицами через VBA даже не поддерживает запись макросов и

 цитата:
элементарная подсказка от умных ребятишек


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


Спасибо: 1 
ПрофильЦитата Ответить
администратор




Пост N: 5478
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 08.02.16 11:21. Заголовок: Haz пишет: Андрей д..


Haz пишет:

 цитата:
Андрей дело говорит - рисуй в Excel


+1

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 516
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 08.02.16 12:19. Заголовок: Для работы с rtf фо..


Для работы с rtf форматом с любым редактором(Word, OpenOffice,Ashampoo и др.), поддерживающих rtf, есть неплохая программка reportf. Можно делать многоуровневые отчеты и т.п. Колонки вставлять или она не умеет или я не знаю как, но у меня и необходимости такой не было. Но это решается просто - можно предусмотреть несколько шаблонов , если их разумное количество, конечно.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 25
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 08.02.16 20:27. Заголовок: Переменное кол-во ко..


Переменное кол-во колонок - ж/о. При кажом запуске их может быть от 0 до 15-20 по Дб и от 0 - до 15-20 по Кр (самые уж критичные случаи и не рассматриваю). Итого переменная часть отчета - от 1 до 40 колонок. Плюс 2-5 постоянные слева и как минимум одна (итог) справа.
В DOSе я рисовал все это псевдографикой и еще предусматривал разбиение при необходимости таблицы на 2-4 по ширине (выводил все это добро одновременно в 2-4 файла, а потом склеивал эти файлы в один) - т е печатались последовательно несколько листов по ширине. . Сейчас уже энтузиазма на такое нет и псевдографики в 1251 тоже нет. ((((
vbaxl10.chm не нашел ни у себя ни у заказчиков, но буду искать, как "перламутровые пуговицы". Или терпеливо ждать, когда какая-нибудь добрая душа пример модификации таблицы водровской вышлет.... (((

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 5479
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 08.02.16 22:27. Заголовок: mshep пишет: vbaxl1..


mshep пишет:

 цитата:
vbaxl10.chm не нашел ни у себя ни у заказчиков


лови
http://my-files.ru/5xub16

mshep пишет:

 цитата:
и псевдографики в 1251 тоже нет


чеканул в FAR , все норм рисуется.
скопировал в MS WORD установив в нем моноширинный шрифт (Lucida Console) тож норм :)

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 27
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 09.02.16 01:38. Заголовок: Ликуй народ: за вече..


Ликуй народ: за вечер хоть добавление колонок методом перебора всех англ слов что знаю, нашел. Теперь пошло дело.....
За chm спасибо.
Я в старой программе формировал txt и вызывал на него word. Пользователи указывали кодировку Dos при преобразовании и читали там... Но рамки (псевдографику) - добавлял из программы!!
Но собирать исходники *.prg, хранящиеся в разной кодировке Dos и Win - голова уже не выдержит..... (((((
Побьюсь еще с выводом в табл.Worda....

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 28
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 09.02.16 01:41. Заголовок: Dima пишет: лови h..


Dima пишет:

 цитата:
лови
http://my-files.ru/5xub16



А вот ввести пароль для зашифр.файла не удается дедушке.... (((


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 29
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 09.02.16 01:42. Заголовок: Dima пишет: лови h..


Dima пишет:

 цитата:
лови
http://my-files.ru/5xub16


Может, есть возможность на почту - mshep@i.ua и даже не заархивированный?

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 5480
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 09.02.16 09:19. Заголовок: mshep Пароль mshep..


mshep
Пароль mshep

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 30
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 21.02.16 15:43. Заголовок: Haz пишет: Андрей д..


Haz пишет:

 цитата:
Андрей дело говорит - рисуй в Excel ( не показывая его на экране ), а потом просто копируй таблицу в Word.
Сейчас тебе 4 действия нужны, потом формулы в ячейках захочешь и опять приплыли т.к. любимая подсказка как запись макроса не работает



Да уж.....
До конца буду биться - к репортам не приплывать...
Пока некоторые формы сделал в Word, но больно трудоемко и не шустро работает, некоторые - тупо забрал из DOS своего переделав псевдографику на "|" да "-" и открываю в блокноте. Но уж больно не нарядно... ((((
Есть уже позыв - разыграть старую свою сценку: Я раньше головн модули писал на VB6, а оттуда вызывал exeшники досовские от Clippera с псевдографикой и перенаправлял в Word чисто для открытия файла. Да не охота так уж возвращаться.....
Или формировать листинг с псевдографикой досовской и открывать в блокноте с опред.шрифтом? Прикомпилировать стар.исходники неззя - они в досовской кодировке, менять надо не только коды символов псевдографики, но и все текст.поля, нереально. Можно ли как-то прилинковать старые клипперовские объектники, где *.prg и в них - текст.поля и псевдографика записаны в досовской кодировке, к модулю в MiniGui? Сил моральных нет самому попробовать, может, совет предварительно мудрый от кого получу?




Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4742
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 21.02.16 16:32. Заголовок: mshep пишет: Можно ..


mshep пишет:

 цитата:
Можно ли как-то прилинковать старые клипперовские объектники, где *.prg и в них - текст.поля и псевдографика записаны в досовской кодировке, к модулю в MiniGui? Сил моральных нет самому попробовать, может, совет предварительно мудрый от кого получу?


Я бы не советовал. Переведи исходники в ANSI, для этого в Far 1.7 есть простая перекодировка файлов.
А потом уже цепляй к МиниГуи.
А в чем трудности перевода форм печати на Excel ?
Пускай твои юзера привыкают и потом легче сопровождать такие программы.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 808
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 21.02.16 17:39. Заголовок: mshep пишет: Да уж...


mshep пишет:

 цитата:
Да уж.....


ты просто попробуй один простой отчет сделать в екселе, Потом выводы делать будешь.
PS. Excel - уникальная программа , позволяет вывести отчет и с таблицами и с картинками и с графиками.
при этом так же доступны формулы, макросы и пр.
Из минусив - лицуха на ПО, можно заменить на опенофис ... но там танцы с макросами посложнее будут.
Какая псевдографика из DOS ???? с ней геммороя на порядок больше.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 31
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 25.04.16 21:39. Заголовок: Почему??? Почему в ..



Почему???
Почему в GetBox нет “On Enter” (а в Textbox есть)??
По совету доброго человека заполнение экранной формы сделал на GetBox (и действительно удобнее).
Но добрые девушки, привыкшие работать в старой доброй dosовской программе, по привычке колотят значения в поля и жмут “Enter”.
А у меня между Getbox кое-где разбросаны Button, которые открывают доп окна (не всегда нужные опытному пользователю). Т.е. нажимая в очередной раз по привычке “Enter” они попадают на Button, открывают доп.окна и бывают недовольны сиим.
LostFocus здесь не играет – к нужным полям мышкой не всегда подобраться.
Т е надо как-то обходить все “Button” (если ввод предыдущ.поля завершился по Enter).
Возможно ли сие?
Как получить имя (и тип ) текущ. Control на экранной форме? Следующего за ним?
Как сформировать массив контроллов с их типами и порядковыми номерами по последовательности обработки на экране? Что-то типа “ _GetArrayOfAllControlsForForm() ” ?
В примерах не нашел сего. Где еще поискать?


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 959
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.04.16 22:02. Заголовок: mshep пишет:Т е надо..


mshep пишет:
 цитата:
Т е надо как-то обходить все “Button”


 
#xcommand @ <row>,<col> BUTTONEX <name> ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ CAPTION <caption> ] ;
[ PICTURE <bitmap> ] ;
[ ICON <icon> ] ;
[ <vertical : VERTICAL> ] ;
[ <dummy2: ACTION,ON CLICK,ONCLICK> <action> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FONT <font> ] ;
[ SIZE <size> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ <lefttext : LEFTTEXT> ] ;
[ <uptext : UPPERTEXT> ] ;
[ <adjust : ADJUST> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ <nohotlight : NOHOTLIGHT> ] ;
[ <flat: FLAT> ] ;
[ <notrans: NOTRANSPARENT > ] ;
[ <noxpstyle: NOXPSTYLE > ] ;
[ <dummy3: ON GOTFOCUS,ON MOUSEHOVER> <gotfocus> ] ;
[ <dummy4: ON LOSTFOCUS,ON MOUSELEAVE> <lostfocus> ] ;
[ <handcursor: HANDCURSOR> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <default: DEFAULT> ] ;

т.е. ваше "почему ?" адресуется к вам

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 960
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.04.16 22:36. Заголовок: mshep пишет:Как полу..


mshep пишет:
 цитата:
Как получить имя (и тип ) текущ. Control на экранной форме?


Samples\advanced\Tsb_seek_2
Скрытый текст

еще
hHandle := GetFocus()
nIndex := ascan(_HMG_aControlHandles, hHandle)
If nIndex > 0
cName := _HMG_aControlName[ nIndex ]
EndIf
еще
в событиях контролов This.Name или _HMG_ThisControlName
и т.д. надо смотреть исходники и *.ch файлы
например h_init.prg - переменные базовые MiniGui
как заполняются смотрите в h_<КонтролНаме>.prg для контролов
изучайте

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 961
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.04.16 22:39. Заголовок: mshep пишет:_GetArra..


mshep пишет:
 цитата:
_GetArrayOfAllControlsForForm() ” ?
В примерах не нашел сего. Где еще поискать?


Far.exe каталог SAMPLES поиск Alt+F7 *.prg AllControls ==> даст результат

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 32
Зарегистрирован: 20.10.15
ссылка на сообщение  Отправлено: 26.04.16 14:04. Заголовок: SergKis пишет: Far...


SergKis пишет:

 цитата:
Far.exe каталог SAMPLES поиск Alt+F7 *.prg AllControls ==> даст результат


Alt/F7 - слыхал про такое. Но вот "AllControls" - как определитьо что его искать? Знал бы - не спрашивал. (((((
По незнанию можно ведь и "ControlsAll" в поиск забить....
пасибки.


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 908
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 26.04.16 14:29. Заголовок: mshep пишет: Знал ..


mshep пишет:

 цитата:
Знал бы - не спрашивал. ((((


Да это Сергей не в упрек сказал. Многие на форуме не один год и отвечать на одни и те-же вопросы поднадоело.
http://clipper.borda.ru/?1-1-0-00000467-000-0-0
Ответы постепенно трансформируются в примеры и этих примеров не так уж много. Просто если интерес к теме форума есть, имеет смысл изучить все не спеша и вдумчиво. Уверяю там очень много интересных решений. Я на форуме давно, вроде все примеры изучил вдоль и поперек, но периодически лезу и нахожу в них что-то новое.
В примерах Advanced\ControlPos почитай

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 962
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 26.04.16 14:30. Заголовок: mshep для поиска, я..


mshep
для поиска, я вырвал контекст из вашего вопроса про
 цитата:
GetArrayOfAllControlsForForm() ” ?
В примерах не нашел сего. Где еще поискать?



Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 963
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 26.04.16 14:37. Заголовок: mshep возможно помо..


mshep
возможно поможет в изучении utils\FuncList

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 5233
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 06.12.16 20:11. Заголовок: mshep пишет: Но бух..


mshep пишет:

 цитата:
Но бухгалтера - народ консервативный....... Я их успел к ворду прочно приручить. (((((



Как у тебя дела с переводом на Эксель ?
Если не смог и сидишь на Ворде, то появились 2 новых примера работы с таблицами Ворда в библиотеке у Григория !

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6184
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 06.12.16 22:31. Заголовок: Andrey пишет: Как ..


Andrey пишет:

 цитата:

Как у тебя дела с переводом на Эксель ?


Ну ты и археолог ))
Пропиариться решил ?
Выкладывай примеры в чистом (X)Harbour , при чем тут Минигуи.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 5235
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.12.16 14:20. Заголовок: Dima пишет: Пропиар..


Dima пишет:

 цитата:
Пропиариться решил ?


Он про МиниГуи писал.

Dima пишет:

 цитата:
Выкладывай примеры в чистом (X)Harbour , при чем тут Минигуи.


Переводом займёшься сам. Уже не хочется на чистом Харборе работать, привык уже к МиниГуи.

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 40 , стр: 1 2 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 425
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет