Tablet and form style for Windows 8 (desktop ver.)

User avatar
dutch
Posts: 1395
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by dutch »

Dear Otto,

How do you make Get Box as your image program. It's really cool.
Otto wrote:Hello,
this is what I would need for my application.


Image

Thanks in advance
Otto
Regards,
Dutch

FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
User avatar
Richard Chidiak
Posts: 946
Joined: Thu Oct 06, 2005 7:05 pm
Location: France
Contact:

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by Richard Chidiak »

Mr Rao

Any timetable for such changes.

I am also interested in yhis feature,

Thanks for reply.

IMO it would be great to enhance fw for windows tablets

Richard
http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by nageswaragunupudi »

We are working on it for desktop and tablets.
Trying to catch 15.06 but should not be later than 15.07.
Regards

G. N. Rao.
Hyderabad, India
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by Silvio.Falconi »

I have Lenovo MIIX320 and the test sample of Navarro not run here
I cannot see the kyboard of windows
nothing with osk or oskb
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Jimmy
Posts: 165
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by Jimmy »

Silvio.Falconi wrote:I have Lenovo MIIX320 and the test sample of Navarro not run here
I cannot see the kyboard of windows
nothing with osk or oskb
i have a 310 Miix and it have 64 Bit OS
i guess your App is 32 Bit :?:

if yes read about disable "WOW64 Redirection"
http://forums.fivetechsupport.com/viewt ... 79#p226179
greeting,
Jimmy
User avatar
Jimmy
Posts: 165
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Tablet and form style for Windows 8 (desktop ver.)

Post by Jimmy »

hi

i have made a OSK CLASS with Xbase++ but i guess Problem are same.
to type into "own" OSK it must have Focus and it must know which Control send Keystoke to ...

guess you have a Form an 3 x "Edit" so if you begin to type into OSK you want to have Keystoke in 1st "Edit"
now press "TAB" to change to next "Edit" and give "own" OSK Focus again to press next Key ...

when press a Key most is to send "as it is" but if you want Combination like Shift-Ctrl-Alt ...

Code: Select all

METHOD DXE_KbWin:SendKey( cKeys, lShift, lCtrl, lAlt, lAltGR )
LOCAL i     := 0
LOCAL nCode := 0

   DEFAULT lShift TO .F.
   DEFAULT lCtrl TO .F.
   DEFAULT lAlt TO .F.
   DEFAULT lAltGR TO .F.

   IF cKeys # NIL
      ::SetTheFocus() // App <-> OSK

      IF VALTYPE( cKeys ) == "C"
         // for each Key in String
         FOR i := 1 TO LEN( cKeys )
            // single key
            nCode := GetVirtualKeyCode( cKeys[ i ], @lShift, @lCtrl, @lAlt, @lAltGR )

            IF lShift
               keybd_event( VK_SHIFT, 0, 0, 0 )
            ENDIF
            IF lCtrl
               keybd_event( VK_CONTROL, 0, 0, 0 )
            ENDIF
            IF lAlt
               keybd_event( VK_MENU, 0, 0, 0 )
            ENDIF
            IF lAltGR
               keybd_event( VK_RMENU, 0, 0, 0 )
            ENDIF

            // now send "the" key
            keybd_event( nCode, 0, 0, 0 )
            keybd_event( nCode, 0, KEYEVENTF_KEYUP, 0 )

            // clean up
            IF lAltGR
               keybd_event( VK_RMENU, 0, KEYEVENTF_KEYUP, 0 )
               lAltGR := .F.
            ENDIF
            IF lAlt
               keybd_event( VK_MENU, 0, KEYEVENTF_KEYUP, 0 )
               lAlt := .F.
            ENDIF
            IF lCtrl
               keybd_event( VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 )
               lCtrl := .F.
            ENDIF
            IF lShift                                   
               keybd_event( VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 )
               lShift := .F.
            ENDIF
         NEXT

      ELSEIF VALTYPE( cKeys ) == "N"  // NumPad ( hide/show )
         ...
 

Code: Select all

FUNCTION GetVirtualKeyCode( cChar, lShift, lCtrl, lAlt, lAltGR )
LOCAL nCode
LOCAL nHiByte

   nCode := VkKeyScanA( ASC( cChar ) )

   nHiByte := HiByte( nCode )
   lShift := ( nHiByte = 1 )
   lCtrl := ( nHiByte = 2 )
   lAlt := ( nHiByte = 4 )
   lAltGR := ( nHiByte = 6 )

RETURN LoByte( nCode )

DLLFUNCTION VkKeyScanA( cChar ) USING STDCALL FROM USER32.DLL
 
---

on a Table PC "own" OSK must change Position / Size when turn 90° from Landsacpe <-> Portrait

---

also Form must be resize able and "own" OSK must be "visible" to reach it

---

on my 310 Miix with 10" Full-HD i still have Problem with my (big) Finger to type into OSK
on a 22" HP All-in-One with Full-HD it is easy to hit right Key

so i use 310 Miix "real" Keyboard or Bluetooth "Laser Keyboard" when i need to "write"
greeting,
Jimmy
Post Reply