Вывод текта на TForm

@NiTan · Регистрация: 29.01.2010

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

Здравствуйте. Как на TForm вывести RichEdit1->Text. Пробую через Form1->Canvas->TextOutA(0,0,RichEdit1->Text), но только выводит он всесь текст одной строкой. А мне нужно чтобы выводилось столько строк, сколько в RichEdit.

@Зоти Сергей · 29.01.2010, 17:23

C++
1
2
for(int i=0;i<RichEdit1->Lines->Count;i++)
        Form1->Canvas->TextOut(10,i*20,RichEdit1->Lines->Strings[i]);

@Otaka · 29.01.2010, 18:04

Можно еще пользоваться функцией DrawText и указать ей прямоугольник вывода, и она сама сможет разбить строку на отдельные подстроки, если они не будут влазить на экран.

@Зоти Сергей · 29.01.2010, 18:19

Можно еще пользоваться функцией DrawText и указать ей прямоугольник вывода

Точно. тогда это будет выглядить так (для всего окна):

C++
1
2
3
HDC hdc = GetDC(Form1->Handle);
DrawText(hdc, RichEdit1->Text.c_str(), RichEdit1->Text.Length(), &TRect(0,0,Form1->Width,Form1->Height), DT_LEFT);
ReleaseDC(Form1->Handle,hdc);

@NiTan · 29.01.2010, 22:08 **[ТС]**

Спасибо! Век не забуду!

Добавлено через 13 минут
Еще одна проблемка. А как очищать поле где будет выводится текст?

@Otaka · 29.01.2010, 22:39

C++
1
Form->Repaint();

А можно и прямоугольничек нарисовать на том месте где нужно что-то вытереть.

@NiTan · 30.01.2010, 12:33 **[ТС]**

А у меня еще вопрос про DrawText(). А как изменять свойства выводимого текста. Например изменить цвет шрифта, BackGroundColor и т.д.

@Otaka · 30.01.2010, 12:42

C++
1
2
SetBkColor(hDC, clrNavy);
SetTextColor(hDC, clrAqua);

@NiTan · 30.01.2010, 12:57 **[ТС]**

Los muchas gracias, Otaka. Теперь все понятно.

Добавлено через 10 минут
А размер шрифта и его имя.

@NiTan · 30.01.2010, 18:11 **[ТС]**

Мне все еще интересно, как изменить размер и имя шрифта.

@Otaka · 30.01.2010, 18:57

Можно создать новый с помощью CreateFont. В параметры вносишь название, размер, можно даже угол вывода. После успешного создания выбираешь его в контекст устройства SelectObject(hDC,hFont)

@BeLiX · 30.01.2010, 20:36

Попробовал бы с Memo только сначало поставь чтобы он только читался

@Зоти Сергей · 31.01.2010, 03:33

C++
1
2
3
Form1->Canvas->Font->Name="MS Gothic";
    Form1->Canvas->Font->Size=24;
        Form1->Canvas->TextOut(10,10,"Hallo");

Добавлено через 11 минут
А... Вам, скорей таким способом:

C++
1
2
3
4
5
6
7
8
9
HDC hdc = GetDC(Form1->Handle);
        HFONT Font=CreateFont (-24, 0, 0, 0, FW_DONTCARE, false, false, false, OEM_CHARSET,
                OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
                DEFAULT_PITCH | FF_DONTCARE, "Arial");
 
 
        SelectObject(hdc, Font);
        DrawText(hdc, "Hallo world", 11, &TRect(10,50,Form1->Width,Form1->Height), DT_LEFT);
    ReleaseDC(Form1->Handle,hdc);

@NiTan · 31.01.2010, 10:05 **[ТС]**

Всем большое спасибо!!!! Теперь узнал все что хотел.

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа 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. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887

	Вывод текта на TForm 29.01.2010, 16:48. Показов 1574. Ответов 13 Метки нет (Все метки) Здравствуйте. Как на TForm вывести RichEdit1->Text. Пробую через Form1->Canvas->TextOutA(0,0,RichEdit1->Text), но только выводит он всесь текст одной строкой. А мне нужно чтобы выводилось столько строк, сколько в RichEdit. 0

@Otaka 1857 / 714 / 55 Регистрация: 11.12.2008 Сообщений: 1,019
	29.01.2010, 18:04
	Можно еще пользоваться функцией DrawText и указать ей прямоугольник вывода, и она сама сможет разбить строку на отдельные подстроки, если они не будут влазить на экран. 1

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	29.01.2010, 22:08 [ТС]
	Спасибо! Век не забуду! Добавлено через 13 минут Еще одна проблемка. А как очищать поле где будет выводится текст? 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	30.01.2010, 12:33 [ТС]
	А у меня еще вопрос про DrawText(). А как изменять свойства выводимого текста. Например изменить цвет шрифта, BackGroundColor и т.д. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	30.01.2010, 12:57 [ТС]
	Los muchas gracias, Otaka. Теперь все понятно. Добавлено через 10 минут А размер шрифта и его имя. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	30.01.2010, 18:11 [ТС]
	Мне все еще интересно, как изменить размер и имя шрифта. 0

@Otaka 1857 / 714 / 55 Регистрация: 11.12.2008 Сообщений: 1,019
	30.01.2010, 18:57
	Можно создать новый с помощью CreateFont. В параметры вносишь название, размер, можно даже угол вывода. После успешного создания выбираешь его в контекст устройства SelectObject(hDC,hFont) 1

@BeLiX 1 / 1 / 0 Регистрация: 28.01.2010 Сообщений: 35
	30.01.2010, 20:36
	Попробовал бы с Memo только сначало поставь чтобы он только читался 1

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	31.01.2010, 10:05 [ТС]
	Всем большое спасибо!!!! Теперь узнал все что хотел. 0