← Back to branch summary

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

« back to all changes in this revision

Viewing changes to ide/sourceeditor.pp

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2014-07-14 20:16:50 UTC
  • mfrom: (1.1.15)
  • Revision ID: package-import@ubuntu.com-20140714201650-ossm36rrsdomp379
Tags: 1.2.4+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.4_.28Merged.29

Show diffs side-by-side

added added

removed removed

Lines of Context:
ide/sourceeditor.pp
757
757
    procedure HintTimer(Sender: TObject);
758
758
    procedure HideHintTimer(Sender: TObject);
759
759
    procedure OnApplicationUserInput(Sender: TObject; Msg: Cardinal);
 
760
    procedure OnApplicationDeactivate(Sender: TObject);
760
761
    procedure ShowSynEditHint(const MousePos: TPoint);
761
762
 
762
763
    procedure NextEditor;
3146
3147
procedure TSourceEditor.FocusEditor;
3147
3148
Begin
3148
3149
  DebugLnEnter(SRCED_PAGES, ['>> TSourceEditor.FocusEditor A ',PageName,' ',FEditor.Name]);
3149
 
  IDEWindowCreators.ShowForm(SourceNotebook,true);
 
3150
  IDEWindowCreators.ShowForm(SourceNotebook, true, vmOnlyMoveOffScreenToVisible);
3150
3151
  if FEditor.IsVisible then begin
3151
3152
    FEditor.SetFocus; // TODO: will cal EditorEnter, which does self.Activate  => maybe lock, and do here?
3152
3153
    FSharedValues.SetActiveSharedEditor(Self);
5733
5734
  CreateNotebook;
5734
5735
 
5735
5736
  Application.AddOnUserInputHandler(@OnApplicationUserInput,true);
 
5737
  Application.AddOnDeactivateHandler(@OnApplicationDeactivate);
 
5738
  Application.AddOnMinimizeHandler(@OnApplicationDeactivate);
5736
5739
 
5737
5740
  FStopBtnIdx := IDEImages.LoadImage(16, 'menu_stop');
5738
5741
end;
5754
5757
  FreeAndNil(FSrcEditsSortedForFilenames);
5755
5758
 
5756
5759
  Application.RemoveOnUserInputHandler(@OnApplicationUserInput);
 
5760
  Application.RemoveOnDeactivateHandler(@OnApplicationDeactivate);
 
5761
  Application.RemoveOnMinimizeHandler(@OnApplicationDeactivate);
5757
5762
  FreeThenNil(FMouseHintTimer);
5758
5763
  FreeThenNil(FMouseHideHintTimer);
5759
5764
  FreeThenNil(FHintWindow);
8047
8052
    SrcEdit:=GetActiveSE;
8048
8053
    if (FHintWindow <> nil) and FHintWindow.Visible then
8049
8054
      HideHint;
 
8055
    if (CodeContextFrm<>nil) then
 
8056
      CodeContextFrm.Hide;
8050
8057
 
8051
8058
    DebugLn(SRCED_PAGES, ['TSourceNotebook.NotebookPageChanged TempEdit=', DbgSName(SrcEdit)]);
8052
8059
    if SrcEdit <> nil then
8452
8459
    HideHint;
8453
8460
end;
8454
8461
 
 
8462
procedure TSourceNotebook.OnApplicationDeactivate(Sender: TObject);
 
8463
begin
 
8464
  if (CodeContextFrm<>nil) then
 
8465
    CodeContextFrm.Hide;
 
8466
end;
 
8467
 
8455
8468
procedure TSourceNotebook.EditorKeyDown(Sender: TObject; var Key: Word;
8456
8469
  Shift: TShiftState);
8457
8470
begin