| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Опять картинки...

Страницы:   < 1 2 >

eXPell ©   (2007-03-11 05:45:00) 

Кинул на форму scrollbox, а в него image. никак не получается организовать, чтобы если виден верхний левый угол картинки, то ее нельзя было бы перемещать вниз и вправо. Код такой:

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
var t:Tpoint;
begin
t:=Form1.ScrollBox1.ScreenToClient(Mouse.CursorPos);
if (image1.BoundsRect.TopLeft.X>form1.ScrollBox1.BoundsRect.TopLeft.X) or(image1.BoundsRect.TopLeft.Y>form1.ScrollBox1.BoundsRect.TopLeft.Y) then
begin
form1.Image1.SetBounds(0,0,image1.Width,image1.Height);
end
else
begin
Image1.Left:=t.X-tp.x;
Image1.Top:=t.Y-tp.Y;
end;
end;

Он в принципе срабатывает, но не всегда. Может кто подскажет, что не так))

---

Desdechado   (2007-03-13 15:11:00) [21]

> ее нельзя было бы перемещать вниз и вправо
А как ты ее перемещаешь?

---

eXPell   (2007-03-13 14:39:00) [22]

up.
ЗЫ. первый и последний раз

---

Страницы:   < 1 2 >

Наверх