upluginutils.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

{
+------------------------------------------------------------------------------+
| This is a simple plugin wrapper class.  It only provides one function at the |
| moment but that one function is enough to do a whole lot of things with.     |
+------------------------------------------------------------------------------+
| Function:                                                                    |
+------------------------------------------------------------------------------+
| GetSelDoc - No parameters are required.  Returns the selected document on    |
| the cEdit window if there is one as a TFrmDoc.  With this you can get text,  |
| add text, modify text, etc.  Treat it just like it is in cEdit itself and    |
| your adding code to do something in cEdit.                                   |
+------------------------------------------------------------------------------+

}
unit uPluginUtils;

interface

uses    Windows,
   Messages,

   SysUtils,

   Classes,

   Dialogs,

   Forms,

   uPlugin,

   fDoc,

   fMain,

   dMain,

   synedit;

type
  TGetSelDoc=function:TfrmDoc;
  function GetSelDoc: TfrmDoc;
type
  TSetLang=function:TdmMain;
  procedure SetLang;
implementation

procedure SetLang;
var
  frm: TdmMain;
begin

{  frm:=TdmMain(TGetDM (GetProcAddress(Application.Handle,'GetDM')));
  if frm <> nil then
    GetDM := frm
  else
    frm := nil;}
end;


function GetSelDoc: TfrmDoc;
var
  frm: TFrmDoc;
begin

  frm:=TFrmDoc(TGetSelDoc (GetProcAddress(Application.Handle,'GetDoc')));
  if frm <> nil then
    GetSelDoc := frm
  else
    frm := GetSelDoc;
end;
end.