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

LCL TCustomEdit: removed useless code in InitializeWnd

Browse Source 
git-svn-id: trunk@12459 -
This commit is contained in:
tombo 2007-10-14 11:05:07 +00:00
parent e37222cbea
commit 15e3c6e26f
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/customedit.inc
View File

@ -441,17 +441,5 @@ begin
inherited DoExit; inherited DoExit;
end; end;
procedure TCustomEdit.InitializeWnd;
var
ASelStart, ASelLength : integer;
begin
inherited InitializeWnd;
if FSelStart <> FSelLength then begin
ASelStart:= FSelStart;
ASelLength:= FSelLength;
SelStart:= ASelStart;
SelLength:= ASelLength;
end;
end;
// included by stdctrls.pp // included by stdctrls.pp

1
lcl/stdctrls.pp
View File

@ -665,7 +665,6 @@ type
function GetSelLength: integer; virtual; function GetSelLength: integer; virtual;
function GetSelStart: integer; virtual; function GetSelStart: integer; virtual;
function GetSelText: string; virtual; function GetSelText: string; virtual;
procedure InitializeWnd; override;
procedure SetEchoMode(Val: TEchoMode); virtual; procedure SetEchoMode(Val: TEchoMode); virtual;
procedure SetSelLength(Val: integer); virtual; procedure SetSelLength(Val: integer); virtual;
procedure SetSelStart(Val: integer); virtual; procedure SetSelStart(Val: integer); virtual;