Altium Designer 脚本之取得按钮属性

zfaidz

如果你不打算写脚本，那么下面的东西你不用看了。


通过正面的脚本，可以得到按钮或者菜单的属性信息，包括标题、描述、图像文件名等等。
文件1     ProcessInfo.pas

1. Interface
   
2. Type
   
3.          TForm = Class
   
4.                  RichEdit : TRichEdit;
   
5.                  Edit : TEdit;
   
6.                  Button : TButton;
   
7. End;
   
8. 
   
9. Var
   
10.              TForm1 : TForm;
    
11. 
    
12. 
    
13. procedure TForm1.ButtonClick(Sender: TObject);
    
14. Var
    
15.              guiManager : IGUIManager;
    
16.              processInfo : IProcessLauncherInfo;
    
17.              imgFile : WideString;
    
18. begin
    
19.              If Edit.Text = \\\'\\\' Then Edit.Text := \\\'Sch:PlacePort\\\';
    
20.              guiManager := Client.GUIManager;
    
21.              processInfo := guiManager.GetActivePLByCommand(\\\'SCH\\\',Edit.Text,\\\'\\\');
    
22.              imgFile := processInfo.GetImageFile;
    
23. 
    
24.              RichEdit.Text := \\\'Process: \\\' + Edit.Text + + #13 +
    
25.                               \\\'Caption: \\\' + processInfo.GetCaption + #13 +
    
26.                               \\\'Description: \\\' + processInfo.GetDescription + #13 +
    
27.                               \\\'Image File: \\\' + imgFile;
    
28. end;
    
29. 
    
30. 
    
31. procedure TForm1.Form1Create(Sender: TObject);
    
32. begin
    
33.              RichEdit.Text := \\\'\\\';
    
34. end;

复制代码

文件2     ProcessInfo.dfm

1. object Form1: TForm1
   
2.   Left = 0
   
3.   Top = 0
   
4.   BorderStyle = bsDialog
   
5.   Caption = \\\'Form1\\\'
   
6.   ClientHeight = 240
   
7.   ClientWidth = 640
   
8.   Color = clBtnFace
   
9.   Font.Charset = DEFAULT_CHARSET
   
10.   Font.Color = clWindowText
    
11.   Font.Height = -11
    
12.   Font.Name = \\\'Tahoma\\\'
    
13.   Font.Style = []
    
14.   OldCreateOrder = False
    
15.   Position = poScreenCenter
    
16.   OnCreate = Form1Create
    
17.   PixelsPerInch = 96
    
18.   TextHeight = 13
    
19.   object RichEdit: TRichEdit
    
20.     Left = 5
    
21.     Top = 8
    
22.     Width = 627
    
23.     Height = 184
    
24.     Font.Charset = GB2312_CHARSET
    
25.     Font.Color = clWindowText
    
26.     Font.Height = -11
    
27.     Font.Name = \\\'Tahoma\\\'
    
28.     Font.Style = []
    
29.     Lines.Strings = (
    
30.       \\\'RichEdit\\\')
    
31.     ParentFont = False
    
32.     TabOrder = 0
    
33.   end
    
34.   object Edit: TEdit
    
35.     Left = 5
    
36.     Top = 207
    
37.     Width = 539
    
38.     Height = 21
    
39.     TabOrder = 1
    
40.   end
    
41.   object Button: TButton
    
42.     Left = 548
    
43.     Top = 204
    
44.     Width = 75
    
45.     Height = 25
    
46.     Caption = \\\'Get\\\'
    
47.     TabOrder = 2
    
48.     OnClick = ButtonClick
    
49.   end
    
50. end

复制代码

FBY188

楼主,请详细一点讲讲使用方法,谢谢