Лупа

[faustpatron13]

Уважаемые программисты!

Киньте, пожалуйста, код или подскажите как реализовать увеличительное стекло в Delphi. Нарыл какую-то муру, но у меня ничего не получается...

[MaxNik2009]

Ну вот ->тут<- например посмотри.

[SERG1980]

{$R *.dfm}
var Lupa,r:trect;
    BM:TBitmap;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FreeAndNil(BM)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 BM:=TBItmap.Create;
 BM.Width:=50;
 BM.Height:=50;
 r:=bounds(0,0,100,100);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 lupa:=bounds(x-30,y-30,x+30,y+30);
 BM.Canvas.CopyRect(r,image1.Canvas,lupa);
 form1.Canvas.StretchDraw(r,bm);
end;

попробуйте поиграть с размерами BM r и Lupa

[faustpatron13]

Большое спасибо за код, но вся петрушка в том, что возвращет-то оно какую-то фигню... вожу мышкой в одной части Image, а оно выдаёт совершенно другой участок...подскажите, что не так?

[mihali4]

Вот рабочая лупа:
Lupa.zip

[DeKot]

Прекрасный код привел mihali4 (чуть оформление синтаксиса хромает, это у автора, а не у mihali4).
Приложение работает безупречно и, главное, понятно.

[Vigi]

Поставь библиотеку AlphaControls там оно есть http://www.alphaskins.com/index_rus.php