解决VGScene里字体设置不能修改颜色的问题 - 开源中国社区
当前访客身份：游客 [
当前位置：
发布于 日 15时,
里的控件里字体设置不能修改颜色，让人感觉很不爽，今天解决了这个问题！ 使用到下面两个函数：
代码片段(1)
1.&[代码][Delphi/Pascal]代码&&&&
//Delphi里的颜色转换为VGScene里的颜色
function DColorToVGColor(ADColor: TColor):
R, G, B: B
TempColor: TC
R := ADColor and $FF;
G := (ADColor and $FF00) shr 8;
B := (ADColor and $FF0000) shr 16;
Result := '#FF' + inttohex(R, 2) + inttohex(G, 2) + inttohex(B, 2);
////VGScene里的颜色转换为Delphi里的颜色
function VGColorToDColor(***GColor: String): TC
A:=Copy(***GColor,2,2);
R:=Copy(***GColor,4,2);
G:=Copy(***GColor,6,2);
B:=Copy(***GColor,8,2);
Result:=StringToColor('$'+B+G+R);
设置字体的方法如下：
FFontDlg: TFontD
FFontDlg := TFontDialog.Create(nil);
FFontDlg.Font.Assign(FvgText.Font);
FFontDlg.Font.Color:=VGColorToDColor(FvgText.Fill.Color);
if FFontDlg.Execute then
FvgText.Font.Assign(FFontDlg.Font);
FvgText.Fill.Color:=DColorToVGColor(FFontDlg.Font.Color);
FFontDlg.F
开源中国-程序员在线工具：
FvgText.Fill.Color为什么报错啊？
开源从代码分享开始
??留的其它代码本帖子已过去太久远了，不再提供回复功能。