paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 08:50:25 +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; fCompStyle := csCalendar;
SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y); SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
fDisplaySettings := [dsShowHeadings, dsShowDayNames]; fDisplaySettings := [dsShowHeadings, dsShowDayNames];
ControlStyle:=ControlStyle-[csTripleClicks,csQuadClicks,csAcceptsControls]; ControlStyle:=ControlStyle-[csTripleClicks,csQuadClicks,csAcceptsControls,csCaptureMouse];
DateTime := Now; DateTime := Now;
end; end;

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

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

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

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