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

ideint: formatting

Browse Source 
git-svn-id: trunk@18493 -
This commit is contained in:
paul 2009-01-29 10:30:44 +00:00
parent 98092f80f8
commit 4885a81fe5
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ideintf/objectinspector.pp
View File

@ -1063,8 +1063,8 @@ begin
Result := true;
if FHintTimer = nil then
begin
FHintIndex:=-1;
FShowingLongHint:=false;
FHintIndex := -1;
FShowingLongHint := False;
FHintTimer := TTimer.Create(nil);
FHintTimer.Interval := 500;
FHintTimer.Enabled := False;
@ -2943,12 +2943,13 @@ begin
if Index <> ItemIndex then
begin
HintType := GetHintTypeAt(Index,Position.X);
if (HintType = pehName) and Assigned(OnPropertyHint) then begin
if OnPropertyHint(Self,PointedRow,Position,FHintWindow,Rect,AHint) then
if (HintType = pehName) and Assigned(OnPropertyHint) then
begin
if OnPropertyHint(Self, PointedRow, Position, FHintWindow, Rect, AHint) then
begin
FHintIndex:=Index;
FShowingLongHint:=true;
FHintWindow.ActivateHint(Rect,AHint);
FHintIndex := Index;
FShowingLongHint := True;
FHintWindow.ActivateHint(Rect, AHint);
end;
exit;
end;
@ -2958,9 +2959,9 @@ begin
end;
if AHint = '' then Exit;
FHintIndex:=Index;
FShowingLongHint:=true;
Rect := FHintWindow.CalcHintRect(0,AHint,nil); //no maxwidth
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;
@ -2982,10 +2983,10 @@ end;
procedure TOICustomPropertyGrid.HideHint;
begin
if FHintWindow=nil then exit;
FHintWindow.Visible:=false;
FHintIndex:=-1;
FShowingLongHint:=false;
if FHintWindow = nil then Exit;
FHintWindow.Visible := False;
FHintIndex := -1;
FShowingLongHint := False;
while FHintWindow.ControlCount > 0 do
FHintWindow.Controls[0].Free;
end;