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

MG: small fixes

Browse Source 
git-svn-id: trunk@527 -
This commit is contained in:
lazarus 2001-12-15 10:59:51 +00:00
parent 386178e8e4
commit a90be38ea4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/uniteditor.pp
View File

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