lazarus 1.0.10 安装 kol-ce-2.80.3 成功

yangzhouint

lazarus 1.0.10 安装 kol-ce-2.80.3 成功 修改内容如下：
只是安装成功使用怎么样还没有测试！安装成功的顶一个啊

GetLookupRootForComponent 的问题在PropEditUtils.pas. 文件里
和mckToolbarEditor.pas in line 23增加 Buttons, PropEdits, PropEditUtils
和 mckMenuEditor.pas in line 23增加 PropEdits, PropEditUtils
mirror 单元 SourceEditorWindow 改 SourceEditorManagerIntf
3776 行
直接改函数
function GetSourceEditorInterface(const Path: String): TSourceEditorInterface;
var
  i: longint;
begin
   if SourceEditorManagerIntf <> nil then begin
     for i:=0 to SourceEditorManagerIntf.SourceWindowCount - 1 do
       //if AnsiCompareText(SourceEditorManagerIntf.SourceEditors.GetProjectFile.Filename, Path) = 0 then begin
     if AnsiCompareText(SourceEditorManagerIntf.SourceEditors.GetProjectFile.Filename, Path) = 0 then begin
             Result:=SourceEditorManagerIntf.SourceEditors;
        exit;
      end;
   end;
   Result:=nil;
end;  

15687行左右改
          //S := SourceEditorWindow.ActiveEditor.FileName;
          S := SourceEditorManagerIntf.ActiveEditor.FileName;

tony_caofeng

按楼主的修改，但还是报错，不知道是怎么回事

求解，谢谢

tony_caofeng

lazarus ide v1.0.10

bacycle

我也是遇到这个问题，看来得换lazarus的版本了，版本太高不是好事。

xchen_lz1995

我都搞了半天，原来在这，谢谢

xchen_lz1995

GetSourceEditorInterface函数我这里要改成：
function GetSourceEditorInterface(const Path: String): TSourceEditorInterface;
var
  i: longint;
begin
   if SourceEditorManagerIntf <> nil then begin
     for i:=0 to SourceEditorManagerIntf.SourceWindowCount - 1 do
       //if AnsiCompareText(SourceEditorManagerIntf.SourceEditors.GetProjectFile.Filename, Path) = 0 then begin
     if AnsiCompareText(SourceEditorManagerIntf.SourceEditors[i].GetProjectFile.Filename, Path) = 0 then begin
             Result:=SourceEditorManagerIntf.SourceEditors[i];
        exit;
      end;
   end;
   Result:=nil;
end;  

tigerA15

KOL是个好东西，不知道KOL的APP在lazarus的fpc编译器下是不是也可以做到tiny到极限。。。