paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 09:36:42 +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; function TQtLineEdit.getSelectedText: WideString;
begin begin
Result := '';
QLineEdit_selectedText(QLineEditH(Widget), @Result); QLineEdit_selectedText(QLineEditH(Widget), @Result);
end; end;
@ -9665,6 +9666,7 @@ end;
function TQtLineEdit.getText: WideString; function TQtLineEdit.getText: WideString;
begin begin
Result := '';
QLineEdit_text(QLineEditH(Widget), @Result); QLineEdit_text(QLineEditH(Widget), @Result);
end; end;
@ -9672,8 +9674,7 @@ function TQtLineEdit.getTextMargins: TRect;
var var
L, T, R, B: Integer; L, T, R, B: Integer;
begin begin
QLineEdit_getTextMargins(QLineEditH(Widget), QLineEdit_getTextMargins(QLineEditH(Widget), @L, @T, @R, @B);
@L, @T, @R, @B);
Result := Rect(L, T, R, B); Result := Rect(L, T, R, B);
end; end;

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

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