Форум » Для флейма » Сижу на Win8.1 - пыт.. » Ответить
Сижу на Win8.1 - пыт..
Andrey: Сижу на Win8.1 - пытаюсь нарисовать ТОЛЬКО вертикальный скролинг в TsBrowse. Не получается. Дай думаю проверю в ХР. Есть оказывается ! Что за глюк в Win8.1 ? Это как то лечиться ?
Ответов - 36, стр:
1 2 All
ММК: Win8.1 не виновато :)
Andrey: ММК пишет: Win8.1 не виновато :) Почему не виновато ?
Dima: Andrey пишет: Почему не виновато ? Давай тест ;) Выложи EXE , я проверю на семерке а ММК на 8.1
Haz: Dima пишет: я проверю на семерке а ММК на 8.1 а я на 10
ММК: Andrey пишет: ММК пишет: цитата: Win8.1 не виновато :) Почему не виновато ? У меня на всех системах ( в ближайшее время поставлю 10 ) работает и TsBrows и xBrows . Последний, естественно, лучше. Вот совершенно случайно "всплыла" старая задача , ей 10 лет и под TsBrows на 8.1 - вертикальный скрол, без горизонтального. Правда это FW, может с этим еще связано ....
Andrey: Haz пишет: а я на 10 Dima пишет: Давай тест ;) Выложи EXE , я проверю на семерке а ММК на 8.1 По многочисленным просьбам - выкладываю https://cloud.mail.ru/public/8Trn/99UuUnKdH Извиняюсь за вид самого теста, но собирал с разных модулей, пришлось в один файл засунуть. Заодно подскажите как расскрасить в другой цвет строку массив в браузере, 4-элемент которого равен .F. ? Я так понимаю нужно на oBrwF:SetColor( { 2 } - поставить кодоблок, а как сделать не знаю.
Dima: Dima пишет: Выложи EXE Andrey пишет: По многочисленным просьбам - выкладываю А выложил сырец вместо EXE
Andrey: Dima пишет: А выложил сырец вместо EXE Думал, что сырец лучше...
Dima: Andrey пишет: Думал, что сырец лучше.. MMK не юзает Минигуи и собирать ни чего будет , уж поверь.
Dima: Andrey пишет: Извиняюсь за вид самого теста, но собирал с разных модулей, пришлось в один файл засунуть. Очередная сборная "солянка" сдобренная "специями" и приготовленная без понимания самого процесса, в очередной раз обречена на провал
Haz: Andrey пишет: ТОЛЬКО вертикальный скролинг в TsBrowse. только вертикальный и есть. на 10-ке тест пройден
Dima: Haz пишет: только вертикальный и есть. на 10-ке тест пройден Аналогично вынь 7 ММК Михаил а вот тест для 8.1 , собирал я. Вирей нет. Утоптал слегка UPX с опцией -9 https://cloud.mail.ru/public/7eko/hbfL9XGBm
SergKis: у меня на 8.1 тоже только вертикальный есть
Andrey: SergKis пишет: у меня на 8.1 тоже только вертикальный есть А у меня нет ! В примере сделал только вертикальный скролинг. Почему ?
Dima: Andrey В "чужих" окнах (прогах) есть вертикальный скрол ?
Andrey: Dima пишет: В "чужих" окнах (прогах) есть вертикальный скрол ? Да, есть. И в прогах своих и чужих на МиниГуи тоже есть. Тот же самый пример Tsb_Config.prg - если отключить показ горизонтального скролинга, то ВЕРТИКАЛЬНЫЙ ПОКАЗЫВАЕТ ! Не показывает ТОЛЬКО в тестовом примере. Что-то не хватает для показа вертикального скролинга.
Dima: Andrey А готовый EXE если качнуть что я собрал для MMK , он есть ?
SergKis: Andrey поставь после END TBROWSE MsgLog("lNoVScrol", oBrwF:lNoVScroll,"lNoHScrol", oBrwF:lNoHScroll) что будет в файле _MsgLog.txt ?
Andrey: Dima пишет: А готовый EXE если качнуть что я собрал для MMK , он есть ? Скачал, попробовал - нет скролинга.
Andrey: SergKis пишет: что будет в файле _MsgLog.txt ? lNoVScrol .T. lNoHScrol .T.
Andrey: Я вспомнил, у меня цвета не шли в TsBrowse, я поставил их в конце и цвета пошли. Сделал так: .... oBrwF:ResetVScroll() // показ вертикального скролинга END TBROWSE Вертикальный скролинг появился ! Ура ! Но почему так происходит ?
SergKis: Andrey пишет:lNoVScrol .T. lNoHScrol .T. а должно быть: lNoVScrol .F. lNoHScrol .T. lNoVScrol .T. - означает без VScrol-а, потому он и отсутствует
Andrey: Сделал так: ........ oBrwF:ResetVScroll() // показ вертикального скролинга MsgLog("lNoVScrol", oBrwF:lNoVScroll,"lNoHScrol", oBrwF:lNoHScroll) END TBROWSE Результат - вертикальный скролинг есть ! Отладка: lNoVScrol .T. lNoHScrol .T. Версия МиниГуи последняя !
SergKis: Andrey пишет:Версия МиниГуи последняя ! У меня тоже, последняя без модификаций дает: lNoVScrol .F. lNoHScrol .T.
Andrey: SergKis пишет: lNoVScrol .F. lNoHScrol .T. Ещё одна загадка МиниГуи....
ММК: Andrey пишет: Dima пишет: цитата: А готовый EXE если качнуть что я собрал для MMK , он есть ? Скачал, попробовал - нет скролинга. Для 8.1 все нормально , Дима :))
Haz: Andrey Скинь ка скриншот ПОЛНОГО экрана на котором твоя задача без скрола. а лучше два , где видно первую и последнюю запись PS. Поздно - не надо ) Опишу суть - почему скрола у тебя нет, а у других есть 1. Вот это скорее всего у всех отличается от тебя [pre2] [LOCAL nMaxHeight := int((GetDesktopHeight() - GetTaskBarHeight()) * 0.85) [/pre2] 2 В исходнике Tsbrows есть код который скрывает скрол если все строки бровса помещаются в нем [pre2] If ! ::lNoVScroll If ::nLen <= ::nRowCount() //V90 nMin := nMax := 0 Else nMax := Min( ::nLen, MAX_POS ) nPage := Min( ::nRowCount(), ::nLen ) EndIf[/pre2] 3 когда твой бровс создается - с учетом п1 условие из п2 ВЫПОЛНЯЕТСЯ и скрол не показывается потом ты меняешь высоты строки они перестают помещаться НО СКРОЛ УЖЕ СКРЫТ и чтоб показать - нужно нарушить условие п2 ( хочешь убедиться - добавь в свой массив еще 100 строк ) или пересчитать скрол ( такой метод есть , вижу сам нашел уже ) 4 ... Делайте выводы господа Andrey пишет: Ещё одна загадка МиниГуи. а Минигуи то тут при чем , сделано ровно то что заложено алгоритмом
SergKis: Haz пишет:4 ... Делайте выводы господа Все действия вычисления происходят у всех одинаково, разница в размерах Desktop, у Андрея при расчете все помещается, а у нас нет, потому у него lNoVScroll := .T., а у нас lNoVScroll := .F.
SergKis: PS. Размеры фонта в расчете еще могут влиять
ММК: Придется нам всем вместе приехать к Андрею и "изменить" ему Desktop ......
Dima: Почистил тему и двинул все сюда
Haz: MMK пишет: Придется нам всем вместе приехать к Андрею и "изменить" ему Desktop ...... тока без рукоприкладства
Andrey: ММК пишет: Придется нам всем вместе приехать к Андрею и "изменить" ему Desktop ...... Приезжайте ! Ох и напьёмся все вместе....
PSP: Andrey пишет: Ох и напьёмся все вместе.... Какой "напьёмся"??!!! Скроллбар искать будете!!! ))))
Dima: Алкаши
ММК: Dima пишет: Алкаши Мы - нет ! А вот кот "позволяет" себе чуток .....
полная версия страницы