Проблема с MESSAGE()

[dsabitov]

Уважаемые коллеги.

Может быть есть ответ на вопрос, почему в Clarion10 (win) у меня не правильно работает MESSAGE?
Например, если я в коде укажу

Код: Выделить всё

msgText"='ООО "ТК ГАСС-АВТО"'
MESSAGE(msgText")

, то при возникновении этого сообщения я получаю усеченный вариант:

screen.jpg (7.59 КБ) 14270 просмотров

Проблема, видимо, в локализации. Ранее в форуме я нашел рекомендации нашего гуру (Admin) по этому вопросу - добавить в свое приложение код для поддержки кириллицы:

Код: Выделить всё

    LOCALE('CLACHARSET','WINDOWS')
    LOCALE('CLAMON','Янв,Фев,Мар,Апр,Май,Июн,Июл,Авг,Сен,Окт,Ноя,Дек')
    LOCALE('CLAMONTH','Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь')
    LOCALE('CLACASE','ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ,abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщьыъэюя')
    LOCALE('CLAAMPM','ут,вч')
    SYSTEM{PROP:CharSet}=CHARSET:CYRILLIC
    LOCALE('CLABUTTON','&OK,&Да,&Нет,Пре&рвать,&Повторить,&Игнорировать,&Отменить,&Справка')

Однако это не помогло...
Как исправить ситуацию?

[Игорь Столяров]

Ну вот недавно эту тему уже по десятому кругу обсуждали:
http://forum.clarionlife.net/phpbb/view ... 3ACYRILLIC

Посмотрите пожалуйста.

[dsabitov]

Спасибо, плохо искал...

Для себя экспериментальным путем выявил - помогает вставка:

Код: Выделить всё

    SYSTEM{PROP:FontCharSet}=CHARSET:CYRILLIC
    SYSTEM{PROP:Font} = 'Microsoft Sans Serif' 

[Игорь Столяров]

Пожалуйста. Как - вариант, наверно да.
Шрифт 'Microsoft Sans Serif' сам по себе стар и убог, оформление получается красивее с использованием
современных системных шрифтов Windows, или хотя бы "Arial" (как в моем примере).

[Губин Игорь]

Для себя экспериментальным путем выявил - помогает вставка

Увы, помогает не всегда. Я отказался от встроенного Message заменив на вызов стандартного из API. заодно и проблем с кривыми иконками не стало.

[ACN]

Я отказался от встроенного Message заменив на вызов стандартного из API.

А можно пример сразу, а то когда я не скоро доберусь до API?

[Губин Игорь]

А можно пример сразу, а то когда я не скоро доберусь до API?

Полного переходника, как такового, нет, поленился, но пример прост

Инструкция в MSDN: https://msdn.microsoft.com/ru-ru/librar ... 85%29.aspx

Переходник

Код: Выделить всё

             WinAPIMessage(String,String,long),Long ! Сообщение средствами API

Код: Выделить всё

WinAPIMessage          Procedure(WText,WHeader,WStyle)

CHeader                 CString(Size(WHeader)+1)
CText                   CString(Size(WText)+1)
IRet                    LONG
    CODE

        CHeader = Clip(WHeader)
        CText = Clip(WText)
        IRet = MessageBox(0{PROP:Handle},Address(CText),ADDRESS(CHeader),WStyle)
        Return(IRet)        

Пример вызова

Case WinAPIMessage('текст сообщения','заголовок сообщения',MB_ICONHAND + MB_OK + MB_APPLMODAL)
OF BIDOK
End

В головняке

Код: Выделить всё

! Кнопки из Windows API
BIDABORT Equate(3)
BIDCANCEL Equate(2)
BIDCONTINUE Equate(11)
BIDIGNORE Equate(5)
BIDNO Equate(7)
BIDOK Equate(1)
BIDRETRY Equate(4)
BIDTRYAGAIN Equate(10)
BIDYES Equate(6)

ну и надо подключить
Include('svapi.inc'),once
и в MAP: Include('svapifnc.inc'),ONCE

[kreator]

Вопрос Игорю Губину. Не пробовал воспользоваться {prop:MessageHook}, он же {prop:LibHook,6}. Судя по описанию - как раз для замены стандартного кларионовского Message. Я подумываю попробовать, меня больше интересует дизайн окна, правда.

[Игорь Столяров]

Стандартный Message() конечно просто в плане оформления, зато многофункционален.
Когда-то был шаблон MessageX (попробуй поискать) - он реализовал расширенные функционал и оформление,
через использование WinAPI и как раз позицировался для замены стандартного Message() ...

[Дед Пахом]

Залил на FTP CapesoftMessageBoxInstall_v2.37.exe

[Губин Игорь]

Не пробовал воспользоваться {prop:MessageHook}, он же {prop:LibHook,6}

Если честно, то нет. Мне оказалось проще склепать вызов API, да и большинство вызовов этой процедуры у меня идёт через шаблоны, т.ч. "один раз сделал и больше не мучайся"

Когда-то был шаблон MessageX (попробуй поискать) - он реализовал расширенные функционал и оформление

Надо поискать. Глядишь и что-то интересное получится

[Shur]

Ну так, чтобы тема охватила все варианты!
Мне хватает наличия следующей процедуры в проекте:

Код: Выделить всё

MessageCR  PROCEDURE  (STRING _text,<STRING _caption>,<STRING _icon>,<STRING _buttons>,<ULONG _default>,<ULONG _style>) 
  CODE
  return(message(_text&'<13,10>',_caption,_icon,_buttons,_default,_style))

В своём коде пользуюсь ей, шаблоны оставил как есть.

[kreator]

В своём коде пользуюсь ей, шаблоны оставил как есть.

Всё правильно. Попробуй в начале программы вот так:

Код: Выделить всё

system{prop:MessageHook} = address(MessageCR)

Ваша процедура должна появляться всегда, шаблоны править не нужно.

Залил на FTP CapesoftMessageBoxInstall_v2.37.exe

Как бы то, что нужно. Почему денег не попросило данное чудо?

[Дед Пахом]

Почему денег не попросило данное чудо?

Мне переводи, я передам

[Shur]

Попробуй в начале программы вот так:

Код: Выделить всё

system{prop:MessageHook} = address(MessageCR)

Ваша процедура должна появляться всегда, шаблоны править не нужно.

Креатор, спасибо, конечно. А замыкания часом не получится? Лучше не стану.