Переношу проект DELPHI7 в Lazarus.
Компиляция и сборка проходит, а при запуске идет сбой;
"Project Project2 raised exception clss ‘External:SIGSEGV’.
in file \include\control.inc’ at line 3271"
Видимо не хватает пакетов.
Не подскажете какого?
Модератор: Модераторы
видимо у вас в коде (или в форме) что то специфичное, а не пакета не хватает.in file \include\control.inc’ at line 3271"
procedure TControl.WMLButtonDown(var Message: TLMLButtonDown);
begin // <<------ это 3271 строка
if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then
begin
{$IFDEF VerboseMouseCapture}
DebugLn('TControl.WMLButtonDown ',Name,':',ClassName);
{$ENDIF}
MouseCapture := True;
end;
if csClickEvents in ControlStyle then Include(FControlState, csClicked);
DoMouseDown(Message, mbLeft, []);
//DebugLn('TCONTROL WMLBUTTONDOWN B ',Name,':',ClassName);
end;
Сейчас этот форум просматривают: MailRu[bot], Yandex [Bot] и гости: 86