Programming Guide | WideStudio/MWT Index Table of contents |
»ùÇà À̺¥Æ® ÇÁ·Î½ÃÀú:ÀÔ·Â ÇʵåÆí
EnterÅ°·Î ƯÁ¤ÀÇ À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ½ÇÇàÇϱ⿡´Â
À̺¥Æ® ÇÁ·Î½ÃÀú¿¡¼ ƯÁ¤ÀÇ À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ±âµ¿Çϵµ·Ï Çعý½Ã´Ù. ¿©±â¼´Â EnterÅ°ÀÇ ÀÔ·ÂÀ¸·Î "ÀÔ·ÂÈ®Á¤"À̶ó´Â ¸íĪÀ» °¡Áö´Â À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ±âµ¿ÇÏ´Â ¿¹¸¦ µéÀÔ´Ï´Ù.(* WSEV_KEY_HOOK Æ®¸®°Å(trigger)·Î WSCvifield ÀνºÅϽº¿¡ ¼³Á¤ÇÕ´Ï´Ù. *) let cbop obj = (* (A) ÀԷµǿ©ÀÖ´Â Å°¸¦ Ãëµæ. *) let key = get_int (_WSGIappKeyboard '() -> getKey ()) in (* (B) Å°°¡ EnterÅ°À̸ç´Â *) if (key = get_int _WSK_Return) then (* "ÀÔ·ÂÈ®Á¤"À̶õ ¸íĪÀ» °¡Áö´Â À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ½ÇÇà. *) ignore(obj -> execProcedure ("ÀÔ·ÂÈ®Á¤")); () let _ = Callback.register "cbop" cbop(A)¿¡¼ ÀÚÆÇ Àü¿ª ÀνºÅϽº¿¡¼ Áö±Ý ÀԷµǿ©ÀÖ´Â Å°¸¦ ÃëµæÇÕ´Ï´Ù.
(B)¿¡¼ EnterÅ°ÀÎÁö¸¦ ÆǺ°Çؼ,±×·§´õ¶ó¸é (C)¿¡¼ "ÀÔ·ÂÈ®Á¤"À̶õ EP¸íĪÀ» °¡Áö´Â EP¸¦ ½ÇÇà½Ãŵ´Ï´Ù. ±× ÀÔ·ÂÈ®Á¤ ½ÇÇà À̺¥Æ® ÇÁ·Î½ÃÀú´Â EnterÅ°¿¡À§ÇÑ ÀÔ·ÂÈ®Á¤ µ¿ÀÛÀ» ÇÒ °æ¿ì¿¡ ÀÚÁÖ ÀÌ¿ëµË´Ï´Ù.Ãʱ⶧ ÀÔ·ÂÀ¸·Î Àü¿¡ ÀԷ¹®ÀÚ¿À» Ä¡¿ì±â¿¡´Â
»õ·Î ÃÊÁ¡ÀÌ ¸Â¾Æ¼ ÀÔ·ÂÀ» ½ÃÀÛÇÒ °æ¿ì³ª »õ·Î ¸¶¿ì½º·Î Ŭ¸¯µÇ¿©¼ ÀÔ·ÂÀ» ½ÃÀÛÇÏ´Â °æ¿ì¿¡ Àü¿¡ ÀÔ·ÂÇÑ ¹®ÀÚ¿À» Ä¡¿ì´Â À̺¥Æ®ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇغ¾½Ã´Ù. ÁÖ·ÎÀÇ È帧Àº ´ÙÀ½°ú °°½À´Ï´Ù.
- (1) ÃÊÁ¡ÀÌ »õ·Î ¸ÂÀº °æ¿ì, Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿î´Ù.
- (2) ¸¶¿ì½º°¡ Ŭ¸¯µÈ °æ¿ì, Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿î´Ù.
- (3) Å° ÀÔ·ÂµÈ °æ¿ì, Ä¡¿ï ÇÁ·¡±×(flag)°¡ ¼¼¿öÁ®ÀÖÀ¸¸é Ä¡¿î´Ù.
- (1),(2),(3)ÀÇ ¼ºê À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ºÙ¿©³õ°í ÃʱâÈÇÑ´Ù.
(* ÃÊÁ¡ÀÌ ¸Â¾ÆÀÖÀ¸¸é ÀÔ·Â Çʵ带 º¸ÁöÇÒ º¯¼ö *) let focus_if = C_void (* WSEV_FOCUS_CH Æ®¸®°Å(trigger)·Î ±âµ¿µÉ ¼ºêEP *) let _focus_ch_ obj = (* (A) ÃÊÁ¡ÀÌ À̵¿µÇ¿©¼ ¿Ô´Â°¡¸¦ Á¶»ç *) if ( focus_if <> C_void) && ( get_string (focus_if -> getInstanceName()) <> get_string (obj -> getIsntanceName ()) ) && ( get_int (obj -> getFocus ()) == get_int _False ) then begin (* (C)»õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀÌ ÀÚ½Å. *) let focus_if = obj in (* (B)´Ù¸¥ °´Ã¼¿¡¼ ÃÊÁ¡ÀÌ À̵¿ÇØ¿Â °æ¿ì, *) (* Ä¡¿ï ŸÀ̹ÖÀ» ÇÁ·¡±×(flag)¿¡ ¿Ü¾î³õ´Ù *) ignore(obj -> setVariantData ("CLEAR TIMING", 1 )); end; () let _ = Callback.register "_focus_ch_" _focus_ch_ (* WSEV_MOUSE_PRESS Æ®¸®°Å(trigger)·Î ±âµ¿µÇ´Â ¼ºêEP *) let _btn_press_ obj = (* (E)»õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀÌ ÀÚ½Å. *) let focus_if = obj in (* (D) ¸¶¿ì½º·Î Ŭ¸¯µÇ¸ç´Â *) (* Ä¡¿ï ŸÀ̹ÖÀ» ÇÁ·¡±×(flag)¿¡ ¿Ü¾î³õ´Ù *) obj -> setVariantData("CLEAR TIMING",1); obj -> setProperty("cursorPos",0); () let _ = Callback.register "_btn_press_" _btn_press_ (* WSEV_KEY_PRESS Æ®¸®°Å(trigger)·Î ±âµ¿µÇ´Â ¼ºêEP *) let _key_hook_ obj = (* (F) Å° ÀÔ·ÂÇÒ¶§¿¡ Ä¡¿ï ŸÀ̹ÖÀΰ¡¸¦ Á¶»ç *) let fl = get_int (obj -> getVariantData("CLEAR TIMING")) in if (fl == 1) then begin let key = get_int (_WSGIappKeyboard '() -> getKey()) in (* (G)Ä¡¿ï ŸÀַ̹ΠÀ̵¿ Å°¾Æ´Ï¸ç´Â *) if (key <> get_int _WSK_Tab && key <> get_int _WSK_Up && key <> get_int _WSK_Down && key <> get_int _WSK_Left && key <> get_int _WSK_Right) then begin (* (H)Áö¿ì´Ù *) ignore(obj -> setProperty("labelString","")); (* (I)Ä¡¿ï ŸÀÌ¹Ö ÇÁ·¡±×(flag)¸¦ Ä¡¿î´Ù. *) ignore(obj -> setVariantData("CLEAR TIMING",0)); end; end; () let _ = Callback.register "_key_hook_" _key_hook_ (* Àü¿¡ ÀÔ·ÂµÈ ¹®ÀÚ¿À» Ä¡¿ï º»Ã¼ *) (* WSEV_INITIALIZE Æ®¸®°Å(trigger)·Î ÀÔ·Â Çʵ忡 ¼³Á¤ÇÕ´Ï´Ù. *) let ifdclr obj = (* ÃÊÁ¡ÀÌ ¸ÂÀº °æ¿ì¿¡ ±âµ¿µÇ´Â ¼ºêEP¸¦ ¼³Á¤ *) obj -> addProcedure( "ac1", "_focus_ch_", _WSEV_FOCUS_CH); (* ¸¶¿ì½º°¡ Ŭ¸¯µÇ¿´À»¶§ ±âµ¿µÇ´Â ¼ºêEP¸¦ ¼³Á¤ *) obj -> addProcedure( "ac2", "_btn_press_", _WSEV_MOUSE_PRESS); (* Å° ÀԷµǿ´À»¶§ ±âµ¿µÇ´Â ¼ºêEP¸¦ ¼³Á¤ *) obj -> addProcedure( "ac3", "_key_hook_", _WSEV_KEY_HOOK); () let _ = Callback.register "ifdclr" ifdclr¸ÕÀú ÃÊÁ¡°ü·ÃÀÇ ¼ºêEP¿¡°üÇÏ¿© ¼³¸íÇÕ´Ï´Ù. ÃÊÁ¡ÀÌ »õ·Î ¸ÂÀº°ÍÀ» ¾Ë±âÀ§ÇØ Àü¿¡ ÃÊÁ¡ÀÌ ¸Â¾Ò´ø °´Ã¼¸¦ Á¤Àû(static)º¯¼ö¿¡ º¸ÁöÇسõ°Ú½À´Ï´Ù.
(A)¿¡¼´Â ¿ì¼± º¸ÁöÇسõÀº °´Ã¼¿Í ÀÚ½ÅÀÌ ´Ù¸¥ °´Ã¼Àΰ¡¸¦ Á¶»çÇÕ´Ï´Ù. ´Ù¸£¸é »õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀ» ÀǹÌÇؼ, (B)¿¡¼ Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿ö³õ½À´Ï´Ù. ±× ´ÙÀ½¿¡ (C)¿¡¼ ÀÚ½ÅÀ» ±× Á¤Àû(static) º¯¼ö¿¡ º¸ÁöÇÕ´Ï´Ù.
´ÙÀ½¿¡´Â ¸¶¿ì½ºÀÇ Å¬¸¯°ü·Ã¿¡ ¼ºêEP¿¡°ü¿¡¼ ¼³¸íÇÕ´Ï´Ù. (D)¿¡¼ Ä¡¿ï ÇÁ·¡±×¸¦ ¼¼¿ö¼ ÀÔ·Â Ä«¼³À» ¼±µÎ·Î ¼³Á¤ÇÕ´Ï´Ù. ±×ÈÄ¿¡ (E)¿¡¼ ÀÚ½ÅÀ» ÃÊÁ¡º¸ÁöÀÇ Á¤Àû(static) º¯¼ö¿¡ º¸ÁöÇÕ´Ï´Ù.
´ÙÀ½¿¡´Â Å° ÀԷ°ü·ÃÀÇ ¼ºêEP¿¡ ´ëÇؼ ¼³¸íÇÕ´Ï´Ù. Å° ÀԷ°ü·ÃÀÇ ¼ºêEP¿¡¼´Â Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿ï °æ¿ì, ¹®ÀÚ¿¸¦ Ä¡¿ö¼ ±× Ä¡¿ï ÇÁ·¡±×(flag)¸¦ Ä¡¿ó´Ï´Ù. ¿ì¼± (F)¿¡¼ Ä¡¿ï ÇÁ·¡±×(flag)°¡ ¼¼¿öÀúÀִ°¡¸¦ Á¶»çÇÕ´Ï´Ù. (G)¿¡¼´Â À̵¿ Å°¸¦ ÀÔ·ÂÇÑ°ÍÀ¸·Î Ä¡¿öÁöÁö¾Êµµ·Ï ±× Å°¸¦ ÆǺ°Çؼ, (H)·Î Ä¡¿ö¼ (I)·Î Ä¡¿ï ÇÁ·¡±×(flag)¸¦ Ä¡¿ó´Ï´Ù.
Copyright(C) WideStudio/MWT Development Team, 1999-2005 | Last modified: Jul 31, 2005 |