Return value from modal window

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
sudip
Posts: 1446
Joined: Sat Mar 07, 2009 11:52 am
Location: Kolkata, WB, India
Has thanked: 5 times
Been thanked: 1 time

Re: Return value from modal window

Post by sudip » Thu Jun 25, 2009 2:42 pm

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
With best regards,
Sudip

User avatar
dhaine_adp
Posts: 457
Joined: Wed Aug 06, 2008 12:22 pm
Location: Manila, Philippines
Been thanked: 2 times

Post by dhaine_adp » Thu Jun 25, 2009 2:58 pm

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
Regards,

Danny
Manila, Philippines

User avatar
sudip
Posts: 1446
Joined: Sat Mar 07, 2009 11:52 am
Location: Kolkata, WB, India
Has thanked: 5 times
Been thanked: 1 time

Post by sudip » Fri Jun 26, 2009 4:00 am

Hello Danny,
Thank you very much for sharing this excellent code :D
Regards.
Sudip
With best regards,
Sudip

User avatar
Rathinagiri
Posts: 5266
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 171 times
Been thanked: 173 times
Contact:

Post by Rathinagiri » Fri Jun 26, 2009 4:36 am

dale-aid.ch - Nice way of doing programming. :)

Thanks for sharing.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

Post Reply