unit1.pas

电气控制仿真软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, OleCtrls, vgctrl40_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    Button1: TButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    vgctrl1: Tvgctrl;
    vgctrl2: Tvgctrl;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  vgctrl2.Run('');
  vgctrl2.LoadFromBuffer( Memo1.Lines.Text );
  vgctrl2.Library_ := true;
  vgctrl1.Design('');
  vgctrl1.BackColor := clBtnFace;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  vgctrl1.NewUnit( 'Edit', 1 );
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  vgctrl1.NewUnit( 'Button', 1 );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet1 : ISheet;
  i, n : Integer;
  d : IUnit;
begin
  while( Form2.ComponentCount > 0 )do
    Form2.Components[0].Free;
  Sheet1 := ISheet( vgctrl1.ActiveSheet );
  n := Sheet1.UnitCount;
  for i := 0 to n - 1 do
  begin
    d := IUnit( Sheet1.Units[i] );
    if d.Type_ = 'Button' then
    begin
      with TButton.Create( Form2 ) do
      begin
        Parent := Form2;
        Caption := d.GetPropertyValue( 'Label.Text' );
        Left := round( d.Left );
        Top := round( d.Top );
        Width := round( d.Width );
        Height := round( d.Height );
      end;
    end
    else if d.Type_ = 'Edit' then
    begin
      with TEdit.Create( Form2 ) do
      begin
        Parent := Form2;
        Text := d.GetPropertyValue( 'Label.Text' );
        Left := round( d.Left );
        Top := round( d.Top );
        Width := round( d.Width );
        Height := round( d.Height );
      end;
    end
    else if d.Type_ = 'CheckBox' then
    begin
      with TCheckBox.Create( Form2 ) do
      begin
        Parent := Form2;
        Caption := d.GetPropertyValue( 'Label.Text' );
        Left := round( d.Left );
        Top := round( d.Top );
        Width := round( d.Width );
        Height := round( d.Height );
      end;
    end
    else if d.Type_ = 'RadioButton' then
    begin
      with TRadioButton.Create( Form2 ) do
      begin
        Parent := Form2;
        Caption := d.GetPropertyValue( 'Label.Text' );
        Left := round( d.Left );
        Top := round( d.Top );
        Width := round( d.Width );
        Height := round( d.Height );
      end;
    end;
  end;
  Form2.ShowModal;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  vgctrl1.NewUnit( 'CheckBox', 1 );
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  vgctrl1.NewUnit( 'RadioButton', 1 );
end;

end.