Note: You must be registered in order to post a reply.To register, click here. Registration is FREE!
procedure TForm1.ImageEnVect1ViewChange(Sender: TObject; Change: Integer); begin TrackBar1.Position := trunc(ImageEnView1.Zoom); end;