Hi all,
I'm writing here after a lot of self test and internet research.
I just updated my Lazarus to 1.8, installed again RichMemo package and tried to run my project which was perfectly working before.
Now, when the code tries to use RichMemo.GetTextAttributes it hang with the error:
Exception Class 'External: ?'This is the piece of code where it stops:
procedure TForm1.OnLinkAction(Sender: TObject; AAction: TLinkAction;
const AMouseInfo: TLinkMouseInfo; StartChar, LenChars: Integer);
var
FP : TFontParams;
begin
if AMouseInfo.button = mbLeft then
begin
RichMemo1.GetTextAttributes(StartChar, FP); <-- THIS IS THE LINE WHERE IT STOPS
FP.BkColor := clYellow;
FP.HasBkClr := True;
RichMemo1.SetTextAttributes(StartChar, LenChars, FP);
RichMemo1.SelStart := 0;
iChN := StrToInt(RichMemo1.GetText(StartChar + 4, LenChars - 4));
Form4.ShowModal;
end;
end;
I tried to uninstall and reinstall Lazarus and also RichMemo but no way.
Shall I go back to previous Lazarus version or is there anything wrong in the code?
Thanks for any help!