- //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;
- //该片段来自于http://www.codesnippet.cn/detail/16112012409.html
来源: http://www.codesnippet.cn/detail/16112012409.html