كدي كه Image را در RUN TIME تغيير سايز دهد [بایگانی]

ali_abbasi22145

یک شنبه 29 اردیبهشت 1387, 11:00 صبح

سلام
من يك برنامه نوشته ام كه با آن مي توانم كامپوننتهاي قابل ديدن (در مثال كامپوننت Image است)را روي فرم در RUN TIME جابه جا كرد (در ATTACHMENT خود مثال كامل دلفي آن موجود است ).
حال كسي از دوستان مي تواند آنرا تغيير دهد كه كامپوننت Image را در RUN TIME تغيير سايز دهد؟

و براي راحتي كار دوستان Enent ها را هم اينجا نشان مي دهم:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
downX := X;
downY := Y;
dragging := TRue;
TMoveCracker(Sender).MouseCapture := True;
end;
//////////////////////////////////////////////////////////////////////
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If dragging Then
with Sender As TControl Do
Begin
Left := X-downX+Left;
Top := Y-downY+Top;
End;
end;
///////////////////////////////////////////////////////////////////////////
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If dragging then
Begin
dragging := False;
TMoveCracker(Sender).MouseCapture := False;
End;
end;