Форум » GUI » Вопросы новичка [MiniGUI] » Ответить
Вопросы новичка [MiniGUI]
Dima: MAIN окно не получило фокус ввода при запуске , почему ? Пример самодостаточный. [pre2] #include "minigui.ch" REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866, HB_LANG_RUWIN REQUEST HB_LANG_RUWIN REQUEST HB_LANG_RU866 Func Main() DEFINE WINDOW Form_0 AT 321 , 491 WIDTH 558 HEIGHT 175 TITLE "Почему окно не в фокусе при запуске ?" ; MAIN NOSIZE NOSYSMENU TOPMOST ON INIT {|| MdiMain()} DEFINE BUTTONex Button_1 ROW 32 COL 424 WIDTH 110 HEIGHT 28 CAPTION "Вход" ACTION { || ret:=.t., DoMethod("Form_0","Hide") , DoMethod("Form_1","show") } FONTBOLD .t. END BUTTONex DEFINE BUTTONex Button_2 ROW 71 COL 424 CAPTION "Отмена" ACTION { || DoMethod("Form_0","Release") } WIDTH 110 HEIGHT 28 FONTBOLD .t. END BUTTONex END WINDOW Form_0.Activate Form_0.Setfocus return nil ***************************** Func Mdimain() DEFINE WINDOW Form_1 at 0,0 ; WIDTH 200 HEIGHT 300 TITLE "MDI windows" ; MDI ; NOSHOW END WINDOW Form_1.Center Form_1.Activate Form_0.Release return [/pre2]
Dima: rvu Пардоньте :) NOSIZE NOSYSMENU
Vlad04: Значит в определении окна написано что-то подобное [quote .... TITLE "Трата та" ; ICON mainIco ;
rvu: Вставил CHILD у не главных окон и иконки пропали.
rvu: А как отменить закрытие окон по Alt+F4?
Dima: rvu При объявлении окна сделать например ON INTERACTIVECLOSE {|| .F. } PS Почитать что делает SET INTERACTIVECLOSE
rvu: Dima пишет: При объявлении окна сделать например ON INTERACTIVECLOSE {|| .F. } Не помогло...
rvu: Dima пишет: Почитать что делает SET INTERACTIVECLOSE Спасибо!
rvu: А можно делать окна с прокруткой? Хочу сделать большое окно, которое будет заведомо больше экрана.
SergKis: rvu пишет А можно делать окна с прокруткой?[pre2] [ VIRTUAL WIDTH <vWidth> ] ; [ VIRTUAL HEIGHT <vHeight> ] ; [/pre2]
SergKis: PS пример SAMPLES\BASIC\VIRTUALDIM
Andrey: Пример VirtualWinVscroll2 (События и обработчики событий в МиниГуи) в http://abonent4.ru/minigui/
rvu: SergKis пишет: пример SAMPLES\BASIC\VIRTUALDIM Уже смотрю. Пытаюсь понять для каких окон это подходит. Наивная попытка подставить к любому окну не удалась. ))
rvu: А как можно поменять сообщения, типа "Close not allowed" на свое? Посмотрел, оно берется из библиотеки minigui.lib
SergKis: rvu пишет А как можно поменять сообщения, типа Так _HMG_MESSAGE [3] := 'Close not allowed' см. h_init.prg PROCEDURE InitMessages
Dima: rvu пишет: Посмотрел, оно берется из библиотеки minigui.lib Лучше бы с помощью FAR поиск по сырцам устроил и вышел бы на _HMG_MESSAGE [3] := 'Close not allowed' как SergKis и ответил.
rvu: Вопрос такой: интерфейс программы должен быть на русском языке, но выводить информацию из базы она должна на любом языке, видимо, вплоть до китайского. Базы с информацией делаю в UTF-8, а саму программу как делать? Вопрос появился, собственно, потому что написал я пробную программу, сохранил файл программы в UTF-8, на экране вместо русского крякозябры. Способы, которыми решались проблемы с кодировками 1251 и 866 не помогают. Куда копать хоть? Искать дальше возможность написания текста программы в UTF-8 или писать ее в 1251, а потом искать, как в ней иностранный текст показывать?
gfilatov2002: rvu пишет: писать ее в 1251, а потом искать, как в ней юникодный текст показывать? Да. Посмотри готовый пример в папке samples\Advanced\PdfView - как в нем организован вывод интерфейсных строк на русском языке Подсказка: hb_Translate( cText, "UTF8", "CP1251" )
nick_mi: Мне кажется, или все же правда, что когда указать use ... codepage 'UTF8' то Harbour сам будет выполнять перекодировку меж базой и программой? и не надо никаких телодвижений с hb_Translate ?
SergKis: rvu пишет Искать дальше возможность написания текста программы в UTF-8 или писать ее в 1251 Если инф. в базе для разных языков возможна в одном поле, то решения нормального не будет, иначе: - если текст программы только на русском, оставляйте 1251. - базу не помечайте codepage 'UTF8', но инф. в ней utf8 (кодируем при записи из опред. языка) - декодируем по hb_Translate для нужного языка из опред. полей - для показа инф. языков создаем фонты с CHARSET и уст. фонт опред. языка контролу или колонке TsBrowse - если необходимо надписи\подсказки, то храним их в utf8 файлах (формата ini) с расширеинем языка .RU, .LT, .EN, ...
SergKis: PS Пример по исп. CHARSET фонтов тут https://my-files.ru/dofcn3 Пост 1940 из темы http://clipper.borda.ru/?1-1-0-00000532-000-60-0-1533019939
полная версия страницы