Page 2 of 2
Re: Return value from modal window
Posted: Thu Jun 25, 2009 2:42 pm
by sudip
Hello Danny,
dhaine_adp wrote:
As I have said, I shared it, so please feel free.
Thanks a lot !
One thing more. I didn't find "dale-aid.ch". Is it necessary?
Regards.
Sudip
Re: Return value from modal window
Posted: Thu Jun 25, 2009 2:58 pm
by dhaine_adp
One thing more. I didn't find "dale-aid.ch". Is it necessary?
Hi Sudip,
I'm sorry I always forget to attach this manifest constants when posting code here. Here is the contents of "dale-aid.ch". You can change it's name and remove dale-aid.ch and replaced by your own definition using the values here:
Code: Select all
//--------- Dbf and record manipulation constant
#define Shared .T.
#define Exclusive .F.
#define ReadOnly .T.
#define ReadWrite .F.
#define Enable .T.
#define Disable .F.
#define BlankRecord .T.
#define CurrentRecord .F.
#define FileNotEmpty ((.NOT. BOF() .AND. .NOT. EOF()) .AND. LASTREC() > 0)
#define FileEmpty (BOF() .OR. EOF())
//--------- Text Message to be used with MsgInfo()
#define DAD_OpenFailed_ {"Unable to Open the File","Open Failure"}
//---------- Logical Tagalog Manifest Constants
#define ISARADO .F.
#define IBUKAS .T.
#define AYOKONGA .F.
#define AYOSLANG .T.
#define HINDIAYOS .F.
#define WALA .F.
#define MAYROON .T.
#define TAMA .T.
#define MALI .F.
#define OO_NAMAN .T.
#define HINDI .F.
#define HINDI_PUWEDE .F.
#define Success .T.
#define Failure .F.
// -------- La DALE-Aid Color HMG Additional Color Defintions
#define SILVER {245,245,245}
//----------- Index Position Marker
#define INDEXMARKER CHR(0149)
#define DALE_AID_NEWLINE CHR(13)+CHR(10)
//----------- Others
#define CodeA ".AID"
#define CodeP ".PLR"
// -------- Microsoft Excel Constants - ALIGNMENT
#define xlLeft -4131
#define xlRight -4152
#define xlCenter -4108
#define xlWorkbookNormal -4143
// -------- Microsoft Excel Constants - BORDERS
#define xlAutomatic -4105
#define xlColorIndexNone -4142
#define xlUnderlineStyleNone -4142
#define xlUnderlineStyleDouble -4119
#define xlUnderlineStyleSingle 2
#define xlDiagonalDown 5
#define xlDiagonalUp 6
#define xlEdgeLeft 7
#define xlEdgeTop 8
#define xlEdgeBottom 9
#define xlEdgeRight 10
#define xlInsideVertical 11
#define xlContinuous 1
#define xlThin 2
#define xlThick 4
#define xlHairline 1
#define xlMedium -4138
From the above manifest constants you can strip out the "Tagalog Manifest constants".
Regards,
Danny
Re: Return value from modal window
Posted: Fri Jun 26, 2009 4:00 am
by sudip
Hello Danny,
Thank you very much for sharing this excellent code
Regards.
Sudip
Re: Return value from modal window
Posted: Fri Jun 26, 2009 4:36 am
by Rathinagiri
dale-aid.ch - Nice way of doing programming.
Thanks for sharing.