unit1.pas

电气控制仿真软件

end;

procedure TForm1.SpeedButton19Click(Sender: TObject);
var
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  IGroup( Sheet1.Selection ).Align( 5 );
//等价于下面的程序
//  vgctrl3.Execute( 'Selection.Align( 5 )' );

end;

procedure TForm1.SpeedButton20Click(Sender: TObject);
var
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  IGroup( Sheet1.Selection ).BringToFront( true );
//等价于下面的程序
//  vgctrl3.Execute( 'Selection.BringToFront( true )' );

end;

procedure TForm1.SpeedButton21Click(Sender: TObject);
var
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  IGroup( Sheet1.Selection ).SendToBack(true);
//等价于下面的程序
//  vgctrl3.Execute( 'Selection.SendToBack(true)' );

end;

procedure TForm1.SpeedButton22Click(Sender: TObject);
var
  Page : IPage;
begin
  Page := IPage( vgctrl3.Page );
  Page.Visible := not Page.Visible;
//等价于下面的程序
//  vgctrl3.Execute( 'Page.Visible = not Page.Visible' );

end;

procedure TForm1.SpeedButton23Click(Sender: TObject);
begin

  vgctrl3.ZoomIn;
//等价于下面的程序
//  vgctrl3.Execute( 'ZoomIn()' );

end;

procedure TForm1.SpeedButton24Click(Sender: TObject);
begin

  vgctrl3.ZoomOut;
//等价于下面的程序
//  vgctrl3.Execute( 'ZoomOut()' );

end;

procedure TForm1.SpeedButton25Click(Sender: TObject);
begin

  vgctrl3.ZoomFit;
//等价于下面的程序
//  vgctrl3.Execute( 'ZoomFit()' );

end;

procedure TForm1.SpeedButton26Click(Sender: TObject);
begin

  vgctrl3.ZoomFitWidth;
//等价于下面的程序
//  vgctrl3.Execute( 'ZoomFitWidth()' );

end;

procedure TForm1.SpeedButton27Click(Sender: TObject);
begin

  vgctrl3.MoveSheet;
//等价于下面的程序
//  vgctrl3.Execute( 'MoveSheet()' );

end;

procedure TForm1.SpeedButton28Click(Sender: TObject);
begin

  vgctrl3.SetProperty;
//等价于下面的程序
//  vgctrl3.Execute( 'SetProperty()' );

end;

procedure TForm1.SpeedButton30Click(Sender: TObject);
begin

  vgctrl3.SplitText;
//等价于下面的程序
//  vgctrl3.Execute( 'SplitText()' );

end;

procedure TForm1.SpeedButton31Click(Sender: TObject);
begin

  vgctrl3.Edit;
//等价于下面的程序
//  vgctrl3.Execute( 'Edit()' );

end;

procedure TForm1.SpeedButton32Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Shape', 0 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Shape", 0 )' );

end;

procedure TForm1.SpeedButton33Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Shape', 1 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Shape", 1 )' );

end;

procedure TForm1.SpeedButton34Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 0 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 0 )' );

end;

procedure TForm1.SpeedButton35Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 1 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 1 )' );

end;

procedure TForm1.SpeedButton36Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 2 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 2 )' );

end;

procedure TForm1.SpeedButton37Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 3 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 3 )' );

end;

procedure TForm1.SpeedButton39Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 4 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 4 )' );

end;

procedure TForm1.SpeedButton38Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Text', 0 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Text", 0 )' );

end;

procedure TForm1.SpeedButton40Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Shape', 2 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Shape", 2 )' );

end;

procedure TForm1.SpeedButton41Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Shape', 3 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Shape", 3 )' );

end;

procedure TForm1.SpeedButton42Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 9 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 9 )' );

end;

procedure TForm1.SpeedButton45Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 5 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 5 )' );

end;

procedure TForm1.SpeedButton46Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 7 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 7 )' );

end;

procedure TForm1.SpeedButton47Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 6 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 6 )' );

end;

