瀹炵幇鍥捐薄灞閮ㄦ斁澶х殑鍘熺悊鍜屾柟娉
鍙戝竷: 2008-6-26 20:26 | 浣滆: admin | 鏌ョ湅: 48娆
width="84%">瀹炵幇鍥捐薄灞閮ㄦ斁澶х殑鍘熺悊鍜屾柟娉
鈼忔捣鍗楀ぇ瀛 鍙舵枟褰
鎽 瑕侊細涓哄浘璞¤瀵熷櫒澧炲姞涓涓滄斁澶ч暅鈥濓紝瀵瑰浘璞¤繘琛屽眬閮ㄦ斁澶э紝鏄骇鍝佹帹閿鍟嗗拰鍔ㄧ墿瑙e墫瀛﹀笀鐢熶滑姊﹀瘣浠ユ眰鐨勩傛湰鏂囦粙缁嶅疄鐜板浘璞″眬閮ㄣ佸钩婊戝拰鏃犻棯鐑佹斁澶х殑绠楁硶鍘熺悊鍙婂疄鐜版妧鏈
鍏抽敭璇嶏細鏀惧ぇ闀 鐢诲竷 Delphi CopyRect
瀹炵敤浠峰
鐩墠锛屾湁璁稿娴佽鐨勫浘璞¤瀵熻蒋浠跺拰鍥捐薄澶勭悊杞欢锛屼负浜轰滑鍦ㄧ數鑴戝睆骞曚笂娴忚鍜屽姞宸ョ編涓界殑鍥捐薄鎻愪緵浜嗘柟渚裤傜劧鑰岄仐鎲剧殑鏄紝杩欎簺杞欢鍦ㄥ浘璞℃斁澶ф柟闈㈠嵈涓嶅敖濡備汉鎰忋傚畠浠線寰鍙兘瀵规暣骞呭浘璞¤繘琛屾斁澶э紝鑰屼笉鑳介殢鎰忓湴鏀惧ぇ鍥捐薄鐨勫眬閮紝灏辫繛寰蒋鍏徃闅廤indows鎻愪緵鐨勭敾鍥捐蒋浠朵篃涓嶄緥澶栥
瀵瑰浘璞″眬閮ㄨ繘琛屾斁澶э紝鍏锋湁鏋侀珮鐨勫疄鐢ㄤ环鍊笺備骇鍝佹帹閿鍟嗗彲浠ュ皢姝ら」鎶鏈簲鐢ㄤ簬鏂颁骇鍝佺殑灞曠ず鍜屾帹骞夸箣涓紝璁╃敤鎴疯兘澶熷鍏朵骇鍝佺殑涓嶅悓閮ㄤ綅锛屽姹借溅鐨勮〃闈㈤晙閾伐鑹哄拰鏂板瀷鐨勬尅椋庣幓鐠冪瓑杩涜鏀惧ぇ瑙傜湅銆傞氳繃鐢佃剳缃戠粶涓婂姩鐗╄В鍓栬鐨勫鐢燂紝浜﹀彲鐢ㄥ叾鏀惧ぇ灏忕櫧榧犳垨鏄潚铔欑殑涓嶅悓閮ㄤ綅锛屼互渚挎洿娓呮櫚鍦拌瀵熻绠″拰鍚勭鍣ㄥ畼銆傚氨璞″湪鏃ュ父鐢熸椿涓紝浜轰滑鎵嬫寔鏀惧ぇ闀滐紝鍦ㄥ湴鍥炬垨鐓х墖涓婄Щ鍔ㄧ殑鎯呮櫙锛
鏈枃浠嬬粛瀹炵幇鍥捐薄灞閮ㄣ佸钩婊戝拰鏃犻棯鐑佹斁澶х殑绠楁硶鍘熺悊锛屼互鍙婂湪Delphi涓疄鐜扮殑鎶鏈傝瀹屾湰鏂囷紝鎮ㄤ竴瀹氫細涓篋elphi鑳界敤濡傛灏戠殑浠g爜瀹炵幇濡傛寮哄ぇ鐨勫姛鑳芥儕鍙逛笉宸诧紝杩欐槸璁稿鍏跺畠寮鍙戝伐鍏锋墍鏃犳硶姣旀嫙鐨勩
绠楁硶鍘熺悊
鍦―elphi涓紝鍙埄鐢ㄧ被Tcanvas鐨凜opyRect鏂规硶瀹炵幇鍥捐薄鐨勬斁澶у拰缂╁皬銆傚叾鍔熻兘鏄皢婧愮敾甯冧笂鐨勪竴涓寚瀹氱煩褰㈠尯鍩燂紙绠绉版簮鐭╁舰锛夊唴鐨勮薄绱狅紝鎷疯礉鍒扮洰鐨勭敾甯冧笂鐨勪竴涓寚瀹氱煩褰㈠尯鍩燂紙绠绉扮洰鐨勭煩褰級涓備害鍙О涔嬩负璞$礌鍧楀鍒讹紝濡傚浘1鎵绀恒
鐢盋opyMode灞炴х‘瀹氭嫹璐濈殑妯″紡銆傚湪鐩存帴鎷疯礉妯″紡锛坈mSrcCopy锛変笅锛屽綋婧愮煩褰笌鐩殑鐭╁舰鐩哥瓑鏃讹紝鍥捐薄涓嶅彉锛涜嫢婧愮煩褰㈠ぇ浜庣洰鐨勭煩褰紝鍥捐薄鍒欑缉灏忥紱鑰屽綋婧愮煩褰㈠皬浜庣洰鐨勭煩褰㈡椂锛屽浘璞′究琚斁澶э紙鍦ㄧ洰鐨勭煩褰腑鎵╁睍锛夈傛簮鐭╁舰涓庣洰鐨勭煩褰㈠ぇ灏忎箣姣旓紝鍐冲畾鍥捐薄鐨勭缉鏀惧嶆暟銆侰opyRect鏂规硶澹版槑濡備笅锛
Procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source:
Trect);
鍏朵腑鍙傛暟锛孌est涓虹洰鐨勭煩褰紝Canvas鏄簮鐢诲竷锛孲ource涓烘簮鐭╁舰銆
瀹炵幇姝ラ
鏂板缓搴旂敤绋嬪簭涓荤洰褰旵:\Magnifier鍙婂叾瀛愮洰褰旾mages锛屽皢浜嬪厛鍒朵綔濂界殑浣嶅浘鍥捐薄Picture.bmp瀛樺叆Images鐩綍銆傛湰渚嬩腑锛孭icture.bmp鐨勫ぇ灏忎负260*310璞$礌銆
鍚姩Delphi IDE锛屾柊寤洪」鐩甅agnifier.dpr锛屼富绐椾綋鍗曞厓鍛藉悕涓篗ain.pas锛屽瓨鍏:\Magnifier鐩綍銆傚湪涓荤獥浣撲笂鏀剧疆涓涓猅Panel缁勪欢锛屽苟鍦ㄥ叾涓姞鍏ヤ袱涓猅Image缁勪欢銆備袱涓猅Image缁勪欢鍒嗗埆鍛藉悕涓篎oreImage鍜孊ackImage锛屽墠鑰呴噸鍙犱簬鍚庤呬箣涓婏紝骞朵笖閮借鍏icture.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




发表于 2009-1-5 19:48
| 











