ホーム » 2012 » 2月

月別アーカイブ: 2月 2012

2012年2月
 1234
567891011
12131415161718
19202122232425
26272829  

カテゴリー

アーカイブ

ブログ統計情報

  • 100,738 アクセス


RoundRect と svg:rect

svg:rect の rx , ry は,丸くする楕円の半径.
Win 32 API などの RoundRect は,楕円の幅と高さ.

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

文字列の縦方向の配置

svg:text の配置で,横方向の指定(text-anchor=”middle”)はあるが,縦方向はなさそうだったので…
SVG text
  if (fabs(incX) > 1e-7 || fabs(incY) > 1e-7) {
    CString moveStr = _T(“translate(“)+ToString(pnt.x)+_T(“,”)+ToString(pnt.y)+_T(“)\t”) ;
    CString rot_Str ;
    CString skewStr ;
    if (fabs(incX) > 1e-7) {
      rot_Str = _T(“rotate(“)+ToString(0-incX)+_T(“,0,0)\t”) ;
      }
    if (fabs(incY) > 1e-7) {
      skewStr = _T(“skewX(“) + ToString(0+incY) + _T(“)\t”) ;
      }
    CString    vAlign ;
    {
      P2        move = P2(0,0+txH.GetHeight()/3) ;
      vAlign = _T(“translate(“) + ToString(move.x) + _T(“,“) + ToString(move.y) + _T(“)\t”) ;
      }
    th.AddAttribute    (_T(“transform”),    moveStr + rot_Str + skewStr    + vAlign ) ;
    }
  else {
    th.AddAttribute    (_T(“x”),  ::ToString(pnt.x)) ;
    th.AddAttribute    (_T(“y”), ::ToString(pnt.y+txH.GetHeight()/3)) ;
    }

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

文字列と文字の回転

{
  TextH    txH = parts1.GetTextH (thIndex) ;
  P3        pnt = parts1.GetPTextH(thIndex) ;
  XmlOut_E    th(_T(“text”),txH.GetText()) ;
  {
    th.AddAttribute    (_T(“text-anchor”),    _T(“middle”)    ) ;
    th.AddAttribute    (_T(“font-size”),    ::ToString(txH.GetHeight())) ;
    }
  if (fabs(txH.GetIncX()) > 1e-7 || fabs(txH.GetIncY()) > 1e-7) {
    CString  moveStr  =  _T(“translate(“) + ToString(pnt.x) + _T(“,”) + ToString(pnt.y) + _T(“)\t”) ;
    CString  rot_Str ;
    CString  skewStr ;
    if (fabs(txH.GetIncX()) > 1e-7) {
      rot_Str = _T(“rotate(“) + ToString(0-txH.GetIncX()) + _T(“,0,0)\t”) ;
      }
    if (fabs(txH.GetIncY()) > 1e-7) {
      skewStr  = _T(“skewX(“) + ToString(0+txH.GetIncY()) + _T(“)\t”) ;
      }
    th.AddAttribute    (_T(“transform”),    moveStr + rot_Str + skewStr    ) ;
    }
  else {
    th.AddAttribute    (_T(“x”),            ::ToString(pnt.x)) ;
    th.AddAttribute    (_T(“y”),            ::ToString(pnt.y)) ;
    }
  g.AddChild(th) ;
  }

translate で回転の位置に動かし,
rotate で文字列を回転
skewX で文字を傾ける

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

explorer /e,/select

Explorer.exe コマンドライン オプション
  void CDropADlg::OnExecExplorer()
  {
    UpdateData(TRUE) ;
    CString file = m_SelectFile ;
    ShellExec se ;
    if (::FileIsDirectory(file)) {
      se.SetFile(file) ;
      }
    else {
      se.SetNon2QMark(TRUE) ;
      se.SetFile(_T(“explorer.exe”)) ;
      se.SetParamaters(_T(“/e,/select,”)+file) ;
      }
    se.Execute() ;
    }

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

XML の書出しテスト – 5

MSXML.dll を利用しない方法を用意.
//#include “Xml_MS_.hxx”
#include “XmlOut.hxx”
#include “SvgOut.hxx”


class    Xml_Attribute    {
public:
//    …
protected:
CString        Name ;
CString        Value ;
} ;

class    XmlOut_E    {
public:
//    …
protected:
CString                                Name ;
CString                                Text ;
CArray<Xml_Attribute,Xml_Attribute>    Attribute ;
protected:
CArray<XmlOut_E,XmlOut_E>            Child ;
} ;

inline
BOOL    XmlOut::Export    (const XmlOut_E& elements,LPCTSTR svgName)
{
#ifdef    UseMSXML
return    Xml_MS::Export(elements,svgName) ;
#endif
CStringArray    strAry ;
{
#ifdef        _UNICODE
CString        xml_ver = _T(“<?xml version=\”1.0\” encoding=\”utf-16\”?>”) ;
#else
CString        xml_ver = _T(“<?xml version=\”1.0\” encoding=\”Shift-JIS\”?>”) ;
#endif
strAry.Add(    xml_ver) ;
}
{
CStringArray    sa ;
CreateElement(elements,&sa,0) ;
strAry.Append(sa) ;
}
return    ::SaveText(svgName,strAry,TRUE) ;
}

