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

win32: edit: disable margins

Browse Source 
git-svn-id: trunk@51985 -
This commit is contained in:
ondrej 2016-03-19 12:53:18 +00:00
parent 9d06134900
commit b89b37d107
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,6 +149,8 @@ type
{ TWin32WSCustomEdit }
TWin32WSCustomEdit = class(TWSCustomEdit)
private
class procedure ApplyMargins(const AWinControl: TWinControl);
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
@ -174,6 +176,7 @@ type
class procedure SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer); override;
class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
class procedure Cut(const ACustomEdit: TCustomEdit); override;
class procedure Copy(const ACustomEdit: TCustomEdit); override;
@ -1150,6 +1153,8 @@ begin
// edit is not a transparent control -> no need for parentpainting
Params.WindowInfo^.needParentPaint := false;
Result := Params.Window;
ApplyMargins(AWinControl);
end;
class function TWin32WSCustomEdit.GetCanUndo(const ACustomEdit: TCustomEdit): Boolean;
@ -1234,6 +1239,14 @@ begin
// nothing to do, SetPasswordChar will do the work
end;
class procedure TWin32WSCustomEdit.SetFont(const AWinControl: TWinControl;
const AFont: TFont);
begin
inherited SetFont(AWinControl, AFont);
ApplyMargins(AWinControl);
end;
class procedure TWin32WSCustomEdit.SetHideSelection(const ACustomEdit: TCustomEdit; NewHideSelection: Boolean);
var
CurrentStyle: DWord;
@ -1299,6 +1312,12 @@ begin
SendMessage(ACustomEdit.Handle, WM_CUT, 0, 0)
end;
class procedure TWin32WSCustomEdit.ApplyMargins(const AWinControl: TWinControl);
begin
if (WindowsVersion >= wv2000) and AWinControl.HandleAllocated then
SendMessage(AWinControl.Handle, EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, 0);
end;
class procedure TWin32WSCustomEdit.Copy(const ACustomEdit: TCustomEdit);
begin
SendMessage(ACustomEdit.Handle, WM_COPY, 0, 0)