exedit - sample code

How do I add a keyword?

VBA (MS Access, Excell...)

With Edit1
	.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
	.Refresh 
End With

VB6

With Edit1
	.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
	.Refresh 
End With

VB.NET

With Exedit1
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
End With

VB.NET for /COM

With AxEdit1
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXEDITLib' for the library: 'ExEdit 1.0 Control Library'

	#import <ExEdit.dll>
	using namespace EXEDITLib;
*/
EXEDITLib::IEditPtr spEdit1 = GetDlgItem(IDC_EDIT1)->GetControlUnknown();
spEdit1->AddKeyword(L"<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit",vtMissing);
spEdit1->Refresh();

C++ Builder

Edit1->AddKeyword(L"<b>class</b>",TVariant("this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword."),TVariant("exontrol.edit"),TNoParam());
Edit1->Refresh();

C#

exedit1.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit",null);
exedit1.Refresh();

JavaScript

<OBJECT classid="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Edit1.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit",null);
	Edit1.Refresh();
</SCRIPT>

C# for /COM

axEdit1.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit",null);
axEdit1.Refresh();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exedit1.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit");
	exedit1.Refresh();
}

Delphi 8 (.NET only)

with AxEdit1 do
begin
	AddKeyword('<b>class</b>','this is a bit of text that''s shown when the cursor hovers the <b>class</b> keyword.','exontrol.edit',Nil);
	Refresh();
end

Delphi (standard)

with Edit1 do
begin
	AddKeyword('<b>class</b>','this is a bit of text that''s shown when the cursor hovers the <b>class</b> keyword.','exontrol.edit',Null);
	Refresh();
end

VFP

with thisform.Edit1
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh
endwith

dBASE Plus

local oEdit

oEdit = form.Activex1.nativeObject
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()

XBasic (Alpha Five)

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()

Visual Objects


oDCOCX_Exontrol1:AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit",nil)
oDCOCX_Exontrol1:Refresh()

PowerBuilder

OleObject oEdit

oEdit = ole_1.Object
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
	Send ComRefresh
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oEdit

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oEdit := XbpActiveXControl():new( oForm:drawingArea )
	oEdit:CLSID  := "Exontrol.Edit.1" /*{39136531-DD0F-4281-B445-E36FC2CDDBC5}*/
	oEdit:create(,, {10,60},{610,370} )

		oEdit:AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
		oEdit:Refresh()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN