paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed events of TQtCalendar. issue #27125

Browse Source 
git-svn-id: trunk@47080 -
This commit is contained in:
zeljko 2014-12-04 08:12:18 +00:00
parent 00ec38b2e0
commit ab1a88f474
1 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/interfaces/qt/qtwidgets.pas
View File

@ -16726,29 +16726,17 @@ var
Msg: TLMessage;
ADate: QDateH;
HasChanges: Boolean;
TempYear, TempMonth: Integer;
begin
{$IFDEF VerboseQt}
writeln('TQtCalendar.SignalCurrentPageChanged p1=',p1,' p2=',p2);
writeln('TQtCalendar.SignalCurrentPageChanged p1=',p1,' p2=',p2,' AMonth=',AMonth,' AYear=',AYear);
{$ENDIF}
if InUpdate then
exit;
TempYear := AYear;
TempMonth := AMonth;
FillChar(Msg{%H-}, SizeOf(Msg), #0);
HasChanges := (AYear <> p1) or (AMonth <> p2);
if AYear <> p1 then
begin
Msg.Msg := LM_YEARCHANGED;
DeliverMessage(Msg);
Msg.Msg := LM_CHANGED;
DeliverMessage(Msg);
end;
if AMonth <> p2 then
begin
Msg.Msg := LM_MONTHCHANGED;
DeliverMessage(Msg);
Msg.Msg := LM_CHANGED;
DeliverMessage(Msg);
end;
HasChanges := (TempYear <> p1) or (TempMonth <> p2);
if HasChanges then
begin
@ -16761,6 +16749,24 @@ begin
QDate_destroy(ADate);
end;
end;
if TempYear <> p1 then
begin
Msg.Msg := LM_YEARCHANGED;
DeliverMessage(Msg);
end;
if TempMonth <> p2 then
begin
Msg.Msg := LM_MONTHCHANGED;
DeliverMessage(Msg);
end;
if HasChanges then
begin
Msg.Msg := LM_CHANGED;
DeliverMessage(Msg);
end;
end;
{ TQtHintWindow }