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

lcl: cleanup

Browse Source 
git-svn-id: trunk@21766 -
This commit is contained in:
paul 2009-09-19 09:34:41 +00:00
parent a095fdff62
commit f4a1e520cd
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/custommemo.inc
View File

@ -33,9 +33,7 @@ begin
FWantReturns := true; FWantReturns := true;
FWantTabs := false; FWantTabs := false;
FWordWrap := True; FWordWrap := True;
//FLines := TMemoStrings.Create(Self);
FLines := TTextStrings.Create; FLines := TTextStrings.Create;
//TMemoStrings(FLines).MemoWidgetClass := TWSCustomMemoClass(WidgetSetClass);
FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical); FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical);
FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal); FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal);
AutoSize := False; AutoSize := False;
@ -276,7 +274,8 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCustomMemo.SetWordWrap(const Value : boolean); procedure TCustomMemo.SetWordWrap(const Value : boolean);
begin begin
if Value <> FWordWrap then begin if Value <> FWordWrap then
begin
//DebugLn('TCustomMemo.SetWordWrap ',Name,' Old=',FWordWrap,' New=',Value); //DebugLn('TCustomMemo.SetWordWrap ',Name,' Old=',FWordWrap,' New=',Value);
FWordWrap := Value; FWordWrap := Value;
if HandleAllocated and (not (csLoading in ComponentState)) then if HandleAllocated and (not (csLoading in ComponentState)) then

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

@ -1218,7 +1218,7 @@ begin
Flags := Flags and not WS_HSCROLL Flags := Flags and not WS_HSCROLL
else else
Flags := Flags or ES_AUTOHSCROLL; Flags := Flags or ES_AUTOHSCROLL;
if ACustomMemo.BorderStyle=bsSingle then if ACustomMemo.BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE; FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @EditClsName[0]; pClassName := @EditClsName[0];
WindowTitle := StrCaption; WindowTitle := StrCaption;