Nice navigation for PocketPC

Post Reply
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Nice navigation for PocketPC

Post by Otto »

I saw a nice navigation for PPC which I cloned.
Please see the video.

http://www.winhotel.at/snaptv/naviPPC/naviPPC.html

Regards,
Otto

Code: Select all


// FiveWin for Pocket PC - Using SAYs, GETs and PushButtons

#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oFont, oFont1
   local cName1 := "first     ", nLen1  := 10, cType1 := "C"
   local cName2 := "last      ", nLen2  := 10, cType2 := "C"
   local cName3 := "address   ", nLen3  := 10, cType3 := "C"
   local oSay
   local oSay1
   local cSay1 := "<-"
   local cSay := "test"
   local nCol := 10
   local nRow := 0
   local I := 1
   LOCAL oBmp
   local lPaint:=.t.

   local ABC := {}

   DEFINE BITMAP oBmp FILE CurDir() + "\test.bmp"

   ABC := {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}

   DEFINE FONT oFont NAME "Arial" SIZE 0, -8
   DEFINE FONT oFont1 NAME "Arial" SIZE 0, -68

   DEFINE WINDOW oWnd TITLE "Tutor05"

   @ 6, 20 SAY oSay1 PROMPT cSay1 SIZE 80, 80 COLOR "W+/G" FONT oFont1
	//oSay1:hide()


   @ 3, 2 SAY " FieldName   Type   Len" SIZE 150, 20 COLOR "GR+/G"

   @ 6,  2 GET cName1 SIZE 60, 20
   @ 6, 11 GET cType1 SIZE 20, 20
   @ 6, 15 GET nLen1  SIZE 30, 20 PICTURE "999"

   @ 8,  2 GET cName2 SIZE 60, 20
   @ 8, 11 GET cType2 SIZE 20, 20
   @ 8, 15 GET nLen2  SIZE 30, 20 PICTURE "999"

   @ 10,  2 GET cName3 SIZE 60, 20
   @ 10, 11 GET cType3 SIZE 20, 20
   @ 10, 15 GET nLen3  SIZE 30, 20 PICTURE "999"

   @ 10, 2 BUTTON "&Create" SIZE 60, 30 ACTION ABC(oWnd,nCol,ABC,oFont)


   @ 12, 2 BUTTON "&End"    SIZE 60, 30 ACTION oWnd:End()


    oWnd:bLClicked  := { |y,x | oSay1:show() }
   	oWnd:bMMoved    := { |y,x | IIF( ( INT(Y/10) < 27 .AND. INT(Y/10) > 0),(cSay1 := ABC[INT(Y/10)],oSay1:refresh()), )}
    oWnd:bLButtonUp := { |y,x |  oSay1:hide()}
   // oWnd:brClicked  := { |y,x | oSay1:hide() }


   ACTIVATE WINDOW oWnd ON PAINT  (oSay1:hide(),ABC(oWnd,nCol,ABC,oFont))


return nil

//----------------------------------------------------------------------------//


func ABC (oWnd,nCol,ABC,oFont)
   local nRow := 0
   local I    := 1

   nCol := 220

   FOR I = 1 to 26
      cSay := abc[I]
      nRow := nRow + 10
 
      oWnd:say( nRow, nCol , cSay, , ,oFont ,.T. )
   NEXT

return nil
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Otto,

Very nice, thanks! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply