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

Qt5,Qt6: proper set of application title.issue #41417.

Browse Source
This commit is contained in:
zeljan1 2025-02-10 15:28:43 +01:00
parent b042ec4560
commit 04f57de851
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtobject.inc
View File

@ -516,8 +516,8 @@ procedure TQtWidgetSet.AppSetTitle(const ATitle: string);
var
W: WideString;
begin
W := {%H-}ATitle;
QCoreApplication_setApplicationName(@W);
W := UTF8ToUTF16(ATitle);
QGuiApplication_setApplicationDisplayName(@W);
end;
function TQtWidgetSet.AppRemoveStayOnTopFlags(const ASystemTopAlso: Boolean = False): Boolean;

4
lcl/interfaces/qt6/qtobject.inc
View File

@ -510,8 +510,8 @@ procedure TQtWidgetSet.AppSetTitle(const ATitle: string);
var
W: WideString;
begin
W := {%H-}ATitle;
QCoreApplication_setApplicationName(@W);
W := UTF8ToUTF16(ATitle);
QGuiApplication_setApplicationDisplayName(@W);
end;
function TQtWidgetSet.AppRemoveStayOnTopFlags(const ASystemTopAlso: Boolean = False): Boolean;