Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / qt / 2010-12

Assertion failure in Search dialog

4 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Juha Manninen

in speedbutton.inc, line 477, there is:

---
function TCustomSpeedButton.DialogChar(var Message: TLMKey): boolean;
begin
  Result := False;
  Assert(Message.Msg = LM_SYSCHAR, '*** Warning: non LM_SYSCHAR passed to
TCustomSpeedButton.DialogChar ! ***');
  if not FShowAccelChar then Exit;
  if IsAccel(Message.CharCode, Caption) then
  begin
    Result := True;
    if GroupIndex  0 then
      SetDown(not FDown);
    Click;
  end else
    Result := inherited DialogChar(Message);
end;
---

My Lazarus is built with QT bindings. The assertion fails when I open the Search dialog (Ctrl-F) and then press for example Enter or Ctrl-C. Message.Msg is LM_CHAR (258) instead of LM_SYSCHAR (262). With GTK2 bindings it works ok.

Does this indicate a real error or is the assertion wrong? Somebody please fix or remove it.

Juha

Reply by email

zeljko
to Den Jean
Den Jean wrote
On Tuesday 21 December 2010 12:58:12 Juha Manninen wrote: > Assert(Message.Msg = LM_SYSCHAR, '*** Warning: non LM_SYSCHAR passed to FYI,was able to reproduce it,Zeljko ? :-)

How to reproduce (currently can test only 32bit) ?

z.

Reply by email

Den Jean
to zeljko
zeljko wrote
How to reproduce (currently can test only 32bit) ?

I reproduced on latest svn, 32 bit, linux
compile lazarus with
make PREFIX=/usr clean all LCL_PLATFORM=qt OPT="-gl -Sa"

Reply by email