Check-in [6648d07b6c]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Position branches popup correctly. When no branches, show that.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6648d07b6ca43c45a9c21892462197bec652fbf6
User & Date: tinus 2015-11-25 18:47:52
Context
2015-11-25
19:17
Minor code optimizations. check-in: 9c85a796dd user: tinus tags: trunk
18:47
Position branches popup correctly. When no branches, show that. check-in: 6648d07b6c user: tinus tags: trunk
18:37
Separated status and branch buttons. check-in: 9ad9195233 user: tinus tags: trunk
Changes

Changes to src/VCSInfoMenuWzrd.pas.

769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
...
822
823
824
825
826
827
828







829
830
831
832
833
834
835
end;

procedure TVCSInfoWizard.actBranchExecute(Sender: TObject);
var
  P: TPoint;
begin
  with FButtonBranch.BoundsRect do
    P := FButtonBranch.ClientToScreen(Point(Left, Bottom));
  FMenuBranches.Popup(P.X, P.Y);
end;

procedure TVCSInfoWizard.actBranchMenuClick(Sender: TObject);
var
  BranchName: string;
begin
................................................................................
              mi := TMenuItem.Create(Menu);
              mi.Caption := Branch.Substring(2);
              mi.OnClick := actBranchMenuClick;
              Menu.Items.Add(mi);
            end;
          end;
        end;







      end;
    finally
      Branches.Free;
    end;
  end;
end {TVCSInfoWizard.actBranchMenuPopup};








|







 







>
>
>
>
>
>
>







769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
...
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
end;

procedure TVCSInfoWizard.actBranchExecute(Sender: TObject);
var
  P: TPoint;
begin
  with FButtonBranch.BoundsRect do
    P := FButtonBranch.Parent.ClientToScreen(Point(Left, Bottom));
  FMenuBranches.Popup(P.X, P.Y);
end;

procedure TVCSInfoWizard.actBranchMenuClick(Sender: TObject);
var
  BranchName: string;
begin
................................................................................
              mi := TMenuItem.Create(Menu);
              mi.Caption := Branch.Substring(2);
              mi.OnClick := actBranchMenuClick;
              Menu.Items.Add(mi);
            end;
          end;
        end;
      end;
      if Menu.Items.Count = 0 then begin
        mi := TMenuItem.Create(Menu);
        mi.Caption := '(no branches)';
        mi.Enabled := False;
        mi.OnClick := nil;
        Menu.Items.Add(mi);
      end;
    finally
      Branches.Free;
    end;
  end;
end {TVCSInfoWizard.actBranchMenuPopup};