在Delphi中，可利用類Tcanvas的CopyRect方法實現圖象的放大和縮小。其功能是將源畫布上的一個指定矩形區域（簡稱源矩形）內的象素，拷貝到目的畫布上的一個指定矩形區域（簡稱目的矩形）中。亦可稱之為象素塊複製。
　　由CopyMode屬性確定拷貝的模式。在直接拷貝模式（cmSrcCopy）下，當源矩形與目的矩形相等時，圖象不變；若源矩形大於目的矩形，圖象則縮小；而當源矩形小於目的矩形時，圖象便被放大（在目的矩形中擴充套件）。源矩形與目的矩形大小之比，決定圖象的縮放倍數。CopyRect方法宣告如下：
　　Procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: Trect);
　　其中引數，Dest為目的矩形，Canvas是源畫布，Source為源矩形。
　　實現步驟
　　新建應用程式主目錄C:\\Magnifier及其子目錄Images，將事先製作好的點陣圖圖象Picture.bmp存入Images目錄。本例中，Picture.bmp的大小為260*310象素。
　　啟動Delphi IDE，新建專案Magnifier.dpr，主窗體單元命名為Main.pas，存入C:\\Magnifier目錄。在主窗體上放置一個TPanel元件，並在其中加入兩個TImage元件。兩個TImage元件分別命名為ForeImage和BackImage，前者重疊於後者之上，並且都裝入Picture.bmp點陣圖。
　　主窗體和各元件的主要屬性按表1設定：
　　表1 主窗體和各元件屬性設定

組 件 
Form1                                   
屬 性                               設 置
                                
BorderIcons.biMaximize            　False  
BorderStyle                         bsNone
Color                               clRed
Height                              364                        
KeyPreview                          True
Name                                MainForm
Position                            poScreenCenter
Width                               294
WindowState                         wsNormal

Panel1

Align                      alNone
BevelInner                 bvLowered
BevelOuter                 bvRaised
BevelWidth                 2
BorderStyle                bsNone
BorderWidth                2
Height                     322
Name                       FramePanel
Visible                    Ture
Width                      272

Image1

                     
Align                      alNone
AutoSize                   True
Center                     True
Height                     310
Name                       BackImage
Picture                    Picture.bmp
Stretch                    False
Visible                    False
Width                      260

Image2

Align                      alNone
AutoSize                   True
Center                     True
Height                     310
Name                       ForeImage    
Picture                    Picture.bmp
Stretch                    False
Visible                    True
Width                      260

　　在主單元Main.pas的implementation段宣告常量和變數：
　　const
　　sSide=30;
　　dSide=45;
　　var
　　msHide: Boolean;
　　OldX, OldY, NewX, NewY: Integer;
　　DestRect, SourceRect : TRect;
　　其中，常量sSide和dSide用以控制“放大鏡”的大小和放大倍數；變數msHide控制游標（滑鼠）的隱藏和開啟；其它變數用以確定放大部位。
　　建立主窗體MainForm的OnCreate事件，加入下列語句，以初始化變數及設定複製模式：
　　msHide:=True;
　　Canvas.CopyMode:=cmSrcCopy;
　　建立主窗體MainForm的OnKeyPress事件處理程式，在其begin與end之間輸入語句“Close;”，當按任意鍵時結束程式執行。
　　定義過程ImageCopy，用於處理圖象的放大和恢復，當移動滑鼠時呼叫。這是實現圖象區域性放大最重要的過程，原始碼如下。
　　procedure TMainForm.ImageCopy(BoxCenterX, BoxCenterY, BoxSide: Integer);
　　begin
　　with SourceRect do
　　begin
　　Left:=BoxCenterX-BoxSide;
　　Top:=BoxCenterY-BoxSide;
　　Right:=BoxCenterX+BoxSide;
　　Bottom:=BoxCenterY+BoxSide;
　　end;
　　with DestRect do
　　begin
　　Left:=BoxCenterX-dSide;
　　Top:=BoxCenterY-dSide;

Right:=BoxCenterX+dSide;
　　Bottom:=BoxCenterY+dSide;
　　end;
　　ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
　　end;
　　注意，別忘了在Main.pas的“type”中宣告過程ImageCopy。
　　建立ForeImage的OnMouseMove事件處理程式，當滑鼠在圖象上移動時，獲取其位置，並作為過程呼叫的實參。此時，游標隱藏，“放大鏡”出現。隨著“放大鏡”的移動，圖象新的部位被放大，滑過的部位又恢復原狀。以下為begin與end之間的程式碼：
　　NewX:=X;
　　NewY:=Y;
　　if msHide then
　　begin
　　OldX:=NewX;
　　OldY:=NewY;
　　msHide:=False;
　　ShowCursor(False);
　　end else
　　begin
　　ImageCopy(OldX, OldY, dSide);
　　end;
　　ImageCopy(NewX, NewY, sSide);
　　OldX:=NewX;
　　OldY:=NewY;
　　建立主窗體MainForm的OnMouseMove事件處理程式，當滑鼠移開圖象時，“放大鏡”隱藏，游標重新出現。原始碼片段如下：
　　if not msHide then
　　begin
　　msHide:=True;
　　ShowCursor(True);
　　ImageCopy(OldX, OldY, dSide);
　　end;
　　編譯執行
　　至此，已不再需要做更多的事情，立即編譯執行吧。啊，美麗的照片出現在螢幕中央！試試放大效果。將滑鼠徐徐移入相框，奇蹟出現了，滑鼠變成了“放大鏡”，所到之處，圖象的相應部位被放大，十分平滑，毫無閃爍。這不是同您手持放大鏡，觀看地圖和照片的情景一樣嗎。好酷啊！還有什麼能比這更激動人心的呢？！
　　技術剖析
　　以上介紹了利用了畫布的CopyRect方法，將圖象以象素塊從後臺隱藏的TImage元件畫布上向前臺TImage元件的畫布上拷貝，以實現圖象的放大與恢復的技術。由於這一技術的採用，在圖象放大前不需要儲存象素，此後直接從後臺TImage元件畫布上恢復圖象。不僅節省了記憶體資源，也確保了對圖象的區域性進行平滑、無閃爍地放大。同時，程式原始碼也簡潔、明瞭。
　　“放大鏡”的中心便是滑鼠的位置，這樣處理的好處是使得圖象在“放大鏡”中均勻展開，並確保圖象邊緣也能同樣放大。
　　要改變“放大鏡”的大小和圖象的放大倍數，只需修改常量sSide和dSide的值。實際應用中，亦可靈活處置，如將它們設定成變數，由程式選單控制。本例“放大鏡”的大小為90*90個象素，放大倍數為1.5。值得一提的是，這裡的“放大鏡”比真正的玻璃放大鏡的效果要好得多。玻璃放大鏡是用凸透鏡製成的，中間與邊緣的放大倍數不一致，導致圖象發生形變。而且，當一邊移動一邊觀察時，很容易使人眼花繚亂。本文為您展示的“放大鏡”則沒有這些現象。
　　利用TCanvas的StretchDraw方法或其它方法，也可以實現圖象的區域性放大。另外，雖然本文介紹的演算法已經相當令人滿意，但還是可以作進一步修改的。例如在“放大鏡”移動時，只放大和恢復必要的部分。有興趣的讀者不妨一試。