zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle1

procedure TForm1.Button1Click(Sender: TObject);

var

img : HImageX;

rg : HRegionX;

w, h : OleVariant;

val : OleVariant;

begin

img := CoHImageX.Create;

img.ReadImage('ic');

w := img.GetImageSize(h);

rg := CoHRegionX.Create;

rg.GenRectangle1(h / 2 - 100, w / 2 - 200, h / 2 + 100, w / 2 + 200);

HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);

HWindowXCtrl1.HalconWindow.SetDraw('margin');

HWindowXCtrl1.HalconWindow.SetColor('white');

img.DispObj(HWindowXCtrl1.HalconWindow);

rg.DispObj(HWindowXCtrl1.HalconWindow);

val := VarArrayOf([3, 1]);

HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);

HWindowXCtrl2.HalconWindow.SetLineStyle(val);

HWindowXCtrl2.HalconWindow.SetDraw('margin');

HWindowXCtrl2.HalconWindow.SetColor('red');

img.DispObj(HWindowXCtrl2.HalconWindow);

rg.DispObj(HWindowXCtrl2.HalconWindow);

end;