paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 02:16:14 +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;
FWantTabs := false;
FWordWrap := True;
//FLines := TMemoStrings.Create(Self);
FLines := TTextStrings.Create;
//TMemoStrings(FLines).MemoWidgetClass := TWSCustomMemoClass(WidgetSetClass);
FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical);
FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal);
AutoSize := False;
@ -276,7 +274,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomMemo.SetWordWrap(const Value : boolean);
begin
if Value <> FWordWrap then begin
if Value <> FWordWrap then
begin
//DebugLn('TCustomMemo.SetWordWrap ',Name,' Old=',FWordWrap,' New=',Value);
FWordWrap := Value;
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
else
Flags := Flags or ES_AUTOHSCROLL;
if ACustomMemo.BorderStyle=bsSingle then
if ACustomMemo.BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @EditClsName[0];
WindowTitle := StrCaption;