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

LCL: TMemo: Fixed disappearance of TMemo after setting borderstyle. Issue #31586

Browse Source 
git-svn-id: trunk@54509 -
This commit is contained in:
michl 2017-04-03 18:42:40 +00:00
parent 1352581471
commit 48d7ba4e4c
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/wincontrol.inc
View File

@ -4126,6 +4126,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TWinControl.SetBorderStyle(NewStyle: TBorderStyle); procedure TWinControl.SetBorderStyle(NewStyle: TBorderStyle);
begin begin
if FBorderStyle = NewStyle then Exit;
FBorderStyle := NewStyle; FBorderStyle := NewStyle;
if HandleAllocated then if HandleAllocated then
TWSWinControlClass(WidgetSetClass).SetBorderStyle(Self, NewStyle); TWSWinControlClass(WidgetSetClass).SetBorderStyle(Self, NewStyle);

2
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -361,6 +361,8 @@ end;
class procedure TWin32WSWinControl.SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle); class procedure TWin32WSWinControl.SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle);
begin begin
RecreateWnd(AWinControl); RecreateWnd(AWinControl);
if AWinControl.HandleObjectShouldBeVisible then
AWinControl.HandleNeeded;
end; end;
class procedure TWin32WSWinControl.SetChildZPosition( class procedure TWin32WSWinControl.SetChildZPosition(