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

Qt: overrided preferredSize() for QLineEdit, now it have correct autosize values in design and runtime (was bad with some themes).

Browse Source 
git-svn-id: trunk@25114 -
This commit is contained in:
zeljko 2010-05-01 19:16:03 +00:00
parent 872f2090ec
commit 6139f21717
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -646,6 +646,8 @@ type
procedure AttachEvents; override;
procedure DetachEvents; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
procedure preferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure SignalTextChanged(p1: PWideString); cdecl;
end;
@ -5906,6 +5908,14 @@ begin
Result:=inherited EventFilter(Sender, Event);
end;
procedure TQtLineEdit.preferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean);
begin
QLineEdit_sizeHint(QLineEditH(Widget), @ASize);
PreferredHeight := ASize.cy;
PreferredWidth := ASize.cx;
end;
procedure TQtLineEdit.setCursorPosition(const AValue: Integer);
begin
QLineEdit_setCursorPosition(QLineEditH(Widget), AValue);