Как повернуть и написать вертикально текст?

@FFPowerMan · Регистрация: 11.10.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте. Мне нужно написать на канве формы текст. Форма выкрашена в желтый цвет и на ней уже нарисованы 3 окружности. Осталось последний штрих написать свою фамилию текстом. Написать могу, только вот косяк, не могу повернуть текст, чтобы он был вертикально сверху вниз. В методичке сказано, что нужно использовать функцию SetWorldTransform, но как ее использовать? Нужно создать матрицу XFORM и как-то заполнить ее? Как она кстати заполняется? Ничего не понятно.

@volvo · 21.11.2019, 19:51

Создать шрифт через CreateFontIndirect, и установить ему lfEscapement в 900, это заставит шрифт выводиться вертикально. Примеры на форуме есть.

@FFPowerMan · 21.11.2019, 20:04 **[ТС]**

Можно рабочий пример на CreateFontIndirect или можно рассмотреть вариант с Label, если она может выводить вертикальный текст.

@volvo · 21.11.2019, 20:09

Код, приведенный здесь: Текст под углом копировался с рабочего приложения (по ссылке тоже можно сходить). К сожалению, у меня теперь не то что Билдера, но и Windows нет, поэтому написать что-то рабочее снова я просто не могу.

@volvo · 21.11.2019, 20:26

Хотя... В VirtualBox запустил... Вот так, например:

@TrollHammer · 22.11.2019, 00:43

В поздних версиях Builder, если мне память не изменяет, можно и так:

C++
1
Canvas->Font->Orientation = 900;

@FFPowerMan · 22.11.2019, 12:37 **[ТС]**

C++
1
2
3
4
5
    TLogFont f;
    f.lfEscapement=90*10; //Угол вывода
    f.lfWidth = 6;
    f.lfHeight = 12;
    Canvas->Font->Handle = CreateFontIndirect(&f);

- да, вот этот код помог, спасибо. Но угол не 90 градусов, а где-то 200 и бывает что он случайный. Помогите еще, пожалуйста. Нужно, чтобы надпись была вертикально сверху вниз.

@FFPowerMan · 22.11.2019, 12:43 **[ТС]**

Вот

@FFPowerMan · 22.11.2019, 13:03 **[ТС]**

Да, вот это помогло, спасибо.

C++
1
Canvas->Font->Orientation = 900;

@TrollHammer · 22.11.2019, 14:43

Сообщение от FFPowerMan

TLogFont f;
f.lfEscapement=90*10; //Угол вывода
f.lfWidth = 6;
f.lfHeight = 12;
Canvas->Font->Handle = CreateFontIndirect(&f);

Потом надо сделать, кажется, DestroyObject (нет под рукой справочника по WinAPI) и проинициализировать структуру TLogFont по новой. Может быть, ошибаюсь.

Добавлено через 2 минуты

C++
1
 DeleteObject(Canvas->Font->Handle)

Нашел в старом проекте, под BC5, потом заново

C++
1
Canvas->Font->Handle = CreateFontIndirect(&f);

@FFPowerMan · 22.11.2019, 15:00 **[ТС]**

Подскажите, пожалуйста, как в Emarcadero C++Builder 10.3 Community включить подсказки типа такого

C++
1
Label1->

и выскакивает выпадающее меню с членами класса.
Что-то я в настройках посмотрел - там все включено, а других не нашел.

@TrollHammer · 22.11.2019, 15:06

Сообщение от FFPowerMan

включить подсказки

В Project->Options в секции C++ Compiler поставить галочку Use classic borland

@TrollHammer · 22.11.2019, 15:09

Скрин

@FFPowerMan · 22.11.2019, 15:31 **[ТС]**

О, спасибо, заработало наконец-то!!!!!!!!!!!!

@TrollHammer · 22.11.2019, 15:46

FFPowerMan, Рекомендую еще поставить надстройку CnPack Wizard от китайских товарищей

@FFPowerMan · 22.11.2019, 16:45 **[ТС]**

Наверное не буду ставить. Так написано для Delphi же?

