← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to lcl/include/application.inc

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2014-05-15 23:17:51 UTC
  • mfrom: (1.1.13)
  • Revision ID: package-import@ubuntu.com-20140515231751-gumj9a01g0ghm7ac
Tags: 1.2.2+dfsg-1
* New upstream release with few fixes and official support of FPC 2.6.4.
  - The detailed list of changes can be found here:
  http://wiki.lazarus.freepascal.org/Lazarus_1.2_fixes_branch#Fixes_for_1.2.2_.28Merged.29

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/include/application.inc
813
813
  or (not HintInfo.HintWindowClass.InheritsFrom(THintWindow)) then
814
814
    HintInfo.HintWindowClass := HintWindowClass;
815
815
 
816
 
  i:=FApplicationHandlers[ahtShowHint].Count;
817
 
  if CanShow and (i>0) then begin
 
816
  if CanShow then begin
818
817
    if Assigned(FOnShowHint) then
819
818
      FOnShowHint(HintInfo.HintStr, CanShow, HintInfo);
 
819
    i:=FApplicationHandlers[ahtShowHint].Count;
820
820
    while FApplicationHandlers[ahtShowHint].NextDownIndex(i) do
821
821
      TShowHintEvent(FApplicationHandlers[ahtShowHint][i])(HintInfo.HintStr, CanShow, HintInfo);
822
822
  end;