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

Qt: added TextMargins property to TQtLineEdit

Browse Source 
git-svn-id: trunk@33047 -
This commit is contained in:
zeljko 2011-10-23 14:22:03 +00:00
parent c40325ed77
commit b2e14d5fa9
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -686,6 +686,8 @@ type
TQtLineEdit = class(TQtWidget, IQtEdit)
private
FTextChanged: QLineEdit_hookH;
function getTextMargins: TRect;
procedure setTextMargins(ARect: TRect);
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
@ -721,6 +723,7 @@ type
procedure preferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure SignalTextChanged(p1: PWideString); cdecl;
property TextMargins: TRect read GetTextMargins write SetTextMargins;
end;
{ TQtTextEdit }
@ -6672,6 +6675,15 @@ begin
QLineEdit_text(QLineEditH(Widget), @Result);
end;
function TQtLineEdit.getTextMargins: TRect;
var
L, T, R, B: Integer;
begin
QLineEdit_getTextMargins(QLineEditH(Widget),
@L, @T, @R, @B);
Result := Rect(L, T, R, B);
end;
function TQtLineEdit.getTextStatic: Boolean;
begin
Result := False;
@ -6799,6 +6811,12 @@ begin
QLineEdit_setText(QLineEditH(Widget), @AText);
end;
procedure TQtLineEdit.setTextMargins(ARect: TRect);
begin
with ARect do
QLineEdit_setTextMargins(QLineEditH(Widget), Left, Top, Right, Bottom);
end;
procedure TQtLineEdit.Cut;
begin
QLineEdit_cut(QLineEditH(Widget));