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

* Fixed THintWindow visibility

Browse Source 
git-svn-id: trunk@11567 -
This commit is contained in:
zeljko 2007-07-18 10:16:41 +00:00
parent 8a25c21716
commit 8c939d81ad
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5579,7 +5579,7 @@ end;
function TQtHintWindow.CreateWidget(const AParams: TCreateParams): QWidgetH;
begin
Result := QWidget_create(nil, QtWindow);
Result := QWidget_create(nil, QtToolTip);
MenuBar := nil;
CentralWidget := nil;
LayoutWidget := nil;

3
lcl/interfaces/qt/qtwsforms.pp
View File

@ -437,9 +437,6 @@ var
QtMainWindow: TQtMainWindow;
begin
QtMainWindow := TQtHintWindow.Create(AWinControl, AParams);
QtMainWindow.setShowInTaskBar(False);
TQtWSCustomForm.SetQtWindowBorderStyle(QtMainWindow, bsNone);
TQtWSCustomForm.SetQtBorderIcons(QtMainWindow, []);
// Sets Various Events
QtMainWindow.AttachEvents;
Result := THandle(QtMainWindow);