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

LCL-QT5: Remove and cleanup recently added debug code. Issue #36773 was fixed faster than expected.

Browse Source 
git-svn-id: trunk@62719 -
This commit is contained in:
juha 2020-03-08 16:33:55 +00:00
parent 32017062e9
commit 44f5630b20
3 changed files with 7 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/qt5/qtwscontrols.pp
View File

@ -271,8 +271,7 @@ begin
end;
class procedure TQtWSWinControl.SetBiDiMode(const AWinControl : TWinControl;
UseRightToLeftAlign, UseRightToLeftReading, UseRightToLeftScrollBar : Boolean
);
UseRightToLeftAlign, UseRightToLeftReading, UseRightToLeftScrollBar : Boolean);
begin
if not WSCheckHandleAllocated(AWinControl, 'SetBiDiMode') then
Exit;
@ -308,20 +307,9 @@ begin
if not WSCheckHandleAllocated(AWincontrol, 'SetText') then
Exit;
Wdgt := TQtWidget(AWinControl.Handle);
Assert(Assigned(Wdgt), 'TQtWSWinControl.SetText: AWinControl.Handle=Nil');
try
DebugLn(['TQtWSWinControl.SetText: Widget.ClassName=', Wdgt.ClassName]);
if not QtWidgetSet.IsValidHandle(AWinControl.Handle) then
DebugLn(['TQtWSWinControl.SetText: "', Wdgt.ClassName,
'" has invalid handle=$', IntToHex(AWinControl.Handle,SizeOf(HWND)*2)]);
Wdgt.BeginUpdate;
Wdgt.setText(GetUtf8String(AText));
Wdgt.EndUpdate;
except
on E: Exception do
DebugLn(['TQtWSWinControl.SetText: "', E.Message, '" with "',
Wdgt.ClassName, '", handle=$', IntToHex(AWinControl.Handle,SizeOf(HWND)*2)]);
end;
Wdgt.BeginUpdate;
Wdgt.setText(GetUtf8String(AText));
Wdgt.EndUpdate;
end;
class procedure TQtWSWinControl.SetChildZPosition(const AWinControl,

12
lcl/interfaces/qt5/qtwsforms.pp
View File

@ -27,10 +27,8 @@ uses
qtobjects, qtwidgets, qtproc,
// LCL
SysUtils, Classes, types, Controls, LCLType, Forms,
// LazUtils
LazLoggerBase,
// Widgetset
InterfaceBase, WSForms, WSProc, WSLCLClasses;
WSForms, WSProc, WSLCLClasses;
type
@ -1070,19 +1068,13 @@ end;
class procedure TQtWSHintWindow.ShowHide(const AWinControl: TWinControl);
var
AWidget: TQtHintWindow;
ToBeVisible: Boolean;
begin
DebugLn(['TQtWSHintWindow.ShowHide: Enter.']);
if not WSCheckHandleAllocated(AWinControl, 'ShowHide') then
Exit;
AWidget := TQtHintWindow(AWinControl.Handle);
ToBeVisible := AWinControl.HandleObjectShouldBeVisible;
DebugLn([' TQtWSHintWindow.ShowHide: Handle is ', AWidget.ClassName,
', Visible=', ToBeVisible]);
AWidget.BeginUpdate;
AWidget.setVisible(ToBeVisible);
AWidget.setVisible(AWinControl.HandleObjectShouldBeVisible);
AWidget.EndUpdate;
DebugLn([' TQtWSHintWindow.ShowHide: End.']);
end;
end.

3
lcl/widgetset/wscontrols.pp
View File

@ -238,8 +238,7 @@ begin
end;
class function TWSControl.GetCanvasScaleFactor(const AControl: TControl
): Double;
class function TWSControl.GetCanvasScaleFactor(const AControl: TControl): Double;
begin
Result := 1;
end;