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

Qt: small code formatting

Browse Source 
git-svn-id: trunk@12185 -
This commit is contained in:
paul 2007-09-26 07:57:45 +00:00
parent 430c74310a
commit 5e21b95eac
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtobject.inc
View File

@ -188,8 +188,11 @@ end;
}
procedure TQtWidgetSet.AppSetTitle(const ATitle: string);
var
W: WideString;
begin
// TODO
W := GetUtf8String(ATitle);
QCoreApplication_setApplicationName(@W);
end;
procedure TQtWidgetSet.AttachMenuToWindow(AMenuObject: TComponent);
@ -210,6 +213,7 @@ begin
R1.Right := R.Right;
QtMenuBar.setGeometry(R1);
QtMainWindow.setMenuBar(QMenuBarH(QtMenuBar.Widget));
QtMainWindow.setVisible(True);
end;
end;
end;
@ -294,7 +298,7 @@ end;
procedure TQtWidgetSet.DCRedraw(CanvasHandle: HDC);
begin
// TODO: implement me
end;
procedure TQtWidgetSet.SetDesigning(AComponent: TComponent);