Поиск:

Ответ в темуСоздание новой темы Создание опроса
> PickList и единицы измерения... PickList и единицы измерения... 
:(
    Опции темы
DimW
  Дата 14.3.2005, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Не думал что с этим возникнут проблемы, но увы...
Эсть PickLict, который должен содержать единицы измерения, то есть не "квадратный метр", не "м2", а надо что бы двойка была индексной... сверху над "м" и тройка тоже....
Пытался копировать из Word таблицы символов, и формировать PickList статически, копируется "?";
Может как нить динамически можно сформировать PickList? Вот только как это вопрос smile
Конечно вопрос немного не по БД, но раз PickList упоминается то...
PM MAIL ICQ   Вверх
Bes
Дата 14.3.2005, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 7
Нажимаешь Альт, набираешь в правой клавиатуре три цифры - отпускаешь альт, получается что-то вроде
§

‼
ў
попробуй, может что и найдешь, а по другому... ну может шрифты какие-нибудь другие можно попробовать..
PM MAIL   Вверх
DimW
Дата 14.3.2005, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Цитата

Нажимаешь Альт, набираешь в правой клавиатуре три цифры - отпускаешь альт

"╓ ŭ N ⚒ Ȥ ╓ x ♥ ♥ ♥ $ ʒ ĂȤ ʷμ ξ ϛ ͖ Ǟ υ ʺ ʷ ʷ ĉ Ū ╓ О Ъ ĉ"- запарился набирать...

Цитата

ну может шрифты какие-нибудь другие можно попробовать..

а вот этого не надо.....
Но ведь в Word есть такие символы, и без установок дополнительных шрифтов...
В таблице символов ставлю Times New Roman, есть такие символы с этим шрифтом...
PM MAIL ICQ   Вверх
DimW
Дата 14.3.2005, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Нашел как по Alt: Alt+0178 - " ² "
Но все равно в PickList ставится "?" smile
Добавлено @ 11:26
Вот и в теме в место двойки добавилось " ² ", хоты при написании была двойка.
PM MAIL ICQ   Вверх
offline
Дата 14.3.2005, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 7
Я думаю, что это бесполезно через Alt набирать. У меня была такая же проблемма. Мне нужна была стрелка вверх и вниз, ну ничего из этого не ывшло через стандартные шрифты. Я перебрал всю таблицу и нашел стрелки, а они заразы в Delphi не отображались. Пришлось менять смысл задачи smile и выкручиваться не стрелками, а словами smile
PM MAIL   Вверх
DimW
Дата 14.3.2005, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Ну и что мне делать? Закозчик хочет видить единицы измерения в условном для них виде...
Болше ни у кого идей нет? smile
PM MAIL ICQ   Вверх
Dr.No_xXx
Дата 14.3.2005, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
поищи на
www.delphinarod.ru
вроде так но я не уверен
PM MAIL   Вверх
bursa
Дата 14.3.2005, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Событие OnDrawDataCell

Код

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var l:longint;
begin
if Field=Query1.FieldByName('field') then
if Query1.FieldByName('field').asString='м2' then
begin
 DBGrid1.Canvas.Rectangle(Rect); //заполняем белым цветом
 DBGrid1.Canvas.Font.Size:=14;
 DBGrid1.Canvas.TextOut(Rect.Left+1,Rect.Top+1,'м');
 l:=DBGrid1.Canvas.TextWidth('м');
 DBGrid1.Canvas.Font.Size:=5;
 DBGrid1.Canvas.TextOut(Rect.Left+1+l,Rect.Top+1,'2');

end;
end;
PM MAIL   Вверх
DimW
Дата 14.3.2005, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Спасибо за ответ!!!
Это все хороше, вот только в БД все равно хранится "м2" и при печати соответственно будет "м2".
Но все равно спасибо, хотя бы частично задача решена.

Мда задачка..... Проблема все же остается не решенной. smile

PM MAIL ICQ   Вверх
Vit
Дата 14.3.2005, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207
Цитата(DimW @ 14.3.2005, 07:56)
Спасибо за ответ!!!
Это все хороше, вот только в БД все равно хранится "м2" и при печати соответственно будет "м2".
Но все равно спасибо, хотя бы частично задача решена.


В базе вы должны хранить какие-то идентификаторы котрые будут показывать как форматировать текст. Сами придумайте идентификаторы и сами их обрабатывайте при показе.



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
DimW
Дата 15.3.2005, 08:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Цитата
В базе вы должны хранить какие-то идентификаторы котрые будут показывать как форматировать текст. Сами придумайте идентификаторы и сами их обрабатывайте при показе.


Допустим идентификаторам в БД для метра квадратного будет "м2" которое будет хранится в поле 'Field_Def', селект вернет мне "м2". Делаю вычислимое поле 'Field_Name' в компоненте TQuery, праверяю:

if Query.FieldByName('Field_Def').AsString='м2' then
Query.FieldByName('Field_Name').AsString= Но что присвоеть сюда??????????????????????

С DBGrid понятно как сделать, bursa хороший пример дал, но мне нужно что бы отчет печатался с условленными для единиц иэмерения обозначениями!!!

smile

PM MAIL ICQ   Вверх
Bes
Дата 15.3.2005, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 7
Ну тогда рисуй их. smile беС прикола - просто ничего не приходит в голову.
PM MAIL   Вверх
DimW
Дата 15.3.2005, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

Репутация: 5
Всего: 44
Так и знал что кто нить, когда нить придложит такую идею..... smile
PM MAIL ICQ   Вверх
Bes
Дата 15.3.2005, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 7
smile Ну извини, дружище, что это был я. Попробую, чего-нить еще родить.
PM MAIL   Вверх
Dimich
Дата 17.3.2005, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 3
Всего: 7
Вот так это можно сделать в FastReport (по крайней мере в версии 3 и наверняка выше, а может быть даже и ниже):
К примеру, пусть данные отображаются в компоненте отчета TfrxMemoView. Ставим его свойство AllowHTMLTags := true и можно пользоваться HTML тегами для форматирования текста. Вот так будет выглядеть текст с тегами для квадратного метра: м<sup>2</sup>
--------------------
Не работает - исправь, работает - не трогай!!!
PM MAIL ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


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

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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