http://www.16va.be/

Форум радиотехнических войск ПВО ГСВГ

Объявление

Если Вы пользуетесь браузером Opera, то при просмотре страниц сайта включите VPN, это избавит вас от части назойливой рекламы хостера.
Администрация форума напоминает, что для высказывания своих политических взглядов есть другие ресурсы сети Интернет! Всякий политический флуд будет безжалостно удаляться.
Связаться с оперативным дежурным форума по E-mail через Полевую почту
Советы:
1. Руководство по регистрации на форуме с картинками Здесь
2. Часы в заголовке форума отображаются только в браузерах поддерживающих HTML5, обновите свой браузер.
2. Новости нашего сайта и форума на страничке Новости

Обратите внимание:
30.09.2014
Уважаемые коллеги!
22 августа 2014 года в Москве состоялась презентация книги С. Г. Щербакова о РТВ ПВО ГСВГ.
Если эта книга заинтересует Вас, то обращайтесь через страничку "Полевая почта" или непосредственно к автору по адресу:

127591, Москва
Керамический проезд, дом 17, корп. 3, кв. 19
Щербакову С.Г.
тел. 900-55-94
E-mail Щербакова С.Г.
Уважаемые ветераны!
15 декабря 2016 года исполняется 65 лет со дня образования радиотехнических войск. По этому случаю будут изготовлены памятные знаки «65 лет РТВ».
Стоимость знака будет зависеть от их количества в заказе: чем больше количество знаков в заказе, тем меньше цена одного знака. В связи с этим Правление МОО «Союз ветеранов РТВ ПВО и ВВС» обращается ко всем желающим получить знаки с просьбой до 1 июля 2016 года прислать заявки на необходимое количество памятных знаков для каждой организации или желающих получить такие знаки индивидуально. После формирования общего заказа будет определена стоимость одного знака. Эта информация будет доведена по контактным телефонам, по электронной почте и объявлено на сайте Союза ветеранов РТВ. Оплатить знаки можно будет переводом на счет Союза ветеранов РТВ (имеется на сайте Союза) или индивидуально.
В заявках (письменно или устно) необходимо указать (сообщить):
- название населенного пункта и № войсковой части организации ветеранов;
- фамилию, имя и отчество контактного лица;
- контактный телефон;
- требуемое количество памятных знаков;
- предполагаемый способ оплаты и получения (доставки) знаков.
Способы представления заявок:
- на сайт организации: veteranyrtvpvovvs.umi.ru, раздел «Форум»
- на e-mail: ale1284@yandex.ru, anshent@mail.ru
- по телефонам: 8-4922-32-62-00, доб. 1-49, 8 (495) 647-01-66, доб. 127
- по мобильным телефонам (СМС или звонок): +7 (910) 099-98-17, +7 (903) 149-08-39.
Александр Шентябин, заместитель председателя Союза ветеранов РТВ

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум радиотехнических войск ПВО ГСВГ » Околокомпьютерные темы » Прога для создания фотоальбомов


Прога для создания фотоальбомов

Сообщений 1 страница 2 из 2

1

Внимание! Эта штука не предназначена для размещения фото на нашем форуме и сайте самостоятельно!

Написал вот простую прогу для создания фотоальбомов. Замучился руками подправлять. :)
Комменты к своим фото Олега Козлова и, наконец, Вадима Жиборкина окончательно заставили прикрутить возможность добавлять комменты свыше 255 знаков :)
Версия 1.1 понимает GIF и PNG изображения, исправлена ошибка в CSS, изменен интерфейс.
История программы

Скачать постоянно обновляемую версию

Кому нужны исходники (а вдруг...) Пишите - вышлю. Писано на Delphi 7.
Вот одна из функций:

//создает в указанной директории уменьшенную копию файла оригинала
//с установленным форматом имени
procedure TForm1.ThumbnailPictureCreate(originfile,smalldir,owner: String;
                              id, width, height: Integer; k: Real=1.0);
