Перенос текста в ячейках StringGrid

@Faust971 · Регистрация: 25.03.2012

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

Нашел дельфиский код c использованием API

Delphi
1
2
3
4
5
6
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var s:string;
begin
 s := 'Hello world! Hello world! Hello world! Hello world!';
 DrawText(StringGrid1.Canvas.Handle,PChar(s),length(s),Rect,DT_WORDBREAK);
end

Сам пытаюсь использовать на С++ builder

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
 
if ((ACol==i) && (ARow==b))
{
StringGrid1->Canvas->Brush->Color=clRed;
 
   AnsiString s;
 
    s="Hello world! Hello world! Hello world! Hello world!";
 
 DrawText(StringGrid1->Canvas->Handle, PChar(s),10,Rect,DT_WORDBREAK);
 StringGrid1->Canvas->FillRect(Rect);
 
}

ругается на PChar(s) как правильно это описать в С++ builder (уже пробывал s.str()), помогите разобраться что за тип PChar

@volvo · 10.09.2013, 14:59

C++
1
2
3
4
        String s = "Hello world! Hello world! Hello world! Hello world!";
 
        StringGrid1->Canvas->FillRect(Rect);
        DrawText(StringGrid1->Canvas->Handle, s.c_str(), s.Length(),&Rect,DT_WORDBREAK);

@Avazart · 10.09.2013, 16:47

С новой строки в ячейке StringGrid

@Faust971 · 10.09.2013, 18:59 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
StringGrid1->Cells[2][2]="Hello,my dear friend";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
                    TGridDrawState State)
{
    StringGrid1->Canvas->FillRect(Rect);
    String Text= StringGrid1->Cells[ACol][ARow];
    StringGrid1->Canvas->TextRect(Rect,Text,TTextFormat()<<tfWordBreak);
}

Avazart спс за способ но проблема остаётся дубликаты друг на друге.
TextRect(Rect,Text,TTextFormat()<<tfWord Break) И объясни что это делает, если не трудно.
У меня Embarcadero® RAD Studio XE Version 15.0.3953.35171

@gunslinger · 10.09.2013, 22:52

TextRect(Rect,Text,TTextFormat()<<tfWord Break) помещает текст в ячейку StringGrid1 с возможностью размещения текста (слов) в виде нескольких строк, если не хватает ширины ячейки, чтобы поместить всё в одной строке (tfWordBreak).

@Faust971 · 11.09.2013, 05:56 **[ТС]**

Чуть позже обнаружил, что текст дублируется только в фиксированных ячейках(FixedRow) в обычных все норм.Можно как то это обойти? TTextFormat(), где можно прочитать про него, ничего найти толком не могу?

@Avazart · 11.09.2013, 17:40

Аналог WinApi http://msdn.microsoft.com/en-u... 85%29.aspx

@Faust971 · 11.09.2013, 18:44 **[ТС]**

Ещё 1 вопрос видел в дельфийском коде обращение к параметрам прямоугольника, для отступов от края рамки как это реализовать в builder?

Delphi
1
2
3
4
5
6
TRect tr
tr.left = Rect.left + pole;
tr.top = Rect.top + pole;
tr.right = Rect.right - pole;
tr.bottom = Rect.bottom - pole;
StringGrid1->ColWidths[ACol] = tr.Width() + pole * 2;

@Cha1000000 · 21.06.2017, 13:05

Если кому еще актуально и нужно, код для переноса строк в стринггриде:

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   String Text;
   Text = StringGrid1->Cells[ACol][ARow];
   StringGrid1->Canvas->FillRect(Rect);
   DrawText(StringGrid1->Canvas->Handle, Text.c_str(), Text.Length(), &Rect, DT_WORDBREAK);
}

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	10.09.2013, 16:47
	С новой строки в ячейке StringGrid 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	10.09.2013, 22:52
	TextRect(Rect,Text,TTextFormat()<<tfWord Break) помещает текст в ячейку StringGrid1 с возможностью размещения текста (слов) в виде нескольких строк, если не хватает ширины ячейки, чтобы поместить всё в одной строке (tfWordBreak). 1

@Faust971 69 / 69 / 50 Регистрация: 25.03.2012 Сообщений: 241
	11.09.2013, 05:56 [ТС]
	Чуть позже обнаружил, что текст дублируется только в фиксированных ячейках(FixedRow) в обычных все норм.Можно как то это обойти? TTextFormat(), где можно прочитать про него, ничего найти толком не могу? 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	11.09.2013, 17:40
	Аналог WinApi http://msdn.microsoft.com/en-u... 85%29.aspx 1