Отправлено: 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 
  
 

 Отправлено: 26.05.20 15:37. Заголовок: SergKis пишет: nIco..

SergKis пишет:

цитата:

nIcoSize

Вот это понятно. А у Григория написано nSize.

 Отправлено: 22.07.20 20:24. Заголовок: Такая проблема возни..

Такая проблема возникла. Есть некий список, вывожу его гридом. В первом столбце порядковые номера: 1, 2, 3... Они нужны больше для красоты, особого смысла в них нет, но пользователи к этому привыкли.
Когда по какому-нибудь столбцу происходит сортировка, этот столбец тоже меняется соответственно. А можно его оставлять неизменным? Чтобы там всегда было 1, 2, 3...

 Отправлено: 22.07.20 21:01. Заголовок: Самое простое - посл..

Самое простое - после сортировке заново в столбец занеси 1,2,3...
По другому никак.
Если переделаешь вывод на TsBrowse, то там море возможностей.
Сам раньше боялся переходить, сейчас одно удовольствие с таблицами работать.

 Отправлено: 23.07.20 03:36. Заголовок: Andrey пишет: Самое..

Andrey пишет:

цитата:

Самое простое - после сортировке заново в столбец занеси 1,2,3...

Вместе с COLUMNSORT это не сделать?
Надо ON HEADCLICK использовать со своей функцией?

 Отправлено: 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

 Отправлено: 23.07.20 12:09. Заголовок: Вот еще проблема - п..

Вот еще проблема - почему-то этот грид всё выдает в переменных UE. Даже такое - Win_1.Grid_1.Value.
Почему так? И как этими данными воспользоваться?

 Отправлено: 23.07.20 12:18. Заголовок: rvu пишет: почему-т..

rvu пишет:

цитата:

почему-то этот грид всё выдает в переменных UE

Не понял что это такое...
Примеры по ГРИДУ смотрели ?
Там всё понятно.
Если у вас что-то не работает, делайте самодостаточный пример.
А так объяснять и понять что нужно - сложно.
Сам многие вещи здесь на форуме не могу правильно сформулировать.

 Отправлено: 23.07.20 12:20. Заголовок: Andrey пишет: Не по..

Andrey пишет:

цитата:

Не понял что это такое...

Это я тут немного запутался и стал их TYPE() смотреть. VALTYPE() нормально показывает. Прошу прощения.

В итоге заработало.

 Отправлено: 01.08.20 18:42. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если переделаешь вывод на TsBrowse

gfilatov2002 пишет:

цитата:

вот готовое определение ListBox с помощью TBrowse

В справке по Минигуи таких нет, но есть BROWSE.

Помогите разобраться, какая между ними разница и что в итоге брать?

 Отправлено: 01.08.20 18:59. Заголовок: rvu тут живет C: ..

rvu
тут живет C:\MiniGUI\Doc\TSBrowse.chm

 Отправлено: 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_...

 Отправлено: 01.08.20 21:24. Заголовок: SergKis пишет: BROW..

SergKis пишет:

цитата:

BROWSE - стандарный контрол List_View имеет Header и таблицу ячеек (однострочные данные и там и там)

Чем-то принципиально от грида отличается?

 Отправлено: 01.08.20 21:26. Заголовок: rvu пишет Чем-то при..

rvu пишет

цитата:

Чем-то принципиально от грида отличается?

ничем, тот же контрол

 Отправлено: 18.03.21 20:10. Заголовок: Как-то давно спрашив..

Как-то давно спрашивал про

rvu пишет:

цитата:

окно без иконки.

Тогда меня устроило:

Dima пишет:

цитата:

NOSIZE NOSYSMENU

А сейчас хочется, чтобы стандартные средства окна, типа крестика, были, но без иконки. Так можно?

 Отправлено: 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-и делаете...

 Отправлено: 18.03.21 23:22. Заголовок: SergKis пишет: Это ..

SergKis пишет:

цитата:

Это будут уже не стандартные средства

И будет выглядеть примерно так


Если нужен код этого "чуда", то пишите

 Отправлено: 19.03.21 00:13. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

И будет выглядеть примерно так

Там кнопки выхода круглые - хреново выглядят.
Нужно иконки ставить, тогда чётко и красиво будет круглая кнопка выглядеть.
Сейчас эту прогу я бы сделал совсем по другому !
Там кода дофига, можно в разы его короче сделать.
Это 2014 год, а сейчас уже 2021...

 Отправлено: 19.03.21 04:33. Заголовок: Сейчас пустую иконку..

Сейчас пустую иконку поставил, только она все равно место занимает. Может, и Title уберу, вернее тоже сделаю невидимым.

 Отправлено: 19.03.21 08:18. Заголовок: rvu пишет Сейчас пус..

rvu пишет

цитата:

Сейчас пустую иконку поставил, только она все равно место занимает.

С Title делайте как хотите, а image X можно делать кнопкой (любого типа) или Label с Value := "X" или из фонта Symbol и всегда можно ей делать hide и show (.Visible := .F.\.T.) только в нужный момент и в нужном месте, например слева вверху, сейчас часто именно так делают, контролы управления слева

 Отправлено: 19.03.21 10:11. Заголовок: SergKis пишет: С Ti..

SergKis пишет:

цитата:

С Title делайте как хотите, а image X можно делать кнопкой

Я-то писал про стандартное окно винды. А вы, видимо, про нестандартное средство.