ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевод пиксельных координат в текстовые
4 сообщений из 4, страница 1 из 1
Перевод пиксельных координат в текстовые
    #32448602
chel99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chel99
Гость
Кто подскажет как переводить пиксельные координаты, которые применяются
в VFP (свойства Control.Left, Control.Top и т.д.) в текстовые, применяемые для
команд @say, @get и т.д. и наоборот.
...
Рейтинг: 0 / 0
19.03.2004, 10:17
| Ответить | Цитировать | Написать  
Перевод пиксельных координат в текстовые
    #32448731
po2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
po2
Гость
В VFP используются две связанные единицы для системы координат - Pixels и Foxels, связанные соотношением средней ширины шрифта используемого на форме, с учетом атрибутов Bold и Italic.
Для перевода пикселей в фоксели нужно выполнить деление:
Код: plaintext
1.
2.
3.
4.
5.
6.
with ThisForm
priv cFontStyle
cFontStyle =''
cFontStyle = cFontSyle + iif(.FontItalic,'I','')+iif(.FontBold,'B',cFontStyle)
cFontStyle = iif(empt(cFontStyle),'N',cFontStyle)
.cmd.LeftInFoxels = .cmd.Left/FONTMETRIC( 6 ,.FontName,.FontSize,cFontStyle)
endw
...
Рейтинг: 0 / 0
19.03.2004, 10:56
| Ответить | Цитировать | Написать  
Перевод пиксельных координат в текстовые
    #32448740
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
SCOLS() - ширина экрана в фокселях
_screen.Width - ширина экрана в пикселях
SROWS() - высота экрана в фокселях
_screen.Height - высота экрана в пикселях
Соответственно берешь нужное соотношение
...
Рейтинг: 0 / 0
19.03.2004, 10:58
| Ответить | Цитировать | Написать  
Перевод пиксельных координат в текстовые
    #32448937
chel99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chel99
Гость
Спасибо!
Уже нашел решение. Использую функции wrows() и wcols() :
from_y_=(from_y / thisform.Height) * wrows()
from_x_=(from_x / thisform.Width) * wcols()

Здесь from_y_ и from_x_ координаты в фокселях, а from_y, from_x - в пикселях.
...
Рейтинг: 0 / 0
19.03.2004, 12:02
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевод пиксельных координат в текстовые
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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