Отправляет 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
Автор
Сергей

Статистика

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

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


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

DELPHIMASTER.ru

Выпуск от 28.04.04 09:05

Лучшее из нашего 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|
  • Обмен данными по локальной сети
    Вопрос. Каким образом лучше всего обмениваться файлами между сервером и несколькими клиентскими компьютерами? Почитав ...
  • Интерфейс под дос
    Вот хочу создать нечто вроде интерфейса под DOS типа фара Незнаю с чего начать. Подскажите пожалуста. С уважением.
  • Создание таблицы при помощи SQL-файла
    Есть SQL файл: Create table :pNew (N Char(5), Shifr Char(50), Name Char(50), ...
  • Lookup в гриде
    Помогите советом как сделать в стандартном гриде поле lookup?!
  • WinAPI
    Можно ли программно "разбудить" компьютер из режима Sleep? Если да, то как? (Я давно пытался сделать будильник который ...
  • GIF animation picture in Delphi 6
    Ну наверняка вопрос понятен. Нужно вставить анимированного ГИФ файла в свой проект, типа как реклама. Но, возможно ли в ...
  • HeapMM, KOl и строки
    Есть кострукция типа: PSomeListItem=^TSomeListItem TSomeListItem = object(TObj) Num: DWORD; Name: string;...
У нас большой выбор статей   |x|
Мониторинг сетей в Delphi
В этой статье мы рассмотрим некоторые функции, которые предоставят нам возможность контроля локальной сети. Так как материал довольно обширный, я не буду пускаться в отвлеченные рассуждения, и буду давать только самую суть.
Новинки книжного рынка   |x|
Система программирования Delphi (+ дискета)
Книга рассказывает об одной из самых распространенных в мире систем программирования Delphi, разработанной американской корпорацией Borland. Приводится неформальное знакомство с языком программирования и интегрированной средой разработчика. Подробно, на многочисленных примерах поясняются особенности использования языка программирования Delphi (Object Pascal). Рассматриваются компоненты общего назначения и программа в целом. Дается введение в программирование баз данных. Поясняются особенности программирования для Интернета. В книге сознательно не подчеркиваются различия многочисленных весий Delphi (на сегодня таких версий 7), так что она пригодна для изучения любой версии Delphi. На сопровождающей книгу дискете находятся исходные тексты всех примеров.
Автор: Валерий Фаронов
Другие сайты о DELPHI   |x|
Coding World
Сайт посвящен программированию и веб-мастерингу. У нас вы найдете много материалов по программированию дельфи php c++ perl, статьи для линуксойдов, обзоры редакторов, статьи для веб-мастеров. ...
» Оценка сайта: 3
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Для души

Хокку дня
Как же это, друзья?
Человек глядит на вишни в цвету,
А на поясе длинный меч!

Афоризмы
Перед тем, как начать поиск, спроси себя: действительно ли ты хочешь это найти и, найдя это, будешь ли знать, что с этим делать?....

Фраза дня
Зайдите завтра!

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

И на закуску коротенький анекдот
Идет экзамен в медицинском вузе. Профессор обращается к студенту:
- Назовите стандартное оборудование прививочного кабинета.
- Спирт, кушетка, медсестра.

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное