paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

remove csCaptureMouse from TCustomCalendar

Browse Source 
git-svn-id: trunk@14221 -
This commit is contained in:
paul 2008-02-21 09:48:20 +00:00
parent 27d0c29fb7
commit a3704dd28e
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/calendar.pp
View File

@ -150,7 +150,7 @@ begin
fCompStyle := csCalendar;
SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
fDisplaySettings := [dsShowHeadings, dsShowDayNames];
ControlStyle:=ControlStyle-[csTripleClicks,csQuadClicks,csAcceptsControls];
ControlStyle:=ControlStyle-[csTripleClicks,csQuadClicks,csAcceptsControls,csCaptureMouse];
DateTime := Now;
end;

2
lcl/interfaces/qt/qtobject.inc
View File

@ -265,7 +265,7 @@ begin
begin
// remove tab from focus policy
{$ifdef VerboseTabbedControls}
WriteLn('found Taabed widget ', PtrInt(Sender));
WriteLn('found Taabed widget ', PtrUInt(Sender));
{$endif}
QWidget_setFocusPolicy(QWidgetH(Sender), QtClickFocus);
if FOldFocusWidget <> nil then

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

@ -324,6 +324,7 @@ type
end;
{ TQtViewPort }
TQtViewPort = class(TQtWidget)
public
function getClientBounds: TRect; override;
@ -7337,8 +7338,7 @@ begin
y := QDate_year(ADate);
m := QDate_month(ADate);
d := QDate_day(ADate);
if (y <> aYear) or (m <> aMonth)
or (d <> aDay) then
if (y <> aYear) or (m <> aMonth) or (d <> aDay) then
DeliverMessage(Msg);
end;
@ -7351,9 +7351,9 @@ end;
procedure TQtCalendar.SignalClicked(ADate: QDateH); cdecl;
var
Msg: TLMessage;
y,m,d: Integer;
y, m, d: Integer;
begin
// writeln('TQtCalendar.signalClicked');
//writeln('TQtCalendar.signalClicked');
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_DAYCHANGED;
y := QDate_year(ADate);