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

IdeIntf: remove useless parameters from TOIPropertyHint event.

Browse Source 
git-svn-id: trunk@45830 -
This commit is contained in:
juha 2014-07-11 16:31:58 +00:00
parent f6cd1a888f
commit 613426fbe9
2 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/ideintf/objectinspector.pp
View File

@ -243,9 +243,7 @@ type
); );
TOIPropertyHint = function(Sender: TObject; PointedRow: TOIPropertyGridRow; TOIPropertyHint = function(Sender: TObject; PointedRow: TOIPropertyGridRow;
ScreenPos: TPoint; aHintWindow: THintWindow; out AHint: string): boolean of object;
out HintWinRect: TRect; out AHint: string
): boolean of object;
TOIEditorFilterEvent = procedure(Sender: TObject; aEditor: TPropertyEditor; TOIEditorFilterEvent = procedure(Sender: TObject; aEditor: TPropertyEditor;
var aShow: boolean) of object; var aShow: boolean) of object;
@ -711,8 +709,7 @@ type
procedure OnGridModified(Sender: TObject); procedure OnGridModified(Sender: TObject);
procedure OnGridSelectionChange(Sender: TObject); procedure OnGridSelectionChange(Sender: TObject);
function OnGridPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow; function OnGridPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow;
ScreenPos: TPoint; aHintWindow: THintWindow; out AHint: string): boolean;
out HintWinRect: TRect; out AHint: string): boolean;
procedure SetAvailComboBoxText; procedure SetAvailComboBoxText;
procedure HookGetSelection(const ASelection: TPersistentSelectionList); procedure HookGetSelection(const ASelection: TPersistentSelectionList);
procedure HookSetSelection(const ASelection: TPersistentSelectionList); procedure HookSetSelection(const ASelection: TPersistentSelectionList);
@ -3223,9 +3220,8 @@ var
procedure HintByHandler; procedure HintByHandler;
var var
AHint: String; AHint: String;
HintRect : TRect;
begin begin
if OnPropertyHint(Self, PointedRow, Position, FHintManager.HintWindow, HintRect, AHint) if OnPropertyHint(Self, PointedRow, AHint)
then begin then begin
FHintIndex := Index; FHintIndex := Index;
FShowingLongHint := True; FShowingLongHint := True;
@ -4705,13 +4701,11 @@ begin
end; end;
function TObjectInspectorDlg.OnGridPropertyHint(Sender: TObject; function TObjectInspectorDlg.OnGridPropertyHint(Sender: TObject;
PointedRow: TOIPropertyGridRow; ScreenPos: TPoint; aHintWindow: THintWindow; PointedRow: TOIPropertyGridRow; out AHint: string): boolean;
out HintWinRect: TRect; out AHint: string): boolean;
begin begin
Result := False; Result := False;
if Assigned(FOnPropertyHint) then if Assigned(FOnPropertyHint) then
Result := FOnPropertyHint(Sender, PointedRow, ScreenPos, Result := FOnPropertyHint(Sender, PointedRow, AHint);
aHintWindow, HintWinRect, AHint);
end; end;
procedure TObjectInspectorDlg.SetAvailComboBoxText; procedure TObjectInspectorDlg.SetAvailComboBoxText;

12
ide/main.pp
View File

@ -499,15 +499,13 @@ type
procedure OIOnViewRestricted(Sender: TObject); procedure OIOnViewRestricted(Sender: TObject);
procedure OIOnDestroy(Sender: TObject); procedure OIOnDestroy(Sender: TObject);
procedure OIOnAutoShow(Sender: TObject); procedure OIOnAutoShow(Sender: TObject);
procedure OIRemainingKeyDown(Sender: TObject; var Key: Word; procedure OIRemainingKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Shift: TShiftState);
procedure OIOnAddToFavorites(Sender: TObject); procedure OIOnAddToFavorites(Sender: TObject);
procedure OIOnRemoveFromFavorites(Sender: TObject); procedure OIOnRemoveFromFavorites(Sender: TObject);
procedure OIOnFindDeclarationOfProperty(Sender: TObject); procedure OIOnFindDeclarationOfProperty(Sender: TObject);
procedure OIOnSelectionChange(Sender: TObject); procedure OIOnSelectionChange(Sender: TObject);
function OIOnPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow; function OIOnPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow;
ScreenPos: TPoint; aHintWindow: THintWindow; out AHint: string): boolean;
out HintWinRect: TRect; out AHint: string): boolean;
procedure OIOnUpdateRestricted(Sender: TObject); procedure OIOnUpdateRestricted(Sender: TObject);
function OnPropHookGetMethodName(const Method: TMethod; function OnPropHookGetMethodName(const Method: TMethod;
PropOwner: TObject): String; PropOwner: TObject): String;
@ -1812,9 +1810,8 @@ begin
OIChangedTimer.AutoEnabled:=true; OIChangedTimer.AutoEnabled:=true;
end; end;
function TMainIDE.OIOnPropertyHint(Sender: TObject; function TMainIDE.OIOnPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow;
PointedRow: TOIPropertyGridRow; ScreenPos: TPoint; aHintWindow: THintWindow; out AHint: string): boolean;
out HintWinRect: TRect; out AHint: string): boolean;
var var
Code: TCodeBuffer; Code: TCodeBuffer;
Caret: TPoint; Caret: TPoint;
@ -1823,7 +1820,6 @@ var
begin begin
Result:=false; Result:=false;
AHint:=''; AHint:='';
HintWinRect:=Rect(0,0,0,0);
if (ObjectInspector1=nil) or not BeginCodeTools then exit; if (ObjectInspector1=nil) or not BeginCodeTools then exit;
Result:=FindDeclarationOfOIProperty(ObjectInspector1,PointedRow,Code,Caret,NewTopLine) Result:=FindDeclarationOfOIProperty(ObjectInspector1,PointedRow,Code,Caret,NewTopLine)
and (TIDEHelpManager(HelpBoss).GetHintForSourcePosition(Code.Filename,Caret, and (TIDEHelpManager(HelpBoss).GetHintForSourcePosition(Code.Filename,Caret,