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

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

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

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

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

←   Октябрь 2004   →
 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

DELPHIMASTER.ru

Выпуск от 18.10.04 09:18

Лучшее из нашего FAQ   |x|
Как изменить размер Jpeg и сохранить его в новый файл 


procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBItmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then begin
    jpg:= TJpegImage.Create;
    try
      jpg.Loadfromfile( opendialog1.filename );
      if jpg.Height > jpg.Width then
        scale := 50 / jpg.Height
      else
        scale := 50 / jpg.Width;
        bmp:= Tbitmap.Create;
        try
          {Create thumbnail bitmap, keep pictures aspect ratio}
          bmp.Width := Round( jpg.Width * scale );
          bmp.Height:= Round( jpg.Height * scale );
          bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
          {Draw thumbnail as control}
          Self.Canvas.Draw( 100, 10, bmp );
          {Convert back to JPEG and save to file}
       
  jpg.Assign( bmp );
          jpg.SaveToFile(ChangeFileext( opendialog1.filename, '_t
 humb.JPG' ));
        finally
          bmp.free;
        end;
      finally
        jpg.free;
    end;
end;

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

Обсуждается в конференциях   |x|
  • прокси на IdTCPServer
    Делаю потихоньку http-прокси. При событии OnExecute создается новый TIdTCPClient, коннектится к нужному сайту, передает ...
  • ImageList не корректно загрузает картинки ?
    Пытаюсь в рантайме загрузить в ImageList картинку 576*640, и при этом разбить на фрагменты: 32*32 BMP:=TBitmap.Create; ...
  • WMI SDK
    Уважаемые мастера! Подскажите пожалуйста, можно ли где-нибудь скачать SDK WMI, если можно, то хотелось бы ссылочку. И ...
  • Кириллица и RaveReport
    Создал простейший отчет. У меня на машине все работает. На других машинах вместо русского текста какие-то крякозябры. Я ...
  • Помогите, пожалуйста, понять стратегии!!!
    Добрый день, уважаемые мастера! У меня к вам вопрос принципиального характера: как в стратегиях типа Age of Empires или ...
  • exe
    В экзешнике есть ресурс RCDATA. Насколько я понял его пихает delphi для своих форм. Мож кто подскажет можно ли его ...
  • Позднее связывание
    Чем оно лучше раннего связывания? Я имею в виду ExcelApplication.
У нас большой выбор статей   |x|
DirectX (Игровой SDK) Часть 3-4
Часть 3 (Поверхности отображения,Тестирование нажатия клавиш Escape и F12,
Пример DDDemo3)
Часть 4 (Получение доступа к фоновому буферу, Восстановление поверхностей)
Новинки книжного рынка   |x|
OpenGL. Программирование компьютерной графики
Эта книга — введение в мир программирования компьютерной графики. Графические системы становятся лучше, быстрее и дешевле. Каждый год изобретается множество новых технических приемов, однако основные принципы и подходы к программированию по-прежнему остаются неизменными. Автор написал в высшей степени практичный и доступный для восприятия текст, отличающийся основательным и интегрированным подходом. Понятия тщательно определены; их математические основы разъяснены, доказана важность каждого рассмотренного понятия. Книга показывает читателю, как переводить математические представления в программный код, и демонстрирует результат. Предлагаемое новое издание предоставляет самую современную информацию в области компьютерной графики.
Автор: Хилл Ф.
Опрос населения :)
Как вы относитесь к KOL и MCK?
»»» Отлично.
»»» Никак.
»»» Барахло.
»»» А что это?
Для души

Хокку дня
какая-то птица
обмакнула крылья
в мои глаза

Афоризмы
Живём только раз, да и то не каждый день.

Фраза дня
Я умираю, но об этом - позже...

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

И на закуску коротенький анекдот
- Да! Что-то тут не то...
Сказал колобок дожевывая остатки лисицы.

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.mdelphi		 Отписаться
В избранное