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

revert 0010861

Browse Source 
git-svn-id: trunk@14219 -
This commit is contained in:
paul 2008-02-21 05:42:12 +00:00
parent 99ca08c0bc
commit fc53a7a259
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/editbtn.pas
View File

@ -678,7 +678,9 @@ end;
procedure TCustomEditButton.SetReadOnly(Value: Boolean);
begin
inherited SetReadOnly(Value);
FButton.Enabled := not Value;
// Paul: ReadOnly should affect only editbox to prevent editing it by hands
//FButton.Enabled := not Value;
end;
procedure TCustomEditButton.DoPositionButton;