diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-05 12:02:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-05 12:02:33 +0200 |
| commit | 6f7070179e5a7ca8453495e3a901ce0a097213dd (patch) | |
| tree | d6f9f00fde7d316136f63e36b77d7202bbcbc900 /extras | |
| parent | d18891353ff8af30d2e8d858f26ef5a7dbe1eac0 (diff) | |
| download | fpGUI-6f7070179e5a7ca8453495e3a901ce0a097213dd.tar.xz | |
tiOPF demo 21: minor code change using shorter mediator syntax.
Diffstat (limited to 'extras')
| -rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi | 8 | ||||
| -rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi index 6f88bb12..ce40db74 100644 --- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi +++ b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi @@ -1,7 +1,7 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <Version Value="7"/> + <Version Value="9"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> @@ -9,10 +9,9 @@ </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> - <TargetFileExt Value=""/> </General> <VersionInfo> - <ProjectVersion Value=""/> + <StringTable ProductVersion=""/> </VersionInfo> <PublishOptions> <Version Value="2"/> @@ -80,7 +79,7 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="8"/> + <Version Value="9"/> <SearchPaths> <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/> </SearchPaths> @@ -89,6 +88,7 @@ <CStyleOperator Value="False"/> <AllowLabel Value="False"/> <CPPInline Value="False"/> + <UseAnsiStrings Value="False"/> </SyntaxOptions> </Parsing> <Other> diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas index 979e6592..9ab3c7e2 100644 --- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas +++ b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas @@ -95,7 +95,7 @@ begin tiAppError('You need to select a Contact first'); Exit; end; - c := TContact(TtiStringGridMediatorView(FMediator.FindByComponent(grdContacts).Mediator).SelectedObject); + c := TContact(TtiStringGridMediatorView(FMediator.ComponentMediator(grdContacts)).SelectedObject); if not Assigned(c) then Exit; //==> @@ -115,7 +115,7 @@ begin tiAppError('You need to select a Contact first'); Exit; end; - c := TContact(TtiStringGridMediatorView(FMediator.FindByComponent(grdContacts).Mediator).SelectedObject); + c := TContact(TtiStringGridMediatorView(FMediator.ComponentMediator(grdContacts)).SelectedObject); if tiAppConfirmation('Are you sure you want to delete <%s>', [c.FirstName + ' ' + c.LastName]) then begin |