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

lcl: call inherited after setting FLines in TCustomMemo.InitializeWnd. Fix potential crash since widgetset code expect FLines be initialized

Browse Source 
git-svn-id: trunk@36757 -
This commit is contained in:
blikblum 2012-04-14 00:37:15 +00:00
parent 03e0cafaf9
commit ec03b534ad
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/custommemo.inc
View File

@ -135,11 +135,6 @@ begin
{$ifdef DEBUG_MEMO}
DebugLn('[TCustomMemo.InitializeWnd] A ',FLines.ClassName);
{$endif}
inherited InitializeWnd;
{$ifdef DEBUG_MEMO}
DebugLn('[TCustomMemo.InitializeWnd] B ',DbgSName(Self),' ',FLines.ClassName,' FLines.Count=',dbgs(FLines.Count));
{$endif}
// fetch/create the interface item list
NewStrings := TWSCustomMemoClass(WidgetSetClass).GetStrings(Self);
// copy the items (text)
@ -151,6 +146,7 @@ begin
// new item list is the interface item list
FLines:= NewStrings;
inherited InitializeWnd;
{$ifdef DEBUG_MEMO}
DebugLn('[TCustomMemo.InitializeWnd] END ',DbgSName(Self),' ',FLines.ClassName,' FLines.Count=',dbgs(FLines.Count));
{$endif}