how to execute inkey() procedure inside get object

I've tried to write a simple procedure which allow
during executing get procedure applying a new value to get viriable
depending
on presing key.
I stacked :((
How to reslove this problem please help me...
for example:
I want get "NewVar" viriable (let it be string for ex.)
I start writing string from keyboard and it (string)
is putting into buffer of my viriable but this viriable must be
in range which is stored (for example) in an array and by pressing
a key (F_2) I want have acces to this array and be able to chose
new value for my viriable from this array. Is this procedure possible?
I've tryed something like this but it didn't work:

#include inkey.ch
...
 NewVar := GetNew()
 NewVar :row   := 10
 NewVar :col   := 10
 NewVar :name  := "cVar1"
 NewVar :block := { |cValue| IF (lastkey()==K_F2,;
                    cVar1:=func(), cvar1) }
...
function func()
return nValue

On Sun, 27 Jun 2004 22:36:22  Krzysztof Ciura < XXXX@XXXXX.COM > wrote

Hello Krzysztof,

1) Have you considered using the SetKey() function?

2) For the actual example you gave, wouldn't it be better to do 
everything in a validation function for that get object?
(i.e. automatically present a picklist of the possible array values if 
the user's input is not one of them.)

Regards.
-- 
Douglas Woodrow

Uzytkownik "Douglas Woodrow" < XXXX@XXXXX.COM > napisal w wiadomosci


Yes but it have to send parameter depending on active get into function
launched by pressing key()
Yes it's logical (user can't put different value from that in the array) but
I thougt of normal get (could be validated) and during editing pressing key
(F2)  would execute function (i.e. display array)

Great thanks Douglas

Regards
Krzych

Krzych

It can you need to issue another READ though.
Something along the lines of (check the syntax<g>)
Eg
@ x, y GET xyz ;
    WHEN {|| SetKey( K_F2, SomeFunc() ), TRUE }
    VALID {|| SetKey( K_F2, NIL ), TRUE }

Function SomeFunc()

    LOCAL aGetList   := GetList()
    LOCAL oGet         := GetActive()
    LOCAL aList         := { // Values to choose from}

    LOCAL x, y

    x := oGet:Row
    y := oGet:Col + 25

    @ x, y GET cValue AS COMBOBOX  aList  // Achoice/Picklist?

    READ

    oGet:SetValue( cValue )

    RETURN TRUE

On Mon, 28 Jun 2004 08:52:13  Krzych < XXXX@XXXXX.COM > wrote



OK, but I'm not sure what your difficulty with SetKey() is.  Try
compiling this test program to see what I mean.

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

#include "inkey.ch"

Procedure Main()
   Local GetList := {}
   Local cVar1 := "One"
   Local cVar2 := "Two"
   CLS
   @10, 10 SAY "Input 1:" GET cVar1
   @12, 10 SAY "Input 2:" GET cVar2
   SetKey( K_F2, {|| Special() } )
   READ
   SetKey( K_F2, NIL )
Return

Procedure Special()
   Local oGet := GetActive()
   If oGet <> NIL
      If oGet:Name == "cVar1"
         // (display your array here)
         Alert("Input 1")
         oGet:VarPut("New")
      ElseIf oGet:Name == "cVar2"
         Alert("Input 2")
      EndIf
   EndIf
Return

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

NB You may want to guard against Special() being called recursively.
It can also sometimes be useful to pass the GetList to the Special()
procedure if you need to access any get object other than the active
one.


HTH,
-- 
Douglas Woodrow

:))
It is so simple :)
I've worked in clipper 5 y ago and forgot almost everything
thanx
Chris

Uzytkownik "Douglas Woodrow" < XXXX@XXXXX.COM > napisal w wiadomosci


wiadomosci


but
key

BTW... how can I display message depending on which get object is currently
active ?
Now I use simple @ get commands and Read.

Chris

Uzytkownik "Douglas Woodrow" < XXXX@XXXXX.COM > napisal w wiadomosci


wiadomosci


but
key

On Tue, 29 Jun 2004 00:06:21  Krzysztof Korzeniowski < XXXX@XXXXX.COM > 
wrote

Sorry,

I don't understand the question - can you explain it in more detail?


-- 
Douglas Woodrow

?"Krzysztof Korzeniowski" < XXXX@XXXXX.COM >  ?


currently

You can do it either the easy (and ugly) or the difficult (but elegant)
way...

easy things first..
/*code*/
@ nRow, nCol  get MyVar when ShowMessage( "A seemly message" )

static func ShowMessage( cMess )
@ maxrow(), 0 say padc( cMess )
return .t.
/*endcode*/

The 'difficult' way is to modify the getsys system (not recommented if you
have no done this before).
I think i 've got  somewhere in my disk such a modified getsys.prg (which i
could send but) i think also you could find something similar in the Oasis.

rgrds,

---
Pete

Situation is somilar to those in previous example. I have cople get-s:
@ say... get
@ say .. get
...
READ

,and want display a mesage (text) when cursor is in get field and field is
active durning executing READ but message should be visible only when
get is active and different for each get object.
I don't know wheter it's possible in this simple way or I have use more
advanced commands (get system??)

Regards
Chris

Uzytkownik "Douglas Woodrow" < XXXX@XXXXX.COM > napisal w wiadomosci


currently

Oasis??
What You exactly mean ??

rgrds
Chris

Utkownik "Pete" < XXXX@XXXXX.COM > napisa?w wiadomoi



i
Oasis.

?"Krzych" < XXXX@XXXXX.COM >  ?


Yes! Oasis. ;->

Sorry, I arbitrarily made the assumption that being here in CLC, you 'd also
have been there -in Oasis.
Oasis is Cliper-heads "promised land". You can get there this way:
 http://www.**--****.com/ 

rgrds,

---
Pete

Krzych


When you get to the OASIS make sure you d/l the GrumpFish and SuperLib
libraries, you should find suitable GET commands to satisfy the MESSAGE display
you want.