Check-in [9a435d4730]
Not logged in

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

Overview
Comment:Prevent access violations when no repo is selected.
Timelines: family | ancestors | descendants | both | lazarus
Files: files | file ages | folders
SHA1:9a435d4730d354cf638d27e646a49649874d8db7
User & Date: tinus 2016-06-28 11:49:31
Context
2016-07-05
10:57
Enable sorting of checkouts. check-in: cec613ab80 user: tinus tags: lazarus
2016-06-28
11:49
Prevent access violations when no repo is selected. check-in: 9a435d4730 user: tinus tags: lazarus
11:12
Added active branch column. Color error repos grey. check-in: f41075014a user: tinus tags: lazarus
Changes

Changes to src/a_fileversioninfo.pas.

89
90
91
92
93
94
95

96
97
98
99
100
101
102
103
    end;
  finally
    Exts.Free;
  end;

  tbcView.TabIndex := 0;


  FExternalDiffCmd := modMain.Checkout.Settings.Values['gdiff-command'];
  btnExternalDiff.Enabled := (FExternalDiffCmd <> '');
end;

procedure TfraFileVersionInfo.synEditMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var







>
|







89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
    end;
  finally
    Exts.Free;
  end;

  tbcView.TabIndex := 0;

  if Assigned(modMain.Checkout) then
    FExternalDiffCmd := modMain.Checkout.Settings.Values['gdiff-command'];
  btnExternalDiff.Enabled := (FExternalDiffCmd <> '');
end;

procedure TfraFileVersionInfo.synEditMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var

Changes to src/f_commit.pas.

51
52
53
54
55
56
57

58
59
60

61
62
63
64
65
66
67
begin
  frameFileList.OnSelectionChanged := @frameFileListSelectionChanged;
  fraCommitMessage.OnGetFiles := @fraCommitMessageGetFiles;
end;

procedure TfrmCommit.FormShow(Sender: TObject);
begin

  Caption := 'Commit - ' + modMain.Checkout.Info.Values['project-name'];
  frameFileList.Revision := modMain.Checkout.Workdir;
  fraCommitMessage.WorkDir := modMain.Checkout.Workdir;

end;

procedure TfrmCommit.ApplicationPropertiesActivate(Sender: TObject);
begin
  // TODO: autorefresh?
  //frameFileList.btnRefresh.Click;
end;







>
|
|
|
>







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
begin
  frameFileList.OnSelectionChanged := @frameFileListSelectionChanged;
  fraCommitMessage.OnGetFiles := @fraCommitMessageGetFiles;
end;

procedure TfrmCommit.FormShow(Sender: TObject);
begin
  if Assigned(modMain.Checkout) then begin
    Caption := 'Commit - ' + modMain.Checkout.Info.Values['project-name'];
    frameFileList.Revision := modMain.Checkout.Workdir;
    fraCommitMessage.WorkDir := modMain.Checkout.Workdir;
  end;
end;

procedure TfrmCommit.ApplicationPropertiesActivate(Sender: TObject);
begin
  // TODO: autorefresh?
  //frameFileList.btnRefresh.Click;
end;