var
jporigin, jpico:TJPEGImage;
pngorigin, pngico: TPNGObject;
giforigin, gifico:TGIFImage;
pictype: TPicType;
bmp:TBitmap;
begin
  //определяем тип изображения оригинала
  pictype:= GetPicType(originfile);
  if pictype<>ptUNKNOWN
  then
  begin
  //создаём промежуточные битовые изображения
  jporigin:=TJPEGImage.Create;
  jpico:=TJPEGImage.Create;
  pngorigin:=TPNGObject.Create;
  pngico:=TPNGObject.Create;
  giforigin:=TGIFImage.Create;
  gifico:=TGIFImage.Create;
  bmp:=TBitmap.Create;

  //назначаем ширину иконки
  bmp.Width:= Round(width*k);
      //загружаем  jpg/png/gif
      //определяем высоту иконки
  case  pictype of
    ptJPEG:
        begin
            jporigin.LoadFromFile(originfile);
            bmp.Height:= Round(jporigin.Height/(jporigin.Width/bmp.Width));
        end;
    ptPNG :
        begin
            pngorigin.LoadFromFile(originfile);
            bmp.Height:= Round(pngorigin.Height/(pngorigin.Width/bmp.Width));
        end;
    ptGIF :
        begin
            giforigin.LoadFromFile(originfile);
            bmp.Height:= Round(giforigin.Height/(giforigin.Width/bmp.Width));
        end;
end;

  //если "портретность" больше установленной...
  if bmp.Height>height*k
    then
    //...то снизить ее до нормы
      begin
    //назначаем высоту иконки
    bmp.Height:= Round(height*k);
    //определяем ширину иконки
            case  pictype of
            ptJPEG:
                bmp.Width:=Round(jporigin.Width/(jporigin.Height/bmp.Height));
            ptPNG :
                bmp.Width:=Round(pngorigin.Width/(pngorigin.Height/bmp.Height));
            ptGIF :
                bmp.Width:=Round(giforigin.Width/(giforigin.Height/bmp.Height));
            end;
      end;
  //оригинал to small bmp
  //small bmp to  smalljpg/smallpng/smallgif
  //сохраняем в файл с установленным именем
case  pictype of
      ptJPEG:
          begin
            bmp.Canvas.StretchDraw(Rect(0,0, bmp.Width, bmp.Height), jporigin);
            jpico.CompressionQuality:=50;
            jpico.Compress;
            jpico.Assign(bmp);
            jpico.SaveToFile(ExtractFilePath(originfile)+'\'+smalldir+'\'+owner+
                '_s_'+IntToStr(id)+'_'+ExtractFileName(originfile));
          end;
      ptPNG :
          begin
            bmp.Canvas.StretchDraw(Rect(0,0, bmp.Width, bmp.Height), pngorigin);
            pngico.CompressionLevel:= 9;
            pngico.InterlaceMethod:= imNone;
            pngico.Assign(bmp);
            pngico.SaveToFile(ExtractFilePath(originfile)+'\'+smalldir+'\'+owner+
                            '_s_'+IntToStr(id)+'_'+ExtractFileName(originfile));
          end;
      ptGIF :
          begin
            bmp.Canvas.StretchDraw(Rect(0,0, bmp.Width, bmp.Height), giforigin);
            gifico.Assign(bmp);
            gifico.SaveToFile(ExtractFilePath(originfile)+'\'+smalldir+'\'+owner+
                            '_s_'+IntToStr(id)+'_'+ExtractFileName(originfile));
          end;
    end;

  //удаляем промежуточные битовые изображения
  jporigin.Free;
  jpico.Free;
  pngorigin.Free;
  pngico.Free;
  giforigin.Free;
  gifico.Free;
  bmp.Free;
  end
  else
    ShowMessage('Формат файла '+originfile+' не определен. Иконка не создана.');
end;

0

2

Все альбомы нашего сайта созданы с помощью этой проги
Вот пример Смотреть

0


Вы здесь » Форум радиотехнических войск ПВО ГСВГ » Околокомпьютерные темы » Прога для создания фотоальбомов


Создать форум. Создать магазин