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

QT, QT5: Initialize WideString Result in TQtLineEdit methods.

Browse Source 
git-svn-id: trunk@55233 -
This commit is contained in:
juha 2017-06-05 09:19:31 +00:00
parent 0bcab25ebd
commit 9cddba459a
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt/qtwidgets.pas
View File

@ -9630,6 +9630,7 @@ end;
function TQtLineEdit.getSelectedText: WideString;
begin
Result := '';
QLineEdit_selectedText(QLineEditH(Widget), @Result);
end;
@ -9665,6 +9666,7 @@ end;
function TQtLineEdit.getText: WideString;
begin
Result := '';
QLineEdit_text(QLineEditH(Widget), @Result);
end;
@ -9672,8 +9674,7 @@ function TQtLineEdit.getTextMargins: TRect;
var
L, T, R, B: Integer;
begin
QLineEdit_getTextMargins(QLineEditH(Widget),
@L, @T, @R, @B);
QLineEdit_getTextMargins(QLineEditH(Widget), @L, @T, @R, @B);
Result := Rect(L, T, R, B);
end;

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

@ -9595,6 +9595,7 @@ end;
function TQtLineEdit.getSelectedText: WideString;
begin
Result := '';
QLineEdit_selectedText(QLineEditH(Widget), @Result);
end;
@ -9630,6 +9631,7 @@ end;
function TQtLineEdit.getText: WideString;
begin
Result := '';
QLineEdit_text(QLineEditH(Widget), @Result);
end;
@ -9637,8 +9639,7 @@ function TQtLineEdit.getTextMargins: TRect;
var
L, T, R, B: Integer;
begin
QLineEdit_getTextMargins(QLineEditH(Widget),
@L, @T, @R, @B);
QLineEdit_getTextMargins(QLineEditH(Widget), @L, @T, @R, @B);
Result := Rect(L, T, R, B);
end;