MG: small fixes

git-svn-id: trunk@527 -
This commit is contained in:
lazarus 2001-12-15 10:59:51 +00:00
parent 386178e8e4
commit a90be38ea4

View File

@ -1391,8 +1391,8 @@ begin
Result:='';
end;
Procedure TSourceEditor.EditorMouseMoved(Sender : TObject; Shift : TShiftState; X,Y : Integer);
var a:integer;
Procedure TSourceEditor.EditorMouseMoved(Sender : TObject;
Shift : TShiftState; X,Y : Integer);
begin
// Writeln('MOuseMove in Editor',X,',',Y);
if Assigned(OnMouseMove) then