Изменить стиль и размер текста в MapBasic
-
- Интересующийся
- Сообщения: 26
- Зарегистрирован: 29 апр 2021, 10:38
- Репутация: 1
- Откуда: Москва
Изменить стиль и размер текста в MapBasic
Добрый день.
Хочу с помощью программы изменить стиль текстового слоя. А конкретно изменить его размер. Написал небольшой код, но желаемого результата не получил.
Подскажите, пожалуйста, что тут не так?
Include "mapbasic.def"
Declare Sub main
Declare Function FontStyle(ByVal oObject as Object, ByVal fFontStyle as Font) as Object
Function FontStyle(ByVal oObject as Object, ByVal fFontStyle as Font) as Object
Alter Object oObject Info OBJ_INFO_TEXTFONT, fFontStyle
FontStyle=oObject
End Function
Sub main
Select * from Текст into TEMP_ING NoSelect
Update TEMP_ING
Set OBJ=FontStyle(OBJ,MakeFont("Arial", 0, 1,red, 1))
Close Table TEMP_ING
Dim fFont as Font
fFont = MakeFont("Helv", 1, 20,BLUE, white)
Select * from Текст into TEMP_ING NoSelect
Update TEMP_ING
Set OBJ=FontStyle(OBJ,MakeFont("Arial", 3, 5,RED, 10))
end sub
Хочу с помощью программы изменить стиль текстового слоя. А конкретно изменить его размер. Написал небольшой код, но желаемого результата не получил.
Подскажите, пожалуйста, что тут не так?
Include "mapbasic.def"
Declare Sub main
Declare Function FontStyle(ByVal oObject as Object, ByVal fFontStyle as Font) as Object
Function FontStyle(ByVal oObject as Object, ByVal fFontStyle as Font) as Object
Alter Object oObject Info OBJ_INFO_TEXTFONT, fFontStyle
FontStyle=oObject
End Function
Sub main
Select * from Текст into TEMP_ING NoSelect
Update TEMP_ING
Set OBJ=FontStyle(OBJ,MakeFont("Arial", 0, 1,red, 1))
Close Table TEMP_ING
Dim fFont as Font
fFont = MakeFont("Helv", 1, 20,BLUE, white)
Select * from Текст into TEMP_ING NoSelect
Update TEMP_ING
Set OBJ=FontStyle(OBJ,MakeFont("Arial", 3, 5,RED, 10))
end sub
-
- Гуру
- Сообщения: 4057
- Зарегистрирован: 15 окт 2010, 08:33
- Репутация: 1054
- Ваше звание: программист
- Откуда: Казань
-
- Интересующийся
- Сообщения: 26
- Зарегистрирован: 29 апр 2021, 10:38
- Репутация: 1
- Откуда: Москва
Re: Изменить стиль и размер текста в MapBasic
... ну здесь про стиль линии ... это не совсем то, чо нужно ...
Мне бы размер текста изменить
Мне бы размер текста изменить
-
- Гуру
- Сообщения: 4057
- Зарегистрирован: 15 окт 2010, 08:33
- Репутация: 1054
- Ваше звание: программист
- Откуда: Казань
Re: Изменить стиль и размер текста в MapBasic
пишут, что с размером текста действительно есть проблема тыц. Тогда только извлекать текст, и создавать новый объект с новым фонтом, его и возвращать.
-
- Интересующийся
- Сообщения: 26
- Зарегистрирован: 29 апр 2021, 10:38
- Репутация: 1
- Откуда: Москва
Re: Изменить стиль и размер текста в MapBasic
Похоже, что так и есть ... Жаль ... Спасибо за ответ.
-
- Активный участник
- Сообщения: 104
- Зарегистрирован: 09 окт 2009, 16:49
- Репутация: 10
Re: Изменить стиль и размер текста в MapBasic
Создаётся временное окно карты с временным слоемgrandred75 писал(а): ↑14 апр 2023, 14:07Хочу с помощью программы изменить стиль текстового слоя. А конкретно изменить его размер.
В этом окне рисуется текст нужного размера в нужном масштабе
Полученный текстовый объект(ы) сохраняем в переменную и используем как надо
Удаляем временный слой, окно карты закрывается
Работает в целом нормально, но реализация конечно через зад но других путей вроде нет
Кто сейчас на конференции
Сейчас этот форум просматривают: Semrush [Bot] и 18 гостей