Президент Клинтон с целью увеличить общий интерес к наукам и техническим новшествам, пригласил несколько крупных компьютерных компаний участвовать в крупном издательском Мультимедиа-проекте с общей темой "Слоны". Названия частей проекта, сделанных соответственно компаниями:
Аррlе: "Дружественные к пользователям Слоны и их подруга Мышь".
IВМ: "Как продать Слона тому, кто хочет купить Беговую Лошадь".
Nоvеll: "Соединяя Слонов".
Воrlаnd: "Все Слоны должны стоить $99".
NеХТ: "Красим Слона в черный цвет".
Мiсrоsоft: "Почему Вы должны купить Мiсrоsоft Windоws".
TEdit не поддерживает выравниваение текста по центру и по правой стороне
- лучше использовать компонент TMemo. Вам понадобится запретить пользователю
нажимать Enter, Ctrl-Enter и всевозможные комбинации клавиш со стрелками,
чтобы избежать появления нескольких сторк в Memo. Этого можно добиться
и просматривая содержимое текста в TMemo в поисках кода возврата каретки
(13) и перевода строки(10) на событиях TMemo Change и KeyPress. Можно также
заменять код возврата каретки на пробел - для того чтобы позволять вставку
из буфера обмена многострочного текста в виде одной строки.
Пример:
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Alignment := taCenter;
Memo1.MaxLength := 24;
Memo1.WantReturns := false;
Memo1.WordWrap := false;
end;
procedure MultiLineMemoToSingleLine(Memo: TMemo);
var
t: string;
begin
t := Memo.Text;
if Pos(#13, t) > 0 thenbeginwhile Pos(#13, t) > 0 do
delete(t, Pos(#13, t), 1);
while Pos(#10, t) > 0 do
delete(t, Pos(#10, t), 1);
Memo.Text := t;
end;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
MultiLineMemoToSingleLine(Memo1);
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
MultiLineMemoToSingleLine(Memo1);
end;
В статье описывается проблема выравнивания текста в компоненте TEdit и предлагаются пути решения, включая использование компонента TMemo и обработку событий KeyPress и Change для преобразования multiline-текста в single-line.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал