home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / penos2 / movekbd.ipf < prev    next >
Encoding:
Information Presentation Facility markup  |  1994-01-13  |  6.7 KB  |  163 lines
  1. .*****************************************************************************/
  2. .*                                                                           */
  3. .*  File Name   : MOVEKBD.IPF                                                */
  4. .*                                                                           */
  5. .*  Description : Move Popup Keyboard Sample Program Information File        */
  6. .*                                                                           */
  7. .*                                                                           */
  8. .*  Copyright (C) 1993 IBM Corporation                                       */
  9. .*                                                                           */
  10. .*      DISCLAIMER OF WARRANTIES.  The following [enclosed] code is          */
  11. .*      sample code created by IBM Corporation. This sample code is not      */
  12. .*      part of any standard or IBM product and is provided to you solely    */
  13. .*      for  the purpose of assisting you in the development of your         */
  14. .*      applications.  The code is provided "AS IS", without                 */
  15. .*      warranty of any kind.  IBM shall not be liable for any damages       */
  16. .*      arising out of your use of the sample code, even if they have been   */
  17. .*      advised of the possibility of such damages.                          */
  18. .*                                                                           */
  19. .*****************************************************************************/
  20. :userdoc
  21. .****************************************************************/
  22. .*  Help from Move Keyboard Window                              */
  23. .*  PANEL_MOVEKBD                                               */
  24. .****************************************************************/
  25. :h1 res=910.Move Pop-Up Keyboard Window
  26. Select "Demo", then "Start Demo" to start the Demonstration Program.
  27.  
  28. The dialog displays a row of pushbuttons which controls the position
  29. and size of a Pop-Up Keyboard.
  30. :lines.
  31. Button Actions:
  32. :link
  33. reftype=hd res=911.LOAD:elink. - Loads the default Pop-Up Keyboard.
  34. :link
  35. reftype=hd res=912.MOVE:elink. - Moves the Pop-Up Keyboard.
  36. :link
  37. reftype=hd res=913.ENLARGE:elink. - Enlarges the Pop-Up Keyboard.
  38. :link
  39. reftype=hd res=914.SHRINK:elink. - Shrinks the Pop-Up Keyboard.
  40. :link
  41. reftype=hd res=915.CLOSE:elink. - Closes the Pop-Up Keyboard.
  42. :elines.
  43. .****************************************************************/
  44. .*  Help for LOAD Pushbutton                                    */
  45. .*  PANEL_BTNLOAD                                               */
  46. .****************************************************************/
  47. :h1 res=911.LOAD
  48. :lines.
  49. LOAD - Loads the default Pop-Up Keyboard.
  50. :elines.
  51. :p.
  52. :hp4.Example:
  53. :xmp.
  54. :font facename=Helv size=10x10.
  55. APIRET    rc;
  56. :p.
  57. rc = (APIRET) VkpLoadKeyboard( NULL,
  58.                                hwnd )
  59.  
  60.    hwnd - The window handle of the frame
  61.           that owns the Pop-Up Keyboard.
  62. :ehp4.
  63. :font facename=default.
  64. :exmp.
  65. .****************************************************************/
  66. .*  Help for MOVE Pushbutton                                    */
  67. .*  PANEL_BTNMOVE                                               */
  68. .****************************************************************/
  69. :h1 res=912.MOVE
  70. :lines.
  71. MOVE - Repositions the Pop-Up Keyboard.  The keyboard will be positioned at
  72. the lower border of the Demo window.  If the window is too low for the
  73. Pop_Up Keyboard to be completely displayed underneath, then the
  74. keyboard will be positioned at the upper border.  Move the Demo window around,
  75. press the Move button and see what happens.
  76. :elines.
  77. :p.
  78. :hp4.Example:
  79. :xmp.
  80. :font facename=Helv size=10x10.
  81. APIRET    rc;
  82. LONG      lX, lY;
  83. :p.
  84. rc = (APIRET) VkpSetKbPos( lX,       /* new keyboard position, x-coordinate */
  85.                            lY,       /* new keyboard position, y-coordinate */
  86.                            0L, 0L,   /* no change in Pop-Up Keyboard size   */
  87.                            SWP_MOVE, /* flag to move the Pop-Up Keyboard    */
  88.                            hwnd )    /* owner of the Pop-Up keyboard        */
  89. :ehp4.
  90. :font facename=default.
  91. :exmp.
  92. .****************************************************************/
  93. .*  Help for ENLARGE Pushbutton                                 */
  94. .*  PANEL_BTNLARG                                               */
  95. .****************************************************************/
  96. :h1 res=913.ENLARGE
  97. :lines.
  98. ENLARGE - Enlarges a Pop-Up Keyboard.  The keyboard size is increased in
  99. fixed increments.  If the new size will put part of the Pop-Up Keyboard
  100. beyond the screen border, then it will not be resized.
  101. :elines.
  102. :p.
  103. :hp4.Example:
  104. :xmp.
  105. :font facename=Helv size=10x10.
  106. APIRET    rc;
  107. LONG      lCx, lCy;
  108. :p.
  109. rc = (APIRET) VkpSetKbPos( 0L, 0L,   /* no change in Pop-Up Keyboard position */
  110.                            lCx,      /* new keyboard width                    */
  111.                            lCy,      /* new keyboard height                   */
  112.                            SWP_SIZE, /* flag to resize the Pop-Up Keyboard    */
  113.                            hwnd )    /* owner of the Pop-Up keyboard          */
  114. :ehp4.
  115. :font facename=default.
  116. :exmp.
  117. .****************************************************************/
  118. .*  Help for SHRINK Pushbutton                                  */
  119. .*  PANEL_BTNSHNK                                               */
  120. .****************************************************************/
  121. :h1 res=914.SHRINK
  122. :lines.
  123. SHRINK - Shrinks the Pop-Up Keyboard.  The keyboard cannot be reduced
  124. below a fixed size.
  125. :elines.
  126. :p.
  127. :hp4.Example:
  128. :xmp.
  129. :font facename=Helv size=10x10.
  130. APIRET    rc;
  131. LONG      lCx, lCy;
  132. :p.
  133. rc = (APIRET) VkpSetKbPos( 0L, 0L,   /* no change in Pop-Up Keyboard position */
  134.                            lCx,      /* new keyboard width                    */
  135.                            lCy,      /* new keyboard height                   */
  136.                            SWP_SIZE, /* flag to resize the Pop-Up Keyboard    */
  137.                            hwnd )    /* owner of the Pop-Up keyboard          */
  138. :ehp4.
  139. :font facename=default.
  140. :exmp.
  141. .****************************************************************/
  142. .*  Help for CLOSE Pushbutton                                   */
  143. .*  PANEL_BTNCLOSE                                              */
  144. .****************************************************************/
  145. :h1 res=915.CLOSE
  146. :lines.
  147. CLOSE - Closes the Pop-Up Keyboard.
  148. :elines.
  149. :p.
  150. :hp4.Example:
  151. :xmp.
  152. :font facename=Helv size=10x10.
  153. BOOL      rc;
  154. :p.
  155. rc = (APIRET) VkpCloseKb( hwnd )
  156.  
  157.    hwnd - The window handle of the frame
  158.           that owns the Pop-Up Keyboard.
  159. :ehp4.
  160. :font facename=default.
  161. :exmp.
  162. :euserdoc.
  163.