Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 13.10.02 09:04

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как сделать, чтобы в DBGrid вместо цифр были соответствующие константы?
Определяешь обработчик на DrawColumnCell примерно так:

procedure TForm1.Grid1DrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumn;
    State: TGridDrawState);
begin
    if Column.Field.FieldName='PLATEZH' then // ВАЖНО: имя поля большими буквами!
    begin
        Grid1.Canvas.FillRect(Rect);
        if Column.Field.AsInteger=0 then
            Grid1.Canvas.TextOut(Rect.Left+1,Rect.Top+2,'наличными')
        else 
            Grid1.Canvas.TextOut(Rect.Left+1,Rect.Top+2,'безнал');
end;


Комментарий от Max Rezanov


По мне проще следующая конструкция (на GetText у TField)


procedure
TForm1.Table1ID_OBJGetText(Sender: TField; var!
 Text: String;
  DisplayText: Boolean);
  const cStr :array [0..1] of string = ('Нал','Без нал');
begin
  if DisplayText then
    Text := cStr[Sender.AsInteger]
  else
    Text := Sender.AsString;
end;

Прикол что это работает не только в DBGride

Одно маленькое замечание от ghoarkaz@rusprod.ru - имя поля надо писать именно так, как вы его определяете при формировании Grida, вовсе не обязательно большими буквами. Если в программе написано

Grid1.Columns.Items[1].FieldName:='Field1'; 
то и в обработчике д.б. 
if Column.Field.FieldName='Field1' then ...


Комментарий от "men" (men@systema.ru)

...
if LowerCase(Column.Field.FieldName)='platezh'
...

и не думать о написании имени поля...

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
«DELPHI в примерах для начинающих» - Изучение простейших приемов работы с файлами и потоками на примере программы «Монитор каталогов»
Давайте вместе создадим программу, которая будет непрерывно проверять каталог на предмет изменения содержимого (появление нового файла, удаление файла, переименование и изменение файла).
Добавим в нашу программу возможность ведения протокола изменений в проверяемом каталоге и функции динамической настройки этого списка.
После написания программы добавим еще одно "удобное"  свойство – спрячем программу в SysTray...
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Уголок разработчика
Новый сайт для разработчиков GJ
» Оценка сайта: 2
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
О чем пишешь крылышком
На стекле,
Прилетевшая ласточка?

Афоризмы
Многие жалуются на свою внешность, и никто на мозги...

Фраза дня
Творите о себе мифы. Боги начинали именно так.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Дюранго в Колорадо (США) считается преступлением появиться на улице в одежде, присущей другому полу.
В городе Лехай в Небраске (США) издано блестящее по идиотизму распоряжение, официально запрещающее продавать дырки от бубликов.

И на закуску коротенький анекдот
Сын программиста подходит к отцу и спрашивает:
- Пап, а что такое ПИНГВИН?
Папа (задумчиво):
- Пинг... Вин... Пинг винды, значит. Функция для определения зависания винды.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=726

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное