root/trunk/Forms/frm_edit_book_info.pas

Show revision log
 
429434
126
    if frmEditAuthor.ShowModal = mrOk then
126
    if frmEditAuthor.ShowModal = mrOk then
127
    begin
127
    begin
128
      Family := lvAuthors.Items.Add;
128
      Family := lvAuthors.Items.Add;
 
129
      Family.Caption := frmEditAuthor.edFamily.Text;
129
      Family.Caption := frmEditAuthor.LastName;
130
      Family.SubItems.Add(frmEditAuthor.edName.Text);
130
      Family.SubItems.Add(frmEditAuthor.FirstName);
131
      Family.SubItems.Add(frmEditAuthor.edMiddle.Text);
131
      Family.SubItems.Add(frmEditAuthor.MidName);
 
132
132



133
      FChanged := True;
133
      FChanged := True;



134
    end;
134
    end;


...
...
148
148



149
  frmEditAuthor := TfrmEditAuthorData.Create(Self);
149
  frmEditAuthor := TfrmEditAuthorData.Create(Self);



150
  try
150
  try



151
    frmEditAuthor.edFamily.Text := Family.Caption;
151
    frmEditAuthor.LastName := Family.Caption;



152
    frmEditAuthor.edName.Text := Family.SubItems[0];
152
    frmEditAuthor.FirstName := Family.SubItems[0];



153
    frmEditAuthor.edMiddle.Text := Family.SubItems[1];
153
    frmEditAuthor.MidName := Family.SubItems[1];



154
154



155
    if frmEditAuthor.ShowModal = mrOk then
155
    if frmEditAuthor.ShowModal = mrOk then



156
    begin
156
    begin



157
      Family.Caption := frmEditAuthor.edFamily.Text;
157
      Family.Caption := frmEditAuthor.LastName;



158
      Family.SubItems[0] := frmEditAuthor.edName.Text;
158
      Family.SubItems[0] := frmEditAuthor.FirstName;



159
      Family.SubItems[1] := frmEditAuthor.edMiddle.Text;
159
      Family.SubItems[1] := frmEditAuthor.MidName;



160
160



161
      FChanged := True;
161
      FChanged := True;



162
    end;
162
    end;