wpa.hhf

High Level assembly language(HLA)软件

#if( ! @defined( wpa_hhf ))
?wpa_hhf := 1;

#includeonce( "strings.hhf" )

const
	DebugMsg_c := @uns32('d') << 24 +
					@uns32( 'b' ) << 16 +
					@uns32( 'u' ) << 8  +
					@uns32( 'g' );

	#if( !@defined( debug ))

		debug := false;

	#endif
		 
	// RGB macro - Combines three constants to form an RGB constant.

	#macro RGB( _red_, _green_, _blue_ );

		( _red_ | ( _green_ << 8 ) | ( _blue_ << 16 ))

	#endmacro


	// Major GDI Macros!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	#macro BeginPaint( _hWnd_, _lpPaint_, _hdcOut_ );

		w.BeginPaint( _hWnd_, _lpPaint_ );
		mov( eax, _hdcOut_ );

	  #keyword DrawText( _lpString_, _nCount_, _lpRect_, _uFormat_ );

		w.DrawText( _hdcOut_, _lpString_, _nCount_, _lpRect_, _uFormat_ )

	  #keyword TextOut( _x_, _y_, _string_, _len_ );

		w.TextOut( _hdcOut_, _x_, _y_, _string_, _len_ );

	  #keyword GetCurrentPositionEx( _cp_ );

		w.GetCurrentPositionEx( _hdcOut_, _cp_ );

	  #keyword GetTextMetrics( _tm_ );

		w.GetTextMetrics( _hdcOut_, _tm_ );

	  #keyword GetDeviceCaps( _capIndex_ );

		w.GetDeviceCaps( _hdcOut_, _capIndex_ );

	  #keyword SetTextAlign( _alignment_ );

		w.SetTextAlign( _hdcOut_, _alignment_ );

	  #keyword LineTo( _x_, _y_ );

		w.LineTo( _hdcOut_, _x_, _y_ );

	  #keyword MoveTo( _x_, _y_ );

		w.MoveToEx( _hdcOut_, _x_, _y_, NULL );

	  #keyword MoveToEx( _x_, _y_, _lpPoint_ );

		w.MoveToEx( _hdcOut_, _x_, _y_, _lpPoint_ );

	  #keyword Polyline( _lppt_, _cPoints_ );

		w.Polyline( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolylineTo( _lppt_, _cPoints_ );

		w.PolylineTo( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyPolyline( _lppt_, _lpdwPolyPoints_, _cCount_ );

		w.PolyPolyline( _hdcOut_, _lppt_, _lpdwPolyPoints_, _cCount_ );

	  #keyword PolyBezier( _lppt_, _cPoints_ );

		w.PolyBezier( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyBezierTo( _lppt_, _cPoints_ );

		w.PolyBezierTo( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword Polygon( _lppt_, _cPoints_ );

		w.Polygon( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyPolygon( _lppt_, _cPolys_, _nCount_ );

		w.PolyPolygon( _hdcOut_, _lppt_, _cPolys_, _nCount_ );

	  #keyword SetPolyFillMode( _iMode_ );

		w.SetPolyFillMode( _hdcOut_, _iMode_ );

	  #keyword SetPixel( _x_, _y_, _color_ );

		w.SetPixel( _hdcOut_, _x_, _y_, _color_ );

	  #keyword SetMapMode( _iMode_ );

		w.SetMapMode( _hdcOut_, _iMode_ );

	  #keyword GetMapMode( _iMode_[] );

		w.GetMapMode( _hdcOut_ );

	  #keyword Rectangle( _nLeftRect_, _nTopRect_, _nRightRect_, _nBottomRect_ );

		w.Rectangle
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_ 
		);

	  #keyword 
	  	RoundRect
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_nWidth_,
	  		_nHeight_ 
	  	);

		w.RoundRect
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
			_nWidth_,
			_nHeight_
		);


	  #keyword 
	  	Arc
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Arc
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);


	  #keyword 
	  	Chord
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Chord
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);

	  #keyword 
	  	Pie
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Pie
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);


	  #keyword 
	  	ArcTo
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.ArcTo
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);


	  #keyword 
	  	AngleArc
	  	( 
	  		_x_, 
	  		_y_, 
	  		_radius_, 
	  		_nBottomRect_,
	  		_angleStart_,
	  		_angleSweep_
	  	);

		w.AngleArc
		( 
			_hdcOut_,
	  		_x_, 
	  		_y_, 
	  		_radius_, 
	  		_nBottomRect_,
	  		_angleStart_,
	  		_angleSweep_
		);


	  #keyword Ellipse( _nLeftRect_, _nTopRect_, _nRightRect_, _nBottomRect_ );

		w.Ellipse
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_ 
		);


	  #keyword SelectObject( _hgdiobj_ );

		w.SelectObject( _hdcOut_, _hgdiobj_ );

	  #keyword SelectClipRgn( _hrgn_ );

		w.SelectClipRgn( _hdcOut_, _hrgn_ );

	  #keyword DPtoLP( _lpPoints_, _nCount_ );

		w.DPtoLP( _hdcOut_, _lpPoints_, _nCount_ );

	  #keyword LPtoDP( _lpPoints_, _nCount_ );

		w.LPtoDP( _hdcOut_, _lpPoints_, _nCount_ );

	  #keyword SetWindowExtEx( _xExtent_, _yExtent_, _lpSize_ );

		w.SetWindowExtEx( _hdcOut_, _xExtent_, _yExtent_, _lpSize_ );

	  #keyword SetViewPortExtEx( _xExtent_, _yExtent_, _lpSize_ );

		w.SetViewPortExtEx( _hdcOut_, _xExtent_, _yExtent_, _lpSize_ );

	  #keyword FillRect( _lprc_, _hbr_ );

		w.FillRect( _hdcOut_, _lprc_, _hbr_ );

	  #keyword FrameRect( _lprc_, _hbr_ );

		w.FrameRect( _hdcOut_, _lprc_, _hbr_ );

	  #keyword InvertRect( _lprc_ );

		w.InvertRect( _hdcOut_, _lprc__ );


	  #keyword FillRgn( _hRgn_, _hbr_ );

		w.FillRgn( _hdcOut_, _hRgn_, _hbr_ );

	  #keyword FrameRgn( _hRgn_, _hbr_, _xFrame_, _yFrame_ );

		w.FrameRgn( _hdcOut_, _hRgn_, _hbr_, _xFrame_, _yFrame_ );

	  #keyword InvertRgn( _hRgn_ );

		w.InvertRgn( _hdcOut_, _hRgn_ );

	  #keyword PaintRgn( _hRgn_ );

		w.PaintRgn( _hdcOut_, _hRgn_ );

	  #keyword SetROP2( _drawMode_ );

		w.SetROP2( _hdcOut_, _drawMode_ );
		
	  #keyword 
	  	CreateDIBitmap
		(
			_lpbmih_, 
			_fdwInit_, 
			_lpbInit_, 
			_lpbmi_, 
			_fuUsage 
		);
	  
	  	w.CreateDIBitmap
		(
			_hdcOut_,
			_lpbmih_, 
			_fdwInit_, 
			_lpbInit_, 
			_lpbmi_, 
			_fuUsage 
		);
		
	  #keyword 
	  	CreateDIBSection
		(
			_pbmi_, 
			_iUsage_, 
			_ppvBits_, 
			_hSection_, 
			_dwOffset_ 
		);
	  
	  	w.CreateDIBSection
		(
			_hdcOut_,
			_pbmi_, 
			_iUsage_, 
			_ppvBits_, 
			_hSection_, 
			_dwOffset_ 
		);
		

	  #terminator EndPaint;

		w.EndPaint( _hWnd_, _lpPaint_ )

	#endmacro


