Автоматический перенос на вторую строку текста в одной ячейке StringGrid

@olnekit · Регистрация: 21.02.2023

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

Здравствуйте, подскажите, как сделать автоматический или хотя-бы через Enter перенос на другую строку текста в одной ячейке. Возможно повторяюсь по теме, но код который предложили в теме Как сделать перенос текста внутри одной ячейки StringGrid?, переносит тот текст в ячейках, который прописан в редакторе исходного кода, а мне нужно, чтобы он при наборе текста переносился автоматически, в соответствии с шириной ячейки, или через пробел. Как можно это сделать ?

@Пытливый · 06.03.2023, 02:23

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

Знаки встали как положено, благодарю за помощь, но появилась ещё другая проблема. При нажатие на ячейку с текстом кнопкой мыши, текст в ячейке пропадает, как только кнопкой мыши нажимаешь на другу ячейку, текст в ячейке опять появляется. В чём может быть проблема ?

Предположу, что текст у вас имеет в начале кучу пробелов и это дает такой эффект.

@olnekit · 06.03.2023, 02:41 **[ТС]**

Сообщение от Пытливый

Предположу, что текст у вас имеет в начале кучу пробелов и это дает такой эффект.

Даже без единого пробела текст также пропадает при нажатии.

@Пытливый · 06.03.2023, 13:04

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

Даже без единого пробела текст также пропадает при нажатии.

А вот у меня не пропадет и даже не получается добиться такого эффекта. Интересно, что я делаю не так?
Можете прикрепить архив с проектом, где такой эффект имеется?

@olnekit · 07.03.2023, 07:48 **[ТС]**

Сообщение от Пытливый

А вот у меня не пропадет и даже не получается добиться такого эффекта. Интересно, что я делаю не так?
Можете прикрепить архив с проектом, где такой эффект имеется?

При воспроизведении проекта, нажмите на "Загрузить", там текст появится. На любую ячейку нажимаете, и он пропадает. Возможно курсор разукрашен в белый цвет при клики на ячейку.

@D1973 · 07.03.2023, 07:54

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

нажмите на "Загрузить"

Вот скриншот окна Вашего приложения. И где это пресловутое "Загрузить"?

@mr-Crocodile · 07.03.2023, 10:55

D1973, разверните на всё окно:

Автоматический перенос на вторую строку текста в одной ячейке StringGrid

@mr-Crocodile · 07.03.2023, 11:04

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

На любую ячейку нажимаете, и он пропадает.

текст выбранной ячейки у тебя белым выделяется. и фон тоже белый. поэтому белым по белому - ничего не видно.

@D1973 · 07.03.2023, 11:11

Сообщение от mr-Crocodile

разверните на всё окно

Развернул, не совсем дурак еще пока. У меня ноутбук 19" - этого мало оказалось!
Я ведь это опубликовал не потому, что кнопку в проекте найти не могу, а для того, чтобы ТС задумался о масштабировании... Но, чувствую, это вряд ли...

@mr-Crocodile · 07.03.2023, 11:17

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

У меня ноутбук 19" - этого мало оказалось!

почему такой маленький? 27 дюймов мне хватило, чтобы отобразить полностью

olnekit, чтобы понять, о чём я говорю, замени у себя в коде в строке 86 одну строчку ~~SG.Canvas.Brush.Color := SG.Color;~~
на этот код:

Delphi
86
87
88
89
90
    //  SG.Canvas.Brush.Color := SG.Color;
  if gdSelected in aState then //для selected использовать заливку серым цветом
     SG.Canvas.Brush.Color := clLtGray
  else
     SG.Canvas.Brush.Color := clWindow;

@Пытливый · 07.03.2023, 11:51

Так компоненты на форме расставлять не надо иначе проблемы гарантированы почти у всех. Вот я немножко подправил вам форму и теперь она нормально будет отображаться на любом мониторе, без плясок с бубном. Там же я подправил немножко код отрисовки, с учетом особенностей Лазарус. Теперь текст не пропадает.

