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

MG: editopts->codetools->autotooltipsymbtools activated

Browse Source 
git-svn-id: trunk@484 -
This commit is contained in:
lazarus 2001-12-06 07:48:01 +00:00
parent 65878c388e
commit e0ecf5bb36
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/editoroptions.pp
View File

@ -3846,7 +3846,6 @@ begin
Height:=AutoCodeCompletionCheckBox.Height;
Caption:='Tooltip symbol Tools';
Checked:=EditorOpts.AutoToolTipSymbTools;
Enabled:=false;
Show;
end;

15
ide/uniteditor.pp
View File

@ -3023,14 +3023,17 @@ Begin
end;
end;
Procedure TSourceNotebook.EditorMouseMove(Sender : TObject; Shift: TShiftstate; X,Y : Integer);
Procedure TSourceNotebook.EditorMouseMove(Sender : TObject; Shift: TShiftstate;
X,Y : Integer);
begin
//writeln('MOUSEMOVE');
if FHintWIndow.Visible then
FHintWindow.Visible := False;
FHintTimer.Enabled := False;
FHintTimer.Enabled := not ((ssLeft in Shift) or (ssRight in Shift) or (ssMiddle in Shift));
FHintTimer.Enabled := EditorOpts.AutoToolTipSymbTools
and (not ((ssLeft in Shift) or (ssRight in Shift)
or (ssMiddle in Shift)));
end;
Procedure TSourceNotebook.HintTimer(sender : TObject);
@ -3057,8 +3060,8 @@ begin
cPosition := ScreenToClient(cPosition);
//Check to see if we are in the windows bounds
if ((cPosition.X <=EditorOpts.GutterWidth) or (cPosition.X >= Width) or (cPosition.Y <= 25)
or (cPosition.Y >= Height)) then
if ((cPosition.X <=EditorOpts.GutterWidth) or (cPosition.X >= Width)
or (cPosition.Y <= 25) or (cPosition.Y >= Height)) then
Exit;
//Get the active SourceEditor
@ -3097,8 +3100,8 @@ begin
end;
Procedure TSourceNotebook.EditorMouseDown(Sender : TObject; Button : TMouseButton; Shift: TShiftstate; X, Y
: Integer);
Procedure TSourceNotebook.EditorMouseDown(Sender : TObject;
Button : TMouseButton; Shift: TShiftstate; X, Y: Integer);
begin
if FHIntWindow.Visible then
FHintWindow.Visible := False;