//////////////////////////////////////////

	#macro GetDC( _hWnd_, _hdcOut_ );

		w.GetDC( _hWnd_ );
		mov( eax, _hdcOut_ );

	  #keyword DrawText( _lpString_, _nCount_, _lpRect_, _uFormat_ );

		w.DrawText( _hdcOut_, _lpString_, _nCount_, _lpRect_, _uFormat_ )

	  #keyword TextOut( _x_, _y_, _string_, _len_ );

		w.TextOut( _hdcOut_, _x_, _y_, _string_, _len_ );

	  #keyword GetCurrentPositionEx( _cp_ );

		w.GetCurrentPositionEx( _hdcOut_, _cp_ );

	  #keyword GetTextMetrics( _tm_ );

		w.GetTextMetrics( _hdcOut_, _tm_ );

	  #keyword GetDeviceCaps( _capIndex_ );

		w.GetDeviceCaps( _hdcOut_, _capIndex_ );

	  #keyword SetTextAlign( _alignment_ );

		w.SetTextAlign( _hdcOut_, _alignment_ );


	  #keyword LineTo( _x_, _y_ );

		w.LineTo( _hdcOut_, _x_, _y_ );

	  #keyword MoveTo( _x_, _y_ );

		w.MoveToEx( _hdcOut_, _x_, _y_, NULL );

	  #keyword MoveToEx( _x_, _y_, _lpPoint_ );

		w.MoveToEx( _hdcOut_, _x_, _y_, _lpPoint_ );

	  #keyword Polyline( _lppt_, _cPoints_ );

		w.Polyline( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolylineTo( _lppt_, _cPoints_ );

		w.PolylineTo( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyPolyline( _lppt_, _lpdwPolyPoints_, _cCount_ );

		w.PolyPolyline( _hdcOut_, _lppt_, _lpdwPolyPoints_, _cCount_ );

	  #keyword PolyBezier( _lppt_, _cPoints_ );

		w.PolyBezier( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyBezierTo( _lppt_, _cPoints_ );

		w.PolyBezierTo( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword Polygon( _lppt_, _cPoints_ );

		w.Polygon( _hdcOut_, _lppt_, _cPoints_ );

	  #keyword PolyPolygon( _lppt_, _cPolys_, _nCount_ );

		w.PolyPolygon( _hdcOut_, _lppt_, _cPolys_, _nCount_ );

	  #keyword SetPolyFillMode( _iMode_ );

		w.SetPolyFillMode( _hdcOut_, _iMode_ );

	  #keyword SetPixel( _x_, _y_, _color_ );

		w.SetPixel( _hdcOut_, _x_, _y_, _color_ );

	  #keyword SetMapMode( _iMode_ );

		w.SetMapMode( _hdcOut_, _iMode_ );

	  #keyword GetMapMode( _iMode_[] );

		w.GetMapMode( _hdcOut_ );

	  #keyword Rectangle( _nLeftRect_, _nTopRect_, _nRightRect_, _nBottomRect_ );

		w.Rectangle
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_ 
		);

	  #keyword 
	  	RoundRect
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_nWidth_,
	  		_nHeight_ 
	  	);

		w.RoundRect
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
			_nWidth_,
			_nHeight_
		);

	  #keyword 
	  	Arc
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Arc
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);

	  #keyword 
	  	Chord
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Chord
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);

	  #keyword 
	  	Pie
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.Pie
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);


	  #keyword 
	  	ArcTo
	  	( 
	  		_nLeftRect_, 
	  		_nTopRect_, 
	  		_nRightRect_, 
	  		_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_ 
	  	);

		w.ArcTo
		( 
			_hdcOut_,
			_nLeftRect_, 
			_nTopRect_, 
			_nRightRect_, 
			_nBottomRect_,
	  		_xStart_,
	  		_yStart_,
	  		_xEnd_,
	  		_yEnd_  
		);


	  #keyword 
	  	AngleArc
	  	( 
	  		_x_, 
	  		_y_, 
	  		_radius_, 
	  		_nBottomRect_,
	  		_angleStart_,
	  		_angleSweep_
	  	);

		w.AngleArc
		( 
			_hdcOut_,
	  		_x_, 
	  		_y_, 
	  		_radius_, 
	  		_nBottomRect_,
	  		_angleStart_,
	  		_angleSweep_
		);


	  #keyword Ellipse( _nLeftRect_, _nTopRect_, _nRightRect_, _nBottomRect_ );

		w.Ellipse