Увеличение в 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; Если вниз крутим.
???

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

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

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

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

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

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

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