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

Qt: enable wordwrap on TQtStaticText. issue #21697

Browse Source 
git-svn-id: trunk@36711 -
This commit is contained in:
zeljko 2012-04-10 13:26:16 +00:00
parent d052d54817
commit c5accacd74
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -648,6 +648,8 @@ type
TQtStaticText = class(TQtFrame)
private
function GetWordWrap: Boolean;
procedure SetWordWrap(AValue: Boolean);
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
@ -655,6 +657,7 @@ type
function getText: WideString; override;
procedure setText(const W: WideString); override;
procedure setAlignment(const AAlignment: QtAlignment);
property WordWrap: Boolean read GetWordWrap write SetWordWrap;
end;
{ TQtCheckBox }
@ -6480,6 +6483,16 @@ end;
{ TQtStaticText }
function TQtStaticText.GetWordWrap: Boolean;
begin
Result := QLabel_wordWrap(QLabelH(Widget));
end;
procedure TQtStaticText.SetWordWrap(AValue: Boolean);
begin
QLabel_setWordWrap(QLabelH(Widget), AValue);
end;
function TQtStaticText.CreateWidget(const AParams: TCreateParams): QWidgetH;
var
Parent: QWidgetH;

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

@ -1069,8 +1069,8 @@ var
QtStaticText: TQtStaticText;
begin
QtStaticText := TQtStaticText.Create(AWinControl, AParams);
QtStaticText.WordWrap := True;
QtStaticText.AttachEvents;
QtStaticText.setAlignment(AlignmentMap[TCustomStaticText(AWinControl).Alignment]);
QtStaticText.setFrameShape(StaticBorderFrameShapeMap[TCustomStaticText(AWinControl).BorderStyle]);
QtStaticText.setFrameShadow(StaticBorderFrameShadowMap[TCustomStaticText(AWinControl).BorderStyle]);