inline
BOOL    XmlOut::CreateElement    (const XmlOut_E& elements,CStringArray* sa,const int indent)
{
CString    tab = _T(“\t\t\t\t\t\t\t\t\t\t\t\t\t”) ;
CStringArray    strAry ;
int                nowIndent = indent ;
if (elements.IsComment()) {
sa->Add(tab.Left(indent) + _T(“<!–“)+elements.GetText()+_T(“–>”)) ;
return    TRUE ;
}
CString    eleStr ;
{
eleStr = tab.Left(indent) + _T(“<“) + elements.GetName() + _T(” “) ;
CString    attStr ;
for (int aIndex=0 ; aIndex<elements.GetAttributeCount() ; aIndex++) {
Xml_Attribute    a = elements.GetAttribute(aIndex) ;
CString    name = a.GetName () ;
CString    value= a.GetValue() ;
attStr += name + _T(“=\””) + value + _T(“\”\t”) ;
}
if (!attStr.IsEmpty()) {
eleStr += attStr ;
}
CString    nameOrChild ;
if (!elements.GetText().IsEmpty()) {
nameOrChild = elements.GetText() ;
eleStr += _T(” >”) + nameOrChild ;
}
else {
CStringArray    saChild ;
for (int cIndex=0 ; cIndex<elements.GetChildCount() ; cIndex++) {
XmlOut_E        c = elements.GetChild(cIndex) ;
CreateElement(c,&saChild,indent+1) ;
}
if (saChild.GetSize() > 0) {
::StringArrayToString(saChild,nameOrChild) ;
eleStr += _T(” >\r\n”) + nameOrChild ;
}
}
if (nameOrChild.IsEmpty()) {
eleStr += _T(“/>”) ;
}
else {
if (!elements.GetText().IsEmpty()) {
eleStr +=                         _T(“</”) + elements.GetName() + _T(“>”) ;
}
else {
eleStr += tab.Left(indent+1) + _T(“</”) + elements.GetName() + _T(“>”) ;
}
}
strAry.Add(eleStr) ;
}
return    sa->Append(strAry) ;
}

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

xmlns を間違えて 0xE06D7363

xmlns の所を xmlne とタイプミス.そのまま実行して 0xE06D7363.
0xE06D7363
0xE06D7363
—————————
Microsoft Visual C++
—————————
ハンドルされていない例外 は T_xml_7.exe (KERNEL32.DLL) にあります: 0xE06D7363: Microsoft C++ Exception。
—————————
OK
—————————
通常の実行の場合は,
Abnormal Program Termination
—————————
Microsoft Visual C++ Debug Library
—————————
Debug Error!
Program: …NGS\ALL USERS\DOCUMENTS\VC_TEST\SVG\T_xml_7\Debug\T_xml_7.exe
abnormal program termination

(Press Retry to debug the application)
—————————
中止(A) 再試行(R) 無視(I)
—————————

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

コンパイルで C4786

——————–構成: T_xml_7 – Win32 Debug——————–
コンパイル中…
T_xml_7.cpp
c:\documents and settings\all users\documents\develop\____test\xmlout.hxx(69) : warning C4786: ‘__ehhandler$?Add_Attribute@XmlOut@@SAHV?$_com_ptr_t@V?$_com_IIID@UIXMLDOMDocument@MSXML@@$1?_GUID_2933bf81_7b36_11d2_b20e_00c04f983e60@@3U__s_GUID@@A@@@@
V?$_com_ptr_t@V?$_com_IIID@UIXMLDOMElement@MSXML@@$1?_GUID_2933bf86_7b36_11d2_b20e_00c04f983e60@@3U__s_GUID@@A@@@@PBD2@Z’ : デバッグ情報で識別子が 255 文字に切り捨てられました。
...
リンク中…
T_xml_7.exe – エラー 0、警告 6

コードは以下の部分.
  inline
  BOOL XmlOut::Add_Attribute (
        MSXML::IXMLDOMDocumentPtr pDoc,
        MSXML::IXMLDOMElementPtr pEle,
        LPCTSTR name,LPCTSTR value)
  {
    if (pDoc == NULL) { return FALSE ; }
    if (pEle == NULL) { return FALSE ; }
    MSXML::IXMLDOMAttributePtr pAtt = pDoc->createAttribute(name) ;
    pAtt->value = value ;
    pEle->setAttributeNode(pAtt) ;
    return TRUE ;
    }

前後に,
  #pragma warning (disable : 4786 )

  #pragma warning (default : 4786 )
を付加.

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.

XML の書出しテスト – 4

