Clarion - Help - EIP for a Queue without a BrowseClass and a BrowseEIPManagerClass

Author

Help - EIP for a Queue without a BrowseClass and a BrowseEIPManagerClass

Richard Kim

2004-04-13, 10:30 pm

Hi All,

I am a newbie. I am converting clipper programs to clarion.
This news group is very useful for me. Now I have a problem.

I want to use the EIP manager for a queue, so EIP without the
BrowseEIPManagerClass (Which is only usable for file eip) and the
BrowseClass.

I searched and found following article.
Search with "eip listbox without template" in comp.lang.clarion

http://groups.google.com/groups?q=e...city.com&rnum=1

I followed what it said. But I have compile error.
What is "Base EIPManager class" ?

Any one has sample code ?

Best regards to everyone.

Theuns Snyman

2004-04-14, 3:30 am

Richard,

I posted this a while back. Hope it Helps:

====
Ozren,

check the help for edit-in-place for the complete explanation on coding edit
in place, quite easy. Remember to set column select true in list options

in Window local data put:

?EditEntry EQUATE(100) !declares editentry for EIP

in OPenWindow put:
CREATE(?EditEntry,CREATE:Entry) !Create EIP entry
?EditEntry{prop:ALRT}=(EnterKey) ! set alrt key

in this example I used a local queue to populate the listbox.

in your listbox / browse Accepted embed do something similar to this before
generated code:

IF KEYCODE() = MouseLeft2 ! your alertkey for edit
GET(LOC:CostSumQ,CHOICE()) ! Get the selected coloumn
?EditEntry{PROP:Text} = ?List{PROPLIST:Picture,?List{PROP:Column}}
CASE ?List{PROP:Column}
OF 4
if instring('.',LOC:QItem,1,1) <> '' then
?EditEntry{PROP:Use} = LOC:FAG1
?List{PROP:Edit,?List{PROP:Column}} = ?EditEntry
Select(?EditEntry)
end
OF 5
if instring('.',LOC:QItem,1,1) <> '' then
?EditEntry{PROP:Use} = LOC:FAG2
?List{PROP:Edit,?List{PROP:Column}} = ?EditEntry
Select(?EditEntry)
end
END
end

and this after generated code:

OF ?EditEntry
CASE EVENT()
OF EVENT:Selected
?EditEntry{PROP:Touched} = 1
OF EVENT:Accepted
PUT(LOC:CostSumQ) !write to Q, can put error checking here
?List{PROP:edit,?List{PROP:column}} = 0 ! set EIP to false
Do CalcCostSumQ ! yust one of my routines
end

in listbox new selection:
IF ?List{PROP:Edit,?List{PROP:Column}}
GET(LOC:CostSumQ,CHOICE())
END

in listbox all events before genereted code:
OF ?EditEntry
CASE EVENT()
OF EVENT:Selected
?EditEntry{PROP:Touched} = 1
OF EVENT:Accepted
?List{PROP:Edit,1} = 0
?List{PROP:Edit,2} = 0
?List{PROP:Edit,3} = 0
?List{PROP:Edit,4} = 0
?List{PROP:Edit,5} = 0
?List{PROP:Edit,6} = 0
!Do CalcCashFlow
OF EVENT:AlertKey
IF KEYCODE() = EnterKey
POST(EVENT:Accepted,?EditEntry)
Select(?list)
END
END

HTH, else post again and I'll send source code

Theuns

====

"Richard Kim" <korcom@yahoo.com> wrote in message
news:8f1c4606.0404131704.2775990@posting.google.com...
> Hi All,
>
> I am a newbie. I am converting clipper programs to clarion.
> This news group is very useful for me. Now I have a problem.
>
> I want to use the EIP manager for a queue, so EIP without the
> BrowseEIPManagerClass (Which is only usable for file eip) and the
> BrowseClass.
>
> I searched and found following article.
> Search with "eip listbox without template" in comp.lang.clarion
>
>
http://groups.google.com/groups?q=e...city.com&rnum=1
>
> I followed what it said. But I have compile error.
> What is "Base EIPManager class" ?
>
> Any one has sample code ?
>
> Best regards to everyone.

Richard Kim

2004-04-14, 4:30 pm

Theuns,

Thank you for quick answer.

I tried your code but it didn't open the entry field when I press EnterKey.
I looked at the help and found some hints from "PROP:Edit" topic.

