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

lcl: reduce amount of calls of WS methods in TCustomEdit.TextChanged

Browse Source 
git-svn-id: trunk@35389 -
This commit is contained in:
paul 2012-02-16 02:29:37 +00:00
parent cf8b22b35e
commit ab9046d536
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/customedit.inc
View File

@ -481,18 +481,22 @@ end;
------------------------------------------------------------------------------}
procedure TCustomEdit.TextChanged;
var
Temp : String;
Cur, Temp: String;
CPos: TPoint;
SStart, SLen: Integer;
begin
//debugln('TCustomEdit.TextChanged ',DbgSName(Self));
if FCharCase in [ecUppercase, ecLowercase] then begin
if FCharCase in [ecUppercase, ecLowercase] then
begin
// use a local variable to reduce amounts of widgetset calls
Cur := Text;
//check to see if the charcase should affect the text.
if FCharCase = ecUppercase then
Temp := UTF8UpperCase(Text)
Temp := UTF8UpperCase(Cur)
else
Temp := UTF8LowerCase(Text);
if (Temp <> Text) then begin
Temp := UTF8LowerCase(Cur);
if (Temp <> Cur) then
begin
CPos := CaretPos;
SStart := SelStart;
SLen := SelLength;