kamyar_kimiyabeigi
یک شنبه 18 اردیبهشت 1384, 18:47 عصر
procedure TForm1.Button1Click(Sender: TObject);
var
node: INode;
pic: IPictureDisp;
begin
node := AddFlow1.Nodes.Add(100, 100, 800, 1000);
GetOlePicture(Image1.Picture, pic);
node.Picture := pic;
node.DrawStyle := afTransparent;
node.Text := 'Test';
end;
var
node: INode;
pic: IPictureDisp;
begin
node := AddFlow1.Nodes.Add(100, 100, 800, 1000);
GetOlePicture(Image1.Picture, pic);
node.Picture := pic;
node.DrawStyle := afTransparent;
node.Text := 'Test';
end;