paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +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); procedure TQtWidgetSet.AppSetTitle(const ATitle: string);
var
W: WideString;
begin begin
// TODO W := GetUtf8String(ATitle);
QCoreApplication_setApplicationName(@W);
end; end;
procedure TQtWidgetSet.AttachMenuToWindow(AMenuObject: TComponent); procedure TQtWidgetSet.AttachMenuToWindow(AMenuObject: TComponent);
@ -210,6 +213,7 @@ begin
R1.Right := R.Right; R1.Right := R.Right;
QtMenuBar.setGeometry(R1); QtMenuBar.setGeometry(R1);
QtMainWindow.setMenuBar(QMenuBarH(QtMenuBar.Widget)); QtMainWindow.setMenuBar(QMenuBarH(QtMenuBar.Widget));
QtMainWindow.setVisible(True);
end; end;
end; end;
end; end;
@ -294,7 +298,7 @@ end;
procedure TQtWidgetSet.DCRedraw(CanvasHandle: HDC); procedure TQtWidgetSet.DCRedraw(CanvasHandle: HDC);
begin begin
// TODO: implement me
end; end;
procedure TQtWidgetSet.SetDesigning(AComponent: TComponent); procedure TQtWidgetSet.SetDesigning(AComponent: TComponent);