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

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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