因為畫板的畫圖效率比較低，有些大圖可能會卡！
放其他組件時註意窗口的焦點。如果焦點不在_ startup窗口，滾動_ startup窗口_ wheel的事件將無效！
版本2。支持庫eAPI
。裝配窗裝配1
。裝配變量背景，畫板
。匯編可變圖片號
。匯編變量的比例值x，十進制。
。匯編變量縮放值y，十進制類型
。程序集變量x，整數類型
。程序集變量y，整數類型
。匯編變量是可移動的和邏輯的。
。子程序_ _開始窗口_已創建
邊框= 0
復制窗口組件(畫板1，背景)
畫板1。Move (0，0，取用戶區寬度()，取用戶區高度())
背景。Move (0，0，取用戶區的寬度()，取用戶區的高度())
畫板1。自動重繪=真
後臺。自動重繪=真
常規對話框1。Filter = "Image file |*。jpg*.bmp*.gif*.ico "
縮放值x = 1
縮放值y = 1
子程序_畫板1_被雙擊，邏輯類型。
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
。如果為真(常規對話框1。Open())
圖片編號=加載的圖片(通用對話框1。文件名)
繪圖()
如果真的結束了。
子程序繪圖，邏輯類型
。局部變量htkd
。局部變量htgd
。如果為真(圖片編號= 0)
返回(假)
如果真的結束了。
Htkd =縮放值x背景。取圖片寬度(圖片編號)。
Htgd =縮放值Y ×背景。拍照高度(圖片編號)。
畫板1。移動(0，0，htkd，htgd)
背景。移動(0，0，htkd，htgd)
後臺。畫圖片(圖片號，0，0，htkd，htgd，)
後臺。復制(，，，畫板1，0，0，)
移動(，，htkd，htgd)
返回(真)
子程序_畫板1_鼠標左鍵按下，邏輯類型
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
發送信息(161，2，0)
X =橫向位置
Y =縱向位置
可移動=真
捕捉鼠標(畫板1。獲取窗口句柄())
。子程序_畫板1_鼠標左鍵釋放，邏輯類型
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
釋放鼠標()移動= false
子程序_畫板1_鼠標位置移動，邏輯類型
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
如果為真(可移動)
Left =取鼠標的水平位置()-X。
頂邊=取鼠標的垂直位置()-y。
如果真的結束了。
。子程序_ _ Start window _ Wheel被滾動，邏輯類型
參數滾動距離，整數類型
參數功能鍵狀態，整數類型
縮放值x =縮放值x+滾動距離× 0.1。
縮放值y =縮放值y+滾動距離× 0.1。
如果為真(縮放值x < 0.1)
縮放值x = 0.1
如果真的結束了。
。如果為真(縮放值x > 5)
縮放值x = 5
如果真的結束了。
如果為真(縮放值y < 0.1)
縮放值y = 0.1
如果真的結束了。
。如果為真(縮放值x > 5)
縮放值y = 5
如果真的結束了。
繪圖()
輸出調試文本(縮放值x)