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

qt/qt5/qt6: Micro-optimization of commit 2b0787fbf3

Browse Source
This commit is contained in:
wp_xyz 2025-06-14 19:49:27 +02:00
parent 2b0787fbf3
commit c6d94af1b4
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6009,7 +6009,7 @@ procedure TQtPushButton.preferredSize(var PreferredWidth,
var
Size: TSize;
function HasLineBreak(AText: WideString): Boolean;
function HasLineBreak(const AText: WideString): Boolean;
begin
Result := (pos(#10, AText) > 0) or (pos(#13, AText) > 0);
end;

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

@ -6259,7 +6259,7 @@ procedure TQtPushButton.preferredSize(var PreferredWidth,
var
Size: TSize;
function HasLineBreak(AText: WideString): Boolean;
function HasLineBreak(const AText: WideString): Boolean;
begin
Result := (pos(#10, AText) > 0) or (pos(#13, AText) > 0);
end;

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

@ -6212,7 +6212,7 @@ procedure TQtPushButton.preferredSize(var PreferredWidth,
var
Size: TSize;
function HasLineBreak(AText: WideString): Boolean;
function HasLineBreak(const AText: WideString): Boolean;
begin
Result := (pos(#10, AText) > 0) or (pos(#13, AText) > 0);
end;