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

Qt: added TQtWidget.WinIDNeeded,trial for fix. part of

Browse Source 
git-svn-id: trunk@62949 -
This commit is contained in:
zeljko 2020-04-11 19:37:19 +00:00
parent f1add4d1d5
commit 8e1d2ca2e9
1 changed files with 30 additions and 6 deletions

36
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -180,6 +180,7 @@ type
procedure Release; override;
procedure Destroyed; cdecl; override;
public
function WinIDNeeded: boolean; virtual;
function CanAdjustClientRectOnResize: Boolean; virtual;
function CanChangeFontColor: Boolean; virtual;
function CanSendLCLMessage: Boolean;
@ -707,6 +708,7 @@ type
property IsFrameWindow: Boolean read FIsFrameWindow write FIsFrameWindow; {check if our LCLObject is TCustomFrame}
property ShowOnTaskBar: Boolean read FShowOnTaskBar;
public
function WinIDNeeded: boolean; override;
procedure AttachEvents; override;
procedure DetachEvents; override;
function CWEventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
@ -720,6 +722,7 @@ type
protected
function CreateWidget(const AParams: TCreateParams): QWidgetH; override;
public
function WinIDNeeded: boolean; override;
procedure InitializeWidget; override;
procedure DeInitializeWidget; override;
function CanPaintBackground: Boolean; override;
@ -2283,6 +2286,11 @@ begin
Release;
end;
function TQtWidget.WinIDNeeded: boolean;
begin
Result := False;
end;
{------------------------------------------------------------------------------
Function: TQtWidget.CanAdjustClientRectOnResize
Params: None
@ -4502,7 +4510,7 @@ end;
Changes the color of a widget
------------------------------------------------------------------------------}
procedure TQtWidget.SetColor(const Value: PQColor);
procedure TQtWidget.setColor(const Value: PQColor);
begin
Palette.setColor(Value);
end;
@ -4524,12 +4532,12 @@ end;
Changes the text color of a widget
------------------------------------------------------------------------------}
procedure TQtWidget.SetTextColor(const Value: PQColor);
procedure TQtWidget.setTextColor(const Value: PQColor);
begin
Palette.setTextColor(Value);
end;
procedure TQtWidget.SetCursor(const ACursor: QCursorH);
procedure TQtWidget.setCursor(const ACursor: QCursorH);
begin
{$IFDEF DARWIN}
if not QWidget_isVisible(Widget) then
@ -4673,7 +4681,7 @@ begin
Result := QWidget_layoutDirection(Widget);
end;
function TQtWidget.getVisible: boolean;
function TQtWidget.getVisible: Boolean;
begin
if Widget = nil then
exit(False);
@ -5659,12 +5667,12 @@ begin
Result := E_NOINTERFACE;
end;
function TQtWidget._AddRef: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
function TQtWidget._AddRef: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1; // no ref counting
end;
function TQtWidget._Release: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
function TQtWidget._Release: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;
@ -8225,6 +8233,17 @@ begin
UpdateParent;
end;
function TQtMainWindow.WinIDNeeded: boolean;
begin
Result := False;
{$IFDEF HASX11}
if Assigned(LCLObject) and not IsFormDesign(LCLObject) and
not IsMdiChild and (LCLObject.Parent = nil) and not testAttribute(QtWA_Mapped) and
QWidget_isTopLevel(Widget) then
Result := True;
{$ENDIF}
end;
procedure TQtMainWindow.AttachEvents;
begin
inherited AttachEvents;
@ -18452,6 +18471,11 @@ begin
{$ENDIF}
end;
function TQtHintWindow.WinIDNeeded: boolean;
begin
Result := False;
end;
procedure TQtHintWindow.InitializeWidget;
begin
inherited InitializeWidget;