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

added TMemo.SelLength negative check

Browse Source 
git-svn-id: trunk@6700 -
This commit is contained in:
mattias 2005-01-26 23:39:16 +00:00
parent a39f217b8f
commit 817395b4a9
1 changed files with 5 additions and 1 deletions

6
lcl/include/customedit.inc
View File

@ -136,7 +136,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomEdit.SetSelLength(Val : integer);
begin
FSelLength:= Val;
if Val<0 then Val:=0;
FSelLength := Val;
if HandleAllocated then
TWSCustomEditClass(WidgetSetClass).SetSelLength(Self, Val);
end;
@ -367,6 +368,9 @@ end;
{ =============================================================================
$Log$
Revision 1.37 2005/01/26 23:39:16 mattias
added TMemo.SelLength negative check
Revision 1.36 2004/12/27 16:51:19 mattias
implemented dialog to edit basic help db settings