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

EditButton: implement CheckCursor.

Browse Source 
git-svn-id: trunk@44716 -
This commit is contained in:
bart 2014-04-13 11:47:02 +00:00
parent a3373895f0
commit 438d4e26ca
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/editbtn.pas
View File

@ -203,6 +203,7 @@ type
procedure EditStartDrag(var DragObject: TDragObject); procedure EditStartDrag(var DragObject: TDragObject);
procedure CheckCursor;
function EditCanModify: Boolean; virtual; function EditCanModify: Boolean; virtual;
procedure GetSel(out _SelStart: Integer; out _SelStop: Integer); procedure GetSel(out _SelStart: Integer; out _SelStop: Integer);
procedure SetSel(const _SelStart: Integer; _SelStop: Integer); procedure SetSel(const _SelStart: Integer; _SelStop: Integer);
@ -1468,6 +1469,11 @@ begin
if Assigned(FOnEditStartDrag) then FOnEditStartDrag(Self, DragObject); if Assigned(FOnEditStartDrag) then FOnEditStartDrag(Self, DragObject);
end; end;
procedure TCustomEditButton.CheckCursor;
begin
FEdit.CheckCursor;
end;
function TCustomEditButton.EditCanModify: Boolean; function TCustomEditButton.EditCanModify: Boolean;
begin begin
Result := FEdit.EditCanModify; Result := FEdit.EditCanModify;