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

По какому рисунку был сделан клик?   Найти похожие ветки 

← →
Viktop   (2004-12-26 07:13) [0]

На форма имеется несколько компонентов TRotateImage (Позволяет вращать изображение), кнопка и компонент TstretchHandle (Позволяет перемещать компоненты по форме). Я делаю активным один из рисунков (TstretchHandle) и по нажатию кнопки надо повернуть активный рисунок на 90 градусов (TRotateImage). Как это можно сделать?
Если не знакомы с этими компонентами, то можно поставить вопрос по другому: сначала нажимаю на рисунке, потом кликаю по кнопке и с рисунком должно что-либо случиться.

---

← →
Rem ©   (2004-12-26 08:04) [1]

private
   Img: TRotateImage;
 ...

procedure ...OnImageMouseUp(Sender: TObject...);
begin
 if (Sender is TRotateImage) then
   Img := TRotateImage(Sender)
 else
   Img := nil;
end;

procedure ...ButtonClick();
begin
 if (Img <> nil) then
 begin
   Img.{поехали...}
   ...
 end
 else
   MessageDlg("Выделите объект", mtInformation, [mbOK], 0);
end;

---

← →
Evgenius ©   (2004-12-26 10:01) [2]

Слушай, а где ты взял такой компонент и можно ли с его помощью поворачивать изображение не на 90 градусов, а скажем на 17???
Дай линк, пожалуйста...

---

← →
Viktop   (2004-12-27 08:29) [3]

to Evgenius
Ну ты и спросил :-). Думаешь я помню? Заюзал поисковик и вот,чтоон выдал:
http://www.torry.ru/authorsmore.php?id=2301&SID=74473410684cdc47b44371ac24958af2

---

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

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



Память: 0.45 MB
Время: 0.035 c