Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: 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 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.019 c
2-1196035767
Dmitry_V
2007-11-26 03:09
2007.12.23
Работа с базами данных в Delphi 2007


15-1195804128
TUser
2007-11-23 10:48
2007.12.23
Посоветуйте маршрутизатор


9-1163630622
LightMap
2006-11-16 01:43
2007.12.23
Как смягчают тени у лайтмэпа ?


1-1191747484
integery
2007-10-07 12:58
2007.12.23
как открить документ не сохраняя, если он в TMemoryStream


15-1195800245
KSergey
2007-11-23 09:44
2007.12.23
Пресловутый переход на висту