I think I found a better solution:
- Code: Select all Expand view
- DrawText( ::hDC, cCaption,{ nTxtTop, nTxtLeft, nTxtBottom, nTxtRight },nStyle )
Otto
DrawText( ::hDC, cCaption,{ nTxtTop, nTxtLeft, nTxtBottom, nTxtRight },nStyle )
while oWnd:GetWidth(text,oFont) < nPX
n := n + 1
text := padr( (cChartCaption) ,n)
end
driessen wrote:1. You need to use CreateOLEObject() in stead of CreateObject().
oOutlook:CreateItem(1)