paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 10:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: setTextHint() string param should be const.

Browse Source 
git-svn-id: trunk@59772 -
This commit is contained in:
zeljko 2018-12-10 09:50:55 +00:00
parent 1af5c230ac
commit 8eded5232b
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -91,7 +91,7 @@ type
procedure setSelection(const AStart, ALength: Integer);
procedure setBorder(const ABorder: Boolean);
procedure setCursorPosition(const ACursorPosition: Integer);
procedure setTextHint(ATextHint: string);
procedure setTextHint(const ATextHint: string);
procedure Cut;
procedure Copy;
procedure Paste;
@ -848,7 +848,7 @@ type
procedure setTextMargins(ARect: TRect);
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
procedure setTextHint(ATextHint: string);
procedure setTextHint(const ATextHint: string);
public
function getAlignment: QtAlignment;
function getCursorPosition: TPoint;
@ -901,7 +901,7 @@ type
procedure SetAcceptRichText(AValue: Boolean);
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
procedure setTextHint(ATextHint: string);
procedure setTextHint(const ATextHint: string);
public
FList: TStrings;
procedure Append(const AStr: WideString);
@ -1048,7 +1048,7 @@ type
procedure setReadOnly(const AReadOnly: Boolean);
procedure setSelection(const AStart, ALength: Integer);
procedure setCursorPosition(const ACursorPosition: Integer);
procedure setTextHint(ATextHint: string);
procedure setTextHint(const ATextHint: string);
procedure Cut;
procedure Copy;
procedure Paste;
@ -1123,7 +1123,7 @@ type
procedure setSelection(const AStart, ALength: Integer);
procedure setCursorPosition(const ACursorPosition: Integer);
procedure SignalLineEditTextChanged(AnonParam1: PWideString); virtual; cdecl;
procedure setTextHint(ATextHint: string);
procedure setTextHint(const ATextHint: string);
procedure Cut;
procedure Copy;
procedure Paste;
@ -9766,7 +9766,7 @@ begin
QLineEdit_setText(QLineEditH(Widget), @AText);
end;
procedure TQtLineEdit.setTextHint(ATextHint: string);
procedure TQtLineEdit.setTextHint(const ATextHint: string);
var
W: WideString;
begin
@ -10122,7 +10122,7 @@ begin
QTextEdit_setPlainText(QTextEditH(Widget), @AText);
end;
procedure TQtTextEdit.setTextHint(ATextHint: string);
procedure TQtTextEdit.setTextHint(const ATextHint: string);
var
W: WideString;
begin
@ -11128,7 +11128,7 @@ begin
LineEdit.setCursorPosition(ACursorPosition);
end;
procedure TQtComboBox.setTextHint(ATextHint: string);
procedure TQtComboBox.setTextHint(const ATextHint: string);
begin
if getEditable then
LineEdit.setTextHint(ATextHint);
@ -11789,7 +11789,7 @@ begin
DeliverMessage(Msg);
end;
procedure TQtAbstractSpinBox.setTextHint(ATextHint: string);
procedure TQtAbstractSpinBox.setTextHint(const ATextHint: string);
var
W: WideString;
begin