Автор | Сообщение |
|
| |
Пост 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: 254
Зарегистрирован: 05.11.05
|
|
Отправлено: 26.05.20 15:37. Заголовок: SergKis пишет: nIco..
SergKis пишет: Вот это понятно. А у Григория написано nSize.
|
|
|
|
| |
Пост N: 258
Зарегистрирован: 05.11.05
|
|
Отправлено: 22.07.20 20:24. Заголовок: Такая проблема возни..
Такая проблема возникла. Есть некий список, вывожу его гридом. В первом столбце порядковые номера: 1, 2, 3... Они нужны больше для красоты, особого смысла в них нет, но пользователи к этому привыкли. Когда по какому-нибудь столбцу происходит сортировка, этот столбец тоже меняется соответственно. А можно его оставлять неизменным? Чтобы там всегда было 1, 2, 3...
|
|
|
|
| постоянный участник
|
Пост N: 6760
Зарегистрирован: 12.09.06
|
|
Отправлено: 22.07.20 21:01. Заголовок: Самое простое - посл..
Самое простое - после сортировке заново в столбец занеси 1,2,3... По другому никак. Если переделаешь вывод на TsBrowse, то там море возможностей. Сам раньше боялся переходить, сейчас одно удовольствие с таблицами работать.
|
|
|
|
| |
Пост N: 259
Зарегистрирован: 05.11.05
|
|
Отправлено: 23.07.20 03:36. Заголовок: Andrey пишет: Самое..
Andrey пишет: цитата: | Самое простое - после сортировке заново в столбец занеси 1,2,3... |
| Вместе с COLUMNSORT это не сделать? Надо ON HEADCLICK использовать со своей функцией?
|
|
|
|
| постоянный участник
|
Пост N: 6761
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.07.20 07:03. Заголовок: Давно уже не пользую..
Давно уже не пользуюсь этим Гридом, уже и не помню. Нужно по твоему событию сделать сортировку массива, а где используешь нумерацию, занеси числа по порядку. А потом перестрой ЗАНОВО массив грида, типа так: // перечитаем/reread Grid_1 aList := LoadDim() - уже готовый массив Form_6.Grid_1.DeleteAllItems IF Len(aList) > 0 Form_6.Grid_1.DisableUpdate FOR nI := 1 to LEN(aList) Form_6.Grid_1.AddItem( aList[nI] ) NEXT Form_6.Grid_1.EnableUpdate ENDIF
|
|
|
|
| |
Пост N: 260
Зарегистрирован: 05.11.05
|
|
Отправлено: 23.07.20 12:09. Заголовок: Вот еще проблема - п..
Вот еще проблема - почему-то этот грид всё выдает в переменных UE. Даже такое - Win_1.Grid_1.Value. Почему так? И как этими данными воспользоваться?
|
|
|
|
| постоянный участник
|
Пост N: 6762
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.07.20 12:18. Заголовок: rvu пишет: почему-т..
rvu пишет: цитата: | почему-то этот грид всё выдает в переменных UE |
| Не понял что это такое... Примеры по ГРИДУ смотрели ? Там всё понятно. Если у вас что-то не работает, делайте самодостаточный пример. А так объяснять и понять что нужно - сложно. Сам многие вещи здесь на форуме не могу правильно сформулировать.
|
|
|
|
| |
Пост N: 261
Зарегистрирован: 05.11.05
|
|
Отправлено: 23.07.20 12:20. Заголовок: Andrey пишет: Не по..
Andrey пишет: цитата: | Не понял что это такое... |
| Это я тут немного запутался и стал их TYPE() смотреть. VALTYPE() нормально показывает. Прошу прощения. В итоге заработало.
|
|
|
|
| |
Пост N: 265
Зарегистрирован: 05.11.05
|
|
Отправлено: 01.08.20 18:42. Заголовок: Andrey пишет: Если ..
Andrey пишет: цитата: | Если переделаешь вывод на TsBrowse |
| gfilatov2002 пишет: цитата: | вот готовое определение ListBox с помощью TBrowse |
| В справке по Минигуи таких нет, но есть BROWSE. Помогите разобраться, какая между ними разница и что в итоге брать?
|
|
|
|
| |
Пост N: 7224
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.08.20 18:59. Заголовок: rvu тут живет C: ..
rvu тут живет C:\MiniGUI\Doc\TSBrowse.chm
|
|
|
|
| постоянный участник
|
Пост N: 3304
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.08.20 19:30. Заголовок: rvu пишет В справке ..
rvu пишет цитата: | В справке по Минигуи таких нет, но есть BROWSE. |
| Есть отдельный TSBrowse.chm в Doc каталоге rvu пишет цитата: | какая между ними разница и что в итоге брать? |
| BROWSE - стандарный контрол List_View имеет Header и таблицу ячеек (однострочные данные и там и там) Колонки назначаются на данные поля dbf или элемент массива, т.е. нет FIELD->( LAST+" "+FIRST ) Примеры в BASIC\Browse... TSBrowse - адаптированный из FiveWin Class TSBrowse 9.0 Имеет SuperHeader (объединяет колонки header), Header (заголовки ячеек), SpecHeader (номерной заголовок ячеек), ячейки, Footer (подножие колонок) Данные во всех перечисленных элементах могут быть многострочными, задаваться блоками кодов с исп. цветов, image, ... Примеры в Advanced\Tsb_...
|
|
|
|
|
| |
Пост N: 266
Зарегистрирован: 05.11.05
|
|
Отправлено: 01.08.20 21:24. Заголовок: SergKis пишет: BROW..
SergKis пишет: цитата: | BROWSE - стандарный контрол List_View имеет Header и таблицу ячеек (однострочные данные и там и там) |
| Чем-то принципиально от грида отличается?
|
|
|
|
| постоянный участник
|
Пост N: 3305
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.08.20 21:26. Заголовок: rvu пишет Чем-то при..
rvu пишет цитата: | Чем-то принципиально от грида отличается? |
| ничем, тот же контрол
|
|
|
|
| |
Пост N: 313
Зарегистрирован: 05.11.05
|
|
Отправлено: 18.03.21 20:10. Заголовок: Как-то давно спрашив..
Как-то давно спрашивал про rvu пишет: Тогда меня устроило: Dima пишет: А сейчас хочется, чтобы стандартные средства окна, типа крестика, были, но без иконки. Так можно?
|
|
|
|
| постоянный участник
|
Пост N: 3615
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.03.21 22:16. Заголовок: rvu Это будут уже н..
rvu Это будут уже не стандартные средства, добавляете цитата: | NOSIZE NOSYSMENU NOCAPTION |
| делаете Label вместо TITLE и свою image: icon\bmp\... вместо крестика @ 0,0 LABEL myTitle VALUE ... WIDTH This.ClientWidth - 16 HEIGHT GetTitleHeight() BACKCOLOR ... FONTCOLOR ... @ 0,0 ... высоту myTitle и image делаете какую нужно и click-и делаете...
|
|
|
|
| moderator
|
Пост N: 1838
Зарегистрирован: 11.02.10
|
|
Отправлено: 18.03.21 23:22. Заголовок: SergKis пишет: Это ..
SergKis пишет: цитата: | Это будут уже не стандартные средства |
| И будет выглядеть примерно так Если нужен код этого "чуда", то пишите
|
|
|
|
| постоянный участник
|
Пост N: 6921
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.03.21 00:13. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | И будет выглядеть примерно так |
| Там кнопки выхода круглые - хреново выглядят. Нужно иконки ставить, тогда чётко и красиво будет круглая кнопка выглядеть. Сейчас эту прогу я бы сделал совсем по другому ! Там кода дофига, можно в разы его короче сделать. Это 2014 год, а сейчас уже 2021...
|
|
|
|
| |
Пост N: 314
Зарегистрирован: 05.11.05
|
|
Отправлено: 19.03.21 04:33. Заголовок: Сейчас пустую иконку..
Сейчас пустую иконку поставил, только она все равно место занимает. Может, и Title уберу, вернее тоже сделаю невидимым.
|
|
|
|
| постоянный участник
|
Пост N: 3617
Зарегистрирован: 17.02.12
|
|
Отправлено: 19.03.21 08:18. Заголовок: rvu пишет Сейчас пус..
rvu пишет цитата: | Сейчас пустую иконку поставил, только она все равно место занимает. |
| С Title делайте как хотите, а image X можно делать кнопкой (любого типа) или Label с Value := "X" или из фонта Symbol и всегда можно ей делать hide и show (.Visible := .F.\.T.) только в нужный момент и в нужном месте, например слева вверху, сейчас часто именно так делают, контролы управления слева
|
|
|
|
| |
Пост N: 315
Зарегистрирован: 05.11.05
|
|
Отправлено: 19.03.21 10:11. Заголовок: SergKis пишет: С Ti..
SergKis пишет: цитата: | С Title делайте как хотите, а image X можно делать кнопкой |
| Я-то писал про стандартное окно винды. А вы, видимо, про нестандартное средство.
|
|
|
Ответов - 289
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|