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

win32 interface: implemented changing borderstyle of a memo (issue #11785)

Browse Source 
git-svn-id: trunk@15993 -
This commit is contained in:
vincents 2008-08-08 09:46:04 +00:00
parent 15e404fffb
commit a1a13ca9cb
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1169,17 +1169,19 @@ class function TWin32WSCustomMemo.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
Params: TCreateWindowExParams;
ACustomMemo: TCustomMemo;
begin
// general initialization of Params
PrepareCreateWindow(AWinControl, Params);
// customization of Params
ACustomMemo := TCustomMemo(AWinControl);
with Params do
begin
Flags := Flags or ES_AUTOVSCROLL or ES_MULTILINE or ES_WANTRETURN;
if TCustomMemo(AWinControl).ReadOnly then
if ACustomMemo.ReadOnly then
Flags := Flags or ES_READONLY;
Flags := Flags or AlignmentMap[TCustomMemo(AWinControl).Alignment];
case TCustomMemo(AWinControl).ScrollBars of
Flags := Flags or AlignmentMap[ACustomMemo.Alignment];
case ACustomMemo.ScrollBars of
ssHorizontal, ssAutoHorizontal:
Flags := Flags or WS_HSCROLL;
ssVertical, ssAutoVertical:
@ -1187,11 +1189,12 @@ begin
ssBoth, ssAutoBoth:
Flags := Flags or WS_HSCROLL or WS_VSCROLL;
end;
if TCustomMemo(AWinControl).WordWrap then
if ACustomMemo.WordWrap then
Flags := Flags and not WS_HSCROLL
else
Flags := Flags or ES_AUTOHSCROLL;
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
if ACustomMemo.BorderStyle=bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @EditClsName[0];
WindowTitle := StrCaption;
end;
@ -1306,7 +1309,7 @@ begin
Result :=
AlignmentToStaticTextFlags[AAlignment] or
BorderToStaticTextFlags[ABorder] or
AccelCharToStaticTextFlags[AShowAccelChar];
DWORD(AccelCharToStaticTextFlags[AShowAccelChar]);
end;
class function TWin32WSCustomStaticText.CreateHandle(const AWinControl: TWinControl;