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

added check handleallocated on loading memo

Browse Source 
git-svn-id: trunk@6247 -
This commit is contained in:
mattias 2004-11-15 12:37:52 +00:00
parent 2e189ec448
commit b6faaef0cf
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/custommemo.inc
View File

@ -136,8 +136,10 @@ procedure TCustomMemo.Loaded;
begin begin
inherited Loaded; inherited Loaded;
if HandleAllocated then begin
TWSCustomMemoClass(WidgetSetClass).SetScrollbars(Self, FScrollbars); TWSCustomMemoClass(WidgetSetClass).SetScrollbars(Self, FScrollbars);
TWSCustomMemoClass(WidgetSetClass).SetWordWrap(Self, FWordWrap); TWSCustomMemoClass(WidgetSetClass).SetWordWrap(Self, FWordWrap);
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -176,6 +178,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.31 2004/11/15 12:37:52 mattias
added check handleallocated on loading memo
Revision 1.30 2004/09/22 16:13:01 micha Revision 1.30 2004/09/22 16:13:01 micha
convert LM_SETPROPERTIES message to interface methods for TCustomMemo convert LM_SETPROPERTIES message to interface methods for TCustomMemo