diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-09 14:37:08 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-09 14:37:08 +0000 |
commit | a9dfbec692a7dbcb8790de41210df1adb91e01a4 (patch) | |
tree | 66cd024440eb6e6bc70dc91017cd423cb7f5345a /extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas | |
parent | d45aef853670f9b826d3c6bca1aee485098c5b2d (diff) | |
download | fpGUI-a9dfbec692a7dbcb8790de41210df1adb91e01a4.tar.xz |
* More updates to the tiOPF demo 21.
Diffstat (limited to 'extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas')
-rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas index e414937c..f78dc0f3 100644 --- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas +++ b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas @@ -8,14 +8,12 @@ uses SysUtils, Classes, gfxbase, fpgfx, gui_edit, gfx_widget, gui_form, gui_label, gui_button, gui_listview, gui_memo, - model, tiFormMediator, - tiMediators; + model, tiFormMediator; type TContactEditForm = class(TfpgForm) private - FData: TContact; {@VFD_HEAD_BEGIN: ContactEditForm} lblName1: TfpgLabel; edFName: TfpgEdit; @@ -36,11 +34,13 @@ type btnDelete: TfpgButton; btnDebug: TfpgButton; {@VFD_HEAD_END: ContactEditForm} + FData: TContact; FMediator: TFormMediator; FAdrsMediator: TFormMediator; procedure SetData(const AValue: TContact); procedure SetupMediators; procedure btnDebugClicked(Sender: TObject); + procedure btnEditClicked(Sender: TObject); public procedure AfterCreate; override; property Data: TContact read FData write SetData; @@ -54,7 +54,7 @@ function EditContact(AData: TContact): Boolean; implementation uses - contactmanager, tiDialogs; + contactmanager, tiDialogs, frmAddressMaint, tiListMediators; function EditContact(AData: TContact): Boolean; @@ -77,7 +77,6 @@ procedure TContactEditForm.SetupMediators; begin if not Assigned(FMediator) then begin - RegisterFallBackMediators; FMediator := TFormMediator.Create(self); FMediator.AddProperty('FirstName', edFName); FMediator.AddProperty('LastName', edLName); @@ -102,6 +101,22 @@ begin tiShowString(FData.AsDebugString); end; +procedure TContactEditForm.btnEditClicked(Sender: TObject); +var + obj: TAddress; +begin + obj := TAddress(TListViewMediator(FAdrsMediator.FindByComponent(lvAddresses).Mediator).SelectedObject); +// tiShowString(obj.AsDebugString); + + if not Assigned(obj) then + Exit; //==> + + if EditAddress(obj) then + begin + // do nothing + end; +end; + procedure TContactEditForm.SetData(const AValue: TContact); begin if FData=AValue then exit; @@ -271,6 +286,7 @@ begin Hint := ''; ImageName := ''; TabOrder := 14; + Enabled := False; end; btnEdit := TfpgButton.Create(self); @@ -283,6 +299,7 @@ begin Hint := ''; ImageName := ''; TabOrder := 15; + OnClick := @btnEditClicked; end; btnDelete := TfpgButton.Create(self); @@ -295,6 +312,7 @@ begin Hint := ''; ImageName := ''; TabOrder := 16; + Enabled := False; end; btnDebug := TfpgButton.Create(self); |