Отправлено: 17.06.15 10:51. Заголовок: Вопросы новичка [MiniGUI]

MAIN окно не получило фокус ввода при запуске , почему ?
Пример самодостаточный.

 
 #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 
  
 

 Отправлено: 29.01.18 13:34. Заголовок: rvu Пардоньте :) NO..

rvu
Пардоньте :)
NOSIZE NOSYSMENU

 Отправлено: 29.01.18 13:34. Заголовок: Значит в определении..

Значит в определении окна написано что-то подобное
[quote
....
TITLE "Трата та" ;
ICON mainIco ;

`

 Отправлено: 29.01.18 13:37. Заголовок: Вставил CHILD у не г..

Вставил CHILD у не главных окон и иконки пропали.

 Отправлено: 29.01.18 13:41. Заголовок: А как отменить закры..

А как отменить закрытие окон по Alt+F4?

 Отправлено: 29.01.18 13:49. Заголовок: rvu При объявлении ..

rvu
При объявлении окна сделать например ON INTERACTIVECLOSE {|| .F. }

PS
Почитать что делает SET INTERACTIVECLOSE

 Отправлено: 29.01.18 13:52. Заголовок: Dima пишет: При объ..

Dima пишет:

цитата:

При объявлении окна сделать например ON INTERACTIVECLOSE {|| .F. }

Не помогло...

 Отправлено: 29.01.18 13:58. Заголовок: Dima пишет: Почитат..

Dima пишет:

цитата:

Почитать что делает SET INTERACTIVECLOSE

Спасибо!

 Отправлено: 19.02.18 13:38. Заголовок: А можно делать окна ..

А можно делать окна с прокруткой?
Хочу сделать большое окно, которое будет заведомо больше экрана.

 Отправлено: 19.02.18 14:25. Заголовок: rvu пишет А можно де..

rvu пишет

цитата:

А можно делать окна с прокруткой?

 
          [ VIRTUAL WIDTH <vWidth> ] ; 
          [ VIRTUAL HEIGHT <vHeight> ] ; 
 

 Отправлено: 19.02.18 14:58. Заголовок: PS пример SAMPLES ..

PS
пример SAMPLES\BASIC\VIRTUALDIM

 Отправлено: 19.02.18 15:47. Заголовок: Пример VirtualWinVs..

Пример VirtualWinVscroll2 (События и обработчики событий в МиниГуи) в http://abonent4.ru/minigui/

 Отправлено: 19.02.18 16:34. Заголовок: SergKis пишет: прим..

SergKis пишет:

цитата:

пример SAMPLES\BASIC\VIRTUALDIM

Уже смотрю. Пытаюсь понять для каких окон это подходит. Наивная попытка подставить к любому окну не удалась. ))

 Отправлено: 08.03.18 16:28. Заголовок: А как можно поменять..

А как можно поменять сообщения, типа "Close not allowed" на свое? Посмотрел, оно берется из библиотеки minigui.lib

 Отправлено: 08.03.18 16:42. Заголовок: rvu пишет А как можн..

rvu пишет

цитата:

А как можно поменять сообщения, типа

Так
_HMG_MESSAGE [3] := 'Close not allowed'
см. h_init.prg
PROCEDURE InitMessages

 Отправлено: 08.03.18 17:07. Заголовок: rvu пишет: Посмотре..

rvu пишет:

цитата:

Посмотрел, оно берется из библиотеки minigui.lib

Лучше бы с помощью FAR поиск по сырцам устроил и вышел бы
на _HMG_MESSAGE [3] := 'Close not allowed' как SergKis и ответил.

 Отправлено: 31.07.18 11:37. Заголовок: Вопрос такой: интерф..

Вопрос такой: интерфейс программы должен быть на русском языке, но выводить информацию из базы она должна на любом языке, видимо, вплоть до китайского.

Базы с информацией делаю в UTF-8, а саму программу как делать?

Вопрос появился, собственно, потому что написал я пробную программу, сохранил файл программы в UTF-8, на экране вместо русского крякозябры.
Способы, которыми решались проблемы с кодировками 1251 и 866 не помогают. Куда копать хоть? Искать дальше возможность написания текста программы в UTF-8 или писать ее в 1251, а потом искать, как в ней иностранный текст показывать?

 Отправлено: 31.07.18 11:38. Заголовок: rvu пишет: писать е..

rvu пишет:

цитата:

писать ее в 1251, а потом искать, как в ней юникодный текст показывать?

Да.
Посмотри готовый пример в папке samples\Advanced\PdfView - как в нем организован вывод интерфейсных строк на русском языке

Подсказка:

цитата:

hb_Translate( cText, "UTF8", "CP1251" )

 Отправлено: 31.07.18 12:21. Заголовок: Мне кажется, или все..

Мне кажется, или все же правда, что когда указать use ... codepage 'UTF8'
то Harbour сам будет выполнять перекодировку меж базой и программой?
и не надо никаких телодвижений с hb_Translate ?

 Отправлено: 31.07.18 15:05. Заголовок: rvu пишет Искать дал..

rvu пишет

цитата:

Искать дальше возможность написания текста программы в UTF-8 или писать ее в 1251

Если инф. в базе для разных языков возможна в одном поле, то решения нормального не будет, иначе:
- если текст программы только на русском, оставляйте 1251.
- базу не помечайте codepage 'UTF8', но инф. в ней utf8 (кодируем при записи из опред. языка)
- декодируем по hb_Translate для нужного языка из опред. полей
- для показа инф. языков создаем фонты с CHARSET и уст. фонт опред. языка контролу или колонке TsBrowse
- если необходимо надписи\подсказки, то храним их в utf8 файлах (формата ini) с расширеинем языка .RU, .LT, .EN, ...

 Отправлено: 31.07.18 15:12. Заголовок: PS Пример по исп. CH..

PS
Пример по исп. CHARSET фонтов тут https://my-files.ru/dofcn3
Пост 1940 из темы http://clipper.borda.ru/?1-1-0-00000532-000-60-0-1533019939