@D1973 · 07.03.2023, 13:56

Не по теме:

Сообщение от Пытливый

я немножко подправил вам форму

Я бы кнопки на ToolBar заменил бы, а то и вообще на меню

@Пытливый · 07.03.2023, 14:02

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

Я бы кнопки на ToolBar заменил бы, а то и вообще на меню

Ну это уже к ТС, а я хотел показать, как настроить те же компоненты для корректного отображения при изменении размера формы.

@olnekit · 09.03.2023, 08:32 **[ТС]**

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

Развернул, не совсем дурак еще пока. У меня ноутбук 19" - этого мало оказалось!

Программу создавал на устройстве с экраном 24 дюйма, разрешением 1080x1920. На других устройствах не проверял.

Сообщение от mr-Crocodile

olnekit, чтобы понять, о чём я говорю, замени у себя в коде в строке 86 одну строчку SG.Canvas.Brush.Color := SG.Color;

Сообщение от Пытливый

Так компоненты на форме расставлять не надо иначе проблемы гарантированы почти у всех. Вот я немножко подправил вам форму и теперь она нормально будет отображаться на любом мониторе, без плясок с бубном. Там же я подправил немножко код отрисовки, с учетом особенностей Лазарус. Теперь текст не пропадает.

Понял в чём дело, надо было создать условие если (if) с заливкой цвета в ячейке я как понял ? Форма просто была некорректна отредактирована, но в настройках формы я сразу указал, чтобы открывалась во весь экран. На устройствах с меньшим экраном не проверял.

Всех благодарю за отзыв и за помощь по данной теме !

Добавлено через 3 часа 30 минут

Сообщение от mr-Crocodile

текст выбранной ячейки у тебя белым выделяется. и фон тоже белый. поэтому белым по белому - ничего не видно.

Понял причину.

@AzAtom · 09.03.2023, 09:22

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

разрешением 1080x1920

Я смотрел на таком разрешении, если форму не развернуть на весь экран, то кнопок не видно, а если развернуть, то они у самой нижней границы формы, без отступов. Ну как-то совсем не удобно.

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

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

надо было создать условие если (if) с заливкой цвета в ячейке я как понял ?

По хорошему, нужно проверять состояние aState и отрисовывать содержимое в зависимости от него. Можно поменять параметры для выделенной ячейки:

Delphi
1
2
3
4
5
6
7
    if gdSelected in aState then begin
      Canvas.Pen.Style := psDot;
      Canvas.Brush.Color := clYellow; // Меняем цвет фона .
      Canvas.Pen.Color := clRed;
      aRect.Inflate(0, 0, -1, -1); // Уменьшить ширину и высоту, иначе, не видно правой и нижней части рамки
      Canvas.Rectangle(aRect); // Рисуем рамку выделения ячейки
    end;

Можно отключить DefaultDrawing и вручную отрисовывать все ячейки.

@olnekit · 13.03.2023, 00:45 **[ТС]**

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

По хорошему, нужно проверять состояние aState и отрисовывать содержимое в зависимости от него. Можно поменять параметры для выделенной ячейки:

Понял, теперь буду знать, благодарю )))

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@olnekit 0 / 0 / 0 Регистрация: 21.02.2023 Сообщений: 42

	Автоматический перенос на вторую строку текста в одной ячейке StringGrid 01.03.2023, 00:51. Показов 2650. Ответов 34 Метки lazarus (Все метки) Здравствуйте, подскажите, как сделать автоматический или хотя-бы через Enter перенос на другую строку текста в одной ячейке. Возможно повторяюсь по теме, но код который предложили в теме Как сделать перенос текста внутри одной ячейки StringGrid?, переносит тот текст в ячейках, который прописан в редакторе исходного кода, а мне нужно, чтобы он при наборе текста переносился автоматически, в соответствии с шириной ячейки, или через пробел. Как можно это сделать ? 0

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	07.03.2023, 10:55
	D1973, разверните на всё окно: 0

Автоматический перенос на вторую строку текста в одной ячейке StringGrid

Решение