xmlns="" が付加されない方法がわからなかったので,逆に svg:svg などと出力する様に変更.
<?xml version="1.0" encoding="utf-8"?>
<!–SVG 出力テスト–>
<svg:svg width="50%" height="50%" viewBox="0 0 100 100" xmlns:svg="http://www.w3.org/2000/svg">
<svg:g stroke="red" stroke-width="0.3" stroke-dasharray="3 3">
<svg:line x1="0" x2="0" y1="10" y2="90"/>
<svg:line x1="10" x2="10" y1="10" y2="90"/>
<svg:line x1="20" x2="20" y1="10" y2="90"/>
<svg:line x1="30" x2="30" y1="10" y2="90"/>
<svg:line x1="40" x2="40" y1="10" y2="90"/>
</svg:g>
</svg:svg>


BOOL    TestXML    (void)
{
HRESULT    hr = ::CoInitialize(NULL) ;
if (FAILED(hr))            {    return    FALSE ;        }
{
MSXML::IXMLDOMDocumentPtr    pDoc = NULL ;
hr = pDoc.CreateInstance(MSXML::CLSID_DOMDocument) ;
if (FAILED(hr))        {    return    FALSE ;        }
MSXML::IXMLDOMProcessingInstructionPtr pi = pDoc->createProcessingInstruction(L”xml”, L”version=’1.0′ encoding=’utf-8′ “);
pDoc->appendChild(pi);
MSXML::IXMLDOMCommentPtr pc = pDoc->createComment(L”SVG 出力テスト”);
pDoc->appendChild(pc);
{
MSXML::IXMLDOMElementPtr    pRoot = NULL ;
pRoot = pDoc->createElement(L”svg:svg”);
{    //    <svg width =’50%’ height=’50%’ viewBox=’0 0 100 100′ xmlns=”http://www.w3.org/2000/svg”>
MSXML::IXMLDOMAttributePtr    paw = pDoc->createAttribute(L”width”);
paw->value = L”50%”;
pRoot->setAttributeNode(paw);
MSXML::IXMLDOMAttributePtr    pah = pDoc->createAttribute(L”height”);
pah->value = L”50%”;
pRoot->setAttributeNode(pah);
MSXML::IXMLDOMAttributePtr    pav = pDoc->createAttribute(L”viewBox”);
pav->value = L”0 0 100 100″;
pRoot->setAttributeNode(pav);
MSXML::IXMLDOMAttributePtr    pan = pDoc->createAttribute(L”xmlns:svg”);
pan->value = _T(“http://www.w3.org/2000/svg”) ;
pRoot->setAttributeNode(pan);
}
pDoc->appendChild(pRoot);
{    //    <g stroke=’red’ stroke-width=’0.3′ stroke-dasharray=’3 3′>
MSXML::IXMLDOMElementPtr pGrop= pDoc->createElement(_T(“svg:g”));
{
MSXML::IXMLDOMAttributePtr    pas = pDoc->createAttribute(L”stroke”);
pas->value = _T(“red”) ;
pGrop->setAttributeNode(pas);
MSXML::IXMLDOMAttributePtr    paw = pDoc->createAttribute(L”stroke-width”);
paw->value = _T(“0.3″) ;
pGrop->setAttributeNode(paw);
MSXML::IXMLDOMAttributePtr    pad = pDoc->createAttribute(L”stroke-dasharray”);
pad->value = _T(“3 3″) ;
pGrop->setAttributeNode(pad);
}
pRoot->appendChild(pGrop) ;
{
for (int index=0 ; index<5 ; index++) {
//    <line  x1=”10″*x x2=”10″*x y1=”0″ y2=”100″ />
MSXML::IXMLDOMElementPtr pLine= pDoc->createElement(L”svg:line”);
{
CString    xStr ;        xStr.Format(_T(“%d”),10*index) ;
MSXML::IXMLDOMAttributePtr    pax = pDoc->createAttribute(L”x1″);
pax->value = LPCTSTR(xStr) ;
pLine->setAttributeNode(pax);
MSXML::IXMLDOMAttributePtr    pa2 = pDoc->createAttribute(L”x2″);
pa2->value = LPCTSTR(xStr) ;
pLine->setAttributeNode(pa2);
MSXML::IXMLDOMAttributePtr    pay = pDoc->createAttribute(L”y1″);
pay->value = _T(“10″) ;
pLine->setAttributeNode(pay);
MSXML::IXMLDOMAttributePtr    pae = pDoc->createAttribute(L”y2”);
pae->value = _T(“90”) ;
pLine->setAttributeNode(pae);
}
pGrop->appendChild(pLine) ;
}
}
}
}
CString    tmpPath ;
{
UINT    size = MAX_PATH ;
::GetTempPath    (size,tmpPath.GetBuffer(size)) ;
tmpPath.ReleaseBuffer() ;
}
CString    tmpSVG = tmpPath + CTime::GetCurrentTime().Format(_T(“%H%M%S.svg”)) ;
pDoc->save(LPCTSTR(tmpSVG)) ;
}
::CoUninitialize() ;
return    TRUE ;
}

Is this 投稿 useful? Useful Useless 0 of 0 people say this 投稿 is useful.