Выделение несколько строк в компоненте DBGrid.Comwaddufo88@mail.ru (14.02.03 08:16)
В компоненте DBGrid есть проблема - нельзя сразу выделить несколько строк ,то есть, например, как в "проводнике" , выделив первую позицию и удерживая SHIFT выделяя последнюю получаем выбор из нескольких строк. Вот исходники. Добавите в DBGrid1MouseUp функцию и все. Первая граница выделяется без удерживания клавиши Shift, вторая с ним.
»»» Скачать: исходные тексты
Эта библиотека существенно облегчает процесс создания внешней компоненты 1СПредприятия и позволяет делать это, не вникая в тонкости технологии 1С. Процесс создания внешней компоненты сводится к добавлению процедур и функций внешней компоненты, как объектов, в компонент-контейнер.
»»» Скачать: исходные тексты
Программа позволяет осуществлять поиск в текстовых файлах по указанному пользователем запросу в указанных каталогах на локальных дисках компьютера по критерию присутствия в документах ключевых слов из запроса.
Основные возможности программы: 1. Поиск в документах на английском и русском языках. Для русского языка поддерживаются четыре наиболее распространенных кодировки: CP1251, CP866, KOI8-R, ISO-8859-5. 2. Запрос на поиск может быть сложным логическим выражением с использованием логических операторов И, ИЛИ, НЕ, скобок и регулярных выражений. 3. Кроме текстовых файлов поддерживается поиск в файлах формата HTML, Microsoft Word (6.0, 95, 97, 2000, XP), RTF, PDF. 4. Поддерживается поиск в архивах ZIP, RAR, ARJ, CAB. 5. Имеется интерфейс для расширения поддерживаемых форматов документов и архивов за счет создания динамически подключаемых модулей. Эти
модули могут разрабатываться отдельно от программы.
»»» Скачать: исходные текстыдемонстрационный EXE файл
Изменения размера файлов формата JPEG
»»» Andrej (19.07.00 08:17) Я недавно начал заниматься Delphi и столкнулся с проблемой изменения размера файлов формата JPEG. Вот что я пытаюсь сделать === Cut ===
var b1,b2: TJpegImage;
begin b1:=TJPEGImage.Create; b2:=TJPEGImage.Create; b1.LoadfromFile('01.jpg'); b2.Width:=b1.Width div 2; b2.SaveToFile('02.jpg'); end;
=== Cut ===
Все ноpмально компилиpyется, но пpи запyске вылетает окно виндов, мол не могy менять pазмеp файлов JPEG: "Cannot change the size of JPEG Image". Чего делать? Может кто-нибyдь подкинет готовyю пpоцедypкy для изменения pазмеpа, я бы по ней pазобpался. БМП изменять наyчился, но как не бился под JPEG никак не yдалосьпpиспособить этy пpоцедypy. Может в BMP надо пеpеводить? Я пытался юзать метод DIBNeeded, но честно говоpя ничего толком не
вышло. Помогите, кто может. Спасибо.
»»» Merlin (19.07.0!
0 17:31) 1. В приведенном коде ошибка. Зачем b2 ? Ведь ты в него картинку-то не грузишь. 2. Попробуй менять не b1.width , а его Canvas, может получится... 3. Создай b2 с нужным размером и СКОПИРУЙ в него картинку из b1 с масштабированием (функция bitblt, кажется :)
»»» GHOST - iconsun@nm.ru (19.07.00 21:46) Вот простенькая процедура:
procedure divJpeg; var b1,b2: TJpegImage; c1: TBitmap; begin b1:=TJPEGImage.Create; b2:=TJPEGImage.Create; c1:=TBitmap.Create; b1.LoadfromFile('С:\01.jpg'); c1.Height:=b1.Height; c1.Width:=b1.Width div 2; c1.Canvas.Draw(0,0,b1); b2.Assign(c1); b2.SaveToFile('C:\02.jpg'); b1.Free; b2.Free; c1.Free; end;
Таким образом можно преобразовывать .jpg в .bmp и обратно... А Canvas так просто в TJpegImage недоступен...
Комментарий
от roman (roman057@e-mail.ru) Главное - фантазия. Я до!
думался использовать TChart, где картинка была Background, вот только сохранять их после изменения TChart умеет только в bmp, но это уже не проблема.
-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-
Сохранение и загрузка данных в объекты на примере коллекций.
Если в Вашей программе используются классы для описания объектов некоторой предметной области, то данные, их инициализирующие, можно хранить и в базе данных. Но можно выбрать гораздо более продуктивный подход, который доступен в Delphi.
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer. Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов. Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows. Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов
Автор: Понамарев В.
ICQ2000 Сделай Сам :) Сайт для тех, кто интересуется протоколами ICQ. Описана работа протокола ICQ2000a (ICQv7), Подробно-комментированные исходные коды для Delphi-5 прилагаются. (ICQ2000 для начинающих и не ...
» Оценка сайта: 3
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Туча далеко. А пока над головой Облака легки.
Афоризмы
Если ты находишься больше чем 24 часа в ощущении, что у тебя все в порядке - тщательно проверь, не скрывают ли от тебя информацию....
Фраза дня
Объявление: общительная, симпатичная девушка без комплексов продаст вагон цемента
Дурацкие законы (информация предоставлена сайтом kurilka.com)
Если вы в Техасе(США) , даже не думайте стрелять по бизонам со второго этажа отеля.
В Канзасе (США) все пешеходы, пересекающие дорогу ночью, должны носить световые отражатели.
И на закуску коротенький анекдот
Ну вот как объяснить тупым иностранцам, что для нашего человека: одна бутылка водки - нормально, две - много, а три - мало?