Форум » 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]
rvu: SergKis пишет: nIcoSize Вот это понятно. А у Григория написано nSize.
rvu: Такая проблема возникла. Есть некий список, вывожу его гридом. В первом столбце порядковые номера: 1, 2, 3... Они нужны больше для красоты, особого смысла в них нет, но пользователи к этому привыкли. Когда по какому-нибудь столбцу происходит сортировка, этот столбец тоже меняется соответственно. А можно его оставлять неизменным? Чтобы там всегда было 1, 2, 3...
Andrey: Самое простое - после сортировке заново в столбец занеси 1,2,3... По другому никак. Если переделаешь вывод на TsBrowse, то там море возможностей. Сам раньше боялся переходить, сейчас одно удовольствие с таблицами работать.
rvu: Andrey пишет: Самое простое - после сортировке заново в столбец занеси 1,2,3... Вместе с COLUMNSORT это не сделать? Надо ON HEADCLICK использовать со своей функцией?
Andrey: Давно уже не пользуюсь этим Гридом, уже и не помню. Нужно по твоему событию сделать сортировку массива, а где используешь нумерацию, занеси числа по порядку. А потом перестрой ЗАНОВО массив грида, типа так: [pre2] // перечитаем/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[/pre2]
rvu: Вот еще проблема - почему-то этот грид всё выдает в переменных UE. Даже такое - Win_1.Grid_1.Value. Почему так? И как этими данными воспользоваться?
Andrey: rvu пишет: почему-то этот грид всё выдает в переменных UE Не понял что это такое... Примеры по ГРИДУ смотрели ? Там всё понятно. Если у вас что-то не работает, делайте самодостаточный пример. А так объяснять и понять что нужно - сложно. Сам многие вещи здесь на форуме не могу правильно сформулировать.
rvu: Andrey пишет: Не понял что это такое... Это я тут немного запутался и стал их TYPE() смотреть. VALTYPE() нормально показывает. Прошу прощения. В итоге заработало.
rvu: Andrey пишет: Если переделаешь вывод на TsBrowse gfilatov2002 пишет: вот готовое определение ListBox с помощью TBrowse В справке по Минигуи таких нет, но есть BROWSE. Помогите разобраться, какая между ними разница и что в итоге брать?
Dima: rvu тут живет C:\MiniGUI\Doc\TSBrowse.chm
SergKis: 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_...
rvu: SergKis пишет: BROWSE - стандарный контрол List_View имеет Header и таблицу ячеек (однострочные данные и там и там) Чем-то принципиально от грида отличается?
SergKis: rvu пишет Чем-то принципиально от грида отличается? ничем, тот же контрол
rvu: Как-то давно спрашивал про rvu пишет: окно без иконки. Тогда меня устроило: Dima пишет: NOSIZE NOSYSMENU А сейчас хочется, чтобы стандартные средства окна, типа крестика, были, но без иконки. Так можно?
SergKis: 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-и делаете...
gfilatov2002: SergKis пишет: Это будут уже не стандартные средства И будет выглядеть примерно так Если нужен код этого "чуда", то пишите
Andrey: gfilatov2002 пишет: И будет выглядеть примерно так Там кнопки выхода круглые - хреново выглядят. Нужно иконки ставить, тогда чётко и красиво будет круглая кнопка выглядеть. Сейчас эту прогу я бы сделал совсем по другому ! Там кода дофига, можно в разы его короче сделать. Это 2014 год, а сейчас уже 2021...
rvu: Сейчас пустую иконку поставил, только она все равно место занимает. Может, и Title уберу, вернее тоже сделаю невидимым.
SergKis: rvu пишет Сейчас пустую иконку поставил, только она все равно место занимает. С Title делайте как хотите, а image X можно делать кнопкой (любого типа) или Label с Value := "X" или из фонта Symbol и всегда можно ей делать hide и show (.Visible := .F.\.T.) только в нужный момент и в нужном месте, например слева вверху, сейчас часто именно так делают, контролы управления слева
rvu: SergKis пишет: С Title делайте как хотите, а image X можно делать кнопкой Я-то писал про стандартное окно винды. А вы, видимо, про нестандартное средство.
полная версия страницы