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

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

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

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

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

←   Август 2001   →
 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 проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Новые компоненты   |x|
Кое-что из нашей кладовки   |x|
  • Pentagram Ketmar ketmar@i.am   (20.08.01 21:24)
    Просто горящая перевернутая пентаграмма :-), наследник TPanel (почему именно TPanel - уже не помню). Лично у меня используется на формочке About и на главной форме моего сервера :-). В принципе, поджечь можно все, что угодно - просто измените в исходниках реализацию DrawPentagram. На моем 700Mhz ресурсов жрет меньше процента. Кредиты не обязательны, на комментарий по поводу GNU в начале исходника внимания можно не обращать :-).
    »»» Скачать: исходные тексты (2кб)
  • XConsole Ketmar ketmar@i.am   (20.08.01 21:19)
    Текстовая консолька как VCL-компонент. Можно кинуть на форму. Имеет буфер для сохранения строчек, уже не видимых в самой консоли, скроллбарчик для просмотра буфера, понимает 16 стандартных DOS-цветов. Поддерживает шрифты 8x8, 8x16 (с русскими буковками), умеет делать авто-OEM-конверсию. Пригодится для терминалок и просто для програм, где нужна консолька. :-)
    »»» Скачать: исходные тексты (11кб)
  • NetTalk Ketmar ketmar@i.am   (20.08.01 21:31)
    Простейший чат (a-la WinPopup) на основе MailSlot'ов. Умеет сидеть в трэе, знает несколько состояний (занят, доступен, не беспокоить, etc). Никаких внешних компонентов кроме TrayIcon (находящейся в архиве с исходными текстами).
    »»» Скачать: исходные тексты (17кб) демонстрационный EXE файл (196кб)
  • Программа по рассылке новостей Санек webmaster@afontovo.ru   (20.08.01 14:05)
    Эта программа предназначена для автоматизации рассылки новостийных текстов абонентам. Это демо версия программы. Вы можете использовать ее по своему усмотрению. В этом же архиве находится текстовый демо-файл, с форматом записи эл. адресов(адрес/строка). Вы можете переименовать файл, так, как посчитаете нужным.Только в настройках укажите путь к нему. Если есть предложения - пишите
    »»» Скачать: исходные тексты демонстрационный EXE файл (282кб)
  • Перевод цветов Delfin delfin_tmp@mail.ru   (19.08.01 21:53)
    Утилита, помогающая использовать в своей программе большее количество цветов. Копирует выбранный цвет в буфер обмена в шестнацтеричном формате, который потом можно вставить в текст проги или сразу в свойство Color, сочетанием ctrl+V ;).
     P.S. - прошу прощение за допущеную рание ошибку.
    »»» Скачать: исходные тексты (5кб) демонстрационный EXE файл (127кб)
Лучшее из нашего FAQ   |x|
Изменения размера файлов формата 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.00 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 недоступен...

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Использование Debug API: пример перехвата вызовов функций Win32 API
Я предпочитаю не писать сухие статьи с кучей теории. Поскольку я люблю читать работающий исходный код, то и здесь будет только исходный код. Все пояснения я буду вставлять прямо в исходник - в виде комментариев. Впрочем, не надейтесь, что вам будет достаточно выдрать отсюда исходник, и он скомпилится. :-) Это не потому, что я специально что-то скрыл, а потому, что я вырезал кучу вспомогательных процедур, которые каждый может написать сам. Если вы, все же, паталогически ленивы - скачайте архив с полными рабочими исходниками. Оттуда точно заработает.
Новинки книжного рынка   |x|


Другие сайты о DELPHI   |x|
Alex's Games 2000
Компоненты Delphi для создания компьютерных игр
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Для души

Хокку дня
Какая прохлада!
Сквозь набежавший ливень
Закатное солнце.

Афоризмы
В ситуации, когда ты не знаешь, что делать - не делай ничего....

Фраза дня
Вечность торопит...

И на закуску коротенький анекдот
О человеке можно судить по его Temporary Internet Files...

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

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

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