paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 20:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: Add property WordWrap to panel

Browse Source 
git-svn-id: trunk@52502 -
This commit is contained in:
wp 2016-06-13 19:18:55 +00:00
parent baf3f396bf
commit dfa022a41e
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -1021,10 +1021,12 @@ type
FBevelWidth : TBevelWidth;
FAlignment : TAlignment;
FFullRepaint: Boolean;
FWordWrap: Boolean;
procedure SetAlignment(const Value : TAlignment);
procedure SetBevelInner(const Value: TPanelBevel);
procedure SetBevelOuter(const Value: TPanelBevel);
procedure SetBevelWidth(const Value: TBevelWidth);
procedure SetWordwrap(const Value: Boolean);
protected
class procedure WSRegisterClass; override;
procedure AdjustClientRect(var aRect: TRect); override;
@ -1035,6 +1037,7 @@ type
procedure RealSetText(const Value: TCaption); override;
procedure Paint; override;
procedure UpdateParentColorChange;
property WordWrap: Boolean read FWordwrap write SetWordwrap default false;
public
constructor Create(TheOwner: TComponent); override;
property Align default alNone;
@ -1087,6 +1090,7 @@ type
property TabStop;
property UseDockManager default True;
property Visible;
property Wordwrap;
property OnClick;
property OnContextPopup;
property OnDockDrop;

11
lcl/include/custompanel.inc
View File

@ -62,6 +62,15 @@ begin
end;
end;
procedure TCustomPanel.SetWordWrap(const Value: boolean);
begin
if FWordwrap <> Value then
begin
FWordwrap := Value;
Invalidate;
end;
end;
class procedure TCustomPanel.WSRegisterClass;
begin
inherited WSRegisterClass;
@ -113,6 +122,8 @@ begin
TS.Opaque:= false;
TS.Clipping:= false;
TS.SystemFont:=Canvas.Font.IsDefault;
TS.Wordbreak := FWordWrap;
TS.SingleLine := not FWordwrap;
if not Enabled then
begin
Canvas.Font.Color := clBtnHighlight;