diff options
| -rw-r--r-- | examples/gui/calendar/calendartest.lpi | 4 | ||||
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpi | 5 | ||||
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpr | 3 | ||||
| -rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/demo_adrsbook_mgm.lpi | 4 | ||||
| -rw-r--r-- | extras/tiopf/gui/tiListMediators.pas | 7 | ||||
| -rw-r--r-- | prototypes/miglayout/unittests/fpcunit_miglayout.lpi | 9 |
6 files changed, 13 insertions, 19 deletions
diff --git a/examples/gui/calendar/calendartest.lpi b/examples/gui/calendar/calendartest.lpi index 33da74c7..f4094a2a 100644 --- a/examples/gui/calendar/calendartest.lpi +++ b/examples/gui/calendar/calendartest.lpi @@ -1,11 +1,11 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="6"/> + <Version Value="7"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> + <LRSInOutputDirectory Value="False"/> </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi index 7c3cb7ce..023df691 100644 --- a/examples/gui/listviewtest/listviewtest.lpi +++ b/examples/gui/listviewtest/listviewtest.lpi @@ -1,15 +1,14 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="6"/> + <Version Value="7"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> + <LRSInOutputDirectory Value="False"/> </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> - <IconPath Value="./"/> <TargetFileExt Value=""/> </General> <VersionInfo> diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr index 864687ad..7f52805d 100644 --- a/examples/gui/listviewtest/listviewtest.lpr +++ b/examples/gui/listviewtest/listviewtest.lpr @@ -8,8 +8,6 @@ uses type - { TMainForm } - TMainForm = class(TfpgForm) private FEdit: TfpgEdit; @@ -18,7 +16,6 @@ type FTmpListView: TfpgListView; FQuitButton: TfpgButton; FCheck: TfpgCheckBox; - procedure CloseBttn(Sender: TObject); procedure AddBttn(Sender: TObject); procedure ShowHeadersChange(Sender: TObject); 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 6d1a6205..b497cf84 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,11 +1,11 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="6"/> + <Version Value="7"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> + <LRSInOutputDirectory Value="False"/> </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas index b95c032e..13fd4fcc 100644 --- a/extras/tiopf/gui/tiListMediators.pas +++ b/extras/tiopf/gui/tiListMediators.pas @@ -69,7 +69,7 @@ type procedure ClearList; override; procedure RebuildList; override; public - constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True); + constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True); reintroduce; overload; destructor Destroy; override; class function ComponentClass: TClass; override; function GetObjectFromRow(ARow: Integer): TtiObject; @@ -89,8 +89,8 @@ type FView: TfpgLVItem; procedure SetupFields; virtual; public - constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); - constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); overload; + constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); reintroduce; overload; + constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); reintroduce; overload; procedure BeforeDestruction; override; procedure Update(ASubject: TtiObject); override; published @@ -263,6 +263,7 @@ destructor TListViewMediator.Destroy; begin IsObserving := False; FView := nil; + FObserversInTransit.Free; inherited; end; diff --git a/prototypes/miglayout/unittests/fpcunit_miglayout.lpi b/prototypes/miglayout/unittests/fpcunit_miglayout.lpi index 5bd4ed11..c036fb5a 100644 --- a/prototypes/miglayout/unittests/fpcunit_miglayout.lpi +++ b/prototypes/miglayout/unittests/fpcunit_miglayout.lpi @@ -2,14 +2,14 @@ <CONFIG> <ProjectOptions> <PathDelim Value="/"/> - <Version Value="6"/> + <Version Value="7"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> + <LRSInOutputDirectory Value="False"/> </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> - <IconPath Value="./"/> <TargetFileExt Value=""/> </General> <VersionInfo> @@ -53,13 +53,10 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="5"/> + <Version Value="8"/> <SearchPaths> <OtherUnitFiles Value="../"/> </SearchPaths> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> <Other> <CustomOptions Value="-FUunits "/> |