Автор | Сообщение |
|
| |
Пост N: 4905
Зарегистрирован: 17.05.05
|
|
Отправлено: 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
|
|
|
Ответов - 289
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 3618
Зарегистрирован: 17.02.12
|
|
Отправлено: 19.03.21 11:57. Заголовок: rvu пишет Я-то писал..
rvu пишет цитата: | Я-то писал про стандартное окно винды |
| Тогда для кнопки X моете сделать This.Closable := .T.
|
|
|
|
| постоянный участник
|
Пост N: 1603
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.21 12:36. Заголовок: Скорее всего сабж хо..
Скорее всего сабж хотят сделать like ToolWindow #define WS_EX_TOOLWINDOW 0x00000080 ChangeStyle( Win1.Handle, WS_EX_TOOLWINDOW, , .T. ) но не факт..
|
|
|
|
| moderator
|
Пост N: 1839
Зарегистрирован: 11.02.10
|
|
Отправлено: 19.03.21 21:34. Заголовок: rvu пишет: Сейчас п..
rvu пишет: цитата: | Сейчас пустую иконку поставил |
| Ниже еще один вариант окна без иконки (исходники примера занимают 2,5 кБ) rvu пишет: цитата: | вы, видимо, про нестандартное средство. |
| Да, это нарисованный заголовок окна со своими кнопками
|
|
|
|
| |
Пост N: 316
Зарегистрирован: 05.11.05
|
|
Отправлено: 23.03.21 08:52. Заголовок: В итоге мои коллеги ..
В итоге мои коллеги согласились на стандартное окно, только иконку для него изменил. Но всем спасибо за идеи! Вообще приятно и хорошо, когда пути решения есть и их даже несколько. Самое печальное, когда на вопрос ни у кого нет ответа.
|
|
|
|
| |
Пост N: 88
Зарегистрирован: 18.06.15
|
|
Отправлено: 27.05.23 07:15. Заголовок: Space()
Доброго дня всем ... Space() возвращает символьную строку, которая состоит только из символов пробела (Chr(32)). Максимальная длина такой строки в Xbase++ не ограничена - так сказано в описании... По факту при создании переменной долее 850 Mb вылетает ошибка - Application Internal Error - C:\MiniGUI\SAMPLES\MY_BASIC\EraseFail_2\EraseFail.exe Terminated at: 2023-05-24 10:38:30 Info: Harbour MiniGUI Extended Edition 23.02.2 (32-bit) ANSI Неисправимая ошибка 9006: hb_xgrab не может распределить память Called from SPACE(0) in EraseFail.prg Called from DELET_FI(174) in EraseFail.prg Called from ERASE_OB(255) in EraseFail.prg Called from (b)MAIN(58) in EraseFail.prg Called from EVENTS(0) in h_events.prg Called from DOMESSAGELOOP(0) in h_windows.prg Called from _ACTIVATEWINDOW(0) in h_windows.prg Called from MAIN(65) in EraseFail.prg ------------------------------------------------------------------------ Это можно как-нибудь обойти .... или Harbour сдулся ...? Будут вопросы ... а на хера такая переменная, надо ...
|
|
|
|
| moderator
|
Пост N: 2133
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.05.23 12:20. Заголовок: Alex_Cher пишет: In..
Alex_Cher пишет: цитата: | Info: Harbour MiniGUI Extended Edition 23.02.2 (32-bit) ANSI Неисправимая ошибка 9006: hb_xgrab не может распределить память |
| Возможно, поможет решить проблему переход на 64-битный Си компилятор. Варианты: - Borland/Embarcadero C++ 7.40 (64-bit); - Microsoft Visual C++ 2022 (64-bit); - MinGW GNU C 13.1 (64-bit).
|
|
|
|
| постоянный участник
|
Пост N: 4277
Зарегистрирован: 17.02.12
|
|
Отправлено: 27.05.23 13:18. Заголовок: Alex_Cher пишет Буду..
Alex_Cher пишет цитата: | Будут вопросы ... а на хера такая переменная, надо ... |
| И все таки задам такой вопрос, из любопытства. Что собираетесь делать с пустой строкой ? Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу.
|
|
|
|
| |
Пост N: 89
Зарегистрирован: 18.06.15
|
|
Отправлено: 28.05.23 07:52. Заголовок: SergKis пишет: Если..
SergKis пишет: цитата: | Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу. |
| а можно по подробней ... есть ли примеры. Цель такая - затереть файл (в том числе видео) перед удалением.У начальника в конторе появилось хобби, по выходным шарит по компам подчиненных и поднимает удаленные файлы ...
|
|
|
|
| постоянный участник
|
Пост N: 4278
Зарегистрирован: 17.02.12
|
|
Отправлено: 28.05.23 08:48. Заголовок: Alex_Cher IF File(c..
Alex_Cher IF File(cFile) IF ( hFil := FOpen ( cFile, 2 ) ) > 0 nLen := FSeek( hFil, 0, 2 ) FSeek( hFil, 0, 0 ) FOR nI := 1 TO nLen FWrite( hFil, chr(32) /*chr(0)*/ ) NEXT FClose( hFil ) ENDIF ENDIF тоже можете проделать с ф-ями hb_vf... ( http://www.kresin.ru/hrbfaq_3.html#Doc12 )
|
|
|
Ответов - 289
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|