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

IDE: object inspector: fixed hints

Browse Source 
git-svn-id: trunk@31231 -
This commit is contained in:
mattias 2011-06-14 20:18:25 +00:00
parent f278799dc0
commit 7ed7e97d29
3 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/idehelpmanager.pas
View File

@ -1484,7 +1484,6 @@ begin
inc(NewHeight, 8); // border
HintWinRect := Rect(0, 0, NewWidth, NewHeight);
TheHint := '';
end else begin
HintWinRect := aHintWindow.CalcHintRect(Screen.Width, TheHint, nil);
end;

25
ideintf/objectinspector.pp
View File

@ -3046,7 +3046,7 @@ end;
procedure TOICustomPropertyGrid.HintTimer(sender : TObject);
var
Rect : TRect;
HintRect : TRect;
AHint : String;
Position : TPoint;
Index: integer;
@ -3081,15 +3081,15 @@ begin
if Index <> ItemIndex then
begin
HintType := GetHintTypeAt(Index,Position.X);
if (HintType = pehName) and Assigned(OnPropertyHint) then
if (HintType = pehName) and Assigned(OnPropertyHint) then
begin
if OnPropertyHint(Self, PointedRow, Position, FHintWindow, Rect, AHint) and
if OnPropertyHint(Self, PointedRow, Position, FHintWindow, HintRect, AHint) and
(AHint <> '') then
begin
FHintIndex := Index;
FShowingLongHint := True;
//DebugLn(['TOICustomPropertyGrid.HintTimer ',dbgs(Rect),' ',AHint,' ',dbgs(Position)]);
FHintWindow.ActivateHint(Rect, AHint);
//DebugLn(['TOICustomPropertyGrid.HintTimer ',dbgs(HintRect),' ',AHint,' ',dbgs(Position)]);
FHintWindow.ActivateHint(HintRect, AHint);
end;
exit;
end;
@ -3101,14 +3101,14 @@ begin
if AHint = '' then Exit;
FHintIndex := Index;
FShowingLongHint := True;
Rect := FHintWindow.CalcHintRect(0, AHint, nil); //no maxwidth
Rect.Left := Position.X + 10;
Rect.Top := Position.Y + 10;
Rect.Right := Rect.Left + Rect.Right + 3;
Rect.Bottom := Rect.Top + Rect.Bottom + 3;
HintRect := FHintWindow.CalcHintRect(0, AHint, nil); //no maxwidth
HintRect.Left := Position.X + 10;
HintRect.Top := Position.Y + 10;
HintRect.Right := HintRect.Left + HintRect.Right + 3;
HintRect.Bottom := HintRect.Top + HintRect.Bottom + 3;
//DebugLn(['TOICustomPropertyGrid.HintTimer ',dbgs(Rect),' ',AHint,' ',dbgs(Position)]);
FHintWindow.ActivateHint(Rect, AHint);
FHintWindow.ActivateHint(HintRect, AHint);
end;
Procedure TOICustomPropertyGrid.ResetHintTimer;
@ -4547,7 +4547,8 @@ function TObjectInspectorDlg.OnGridPropertyHint(Sender: TObject;
begin
Result := False;
if Assigned(FOnPropertyHint) then
Result := FOnPropertyHint(Sender, PointedRow, ScreenPos, aHintWindow, HintWinRect, AHint);
Result := FOnPropertyHint(Sender, PointedRow, ScreenPos,
aHintWindow, HintWinRect, AHint);
end;
procedure TObjectInspectorDlg.SetAvailComboBoxText;

7
ideintf/propedits.pp
View File

@ -1536,6 +1536,8 @@ procedure EditCollection(AComponent: TComponent; ACollection: TCollection; AProp
function IsInteresting(
const AEditor: TPropertyEditor; const AFilter: TTypeKinds): Boolean;
function dbgs(peh: TPropEditHint): string; overload;
const
NoDefaultValue = Longint($80000000); // magic number for properties with nodefault modifier
@ -6321,6 +6323,11 @@ begin
end;
end;
function dbgs(peh: TPropEditHint): string;
begin
writestr(Result,peh);
end;
{ TNoteBookActiveControlPropertyEditor }
function TNoteBookActiveControlPropertyEditor.CheckNewValue(