Зацените мою прогу для просмотра изображений

[mutabor]

2mutabor не люблю ничего всплывающего. Тем паче в разных местах экрана, загораживающего чего не просили, жрущего ресурсы, etc.

Не хочу никого переубеждать, просто мое мнение.
Не нравится всплывающее, можно сделать резко появляющееся. Почему в разных местах, место появления возле курсора, к-рый в свою очередь на интересующем файле, следовательно меня интересует в данный момент этот файл и информация по нему, а не то, что она загородила.
Ресурсов сожрет не больше, чем окно висящее в углу.

[crazy horse]

2mutabor Мы все здесь только свое мнение высказываем.))

Почему в разных местах, место появления возле курсора

1.Ты же не будешь утверждать, что курсор в одном месте стоит, когда им по файУ возишь.
2. Когда наведешь на файл. всплывшее окно непременно перегородит часть обзора. А такое удовольствие через 30 сек. отключу к собакам.
3. Сожрет больше, за счет появления/исчезания/вычисления координат окна.

[mutabor]

Я уже в деталях не помню, у меня винда сейчас стоит, но мне эта опция в KDE понравилась, там и с документами такой же предпросмотр, мне было удобно.
А вот окно постоянно висящее мне не понравится. Что еще раз подтверждает - на вкус и цвет товарища нет. И так флуд развели.

[Altera]

А как мне зуминговать картинку?

var   
  H,W: integer;   
  Bmp: TBitmap;   
  R: TRect;   
begin   
  Bmp:=TBitmap.Create;   
  Bmp.LoadFromFile('ris.bmp');   
  H:=200; W:=100; //размеры   
  R.Left:=(Image1.Width-W) div 2;   
  R.Top:=(Image1.Height-H) div 2;   
  R.Right:=(Image1.Width+W) div 2;   
  R.Bottom:=(Image1.Height+H) div 2;   
  Image1.Canvas.StretchDraw(R,Bmp);   
end

Не подходит для jpg и ico

[Hollander]

Так правильно ты же здесь с Bitmap работаешь. Посмотри может есть хорошие и быстрые компоненты для работы с изображенями или пиши свой, за что будет честь и похвала.

[Altera]

Постораемся!

[WOLFak]

с jpg вроде подсказал кто то
а вот

Сообщение от Air

Uses JPEG;
Function ConverterJPEGToBMP(JpgImage:TJpegImage):Tbitmap;
begin
Result:=TBitmap.Create;
Result.Assign(JpgImage);
end;

[Altera]

Придумал! Бубу сам tImage ресайзать, со свойством stretch...

[mutabor]

Лучше не надо.
Вот почитай тему
http://www.programmersforum.ru/showthread.php?t=7842&highlight=%EC %E0%F

[AngelOfDeath]

Понравися интерфейс
только немогу понять для чего кнопка прозрачность?)