当前位置:学Delphi网文档资料专题讲解VGScene

解决VGScene里字体设置不能修改颜色的问题

减小字体 增大字体 作者:夢難留  来源:本站原创  发布时间:2010-11-04 21:00:33

VGScene里的控件里字体设置不能修改颜色,让人感觉很不爽,今天解决了这个问题!
使用到下面两个函数:
//Delphi里的颜色转换为VGScene里的颜色
function DColorToVGColor(ADColor: TColor): string;
var
  R, G, B: Byte;
  TempColor: TColor;
begin
  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);
end;

////VGScene里的颜色转换为Delphi里的颜色
function VGColorToDColor(AVGColor: String): TColor;
var
  A,R,G,B:string;
begin
  A:=Copy(AVGColor,2,2);
  R:=Copy(AVGColor,4,2);
  G:=Copy(AVGColor,6,2);
  B:=Copy(AVGColor,8,2);
  Result:=StringToColor('$'+B+G+R);
end;

设置字体的方法如下:
var
  FFontDlg: TFontDialog;
begin
  FFontDlg := TFontDialog.Create(nil);
  try
    FFontDlg.Font.Assign(FvgText.Font);
    FFontDlg.Font.Color:=VGColorToDColor(FvgText.Fill.Color);
    if FFontDlg.Execute then
    begin
      FvgText.Font.Assign(FFontDlg.Font);
      FvgText.Fill.Color:=DColorToVGColor(FFontDlg.Font.Color);
    end;
  finally
    FFontDlg.Free;
  end;
end;

Tags:

作者:夢難留
  • 好的评价 如果您觉得此文章好,就请您
      100%(1)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论