Skip to content

Commit

Permalink
Beta fixes.
Browse files Browse the repository at this point in the history
  • Loading branch information
Lasse Rautiainen committed Sep 23, 2015
1 parent 196e4ec commit 496385c
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 7 deletions.
4 changes: 2 additions & 2 deletions Forms/EditBone.Form.Main.pas
Original file line number Diff line number Diff line change
Expand Up @@ -1358,12 +1358,12 @@ procedure TMainForm.ActionSearchToggleBookmarkExecute(Sender: TObject);
LEditor := FDocument.GetActiveEditor;
if Assigned(LEditor) then
LEditor.ToggleBookMark
{ else
else
begin
LEditor := FDocument.GetActiveSplitEditor;
if Assigned(LEditor) then
LEditor.ToggleBookMark
end; }
end;
end;

procedure TMainForm.ActionSelectEncodingExecute(Sender: TObject);
Expand Down
15 changes: 10 additions & 5 deletions Units/EditBone.Document.pas
Original file line number Diff line number Diff line change
Expand Up @@ -2719,6 +2719,7 @@ procedure TEBDocument.ToggleSplit;
LSplitEditor.Highlighter.Colors.LoadFromFile(LEditor.Highlighter.Colors.FileName);
LSplitEditor.ChainEditor(LEditor);
LSplitEditor.SetFocus;
LSplitEditor.Minimap.Visible := LEditor.Minimap.Visible;
{ horizontal splitter }
LSplitterHorizontal := TBCSplitter.Create(PageControl.ActivePage);
LSplitterHorizontal.Align := alBottom;
Expand All @@ -2741,12 +2742,16 @@ procedure TEBDocument.ToggleSplit;
end;

procedure TEBDocument.ToggleMiniMap;
var
LEditor: TBCEditor;

procedure ToggleMinimap(AEditor: TBCEditor);
begin
if Assigned(AEditor) then
AEditor.Minimap.Visible := not AEditor.Minimap.Visible;
end;

begin
LEditor := GetActiveEditor;
if Assigned(LEditor) then
LEditor.Minimap.Visible := not LEditor.Minimap.Visible;
ToggleMinimap(GetActiveEditor);
ToggleMinimap(GetActiveSplitEditor);
end;

{function TEBDocument.IsCompareFilesActivePage: Boolean;
Expand Down

0 comments on commit 496385c

Please sign in to comment.