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

mouse wheel now hides the hint window, hint window now appears after 1000ms instead of 500 from Darek

Browse Source 
git-svn-id: trunk@9616 -
This commit is contained in:
mattias 2006-07-14 22:54:52 +00:00
parent 760fe6159f
commit fbcb1ced0c
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/uniteditor.pp
View File

@ -134,6 +134,7 @@ type
FOnMouseMove: TMouseMoveEvent; FOnMouseMove: TMouseMoveEvent;
FOnMouseDown: TMouseEvent; FOnMouseDown: TMouseEvent;
FOnMouseUp: TMouseEvent; FOnMouseUp: TMouseEvent;
FOnMouseWheel : tMouseWheelEvent;
FOnKeyDown: TKeyEvent; FOnKeyDown: TKeyEvent;
FSourceNoteBook: TSourceNotebook; FSourceNoteBook: TSourceNotebook;
@ -143,6 +144,8 @@ type
Shift: TShiftState; X,Y: Integer); Shift: TShiftState; X,Y: Integer);
Procedure EditorMouseUp(Sender: TObject; Button: TMouseButton; Procedure EditorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer); Shift: TShiftState; X,Y: Integer);
procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
Procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Procedure EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges); Procedure EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges);
procedure SetCodeBuffer(NewCodeBuffer: TCodeBuffer); procedure SetCodeBuffer(NewCodeBuffer: TCodeBuffer);
@ -346,6 +349,7 @@ type
property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove; property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown; property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;
property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp; property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;
property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown; property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;
property Owner: TComponent read FAOwner; property Owner: TComponent read FAOwner;
property PageName: string read FPageName write SetPageName; property PageName: string read FPageName write SetPageName;
@ -529,6 +533,8 @@ type
procedure EditorMouseUp(Sender: TObject; Button: TMouseButton; procedure EditorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftstate; X,Y: Integer); Shift: TShiftstate; X,Y: Integer);
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
// hintwindow stuff // hintwindow stuff
FHintWindow: THintWindow; FHintWindow: THintWindow;
@ -1978,6 +1984,7 @@ Begin
OnGutterClick := @Self.OnGutterClick; OnGutterClick := @Self.OnGutterClick;
OnSpecialLineColors:=@OnEditorSpecialLineColor; OnSpecialLineColors:=@OnEditorSpecialLineColor;
OnMouseMove := @EditorMouseMoved; OnMouseMove := @EditorMouseMoved;
OnMouseWheel := @EditorMouseWheel;
OnMouseDown := @EditorMouseDown; OnMouseDown := @EditorMouseDown;
OnMouseUp := @EditorMouseUp; OnMouseUp := @EditorMouseUp;
OnKeyDown := @EditorKeyDown; OnKeyDown := @EditorKeyDown;
@ -2356,6 +2363,13 @@ begin
if Assigned(OnMouseMove) then if Assigned(OnMouseMove) then
OnMouseMove(Self,Shift,X,Y); OnMouseMove(Self,Shift,X,Y);
end; end;
Procedure TSourceEditor.EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
// Writeln('MouseWheel in Editor');
if Assigned(OnMouseWheel) then
OnMouseWheel(Self, Shift, WheelDelta, MousePos, Handled)
end;
Function TSourceEditor.GetWordAtPosition(Position: TPoint): String; Function TSourceEditor.GetWordAtPosition(Position: TPoint): String;
var var
@ -2786,7 +2800,7 @@ begin
// HintTimer // HintTimer
FHintTimer := TTimer.Create(nil); FHintTimer := TTimer.Create(nil);
with FHintTimer do begin with FHintTimer do begin
Interval := 500; Interval := 1000;
Enabled := False; Enabled := False;
OnTimer := @HintTimer; OnTimer := @HintTimer;
end; end;
@ -3867,6 +3881,7 @@ Begin
Result.OnEditorChange := @EditorChanged; Result.OnEditorChange := @EditorChanged;
Result.OnMouseMove := @EditorMouseMove; Result.OnMouseMove := @EditorMouseMove;
Result.OnMouseDown := @EditorMouseDown; Result.OnMouseDown := @EditorMouseDown;
Result.OnMouseWheel := @EditorMouseWheel;
Result.OnMouseUp := @EditorMouseUp; Result.OnMouseUp := @EditorMouseUp;
Result.OnKeyDown :=@EditorKeyDown; Result.OnKeyDown :=@EditorKeyDown;
@ -5464,6 +5479,18 @@ begin
EditorOpts.AutoToolTipExprEval) EditorOpts.AutoToolTipExprEval)
and Visible; and Visible;
end; end;
Procedure TSourceNotebook.EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
// restart hint timer
HideHint;
FHintTimer.Enabled := False;
FHintTimer.Enabled := (EditorOpts.AutoToolTipSymbTools or
EditorOpts.AutoToolTipExprEval)
and Visible;
handled:=true;
end;
procedure TSourceNotebook.EditorMouseDown(Sender: TObject; procedure TSourceNotebook.EditorMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftstate; X, Y: Integer); Button: TMouseButton; Shift: TShiftstate; X, Y: Integer);