paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:00:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: verbose more events

Browse Source 
git-svn-id: trunk@11630 -
This commit is contained in:
paul 2007-07-26 04:07:26 +00:00
parent 9f4c0ddb00
commit 1a37706364
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -901,6 +901,11 @@ end;
{$IFDEF VerboseQt}
function EventTypeToStr(Event:QEventH):string;
// Qt 3 events
const
QEventChildInsertedRequest = 67;
QEventChildInserted = 70;
QEventLayoutHint = 72;
begin
case QEvent_type(Event) of
QEventNone: result:='QEventNone';
@ -949,8 +954,11 @@ begin
QEventDragLeave: result:='QEventDragLeave';
QEventDrop: result:='QEventDrop';
QEventDragResponse: result:='QEventDragResponse';
QEventChildInsertedRequest: result:='(Qt3) QEventChildAdded'; //qt3
QEventChildAdded: result:='QEventChildAdded';
QEventChildPolished: result:='QEventChildPolished';
QEventChildInserted: result:='(Qt3) QEventChildAdded'; // qt3
QEventLayoutHint: result:='(Qt3) QEventChildAdded'; // qt3
QEventChildRemoved: result:='QEventChildRemoved';
QEventShowWindowRequest: result:='QEventShowWindowRequest';
QEventPolishRequest: result:='QEventPolishRequest';
@ -1010,6 +1018,10 @@ begin
QEventAcceptDropsChange: result:='QEventAcceptDropsChange';
QEventMenubarUpdated: result:='QEventMenubarUpdated';
QEventZeroTimerEvent: result:='QEventZeroTimerEvent';
QEventNonClientAreaMouseMove: result:='QEventNonClientAreaMouseMove';
QEventNonClientAreaMouseButtonPress: result:='QEventNonClientAreaMouseButtonPress';
QEventNonClientAreaMouseButtonRelease: result:='QEventNonClientAreaMouseButtonRelease';
QEventNonClientAreaMouseButtonDblClick: result:='QEventNonClientAreaMouseButtonDblClick';
QEventUser: result:='QEventUser';
QEventMaxUser: result:='QEventMaxUser';
else
@ -1692,21 +1704,8 @@ begin
end;
function TQtWidget.getClientBounds: TRect;
{var
Container: QWidgetH;
R: TRect;}
begin
QWidget_contentsRect(Widget, @Result);
{ Container := GetContainerWidget;
if Container <> Widget then
begin
QWidget_contentsRect(Container, @R);
inc(Result.Top, R.Top);
inc(Result.Left, R.Left);
dec(Result.Right, R.Right);
dec(Result.Bottom, R.Bottom);
OffsetRect(Result, R.Left, R.Top);
end;}
end;
function TQtWidget.hasFocus: Boolean;
@ -2476,7 +2475,7 @@ begin
end;
if FCentralWidget <> nil then
QMainWindow_setCentralWidget(QMainWindowH(Result), FCentralWidget);
QMainWindow_setCentralWidget(QMainWindowH(Result), FCentralWidget);
if not (csDesigning in LCLObject.ComponentState) then
QMainWindow_setDockOptions(QMainWindowH(Result), QMainWindowAnimatedDocks);