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

LCL: fix comment language

Browse Source 
git-svn-id: trunk@50813 -
This commit is contained in:
ondrej 2015-12-15 08:05:24 +00:00
parent 173aff6805
commit b1711729c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -1695,7 +1695,7 @@ begin
Exit; Exit;
if Assigned(FOnButtonClick) then if Assigned(FOnButtonClick) then
FOnButtonClick(Self); FOnButtonClick(Self);
//derived controls that override ButtonClick tipically run a dialog after calling inherited, //derived controls that override ButtonClick typically run a dialog after calling inherited,
//in that case selecting the text now does not make sense at all (and looks silly) //in that case selecting the text now does not make sense at all (and looks silly)
//it's up to the derived control to implement this focus and select if wanted //it's up to the derived control to implement this focus and select if wanted
if TMethod(@Self.ButtonClick).Code = Pointer(@TCustomEditButton.ButtonClick) then if TMethod(@Self.ButtonClick).Code = Pointer(@TCustomEditButton.ButtonClick) then