【转发·台湾nvp系列例程】HALCON SetFont例程 (Delphi)

【转发·台湾nvp系列例程】HALCON SetFont例程 (Delphi)

procedure TForm1.FormShow(Sender: TObject);
var
w, h : OleVariant;
begin
Set8087CW($27f);
img := CoHImageX.Create;
img.ReadImage('ic');
w := img.GetImageSize(h);

HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl1.HalconWindow.SetColor('white');
fg := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
img.DispObj(HWindowXCtrl1.HalconWindow);
HWindowXCtrl1.HalconWindow.SetTposition(10, 10);
fg := not fg;
if fg then
HWindowXCtrl1.HalconWindow.SetFont('-Comic Sans MS-18-*-1-*-*-1-')
else
HWindowXCtrl1.HalconWindow.SetFont('-黑体-14-*-1-*-*-1-');
HWindowXCtrl1.HalconWindow.WriteString('-FontName-Height-Width-Italic-Underlined-Strikeout-[Bold-] ');
end;