Addition codes:

1) I added EnterKey in the List Alert Window
2) Embaded codes in List AlertKey
IF KEYCODE() = EnterKey
SETKEYCODE(MouseLeft2)
POST(EVENT:Accepted, ?List)
END
3) I moved your code in listbox all events to TakeFieldEvent in Window Manager.
OF ?EditEntry
CASE EVENT()
OF EVENT:Selected
?EditEntry{PROP:Touched} = 1
OF EVENT:Accepted
?List{PROP:Edit,1} = 0
?List{PROP:Edit,2} = 0
?List{PROP:Edit,3} = 0
?List{PROP:Edit,4} = 0
?List{PROP:Edit,5} = 0
?List{PROP:Edit,6} = 0
OF EVENT:AlertKey
IF KEYCODE() = EnterKey
POST(EVENT:Accepted,?EditEntry)
Select(?List)
END
END

It works now. I am using C6PE.
Thank you for your help again.

One more question.

I want to move the cursor only on the cell which user can edit.
How ?

"Theuns Snyman" <tsny_REMOVETHISTOMAIL_@xsinet.co.za> wrote in message news:<96ydndd8VOFNS-HdRVn-hQ@is.co.za>...[color=darkred]
> Richard,
>
> I posted this a while back. Hope it Helps:
>
> ====
> Ozren,
>
> check the help for edit-in-place for the complete explanation on coding edit
> in place, quite easy. Remember to set column select true in list options
>
> in Window local data put:
>
> ?EditEntry EQUATE(100) !declares editentry for EIP
>
> in OPenWindow put:
> CREATE(?EditEntry,CREATE:Entry) !Create EIP entry
> ?EditEntry{prop:ALRT}=(EnterKey) ! set alrt key
>
>
> in this example I used a local queue to populate the listbox.
>
> in your listbox / browse Accepted embed do something similar to this before
> generated code:
>
> IF KEYCODE() = MouseLeft2 ! your alertkey for edit
> GET(LOC:CostSumQ,CHOICE()) ! Get the selected coloumn
> ?EditEntry{PROP:Text} = ?List{PROPLIST:Picture,?List{PROP:Column}}
> CASE ?List{PROP:Column}
> OF 4
> if instring('.',LOC:QItem,1,1) <> '' then
> ?EditEntry{PROP:Use} = LOC:FAG1
> ?List{PROP:Edit,?List{PROP:Column}} = ?EditEntry
> Select(?EditEntry)
> end
> OF 5
> if instring('.',LOC:QItem,1,1) <> '' then
> ?EditEntry{PROP:Use} = LOC:FAG2
> ?List{PROP:Edit,?List{PROP:Column}} = ?EditEntry
> Select(?EditEntry)
> end
> END
> end
>
> and this after generated code:
>
> OF ?EditEntry
> CASE EVENT()
> OF EVENT:Selected
> ?EditEntry{PROP:Touched} = 1
> OF EVENT:Accepted
> PUT(LOC:CostSumQ) !write to Q, can put error checking here
> ?List{PROP:edit,?List{PROP:column}} = 0 ! set EIP to false
> Do CalcCostSumQ ! yust one of my routines
> end
>
> in listbox new selection:
> IF ?List{PROP:Edit,?List{PROP:Column}}
> GET(LOC:CostSumQ,CHOICE())
> END
>
> in listbox all events before genereted code:
> OF ?EditEntry
> CASE EVENT()
> OF EVENT:Selected
> ?EditEntry{PROP:Touched} = 1
> OF EVENT:Accepted
> ?List{PROP:Edit,1} = 0
> ?List{PROP:Edit,2} = 0
> ?List{PROP:Edit,3} = 0
> ?List{PROP:Edit,4} = 0
> ?List{PROP:Edit,5} = 0
> ?List{PROP:Edit,6} = 0
> !Do CalcCashFlow
> OF EVENT:AlertKey
> IF KEYCODE() = EnterKey
> POST(EVENT:Accepted,?EditEntry)
> Select(?list)
> END
> END
>
> HTH, else post again and I'll send source code
>
> Theuns
>
> ====
>
> "Richard Kim" <korcom@yahoo.com> wrote in message
> news:8f1c4606.0404131704.2775990@posting.google.com...
> http://groups.google.com/groups?q=e...city.com&rnum=1

Sponsored Links