fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-12-12 16:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/gtwin/gtwin.c
    * Using HB_SIZEOFARRAY().

  * include/hbapi.h
    * Typo in comment.

  * ChangeLog
    + Added missing item to prev.

  * contrib/hbwin/tests/testmapi.prg
    ! Fixed missing SVN props.
    ! Added missing SVN ID.
    * Formatting.
    ; TOFIX: This example expects arrays and logical value from command line, 
             so it won't work.
This commit is contained in:
Viktor Szakats
2009-12-12 15:48:11 +00:00
parent 8abe207283
commit 880ef34931
4 changed files with 39 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/ChangeLog
View File

@@ -17,6 +17,23 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-12-12 16:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/gtwin/gtwin.c
* Using HB_SIZEOFARRAY().
* include/hbapi.h
* Typo in comment.
* ChangeLog
+ Added missing item to prev.
* contrib/hbwin/tests/testmapi.prg
! Fixed missing SVN props.
! Added missing SVN ID.
* Formatting.
; TOFIX: This example expects arrays and logical value from command line,
so it won't work.
2009-12-12 15:46 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* include/hbwinuni.h
+ Added HB_ARRAYGETSTR().
@@ -28,6 +45,7 @@
* contrib/hbwin/Makefile
* contrib/hbwin/mapi.c
+ Added to Makefile.
* Renamed HB_MAPISENDMAIL() to WIN_MAPISENDMAIL().
! Added SVN ID.
! Added SVN props.
! Added License header. (pls add your name to copyright headers)

34
harbour/contrib/hbwin/tests/testmapi.prg
View File

@@ -1,15 +1,19 @@
function main( cSubject, cBody, lMailConf, lFromUser, aSender, aDest, aFiles )
local nRet := HB_MAPISendMail( cSubject, ; // subject
cBody, ; // menssage
nil, ; // type of message
DtoS( Date() ) + " " + Time(), ; // send date
"", ; // conversation ID
lMailConf, ; // acknowledgment
lFromUser, ; // user intervention
aSender, ; // sender
aDest, ; // destinators
aFiles ; // attach
)
return nRet == 0
/*
* $Id$
*/
PROCEDURE Main( cSubject, cBody, lMailConf, lFromUser, aSender, aDest, aFiles )
? win_MAPISendMail( cSubject, ; // subject
cBody, ; // menssage
NIL, ; // type of message
DToS( Date() ) + " " + Time(), ; // send date
"", ; // conversation ID
lMailConf, ; // acknowledgment
lFromUser, ; // user intervention
aSender, ; // sender
aDest, ; // destinators
aFiles ; // attach
)
RETURN

2
harbour/include/hbapi.h
View File

@@ -122,7 +122,7 @@ HB_EXTERN_BEGIN
* know that sth is wrong and has to be fixed.
* the version below which check only chosen bits allow compiler to
* use some optimizations if used CPU supports it. F.e. on standard
* x86 machines they can safe few CPU cycles. [druzus]
* x86 machines they can save few CPU cycles. [druzus]
*/
#define HB_IS_NIL( p ) HB_IS_OF_TYPE( p, HB_IT_NIL )

3
harbour/src/rtl/gtwin/gtwin.c
View File

@@ -1614,12 +1614,11 @@ static BOOL hb_gt_win_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
TCHAR buff[ 256 ];
DWORD dwLen;
dwLen = GetConsoleTitle( buff, sizeof( buff ) / sizeof( TCHAR ) );
dwLen = GetConsoleTitle( buff, HB_SIZEOFARRAY( buff ) );
pInfo->pResult = HB_ITEMPUTSTRLEN( pInfo->pResult, buff, dwLen );
if( hb_itemType( pInfo->pNewVal ) & HB_IT_STRING )
{
void * hTitle;
SetConsoleTitle( HB_ITEMGETSTR( pInfo->pNewVal, &hTitle, NULL ) );
hb_strfree( hTitle );
}