Merge pull request #25924 from zspitz/activex-access

activex-access: Microsoft Access Automation definitions

types/activex-access/activex-access-tests.ts

@@ -1,3 +1,5 @@
+/// <reference types="windows-script-host" />
+
 let app = new ActiveXObject('Access.Application');
 app.UserControl = true;
 
@@ -6,7 +8,7 @@ app.DoCmd.OpenForm('MyForm', Access.AcFormView.acNormal, '', 'LastName="Smith"')
 
 // change the contents of a textbox
 // tslint:disable-next-line:no-unnecessary-type-assertion
-let textbox = app.Forms.Item('MyForm').Controls.Item('MyTextBox') as Access.TextBox;
+let textbox = app.Forms('MyForm').Controls('MyTextBox') as Access.TextBox;
 textbox.Text = 'Not Smith';
 
 // save the current record on the active form

types/activex-access/tslint.json

@@ -1,6 +1,7 @@
 {
     "extends": "dtslint/dt.json",
     "rules": {
-        "no-const-enum": false
+        "no-const-enum": false,
+        "max-line-length": false
     }
 }

types/activex-stdole/index.d.ts

@@ -7,14 +7,20 @@
 /// <reference types="activex-interop" />
 
 declare namespace stdole {
+    type IFontDisp = StdFont;
+
     type IPictureDisp = StdPicture;
 
     type OLE_COLOR = number;
 
     type OLE_XPOS_CONTAINER = number;
 
+    type OLE_XPOS_PIXELS = number;
+
     type OLE_YPOS_CONTAINER = number;
 
+    type OLE_YPOS_PIXELS = number;
+
     const enum LoadPictureConstants {
         Color = 4,
         Default = 0,