Размеры картинки

[Lemo]

Ребята, у меня на форме картинка (шир=100, вис=100), хочю написать:
-когда на нее наводишь курсор она стает размеров 200 на 200, когда курсор отводишь от картинки, стает нормальной 100 на 100ж
Мои соображения: описать в процедуре Mousemove условие

if ( условие, когда курсор на кртинке ) then 
image1.heigth:=200;
image1.width:=200

else
image1.heigth:=100;
image1.width:=100;

или как сделать ето?

[DomiNick]

Это как на сайтах в "Html" делают..?

Нужно подумать... А возвращать нужно когда курсор отводишь от старой картинки 100х100 или уже от новой 200х200..?

[DomiNick]

Попробуй так:

Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
Image1.Height:=200;
Image1.Width:=200
End;

Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
Image1.Height:=100;
Image1.Width:=100;
End;

Может подойдёт...

[Arigato]

Кроме изменения размеров надо ещё и картинку растянуть. Для этого можно использовать метод StretchDraw.

[DomiNick]

Да... Про рястягивание я чтот забыл упомянуть...

Можно ещё так - чтоб рисунок равномерно во все стороны увеличивался:

Var
      Form1: TForm1;
      imgX, imgY: Integer;
      a, b: Integer;

Implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
a:=100; //размер маленького изображения
b:=200; //размер увеличенного изображения
Image1.Stretch:=True;
imgX:=Image1.Left-Trunc((b-a)/4);;
imgY:=Image1.Top-Trunc((b-a)/4);;
End;

Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
Image1.Height:=a;
Image1.Width:=a;
Image1.Left:=imgX+Trunc((b-a)/4);
Image1.Top:=imgY+Trunc((b-a)/4);
End;

Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
Image1.Height:=b;
Image1.Width:=b;
Image1.Left:=imgX-Trunc((b-a)/4);
Image1.Top:=imgY-Trunc((b-a)/4);
End;

[Terran]

Для удобства можете установить свойство Image1.Stretch:=True;
-----
Немного не успел, уже опередили.

[Jeni]

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

Можно ещё так - чтоб рисунок равномерно во все стороны увеличивался...

Вместо этих заморочек достаточно на этапе разработки поставить у Имиджа свойства Center и Stretch в True - картинка сама будет и растягиваться и центроваться.

Лучше в обработчиках MouseMove проверять, не был ли рисунок уже растянут/сжат, чтобы избежать постоянных изменений.

[DomiNick]

Ну... Наспех на коленке делал...
Сделать-то по разному можно - иногда главное чтоб хоть как-то работало...
А уже потом оптимизировать...

Вот если б было событие "OnMouseOn" как в "Html" есть - то ещё б проще было...

[goblinyara]

хмм.. по идее его аналог в Дельфе - OnMouseEnter... но я могу ошибаться, так как с ним не пробовал пока ещё ничего делать и дельфи под рукой нету, чтоб проверить

[spamer]

goblinyara чет я такого события в Делфи вообще не нашел.