Отправлено: 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, а где нет, и где можно набивать по несколько операторов в одной строке.
Сейчас вот такое же состояние…..
Вся радуга моих талантов наиболее полно отражается в трехстопье “Плагиатор-Рутинер-Штамповщик”, посему текущие условия дюже грузят и так перегруженную голову…. ((((
Пишу не в ожидании ответа, а просто душа вылиться хочет…

 Отправлено: 04.02.16 00:01. Заголовок: P S На эту тему вспо..

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

 Отправлено: 04.02.16 00:09. Заголовок: P P S И вопрос уже с..

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

 Отправлено: 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])

 Отправлено: 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 - номер колонки в которой есть курсор
с - текущая окрашиваемая колонка

 Отправлено: 04.02.16 15:57. Заголовок: Как красить Browse S..

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

 Отправлено: 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 - это третий стиль синтаксиса

 Отправлено: 04.02.16 17:53. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

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

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

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

 Отправлено: 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

 Отправлено: 07.02.16 17:20. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

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

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

 Отправлено: 07.02.16 17:26. Заголовок: mshep, придётся прис..

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

 Отправлено: 07.02.16 17:26. Заголовок: valery2 пишет: Как ..

valery2 пишет:

цитата:

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

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

 Отправлено: 07.02.16 17:28. Заголовок: PSP пишет: mshep, п..

PSP пишет:

цитата:

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

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

 Отправлено: 07.02.16 17:36. Заголовок: И еще посл.вопрос, ..

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

 Отправлено: 07.02.16 20:28. Заголовок: mshep пишет: А то г..

mshep пишет:

цитата:

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

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

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

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

 Отправлено: 08.02.16 00:37. Заголовок: mshep пишет: Я их у..

mshep пишет:

цитата:

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

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

 Отправлено: 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вские времена....

 Отправлено: 08.02.16 10:42. Заголовок: mshep пишет: Я их у..

mshep пишет:

цитата:

Я их успел к ворду прочно приру

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

цитата:

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

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

 Отправлено: 08.02.16 11:21. Заголовок: Haz пишет: Андрей д..

Haz пишет:

цитата:

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

+1

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

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