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 можно делать кнопкой Я-то писал про стандартное окно винды. А вы, видимо, про нестандартное средство.