Добавлено через 29 секунд
А зачем он нужен-то вообще?

@FFPowerMan · 23.11.2019, 14:26 **[ТС]**

Подскажите еще, пожалуйста. Вот выделяешь кусок программы и слева, где бряки ставить появляются такие 2 коричневые штуки по типу нун-чаков и надпись(подсказка) "Sync Edit Mode" и потом, если нажимаешь то открывается диалог OpenFile. Вот это вот что вообще?

@volvo · 23.11.2019, 14:39

Сообщение от FFPowerMan

если нажимаешь то открывается диалог OpenFile

Вот этого не должно быть. Должен текст выделиться голубым цветом, и можно, перемещаясь табом по идентификаторам, изменять ВСЕ одинаковые идентификаторы одновременно (печатаешь новый идентификатор, он автоматически изменяется везде в выделенном тексте). Тут есть информация об этой фиче + ссылка на иллюстрирующее видео. А то, что происходит у тебя - неправильное поведение...

@FFPowerMan · 23.11.2019, 15:21 **[ТС]**

Спасибо, понял. А вылетающее OpenDialog - это, наверное, программа рабоатет.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280

	Как повернуть и написать вертикально текст? 21.11.2019, 18:33. Показов 7812. Ответов 18 Метки нет (Все метки) Здравствуйте. Мне нужно написать на канве формы текст. Форма выкрашена в желтый цвет и на ней уже нарисованы 3 окружности. Осталось последний штрих написать свою фамилию текстом. Написать могу, только вот косяк, не могу повернуть текст, чтобы он был вертикально сверху вниз. В методичке сказано, что нужно использовать функцию SetWorldTransform, но как ее использовать? Нужно создать матрицу XFORM и как-то заполнить ее? Как она кстати заполняется? Ничего не понятно. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	21.11.2019, 19:51
	Создать шрифт через CreateFontIndirect, и установить ему lfEscapement в 900, это заставит шрифт выводиться вертикально. Примеры на форуме есть. 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	21.11.2019, 20:04 [ТС]
	Можно рабочий пример на CreateFontIndirect или можно рассмотреть вариант с Label, если она может выводить вертикальный текст. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	21.11.2019, 20:09
	Код, приведенный здесь: Текст под углом копировался с рабочего приложения (по ссылке тоже можно сходить). К сожалению, у меня теперь не то что Билдера, но и Windows нет, поэтому написать что-то рабочее снова я просто не могу. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	21.11.2019, 20:26
	Хотя... В VirtualBox запустил... Вот так, например: Миниатюры 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	22.11.2019, 12:43 [ТС]
	Вот Миниатюры 0

@TrollHammer 1216 / 709 / 336 Регистрация: 22.02.2018 Сообщений: 2,095 Записей в блоге: 2
	22.11.2019, 15:09
	Скрин Миниатюры 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	22.11.2019, 15:31 [ТС]
	О, спасибо, заработало наконец-то!!!!!!!!!!!! 0

@TrollHammer 1216 / 709 / 336 Регистрация: 22.02.2018 Сообщений: 2,095 Записей в блоге: 2
	22.11.2019, 15:46
	FFPowerMan, Рекомендую еще поставить надстройку CnPack Wizard от китайских товарищей 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	22.11.2019, 16:45 [ТС]
	Наверное не буду ставить. Так написано для Delphi же? Добавлено через 29 секунд А зачем он нужен-то вообще? 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	23.11.2019, 14:26 [ТС]
	Подскажите еще, пожалуйста. Вот выделяешь кусок программы и слева, где бряки ставить появляются такие 2 коричневые штуки по типу нун-чаков и надпись(подсказка) "Sync Edit Mode" и потом, если нажимаешь то открывается диалог OpenFile. Вот это вот что вообще? 0

@FFPowerMan 2158 / 1238 / 509 Регистрация: 11.10.2018 Сообщений: 6,280
	23.11.2019, 15:21 [ТС]
	Спасибо, понял. А вылетающее OpenDialog - это, наверное, программа рабоатет. 0