diff options
| -rw-r--r-- | extras/tiopf/demos/StringGridMediatorDemo/frm_main.pas | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/extras/tiopf/demos/StringGridMediatorDemo/frm_main.pas b/extras/tiopf/demos/StringGridMediatorDemo/frm_main.pas index 9f49f8d3..f82f96a6 100644 --- a/extras/tiopf/demos/StringGridMediatorDemo/frm_main.pas +++ b/extras/tiopf/demos/StringGridMediatorDemo/frm_main.pas @@ -76,18 +76,26 @@ begin end; procedure TMainForm.btnAddClicked(Sender: TObject); +var + lData: TPerson; begin - + lData := TPerson.CreateNew; + lData.Name := 'New Name'; + lData.Age := 12; + FList.Add(lData); end; procedure TMainForm.btnEditClicked(Sender: TObject); begin + if medGrid.SelectedObject = nil then + Exit; EditPerson(TPerson(medGrid.SelectedObject)); end; procedure TMainForm.btnDeleteClicked(Sender: TObject); begin - + medGrid.SelectedObject.Deleted := True; + FList.NotifyObservers; end; procedure TMainForm.btnUpdateClicked(Sender: TObject); @@ -112,6 +120,8 @@ var lData: TPerson; begin lData := medGrid.SelectedObject as TPerson; + if lData = nil then + Exit; edtName.Text := lData.Name; edtAge.Text := IntToStr(lData.Age); end; @@ -218,7 +228,7 @@ begin ImageName := ''; TabOrder := 7; OnClick := @btnAddClicked; - Enabled := False; +// Enabled := False; end; btnEdit := TfpgButton.Create(self); @@ -243,7 +253,7 @@ begin ImageName := ''; TabOrder := 9; OnClick := @btnDeleteClicked; - Enabled := False; +// Enabled := False; end; btnRetrieve := TfpgButton.Create(self); |