powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Минимальная высота объекта GRID
8 сообщений из 8, страница 1 из 1
Минимальная высота объекта GRID
    #34177014
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто знает, как программно определить минимально возможную высоту объекта GRID?
С уважением, Алексей
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34177259
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Методом научного тыка - 20.
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34177513
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AleksMedМетодом научного тыка - 20.
Ага, я тоже на это попался.. А попробуйте установить размер шрифта в Windows 125% от нормального (120 DPI) и установите размер у GRID 20!
Нет, надо как-то считать через Win32API или через FONTMETRIC.
С уважением, Алексей.
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34177778
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
oForm = Createobject('form')
With oForm
	.AddObject('oGrid','grid')
	With .oGrid
		local llSuccess
		For i= 10  To  30 
			Try
				.Height=i
				llSuccess = .t.
			Catch
			endtry
			if llSuccess
			   exit
			endif
		Endfor
	Endwith
Endwith
? i
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34177813
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо alex11100 !
Я, в принципе так и делаю (только шаг 5, а не 1), но как то это не очень красиво, вызывать ошибку, да и еще в цикле.... :)
Думаю, что есть более красивое решение.

С уважением, Алексей
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34179630
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тоже сталкивался с этим -
теперь если нужно - проверяю фонт метрик и в зависимости от него устанавливаю
размеры пропорционально .
т.е.
формула такова

Код: plaintext
1.
2.
fH=FONTMETRIC( 1 )+ 1  && - с запасом делаю на всяк случай
Fnt_H=fH+fH*(FONTMETRIC( 20 )/ 96 - 1 ) 
чесно говоря не эксперементировал с разными шрифтами , но с Ариалом и Кориером все работает нормально
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34180777
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-=AlexiS=-тоже сталкивался с этим -
теперь если нужно - проверяю фонт метрик и в зависимости от него устанавливаю
размеры пропорционально .
т.е.
формула такова

Код: plaintext
1.
2.
fH=FONTMETRIC( 1 )+ 1  && - с запасом делаю на всяк случай
Fnt_H=fH+fH*(FONTMETRIC( 20 )/ 96 - 1 ) 
чесно говоря не эксперементировал с разными шрифтами , но с Ариалом и Кориером все работает нормально
Спасибо -=AlexiS=-! Ваш вариант подходит, но, оказалось, что можно и проще.!
Оказывается, что высота GRID не может быть меньше, чем высота системного меню, т.е. SYSMETRIC(20):
Код: plaintext
1.
Fnt_H= SYSMETRIC( 20 ) +  2  &&  ( 2  пиксела запас, на всякий случай)
С уважением, Алексей.
...
Рейтинг: 0 / 0
Минимальная высота объекта GRID
    #34181075
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да - с SYSMETRIC(20) действительно проще,
но - чем хорош Fontmetric - можно под конкретный шрифт подстроиться.
Да и где гарантия , что особо продвинутые юзера не установят системное меню каких-то других размеров.

PS Алексей - а это Вы не со своим итоговым гридом ковыряетесь ?
Я с большим удовольствием пользуюсь вашими классами (только уж извините переделал "под себя" ), так вот в нем то у меня и стоит "мой вариант" пересчета
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Минимальная высота объекта GRID
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]