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

[goblinyara]

хмм... ну у TImage оно присутствует точно... кстати, только что на другом компе отрыл установленную Дельфи - проверил - полный аналог Html'овского OnMouseOn...

З.Ы. У меня, кстати RAD Studio 2009, в других версиях проверить не могу.... но сейчас посмотрел - у всех (по крайней мере стандартных) компонентов есть такое событие....

[Jeni]

Просто далеко не у всех событий есть такие события. Точнее, у многих они почему-то скрыты, т.к. объявлены в разделах класса protected. Посмотри, например, у TLabel - там очень легко проверить "наезд"/"съезд" мыши с помощью OnMouseEnter/OnMouseLeave.

[DomiNick]

2 Jeni:

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

Абсолютно согласен... Щас переделаю...
А вот про:

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

Image.Center:=True (если не ошибаюсь) делает по центру вставленную картинку и при Image.Stretch=True (растягивание картинки до размеров Image) Image.Center не даст никаких эффектов...

2 goblinyara:

OnMouseEnter

У себя чтот такого не вижу... Это в какой версии Делфи?

[Jeni]

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

Image.Center:=True (если не ошибаюсь) делает по центру вставленную картинку и при Image.Stretch=True (растягивание картинки до размеров Image) Image.Center не даст никаких эффектов...

Верно, при том алгоритме, что был написал эффекта не будет или будут странные эффекты. Но ведь можно сделать и по-другому: заранее установить размеры TImage 200х200, поместить туда картинку, установить Center=True, а во время работы в обработчиках не менять размеры, а менять свойство Stretch - картинка будет сама растягиваться по всей поверхности Имиджа или сжиматься.

[goblinyara]

DomiNick, я же написал, что в 2009 RAD Studio

[DomiNick]

2 Jeni:
Хм... Вот что вы имели ввиду... Теперь понятно...

Но думаю такой вариант не пройдёт:
Во-первых размер вставленной картинки должен будет обязательно равняться "размеру маленького изображения" и его нельзя будет регулировать из программы...
А во-вторых изображение будет увеличиваться при попадании курсора в "большое изображение" - то есть курсор ещё не дополз до "маленького изображения" а картинка уже увеличилась...

2 goblinyara:
Ага... А у меня Делфи 7 - в ней в "Object Inspector" нету такого...
Я просто постоянно забываю обновить страницу до того как отправлять новое сообщение...

[Jeni]

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

Но думаю такой вариант не пройдёт...

Вот совершенно рабочий вариант с использованием Stretch. Нужно только заранее установить свойство Center в True

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Image1.Tag = 0 then
    if (X in [50..150]) and (Y in [50..150]) then
      begin
        Image1.Tag := 1;
        Image1.Stretch := True;
      end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Image1.Tag = 1 then
    begin
      Image1.Tag := 0;
      Image1.Stretch := False;
    end;
end;

[DomiNick]

а... Ну с проверкой попадания в область-то конечно...
Тогда свой новый вариант уже не стану писать - практически такой же тока меняются размеры...

Кстати, хорошая тема получилась... Можно её и дальше развить:
Изменение размера при перекрытии нескольких картинок\объектов;
Плавное изменение размера;
и.т.д.

Так есть ли в Делфи 7 события OnMouseEnter/OnMouseLeave и как их включать..?

[Lemo]

2 DomiNick
Таких событий нету в делфи 7, потому и решил создать такую тему =)

[Lemo]

2 Jeni

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Image1.Tag = 0 then
    if (X in [50..150]) and (Y in [50..150]) then
      begin
        Image1.Tag := 1;
        Image1.Stretch := True;
      end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image1.Tag = 1 then
    begin
      Image1.Tag := 0;
      Image1.Stretch := False;
    end;
end;

end.

Все норм функционирует =) Спасибо за помощь!