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

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

 

procedure TForm1.Button1Click(Sender: TObject);
var
r, c : OleVariant;
val : OleVariant;
begin
randomize;
r := VarArrayOf([30, 60, 90, 120, 150, 180]);
c := VarArrayOf([30, 80, 100, 160, 240, 300]);
val := VarArrayOf(['red', 'green', 'blue', 'white', 'yellow', 'magenta']);
HWindowXCtrl1.HalconWindow.ClearWindow();
HWindowXCtrl1.HalconWindow.SetPart(0, 0, 239, 319);
HWindowXCtrl1.HalconWindow.SetColor(val);
HWindowXCtrl1.HalconWindow.DispCross(r, c, 10, 180 * random(180) / 180.0);
end;