Visio中的ActiveX(TDrawingControl)。 使用SetFormulas()方法来设置颜色值

我用的Borland C ++ Builder的6.0和Visio TDrawingControl ActiveX来创​​建一个VSD文件。 我的问题是我不能改变使用RGB模型方法和SetFormulas(..)方法的形状的颜色。 当我使用数字(预定义的)颜色值那么一切都OK。

这将是非常高兴看到使用Delphi /生成器Visio中的形状颜色设置的一个真实的例子。

这里是VB的Visio例子(由Visio宏生成):

Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("Line Properties") // passing the constant value works Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "4" Application.EndUndoScope UndoScopeID1, True Dim UndoScopeID2 As Long UndoScopeID2 = Application.BeginUndoScope("Line Properties") // but passing the value using RGB function doesn't Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "RGB(153,255,153)" Application.EndUndoScope UndoScopeID2, True Application.CommandBars("Drawing").Visible = False

谢谢。

分类:德尔福 时间:2012-01-01 人气:0
分享到:

相关文章

  • Comoi recuperoØdescargo EL archivo MSVBVM50.DLL德尔REPRODUCTOR德的Windows Media 2014-12-19

    阿尔descargar埃尔软件去UNA impresora努埃瓦accidentalmente elimine EL archivo德尔programa德尔REPRODUCTOR德Windows媒体. Trate德restaurar UNA版本前对recuperar EL archivo佩罗没有卤味普德lograr. 本身没有科莫descargarlo. --------------解决方案------------- 远野, 罗sentimos,佩罗estos福罗斯独奏ofrecen sopor

  • nececito军刀科莫configuro EL语德尔ayudante德呼声 2012-04-08

    nececito军刀科莫configuro EL语德尔ayudante德呼声 --------------解决方案------------- 嗨, 看到这个页面,选择你的语言: http://support.microsoft.com/common/international.aspx ==================================== 还是遗憾,这是英语区. 在该页面的最上方单击美国(英文)V,并设置为您的语言. 希望这可以帮助.

  • 微软Outlook 2007中宽多adjunto archivos拉imagen画质德éstos本身已经带德尔梅迪奥德尔texto德尔mensaje德邮报 2014-03-18

    宽多agrego UNOØVARIOS archivos adjuntos恩联合国mensaje日邮报,洛杉矶ICONOS德洛斯archivos adjuntos本身VEN一拉mitad德尔cuerpo德尔mensaje,邻encima德DOND埃斯托伊escribiendo,罪mebargo,SEenvían边Ÿrecibo边,萨尔瓦多UNICO pr​​oblema ES阙洛杉矶archivos adjuntos本身不带muestran拉本塔纳Ø卢格destinada对archivos ad

  • 没有encuentro拉opcion第cambiar埃尔语德尔电影制造商,德尔英格尔斯人西班牙语 2014-11-12

    没有encuentro拉opcion第cambiar埃尔语德尔电影制造商,德尔英格尔斯人西班牙语 --------------解决方案------------- 请从下拉列表 页面的底部 你的语言 来发表您的问题在您所选择的语言. 你发布的论坛是唯一的英语. 如果你没有找到所需的语言,更多的国际位置的支持选项都可以通过下面的链接找到: POR青睐,seleccione苏语带拉LISTA desplegable前对投递涂pregunta恩报德语苏elección. 萨尔瓦多FORO阙公顷发表ES段

  • 艾尔hice UNAcompactación德ficheros EN前景表达Ÿahora我汉desaparecido mensajes德拉bandeja德ENTRADA 2015-02-08

    艾尔宽多cerré前景表达我salió联合国mensaje日hacercompactación德mensajes第ahorrar非裔(邻算法中ASI). 罗realicé科莫otras veces,佩罗宽多他entrado HOY我汉desaparecido VARIOS个月前德拉bandeja德ENTRADA. ¿Quehago? 格拉西亚斯anticipadas POR苏atención. 胡安·安东尼奥马林 --------------解决方案------------- 你好, 请选择从下

  • explorador德窗户德约德funcionar 2012-05-08

    HACE UNOS迪亚斯阙不能没有你abrir误documentos,imagenes,等宽多intento abrirlo我骰子explorador德窗户德约德funcionarŸ阙本身reiniciara,佩罗没有本质soluciona --------------解决方案------------- 你问你的问题在​​英语语言的论坛. 请点击本页面的左下角的英文按钮,选择您所熟悉的区域语言. 如果你问你的问题,你是舒服的阅读和打字的语言,您会收到更快,更明智的帮助. 如果您希望在英文论坛上发

  • 科莫recupero archivos eliminados德拉PAPELERA德reciclaje 2012-08-28

    HOLA MI NOMBRE ES Mauel埃弗拉库列尔Carcía,TENGO联合国problemaŸquisiera军刀SI ustedespodríanayudarme: POR错误博雷托达错照片Ÿ视频德英里maquina德拉PAPELERA德reciclajeŸ雅没有了洛puedo recuperar quisiera军刀SI ustedes我podríanayudar一个recuperarenviándome洛杉矶pasos第recuperarlos德antemano本身洛杉矶agr

  • VLC bugue SANS cesse A L'序曲德视频téléchargéesàpartir德的RealPlayer 2012-12-28

    VLC bugue SANS cesse A L'序曲德视频téléchargéesàpartir德的RealPlayer. 评论résoudreCEproblème,puisque VLC reste乐lecteur相提并论引用? 比肩的Merci AVANCE. 伯纳德. --------------解决方案------------- 不幸的是,这个论坛是英语语言支持. 在该页面的顶部,你可以选择另一种语言. 如果未列出您的语言,该网站下方将有助于确保您收到您的语言相应的支持信息: http

  • 宽多本身宽多LA VIDA UTIL德英里procesador德英里笔记本电脑本身acaboØ乐queda犯罪所得VIDA UTIL 2013-01-24

    陈健波青睐SI pueden应答ES阙没有quiero gastar SI上课联合国problema德尔SISTEMA德制冷POR苏atención格拉西亚斯:D --------------解决方案------------- 你好TsukiItou, 你发布的论坛是唯一的英语. 通过点击向左下方的页面上的地球仪,发布您的问题在您所选择的语言,请选择您的语言. 如果您在下面没有找到想要的语言,更多的国际位置的支持选项都可以通过下面的链接找到: http://support.microsoft.c

  • 我在这天童problemas COM ESSA porcaria德前景demora德entrarË哒埃罗作为vezes demora德abrir电子邮件demora德版本recados陈健波青睐版本ISSO imediatamente trabalho没有电子邮件FICO没有aguardo 2013-09-05

    我在这天童problemas COM ESSA porcaria德前景demora德entrarË哒埃罗作为vezes demora德abrir电子邮件demora德版本recados陈健波青睐版本ISSO imediatamente trabalho没有电子邮件FICO没有aguardo --------------解决方案------------- 请从下拉列表页面的底部你的语言来发表您的问题在您所选择的语言. 你发布的论坛是唯一的英语. 如果你没有找到所需的语言,更多的国际位置的支持选项都

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.590 (s). 10 q(s)