Cze!!!
Jak zrobic zeby: Zeby klinac na button (funkcja sie wlancza) i pozniej najezczasz na Image i pokazuje ci sie lupa i jak klikasz to sie Image przybliza.
Pozdrowienia!!!
zalezy jeszcze czychcesz zeby ta loopka dzialalla jak np W AutoCadzie taz ze zaznaczasz obszar do powiekszenia. Obecnie tez pisze cos podobnego wiec wkrotce stane przed podobnym problemem. Jeszcze nie myslalem jak to zrobic, ale jesli mialbys wszpolrzedny bitmapy to moze po prostu jako skopiowac fragment i tam jakis Stretch ustawic na True, albo po prostu przyjac np ze po kliknieciu powiekszy sie 2 razy no i odrzucac z rysunku polowe linijek w poziomie i w pionie, a to z ktorej strony ile zalezy od polozenia myszki .... no ale to tylko pomysly : )--pozdrowienia
albo po prostu daj w OnMouseDown np cos takiego :
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var zoom_size : real;
begin
zoom_size := 2;
If Image1.Cursor = crCross then
Begin
ShowMessage('l');
If Button = mbLeft then
Begin
Image1.Width := Round(Image1.Width * zoom_size);
Image1.Height := Round(Image1.Height * zoom_size);
End
else
Begin
Image1.Width := Round(Image1.Width / zoom_size);
Image1.Height := Round(Image1.Height / zoom_size);
End
End;
end;
tylko tu jest krzyzyk a Ty se zrob Lupe, no i zrob ze jak wcisniesz ten guzik to sie zmienia kursor na obrazku na lupe wlasnie--pozdrowienia
bez tego ShowMessage mialo byc ;]
no i przy okazji :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
If SpeedButton1.Down then
Image1.Cursor := crCross
else
Image1.Cursor := crDefault;
end;--pozdrowienia
Pozdrowienia!!!