TSynEdit crashes when loading text

Forum > LCL

(1/2) > >>

domasz:
When I click this button twice the program crashes. Might be something with highlighters (TSynMultiSyn, TSynPHPSyn, TSynHTMLSyn).

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.Button1Click(Sender: TObject);var Str: String; L: TStringList;begin L := TStringList.Create; L.LoadFromFile('test.htm'); Str := L.Text; L.Free; SynEdit1.Text:=Str; //crashesend;

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- object SynMultiSyn1: TSynMultiSyn Enabled = False Schemes = < item StartExpr = '<style>' EndExpr = '</style>' Highlighter = SynCssSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = 16744448 end item StartExpr = '<\?php' EndExpr = '\?>' Highlighter = SynPHPSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = 16512 end> DefaultHighlighter = SynHTMLSyn1 Left = 592 Top = 40 end
Attached is super simple demo.

Martin_fr:
I can reproduce...

It seems something in the Multi-HL. Not sure yet

Martin_fr:
Ideally report on the bug tracker please

domasz:

--- Quote from: Martin_fr on June 01, 2023, 08:30:46 pm ---Ideally report on the bug tracker please

--- End quote ---
Not sure if I did it right. Don't know how to post files there.
https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/40292

Martin_fr:
ok, thanks

Navigation

[0] Message Index

[#] Next page