秋·风

  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 :: 管理 ::
有网友反馈:
在龙芯+深度 25社区版(龙芯新世界)Lazarus安装lazreport的lr_dialogdesign.lpk控件后Lazarus程序无法启动,在终端运行提示:

QQ_1765358933600

经跟踪排查发现是lazarus/components/lazreport/source/addons/DialogControls/lrformstorage.pas这行引起的:
lrFormStorageEditorForm:=TlrFormStorageEditorForm.Create(nil);
官方未修复前暂时按下面的方法处理。
打开lrformstorage.pas这个文件,找到 procedure InitLRComp;按红色代码修改。
修改后重新编译安排这个控件,编译后lazarus就能正常使用。

procedure InitLRComp;
begin
  {$ifdef CPULOONGARCH64}
  lrFormStorageEditorForm:=nil;
  {$else}
  lrFormStorageEditorForm:=TlrFormStorageEditorForm.Create(nil);
  {$endif}
  if not assigned(lrBMP_LRFormStorage) then
  begin
    lrBMP_LRFormStorage := TbitMap.Create;
    lrBMP_LRFormStorage.LoadFromResourceName(HInstance, 'TLRFormStorage');
    frRegisterObject(TLRFormStorage, lrBMP_LRFormStorage, 'TLRFormStorage', lrFormStorageEditorForm, otlUIControl, nil);
  end;

end;

{ TLRFormStorage }

procedure TLRFormStorage.SetStoredProperties(AValue: TStringList);
begin
  FStoredProperties.Assign(AValue);
end;

procedure TLRFormStorage.ShowEditorForm(Sender: TObject);
begin
   lrFormStorageEditorForm.ShowEditor(Self);
end;

 

posted on 2025-12-10 17:38  秋·风  阅读(8)  评论(0)    收藏  举报