← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to ide/whlpview.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
ide/whlpview.pas
1
1
{
2
 
    $Id: whlpview.pas,v 1.13 2005/02/14 17:13:18 peter Exp $
3
2
    This file is part of the Free Pascal Integrated Development Environment
4
3
    Copyright (c) 1998 by Berczi Gabor
5
4
 
937
936
  begin
938
937
    GetLinkBounds(Link,R);
939
938
    SetCurPtr(R.A.X,R.A.Y);
940
 
    TrackCursor(true);
 
939
    TrackCursor(do_centre);
941
940
    {St:=GetLinkTarget(Link);
942
941
    If St<>'' then
943
942
      SetTitle('Help '+St);}
1000
999
      ISwitchToTopic(FileID_,Context_,false);
1001
1000
      ScrollTo(Delta_.X,Delta_.Y);
1002
1001
      SetCurPtr(CurPos_.X,CurPos_.Y);
1003
 
      TrackCursor(false);
 
1002
      TrackCursor(do_not_centre);
1004
1003
      if CurLink<>CurLink_ then SetCurLink(CurLink_);
1005
1004
    end;
1006
1005
    DrawView;
1027
1026
          IndexHelpTopic:=HelpTopic;
1028
1027
     end;
1029
1028
 end;
1030
 
  if Owner<>nil then Owner^.Lock;
1031
 
  SetCurPtr(0,0); TrackCursor(false);
 
1029
  if Owner<>nil then
 
1030
    Owner^.Lock;
 
1031
  SetCurPtr(0,0);
 
1032
  TrackCursor(do_not_centre);
1032
1033
  RenderTopic;
1033
1034
  BuildTopicWordList;
1034
1035
  Lookup('');
1106
1107
      GetLinkBounds(P^.Index,R);
1107
1108
      SetCurPtr(R.A.X+(I-1)+length(Lookupword),R.A.Y);
1108
1109
      CurLink:=P^.Index; DrawView;
1109
 
      TrackCursor(true);
 
1110
      TrackCursor(do_centre);
1110
1111
      if Owner<>nil then Owner^.UnLock;
1111
1112
    end;
1112
1113
  end;
1161
1162
            PrevTopic;
1162
1163
        else DontClear:=true;
1163
1164
        end;
1164
 
        if DontClear=false then ClearEvent(Event);
 
1165
        if not DontClear then ClearEvent(Event);
1165
1166
      end;
1166
1167
    evKeyDown :
1167
1168
      begin
1170
1171
          kbTab :
1171
1172
            SelectNextLink(true);
1172
1173
          kbShiftTab :
1173
 
            begin NoSelect:=true; SelectNextLink(false); NoSelect:=false; end;
 
1174
            begin
 
1175
              NoSelect:=true;
 
1176
              SelectNextLink(false);
 
1177
              NoSelect:=false;
 
1178
            end;
1174
1179
          kbEnter :
1175
1180
            if CurLink<>-1 then
1176
1181
              SelectLink(CurLink);
1180
1185
        else
1181
1186
          case Event.CharCode of
1182
1187
             #32..#255 :
1183
 
               begin NoSelect:=true; Lookup(LookupWord+Event.CharCode); NoSelect:=false; end;
1184
 
          else DontClear:=true;
 
1188
               begin
 
1189
                 NoSelect:=true;
 
1190
                 Lookup(LookupWord+Event.CharCode);
 
1191
                 NoSelect:=false;
 
1192
               end;
 
1193
          else
 
1194
            DontClear:=true;
1185
1195
          end;
1186
1196
        end;
1187
 
        TrackCursor(false);
1188
 
        if DontClear=false then ClearEvent(Event);
 
1197
        TrackCursor(do_not_centre);
 
1198
        if not DontClear then
 
1199
          ClearEvent(Event);
1189
1200
      end;
1190
1201
  end;
1191
1202
  inherited HandleEvent(Event);
1404
1415
end;
1405
1416
 
1406
1417
END.
1407
 
{
1408
 
  $Log: whlpview.pas,v $
1409
 
  Revision 1.13  2005/02/14 17:13:18  peter
1410
 
    * truncate log
1411
 
 
1412
 
}