Kódszerkesztő

A mellékelt példaprogram használatához a SourceEditor.dpk Package állomány tartalmát telepítenie kell.
Delphi 5 feletti verziók használata esetében a Package fordítása hibát fog okozni, hiányzó unit-ok miatt. A fordításhoz szükséges unit-ok megtalálhatóak a delphiX\Source\ToolsAPI könyvtárban.

Hasonlóan az előző részekhez, most is szükségünk van egy DataModule-ra és egy Form-ra. Ne feledkezzünk meg arról, hogy nem használhatunk olyan unit és objektum neveket, amelyeket az előző részekben.

Minden egyes megnyitott állományhoz külön kódszerkesztő tartozik.

Az IOTASourceEditor interfész eléréséhez elkészítettük a GetEditor függvényt.

function GetEditor: IOTASourceEditor;

Az interfész eléréséhez több lépés szükséges.

Hozzá kell férnünk az IOTAModuleServices interfészhez.

ModuleServices:=BorlandIDEServices as IOTAModuleServices;

Ezután az aktuális állomány modulját kell lekérdeznünk.

Module:=ModuleServices.CurrentModule;

Végül az IOTAEditor osztályon keresztül el tudjuk érni az IOTASourceEditor-t.

for i:=0 to Module.GetModuleFileCount-1 do begin
  Intf:=Module.GetModuleFileEditor(i);
  if Intf.QueryInterface(IOTASourceEditor,Result)=S_OK then
    Break;
end;