HMGforum.com

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>
#include <windows.h>


HB_FUNC( GETTEXTEXTENTPOINT32 ) //hdc,cText
{
	HDC hdc = (HDC) hb_parnl(1);
	char * pstr = hb_parcx(2);
	SIZE sz ;
	if ( GetTextExtentPoint32( hdc, pstr, strlen(pstr), &sz ) )
	{
		PHB_ITEM * aSize ;
		hb_arrayNew(&aSize,2);
		hb_itemPutNI( hb_arrayGetItemPtr( &aSize, 1 ), sz.cx );
		hb_itemPutNI( hb_arrayGetItemPtr( &aSize, 2 ), sz.cy );
		hb_itemReturnForward( &aSize );
		hb_arrayRelease( &aSize );
	}
}


HB_FUNC( GETTEXTSIZE )
{
	char * pstr = hb_parc(2);
	SIZE sz;
	PHB_ITEM aMetr = _itemArrayNew( 2 );
	PHB_ITEM temp;

	GetTextExtentPoint32( (HDC) HB_PARHANDLE(1), pstr, strlen( pstr ), 
	&sz );

	temp = hb_itemPutNL( NULL, sz.cx );
	hb_itemArrayPut( aMetr, 1, temp );
	hb_itemRelease( temp );

	temp = hb_itemPutNL( NULL, sz.cy );
	hb_itemArrayPut( aMetr, 2, temp );
	hb_itemRelease( temp );

	hb_itemReturn( aMetr );
	hb_itemRelease( aMetr );
}

#pragma ENDDUMP

undefined reference to `_itemArrayNew'
.hbmk/win/mingw/main.o:main.c:(.text+0x34): undefined reference to `HB_PARHANDLE'
.hbmk/win/mingw/main.o:main.c:(.text+0x1db): undefined reference to `hb_arrayRelease'

1. By language files for easy definition in other languages
2. StatusBar resizable, for lack of space in the window sometimes prevents the display completely. Then the user clicks on top and increases and decreases for view.
3. Compatibility with previous versions of Windows to Windows XP (Win98)
4. Trying to run a second time, the utility checks and resets the focus of the program was running. Not to use the SET WARNING OFF MULTIPLE
5. A function that measures the string in pixels to use their best display in the StatusBar
6. The ContextMenu is more beautiful because it uses features 3 styles
7. Provide a screen "About Me" or "Leia-me" in Portuguese that shows the tools used for development on the version and author. This screen has timed out, ie, the window closes automatically after 20 seconds
8. Was inserted WAlert function () which replaces MsgYesNo () because the buttons are not in the selected language. I think this is a bug of this tool not only as the great majority, since it should not take the OS.

1. Font of the StatusBar was changed to Courier New, because it is a monospace one and easy for lengh measurement (in testing).
2. Implemented _CenterWindow function () and also used C_Center () instead of Form.Center [/ b] or Center window [/ b]
   
3. Was implemented MyALERT function () replacing WAlert (), adding a RichEditBox to display better (with vertical scroll bars when necessary) messages. Was made available three colors and an option to screen position by row, in order to show in better way a complete screen.
   
4. Were inserted more functions such as text alignment like as justified() to fix texts centered and justified in MyALERT()

See screenshots from MyAlert():

Pablo César wrote:Implementations have been made in version 3.3:

1. Function are accepting even date/time are inconsistent.
2. Error handling of output in file for network stations.
3. Check the version of IExplorer, since the routine is only valid with version 6.00 or later.
4. Added the path where the application is located, specially when Windows is startuping and also for images files and mem file which is recording last setup. It was then used GetStartUpFolder().
5. It was replaced Justify function by CharSpread() and CharRepl() functions, which are very much simple and efficient.
6. There are new items added in languages files.