zw版【转发·台湾nvp系列Delphi例程】HALCON MirrorImage
2015-10-01 15:28
399 查看
zw版【转发·台湾nvp系列Delphi例程】HALCON MirrorImage
procedure TForm1.Button1Click(Sender: TObject);
var
img, img1: HImageX;
w, h: OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('circular_barcode');
w := img.GetImageSize(h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
img1 := img.MirrorImage('row');
HWindowX2.SetPart(0, 0, h - 1, w - 1);
img1.DispObj(HWindowX2);
HWindowX2.SetColor('red');
HWindowX2.SetTposition(10, 10);
HWindowX2.WriteString('MirrorImage - row');
img1 := img.MirrorImage('column');
HWindowX3.SetPart(0, 0, h - 1, w - 1);
HWindowX3.SetColor('white');
img1.DispObj(HWindowX3);
HWindowX3.SetColor('red');
HWindowX3.SetTposition(10, 10);
HWindowX3.WriteString('MirrorImage - column');
img1 := img.MirrorImage('main');
HWindowX4.SetPart(0, 0, h - 1, w - 1);
HWindowX4.SetColor('white');
img1.DispObj(HWindowX4);
HWindowX4.SetColor('red');
HWindowX4.SetTposition(10, 10);
HWindowX4.WriteString('MirrorImage - main');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
img, img1: HImageX;
w, h: OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('circular_barcode');
w := img.GetImageSize(h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
img1 := img.MirrorImage('row');
HWindowX2.SetPart(0, 0, h - 1, w - 1);
img1.DispObj(HWindowX2);
HWindowX2.SetColor('red');
HWindowX2.SetTposition(10, 10);
HWindowX2.WriteString('MirrorImage - row');
img1 := img.MirrorImage('column');
HWindowX3.SetPart(0, 0, h - 1, w - 1);
HWindowX3.SetColor('white');
img1.DispObj(HWindowX3);
HWindowX3.SetColor('red');
HWindowX3.SetTposition(10, 10);
HWindowX3.WriteString('MirrorImage - column');
img1 := img.MirrorImage('main');
HWindowX4.SetPart(0, 0, h - 1, w - 1);
HWindowX4.SetColor('white');
img1.DispObj(HWindowX4);
HWindowX4.SetColor('red');
HWindowX4.SetTposition(10, 10);
HWindowX4.WriteString('MirrorImage - main');
end;
相关文章推荐
- zw版【转发·台湾nvp系列Delphi例程】HALCON MoveRectangle2
- zw版【转发·台湾nvp系列Delphi例程】HALCON MoveRectangle
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetIcon1
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetIcon2
- zw版【转发·台湾nvp系列Delphi例程】HALCON DispArc
- zw版【转发·台湾nvp系列Delphi例程】HALCON HSerializedItem
- zw版【转发·台湾nvp系列Delphi例程】HALCON union1
- zw版【转发·台湾nvp系列Delphi例程】HALCON SqrtImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON SubImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetWindowExtent
- zw版【转发·台湾nvp系列Delphi例程】HALCON TestSubsetRegio
- zw版【转发·台湾nvp系列Delphi例程】HALCON ClipRegion
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetMshape
- zw版【转发·台湾nvp系列Delphi例程】HALCON SmoothImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON SelectObj
- zw版【转发·台湾nvp系列例程】HALCON EquHistoImage(Delphi)
- zw版【转发·台湾nvp系列例程】HALCON ShapeTrans(Delphi)
- zw版【转发·台湾nvp系列例程】HALCON MirrorRegion (Delphi)
- zw版【转发·台湾nvp系列例程】halcon与delphi系列例程
- zw版·全程图解Halcon控件安装(delphi2007版)