Скачать: CL | DM;

Увеличение в Image   Найти похожие ветки 

← →
Kortes   (2006-11-08 11:54) [0]

Здраствуйте мастера.
Подскажите как можно грамотно увеличить изображение выводимое на Image,
например на 50% , на 100% от начального размера?
Пробовал делать так:

Увеличение на 50%:

procedure TForm1.Uvelich;
var a, b : integer;
begin
Image1.Height:=460;
Image1.Width:=693;
Image1.AutoSize:=False;
Image1.Stretch:=True;
a:=50;
H:=Image1.Height;
W:=Image1.Width;
Image1.Height:=(H*a)/100;
Image1.Width:=(W*a)/100;
end;
Но естественно не получилось, потому что
значения Height, Width не всегда будут целыми.

---

← →
Jeer ©   (2006-11-08 12:25) [1]

Открою тайну .Height и .Width всегда целые
div ?

---

← →
Leency   (2006-11-10 18:21) [2]

Jeer, ты гострык :)

---

← →
Jeer ©   (2006-11-10 18:54) [3]

> Leency   (10.11.06 18:21) [2]
>
> Jeer, ты гострык :)


Попробовал массу перестановок, включил перекодировку "любой2любой", выполнил дешифрацию методами DES, TripleDES, IDEA, ГОСТ  и тп, даже просто XOR попробовал, взял подсказку, позвонил товарищу, помощь зала... - но ничего не понял.

Ты главное скажи-то - жить буду ?

---

← →
grisme ©   (2006-11-11 11:35) [4]

Jeer ©   (10.11.06 18:54) [3]
%))))))))))))

Kortes   (08.11.06 11:54)
Коряво так "увеличивать", imho :) Ищи алгоритмы, которые умеют масштабировать векторно, сам напиши алгоритмы, которые будут уметь масштабировать векторно, накрайняк, юзай OpenGL/DirectX, но никак не Image1 :D

---

← →
Vovan#2   (2006-11-11 16:36) [5]

>Ищи алгоритмы, которые умеют масштабировать векторно, сам напиши алгоритмы, которые будут уметь масштабировать векторно, накрайняк, юзай OpenGL/DirectX

Фигасе. Крутая разработочка получится.

---

← →
grisme ©   (2006-11-11 17:09) [6]

В бабруйск Image"ы :0)

---

← →
Kortes   (2006-11-14 19:41) [7]

Спасибо Jeer,
я сделал то , что хотел - просто надо литературу открывать, если че забыл.
Теперь думаю, как привезать процедуру увеличения к скролу мыши. Может кто знает? Image1.Height:=H+20;
               Image1.Width:=W+20; Если скрол вверх крутим.
или
               Image1.Height:=H+20;
               Image1.Width:=W-20; Если вниз крутим.
???

---

← →
Jeer ©   (2006-11-15 10:38) [8]

TImage - наследник TControl, а у него события OnMouseWeel и тп упрятаны в protected.

Надо их вытащить в published секцию, сделав наследника от TImage.

---

← →
homm ©   (2007-02-11 12:46) [9]

> Ищи алгоритмы, которые умеют масштабировать векторно, сам
> напиши алгоритмы, которые будут уметь масштабировать векторно,
Просто так с языка сорвалось, или есть такие алгоритмы? :)

---

← →
Vovan # 2   (2007-02-11 12:58) [10]

>Просто так с языка сорвалось, или есть такие алгоритмы? :)

Так ведь вроде есть. Переводят изображения в вектор и масштабируют. И фрактальные есть. Да только не нужно всё это для рядового проекта, а если что специализированное делается, то слово Image не должно звучать в вопросе.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c