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

Qt: bugfix - alignment of TQtTextEdit in design time

Browse Source 
git-svn-id: trunk@18170 -
This commit is contained in:
zeljko 2009-01-06 15:38:19 +00:00
parent cdc80f4e4a
commit 411f7b7960
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtprivate.pp
View File

@ -154,6 +154,9 @@ begin
end
else
QTextEdit_append(FQtTextEdit,@Str);
if QTextEdit_alignment(FQtTextEdit) <> AlignmentMap[TCustomMemo(FOwner).Alignment] then
QTextEdit_setAlignment(FQtTextEdit, AlignmentMap[TCustomMemo(FOwner).Alignment]);
FUpdating := False;
{FillChar(Mess, SizeOf(Mess), #0);

2
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -596,8 +596,6 @@ begin
QtTextEdit.FList := TQtMemoStrings.Create(QTextEditH(QtTextEdit.Widget), TCustomMemo(AWinControl));
QtTextEdit.setScrollStyle(TCustomMemo(AWinControl).ScrollBars);
QtTextEdit.setTabChangesFocus(not TCustomMemo(AWinControl).WantTabs);
QtTextEdit.setAlignment(AlignmentMap[TCustomMemo(AWinControl).Alignment]);
Result := TLCLIntfHandle(QtTextEdit);
end;