Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Спецсимволы, Использование спецсимволов в TEdit 
:(
    Опции темы
Denis
Дата 29.7.2006, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.7.2006

Репутация: нет
Всего: нет



Подскажите плиз, как можно в TEdit использовать спецсимволы (например знак суммы). Если ставить шрифт Symbol, то можно добавить все нужные символы, но тогда другие символы отображаются не корректно! 
PM MAIL   Вверх
Sunr1se
Дата 29.7.2006, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: 6
Всего: 13



Насчет TEdit не знаю, а вот в TRichEdit можно такое сделать:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 4;
  RichEdit1.SelAttributes.Name := 'Arial';
  RichEdit1.SelStart := 4;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Name := 'Symbol';
end;

В результате первые четыре символа будут нормальными, а пятый - неким спецсимволом. 
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
Denis
Дата 30.7.2006, 08:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.7.2006

Репутация: нет
Всего: нет



ну TEdit на TRichEdit заменить не проблема. А вот с TStringGrid что делать? 
PM MAIL   Вверх
Sunr1se
Дата 30.7.2006, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: 6
Всего: 13



Сейчас погуглил немного и нашел такую рекомендацию: нарисовать нужные символы и отрисовать их в таблице. 
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
Denis
Дата 30.7.2006, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.7.2006

Репутация: нет
Всего: нет



Мда, ну а что если мне надо вывести значок суммы и разные символы после него. Как в ячейку добавить нарисованный символ и вводимые с клавы символы после него? 
PM MAIL   Вверх
Romikgy
Дата 30.7.2006, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



onDrawCell
TextOut 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Sunr1se
Дата 30.7.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: 6
Всего: 13



Только что сочинил такую глупость, может быть поможет:
Код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 1) and (ARow = 1) and (LastCaption <> '') then
    StringGrid1.Canvas.TextOut(Rect.TopLeft.X, Rect.TopLeft.Y, '*' + LastCaption);
end;

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if (ACol = 1) and (ARow = 1) then
    LastCaption := Value;
end;
 
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
volvo877
Дата 30.7.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116



Цитата(Denis @  30.7.2006,  11:18 Найти цитируемый пост)
Мда, ну а что если мне надо вывести значок суммы и разные символы после него
Велосипедостроением занимаешься? TTntStringGrid и используй Unicode... 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0943 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.