Exemplo de Shapebox

Exemplo de Shapebox

Exemplo de shapebox.
#include "protheus.ch"// ***************************************************************************// TDGBasicBox// ***************************************************************************class TDGBasicBox from TDGShapeBox	method New(oControl) CONSTRUCTORendclassmethod New(oControl) class TDGBasicBox:New(oControl)	::cCaption := "Basic Shapes"	TDGProcIcon():New(self)	TDGDeciIcon():New(self)	//TDGBrasIcon():New(self)	//TDGImagIcon():New(self)	TDGCaixaIcon():New(self)return// ***************************************************************************// TDGBasicBox// ***************************************************************************class TDFDBox from TDGShapeBox	method New(oControl) CONSTRUCTORendclassmethod New(oControl) class TDFDBox:New(oControl)	::cCaption := "DFD Shapes"	//TDGProcIcon():New(self)	//TDGDeciIcon():New(self)	//TDGBrasIcon():New(self)	TDGCaixaIcon():New(self)return