paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minor identation and comments fixes on qt interface

Browse Source 
git-svn-id: trunk@11112 -
This commit is contained in:
sekelsenmat 2007-05-09 07:58:53 +00:00
parent 86605834e9
commit 28b1b1be74
3 changed files with 11 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

@ -413,6 +413,7 @@ type
end; end;
implementation implementation
const const
AlignmentMap: array[TAlignment] of QtAlignment = AlignmentMap: array[TAlignment] of QtAlignment =
( (
@ -1565,6 +1566,7 @@ var
begin begin
Parent := TQtWidget(LCLObject.Parent.Handle).Widget; Parent := TQtWidget(LCLObject.Parent.Handle).Widget;
Widget := QWidget_create(Parent); Widget := QWidget_create(Parent);
Result := Widget;
end; end;
procedure TQtWidget.SetGeometry; procedure TQtWidget.SetGeometry;

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -864,7 +864,7 @@ end;
function TQtWidgetSet.Frame3d(DC : HDC; var ARect : TRect; function TQtWidgetSet.Frame3d(DC : HDC; var ARect : TRect;
const FrameWidth : integer; const Style : TBevelCut) : boolean; const FrameWidth : integer; const Style : TBevelCut) : boolean;
begin begin
Result := True;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

10
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -250,7 +250,6 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TQtWSWinControl.SetColor Method: TQtWSWinControl.SetColor
Params: AWinControl - the calling object Params: AWinControl - the calling object
Returns: Nothing Returns: Nothing
Sets the color of the widget. Sets the color of the widget.
@ -267,7 +266,7 @@ begin
if AWinControl.Color = CLR_INVALID then exit; if AWinControl.Color = CLR_INVALID then exit;
// Get the color numeric value (system colors are mapped to numeric colors depending on the widget style) // Get the color numeric value (system colors are mapped to numeric colors depending on the widget style)
Color:=ColorToRGB(AWinControl.Color); Color := ColorToRGB(AWinControl.Color);
// Fill QColor // Fill QColor
QColor_setRgb(@QColor,Red(Color),Green(Color),Blue(Color)); QColor_setRgb(@QColor,Red(Color),Green(Color),Blue(Color));
@ -276,6 +275,13 @@ begin
TQtWidget(AWinControl.Handle).SetColor(@QColor); TQtWidget(AWinControl.Handle).SetColor(@QColor);
end; end;
{------------------------------------------------------------------------------
Method: TQtWSWinControl.SetCursor
Params: AWinControl - the calling object
Returns: Nothing
Sets the cursor of the widget.
------------------------------------------------------------------------------}
class procedure TQtWSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor); class procedure TQtWSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor);
begin begin
if AWinControl = nil then exit; if AWinControl = nil then exit;