procedure TForm1.SpeedButton48Click(Sender: TObject);
begin

  vgctrl3.NewUnit( 'Line', 8 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewUnit( "Line", 8 )' );

end;

procedure TForm1.SpeedButton49Click(Sender: TObject);
begin

  vgctrl3.NewTable( 5, 8 );
//等价于下面的程序
//  vgctrl3.Execute( 'NewTable( 5, 8 )' );

end;

procedure TForm1.SpeedButton50Click(Sender: TObject);
var
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  IGroup( Sheet1.Selection ).Locked := not IGroup( Sheet1.Selection ).Locked;
//等价于下面的程序
//  vgctrl3.Execute( 'Selection.Locked = not Selection.Locked' );

end;

procedure TForm1.SpeedButton52Click(Sender: TObject);
begin
  vgctrl3.Execute( 'SystemParams.ShowInvisible = not SystemParams.ShowInvisible;Refresh()' );
end;

procedure TForm1.SpeedButton53Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.FontBold := not b.FontBold;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.FontBold = not d.FontBold; end if; i = i + 1; wend' );
end;

procedure TForm1.SpeedButton54Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.FontItalic := not b.FontItalic;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.FontItalic = not d.FontItalic; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton55Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      if b.FontUnderline > 0 then
        b.FontUnderline := 0
      else
        b.FontUnderline := 1;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; if d.FontUnderline > 0 then; d.FontUnderline = 0; else; d.FontUnderline = 1; end if; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton56Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) div 3 ) * 3 + 1;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = int( ( d.TextAlign - 1 ) / 3 ) * 3 + 1; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton57Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) div 3 ) * 3 + 2;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = int( ( d.TextAlign - 1 ) / 3 ) * 3 + 2; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton58Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );

  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) div 3 ) * 3 + 3;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = int( ( d.TextAlign - 1 ) / 3 ) * 3 + 3; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton59Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );

  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) mod 3 ) + 1;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = Mod( d.TextAlign - 1, 3 ) + 1; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton60Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );
  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) mod 3 ) + 4;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = Mod( d.TextAlign - 1, 3 ) + 4; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton61Click(Sender: TObject);
var
  i : Integer;
  d : IUnit;
  b : IText;
  Sheet1 : ISheet;
begin
  Sheet1 := ISheet( vgctrl3.ActiveSheet );

  i := 0;
  while i < IGroup( Sheet1.Selection ).UnitCount do
  begin
    d := IUnit( IGroup( Sheet1.Selection ).Units[i] );
    if d.ClassId = 1 then
    begin
      b := IText( d );
      b.TextAlign := ( ( b.TextAlign - 1 ) mod 3 ) + 7;
    end;
    i := i + 1;
  end;
//等价于下面的程序
//  vgctrl3.Execute( 'i=0;while i < Selection.UnitCount; d = Selection.Units[i]; if d.ClassName = "Text" then; d.TextAlign = Mod( d.TextAlign - 1, 3 ) + 7; end if; i = i + 1; wend' );

end;

procedure TForm1.SpeedButton62Click(Sender: TObject);
begin

  vgctrl3.MergeText;
//等价于下面的程序
//  vgctrl3.Execute( 'MergeText()' );

end;

procedure TForm1.SpeedButton51Click(Sender: TObject);
var
  p : TPoint;
begin
  p := Point( 0, SpeedButton51.Height );
  p := SpeedButton51.ClientToScreen( p );
  PopupMenu2.Popup( p.x, p.y );
end;

procedure TForm1.N321Click(Sender: TObject);
begin
  vgctrl3.Execute( 'SystemParams.GridSize=' + IntToStr( TMenuItem(Sender).Tag ) + ';Refresh()' );
end;

procedure TForm1.N12Click(Sender: TObject);
begin
  vgctrl3.Execute( 'SystemParams.GridMode=' + IntToStr( TMenuItem(Sender).Tag ) + ';Refresh()' );
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  vgctrl3.Execute( 'SystemParams.ShowGrid=not SystemParams.ShowGrid;Refresh()' );
end;

procedure TForm1.SpeedButton63Click(Sender: TObject);
var
  p : TPoint;
begin
  p := Point( 0, SpeedButton63.Height );
  p := SpeedButton63.ClientToScreen( p );
  PopupMenu3.Popup( p.x, p.y );
end;