paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +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

18
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);
@ -407,7 +411,7 @@ end;
procedure TQtWidgetSet.SetQtDefaultDC(Handle: HDC);
begin
FStockDefaultDC := Handle;
FStockDefaultDC := Handle;
end;
procedure TQtWidgetSet.InitStockItems;
@ -439,21 +443,21 @@ begin
LogBrush.lbColor := $FFFFFF;
FStockWhiteBrush := CreateBrushIndirect(LogBrush);
TQtBrush(FStockWhiteBrush).FShared := True;
TQtBrush(FStockWhiteBrush).FShared := True;
LogPen.lopnStyle := PS_NULL;
LogPen.lopnWidth.X := 1;
LogPen.lopnColor := $FFFFFF;
FStockNullPen := CreatePenIndirect(LogPen);
TQtPen(FStockNullPen).FShared := True;
TQtPen(FStockNullPen).FShared := True;
LogPen.lopnStyle := PS_SOLID;
FStockWhitePen := CreatePenIndirect(LogPen);
TQtPen(FStockWhitePen).FShared := True;
TQtPen(FStockWhitePen).FShared := True;
LogPen.lopnColor := $000000;
FStockBlackPen := CreatePenIndirect(LogPen);
TQtPen(FStockBlackPen).FShared := True;
TQtPen(FStockBlackPen).FShared := True;
FStockSystemFont := 0;//Styles aren't initialized yet