Error: Unable to stream Form1:TForm1
lazarus / 10-Designer

----------------------------------------------------------------------
Borneq · 2013-10-04 17:40

I install my component. When I try put this component (Scintilla1:
TScintilla) to form, it is error:
Unable to stream Form1:TForm1
Access violation
Path to failed instance:
TForm1.Scintilla1

Code: [Select]constructor TScintilla.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FAccessMethod := smDirect;
  Width := 320;
  Height := 240;
  if not(csDesigning in ComponentState) then
  begin
    HandleNeeded; <-------------------------------
    SendEditor(Sci_SetCodePage, SC_CP_UTF8);
    SendEditor(SCI_SetKeysUnicode, 1);
    SendEditor(SCI_STYLESETFORE, STYLE_DEFAULT, clBlack);
    SendEditor(SCI_STYLESETBACK, STYLE_DEFAULT, clWhite);
    SendEditor(SCI_STYLESETSIZE, STYLE_DEFAULT, 10);
  end;
end;

I add  "and not (csLoading in ComponentState)" but this not helps

----------------------------------------------------------------------
BigChimp · 2013-10-04 17:55

see first link in my signature.

Thanks.

----------------------------------------------------------------------
Borneq · 2013-10-04 18:15

My Os is windows XP, Lazarus version 1.0.12. Source is on
https://github.com/borneq/ScintWrapper but fastes way (4 source files
are generated in github version) is compile fpScintilla.zip from
attached file

----------------------------------------------------------------------
Borneq · 2013-10-05 07:20

Maybe problem is because functions in class are in other file and
included? This is FreePascal error? If I include funDecl.inc to
Scintilla.pas, still error

----------------------------------------------------------------------
Borneq · 2013-10-05 14:36

I found:
error is for
published
   property Lexer: TLexer read FLexer;

where TLexer = class, if I change to TLexer = class(TPersistent) it
not helps...
Helps FLexer := TDefaultLexer.Create(self) in TScintilla.Create
also FLexerClass := TDefaultLexer
Lexer can't be null

----------------------------------------------------------------------
taazz · 2013-10-05 15:06

Do you really need it to save any properties from the lexer? if not
then make it public,

----------------------------------------------------------------------
Borneq · 2013-10-05 17:07

OK, public is enough