witam , chcialbym aby rolka myszy powodowala zoom na obrazku, obraz znajduje sie w zakladce Pagecontrol,dodatkowo w scrollbox, ustawiony jest na autosize=true i na alClient,stretch=true.. stosuje nastepujacy kod w zdarzeniach onmousewhellup i onmousewhelldown w scrollbox'ie (na image nie mam tych zdarzen) :
var
zoom:integer;
begin
zoom:=2;
image2.Stretch:=true;
Image2.Width := trunc(zoom*Image2.Picture.Bitmap.Width); //dla down dziele przez zoom
Image2.Height:= trunc(zoom*Image2.Picture.Bitmap.Height); //dla down dziele przez zoom
end;
Nie dziala mi to , nie dziala rowniez image2.height:=image2.height+30; i to samo dla szerokosci, nie wiem , wszedzie w postach piszecie ze wystarczy dac stretch na true i zwiekszac wys i szerokosc, to mi nie dziala ani w zdarzeniu onclick buttona ani dla rolki myszy , ma ktos pomysl dlaczego tak sie moze dziac ? obrazki to jpg przekonwertownae na bmp a wiec TBitmap. Nie wiem czy nie namieszalem :) prosze o sugestie.