Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

Растягивание имаджа   Найти похожие ветки 

 
Zap   (2005-09-25 17:11) [0]

Около Image я поставил Shape при перетаскивании которого изменяется размер Image. Тут же выяснилось, что изменять размеры имаджа во время работы программы можно только когда Stretch = true...В итоге получается, что при растягивании имаджа, растягивается все изображение на нем...мне же нужно чтоб все это получалось как в Paintе. Я чо-то не так делаю или это нужно както обойти? Подскажите плз. заранее спасибо


 
Zap   (2005-09-25 17:44) [1]

вот собственно код, если что
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
drag := true;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var p : TPoint;
begin
{ПЕРЕТАСКИВАНИЕ}
if drag = true then
begin
Image1.Stretch := true;
{Определение координат}
p.X := x;
p.y := y;
p := Form1.ScreentoClient(Shape1.ClientToScreen(p));
{перетаскивание имаджа}
if (p.X >= Image1.Left) and (p.Y >= Image1.Top) then begin
Image1.Width := p.X - Image1.Left;
Image1.Height := p.y - Image1.Top;
{перетаскивание шейпа}
Shape1.left := p.x;
SHape1.Top := p.Y;
end;
end;
{ПЕРЕТАСКИВАНИЕ}
drag := false;
image1.stretch := false;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.072 c
11-1108896186
WhiteGuy
2005-02-20 13:43
2005.10.23
DupResources & Uses


4-1124343820
rentgen
2005-08-18 09:43
2005.10.23
Как можно изменить дату создания файла?


14-1128330574
Труп Васи Доброго
2005-10-03 13:09
2005.10.23
Затмение. Итересно!


14-1126443842
whatisthematrix1
2005-09-11 17:04
2005.10.23
Просто зашел посмотреть...


3-1126194426
kreyl
2005-09-08 19:47
2005.10.23
MSSQL2000 Как передать в процедуру имя таблицы в виде строки?