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

WS_HSCROLL disables wordwrap, disable it if wordwrap requested

Browse Source 
git-svn-id: trunk@6890 -
This commit is contained in:
micha 2005-03-04 15:44:53 +00:00
parent daf76f7dbc
commit d68ac79fd0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -840,8 +840,6 @@ begin
Flags := Flags or ES_AUTOVSCROLL or ES_MULTILINE or ES_WANTRETURN; Flags := Flags or ES_AUTOVSCROLL or ES_MULTILINE or ES_WANTRETURN;
if TCustomMemo(AWinControl).ReadOnly then if TCustomMemo(AWinControl).ReadOnly then
Flags := Flags or ES_READONLY; Flags := Flags or ES_READONLY;
if not TCustomMemo(AWinControl).WordWrap then
Flags := Flags or ES_AUTOHSCROLL;
case TCustomMemo(AWinControl).ScrollBars of case TCustomMemo(AWinControl).ScrollBars of
ssHorizontal, ssAutoHorizontal: ssHorizontal, ssAutoHorizontal:
Flags := Flags or WS_HSCROLL; Flags := Flags or WS_HSCROLL;
@ -850,6 +848,10 @@ begin
ssBoth, ssAutoBoth: ssBoth, ssAutoBoth:
Flags := Flags or WS_HSCROLL or WS_VSCROLL; Flags := Flags or WS_HSCROLL or WS_VSCROLL;
end; end;
if TCustomMemo(AWinControl).WordWrap then
Flags := Flags and not WS_HSCROLL
else
Flags := Flags or ES_AUTOHSCROLL;
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE; FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := 'EDIT'; pClassName := 'EDIT';
WindowTitle := StrCaption; WindowTitle := StrCaption;