?? demo1unit.pas
字號:
// PL/SQL Developer Plug-In demo
// Copyright 1999 Allround Automations
// support@allroundautomations.nl
// http://www.allroundautomations.nl
// This demo shows an elementary interface
unit Demo1Unit;
interface
uses
Windows, Dialogs;
var
PlugInID: Integer;
const // Description of this Plug-In (as displayed in Plug-In configuration dialog)
Desc = 'Delphi Plug-In demo 1';
implementation
// Plug-In identification, a unique identifier is received and
// the description is returned
function IdentifyPlugIn(ID: Integer): PChar; cdecl;
begin
PlugInID := ID;
Result := Desc;
end;
// Creating a menu item
function CreateMenuItem(Index: Integer): PChar; cdecl;
begin
Result := '';
case Index of
1 : Result := 'Tools / &Plug-In 1 Demo...';
end;
end;
// The menu item got selected
procedure OnMenuClick(Index: Integer); cdecl;
begin
case Index of
1 : ShowMessage('Hello');
end;
end;
exports // The three basic export functions
IdentifyPlugIn,
CreateMenuItem,
OnMenuClick;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -