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

qt: change {$mode delphi} to {$mode objfpc}

Browse Source 
git-svn-id: trunk@14236 -
This commit is contained in:
paul 2008-02-24 04:44:28 +00:00
parent 83ebfd0672
commit fe81e69498
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwscalendar.pp
View File

@ -22,7 +22,7 @@
}
unit QtWSCalendar;
{$mode delphi}{$H+}
{$mode objfpc}{$H+}
interface

6
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -22,7 +22,7 @@
}
unit QtWSDialogs;
{$mode delphi}{$H+}
{$mode objfpc}{$H+}
interface
@ -299,7 +299,7 @@ end;
------------------------------------------------------------------------------}
class procedure TQtWSFileDialog.ShowModal(const ACommonDialog: TCommonDialog);
var
selectedFilter, ReturnText,
{selectedFilter, }ReturnText,
saveFileName, saveTitle, saveFilter: WideString;
FileDialog: TFileDialog;
ReturnList: QStringListH;
@ -310,7 +310,7 @@ begin
Initialization of variables
------------------------------------------------------------------------------}
ReturnText := '';
selectedFilter := '';
//selectedFilter := '';
saveFileName := '';
saveTitle := '';

2
lcl/interfaces/qt/qtwsmenus.pp
View File

@ -22,7 +22,7 @@
}
unit QtWSMenus;
{$mode delphi}{$H+}
{$mode objfpc}{$H+}
interface

4
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -22,7 +22,7 @@
}
unit QtWSStdCtrls;
{$mode delphi}{$H+}
{$mode objfpc}{$H+}
interface
@ -972,7 +972,7 @@ begin
Color:=ColorToRGB(AWinControl.Color);
// Fill QColor
QColor_setRgb(@QColor,Red(Color),Green(Color),Blue(Color));
QColor_setRgb(QColorH(@QColor),Red(Color),Green(Color),Blue(Color));
// Set color of the widget to QColor
TQtAbstractButton(AWinControl.Handle).SetColor(@QColor);