Menu
▾
▴
instantobjects-cvscommit — Generates a message for every commit made on CVS
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(13) |
Sep
(25) |
Oct
(10) |
Nov
(19) |
Dec
(20) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(206) |
Mar
(43) |
Apr
(25) |
May
(20) |
Jun
(69) |
Jul
(121) |
Aug
(95) |
Sep
(122) |
Oct
(213) |
Nov
(46) |
Dec
(39) |
| 2006 |
Jan
(28) |
Feb
(57) |
Mar
(21) |
Apr
(7) |
May
(11) |
Jun
(2) |
Jul
(8) |
Aug
(13) |
Sep
(2) |
Oct
(2) |
Nov
(20) |
Dec
(16) |
| 2007 |
Jan
(9) |
Feb
(15) |
Mar
|
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
|
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(1) |
Sep
(9) |
Oct
|
Nov
(1) |
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(8) |
Apr
(1) |
May
|
Jun
|
Jul
(11) |
Aug
(57) |
Sep
(2) |
Oct
(6) |
Nov
|
Dec
(7) |
| 2010 |
Jan
(11) |
Feb
(1) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
(1) |
Aug
(2) |
Sep
(27) |
Oct
(3) |
Nov
(7) |
Dec
(1) |
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(8) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
(3) |
Nov
(1) |
Dec
(1) |
| 2013 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
(4) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
|
Feb
|
Mar
(1) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
(3) |
Oct
|
Nov
(4) |
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:04:18
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Demos/PrimerCross/ModelExternal Modified Files: Model.pas Log Message: Bug fixing for TInstantGraphic support. Index: Model.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Model.pas 7 Dec 2004 08:45:34 -0000 1.1 --- Model.pas 18 Feb 2005 11:04:08 -0000 1.2 *************** *** 167,175 **** TPerson = class(TContact) ! { IOMETADATA stored; BirthDate: DateTime; Emails: Parts(TEmail) externalstored 'Person_Email'; Employer: Reference(TCompany); ! Picture: Blob; Salary: Currency; } _BirthDate: TInstantDateTime; --- 167,175 ---- TPerson = class(TContact) ! {IOMETADATA stored; BirthDate: DateTime; Emails: Parts(TEmail) externalstored 'Person_Email'; Employer: Reference(TCompany); ! Picture: Graphic; Salary: Currency; } _BirthDate: TInstantDateTime; *************** *** 476,481 **** end; - { TPhone } - procedure TPerson.SetSalary(Value: Currency); begin --- 476,479 ---- *************** *** 483,486 **** --- 481,486 ---- end; + { TPhone } + function TPhone.GetName: string; begin |
|
From: Carlo B. <car...@us...> - 2005-02-18 09:10:49
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17893/Demos/PrimerCross Modified Files: QueryView.dfm QueryView.pas Log Message: Test of MaxCount fetching keys. Added test support in Primer Index: QueryView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/QueryView.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** QueryView.pas 10 Feb 2005 23:06:20 -0000 1.3 --- QueryView.pas 18 Feb 2005 09:10:40 -0000 1.4 *************** *** 13,17 **** QGrids, QDBGrids, QStdCtrls, QExtCtrls, QActnList, QMenus, QButtons, {$ENDIF} ! BasicView, Db, InstantPresentation; type --- 13,17 ---- QGrids, QDBGrids, QStdCtrls, QExtCtrls, QActnList, QMenus, QButtons, {$ENDIF} ! BasicView, Db, InstantPresentation, Mask; type *************** *** 30,33 **** --- 30,35 ---- TestSelector: TInstantSelector; TestSource: TDataSource; + MaxCountEdit: TMaskEdit; + NumberLabel: TLabel; procedure ExecuteActionExecute(Sender: TObject); procedure ExampleComboBoxClick(Sender: TObject); *************** *** 87,90 **** --- 89,93 ---- begin Close; + TestSelector.MaxCount := StrToInt(Trim(MaxCountEdit.text)); Command.Text := CommandEdit.Text; Open; Index: QueryView.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/QueryView.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** QueryView.dfm 20 Jul 2004 11:05:15 -0000 1.1 --- QueryView.dfm 18 Feb 2005 09:10:40 -0000 1.2 *************** *** 1,8 **** inherited QueryViewForm: TQueryViewForm Height = 320 object Splitter: TSplitter Left = 0 Top = 147 ! Width = 425 Height = 6 Cursor = crVSplit --- 1,9 ---- inherited QueryViewForm: TQueryViewForm + Width = 600 Height = 320 object Splitter: TSplitter Left = 0 Top = 147 ! Width = 600 Height = 6 Cursor = crVSplit *************** *** 12,16 **** Left = 0 Top = 0 ! Width = 425 Height = 147 Align = alTop --- 13,17 ---- Left = 0 Top = 0 ! Width = 600 Height = 147 Align = alTop *************** *** 34,41 **** FocusControl = ExampleComboBox end object CommandEdit: TMemo Left = 30 Top = 30 ! Width = 365 Height = 87 Align = alClient --- 35,52 ---- FocusControl = ExampleComboBox end + object NumberLabel: TLabel + Left = 443 + Top = 126 + Width = 77 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = '&Max Count:' + FocusControl = MaxCountEdit + end object CommandEdit: TMemo Left = 30 Top = 30 ! Width = 540 Height = 87 Align = alClient *************** *** 59,63 **** Left = 168 Top = 121 ! Width = 221 Height = 21 Style = csDropDownList --- 70,74 ---- Left = 168 Top = 121 ! Width = 281 Height = 21 Style = csDropDownList *************** *** 66,74 **** OnClick = ExampleComboBoxClick end end object ResultPanel: TPanel Left = 0 Top = 153 ! Width = 425 Height = 167 Align = alClient --- 77,95 ---- OnClick = ExampleComboBoxClick end + object MaxCountEdit: TMaskEdit + Left = 524 + Top = 122 + Width = 44 + Height = 21 + EditMask = '#########;1; ' + MaxLength = 9 + TabOrder = 3 + Text = '0 ' + end end object ResultPanel: TPanel Left = 0 Top = 153 ! Width = 600 Height = 167 Align = alClient *************** *** 78,82 **** Left = 0 Top = 0 ! Width = 425 Height = 167 Align = alClient --- 99,103 ---- Left = 0 Top = 0 ! Width = 600 Height = 167 Align = alClient |
|
From: Carlo B. <car...@us...> - 2005-02-18 09:10:49
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17893/Source/Core Modified Files: InstantPersistence.pas Log Message: Test of MaxCount fetching keys. Added test support in Primer Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** InstantPersistence.pas 13 Feb 2005 18:46:47 -0000 1.21 --- InstantPersistence.pas 18 Feb 2005 09:10:40 -0000 1.22 *************** *** 14816,14819 **** --- 14816,14820 ---- begin ObjectReferenceList.Add(CreateObjectReference(DataSet)); + if (MaxCount > 0) and (ObjectReferenceList.Count = MaxCount) then break; DataSet.Next; end; |
|
From: Steven M. <sr...@us...> - 2005-02-18 08:19:27
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDbSQL In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4734 Modified Files: InstantNexusDbSQLConnectionDefEdit.pas InstantNexusDbSQLConnectionDefEdit.dfm InstantNexusDbSQL.pas Log Message: Further updates to the NexusDbSQL Broker. 1. Integrated with CVS code as of 8:00am on 14 Feb 2005 (AESDT); 2. Fixes to improve OQL behaviour. 3. Fixes for D5 support. Index: InstantNexusDbSQL.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDbSQL.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantNexusDbSQL.pas 20 Nov 2004 10:52:31 -0000 1.2 --- InstantNexusDbSQL.pas 18 Feb 2005 08:19:17 -0000 1.3 *************** *** 63,66 **** --- 63,69 ---- uses + {$IFDEF MSWINDOWS} + Windows, + {$ENDIF} Classes, Db, SysUtils, InstantPersistence, InstantClasses, InstantCommand, nxdb, nxsdServerEngine, nxreRemoteServerEngine, nxllComponent, *************** *** 129,132 **** --- 132,136 ---- function CreateResolver(Map: TInstantAttributeMap): TInstantSQLResolver; override; function GetDBMSName: string; override; + function GetSQLDelimiters: String; override; // SRM - 20 Jan 2005 function GetSQLQuote: Char; override; function InternalCreateQuery: TInstantQuery; override; *************** *** 144,148 **** TInstantNexusDbSQLResolver = class(TInstantSQLResolver); ! TInstantNexusDbSQLTranslator = class(TInstantRelationalTranslator); TInstantNexusDbSQLQuery = class(TInstantSQLQuery) --- 148,157 ---- TInstantNexusDbSQLResolver = class(TInstantSQLResolver); ! TInstantNexusDbSQLTranslator = class(TInstantRelationalTranslator) ! protected ! function GetDelimiters: String; override; // SRM - 20 Jan 2005 ! function GetQuote: Char; override; // SRM - 29 Dec 2004 ! function IncludeOrderFields: Boolean; override; // SRM - 29 Dec 2004 ! end; TInstantNexusDbSQLQuery = class(TInstantSQLQuery) *************** *** 154,159 **** uses ! Controls, InstantConsts, InstantNexusDbSQLConnectionDefEdit, InstantUtils, ! nxdbBase, nxsdTypes; procedure TInstantNexusDbSQLConnectionDef.LoadAliasList(FALiasList : TStrings); --- 163,171 ---- uses ! Controls, InstantConsts, InstantNexusDbSQLConnectionDefEdit, ! InstantUtils, nxdbBase, nxsdTypes; ! ! const ! SUndefined = 'Undefined'; procedure TInstantNexusDbSQLConnectionDef.LoadAliasList(FALiasList : TStrings); *************** *** 209,213 **** class function TInstantNexusDbSQLConnectionDef.ConnectionTypeName: string; begin ! Result := 'NexusDbSQL'; end; --- 221,225 ---- class function TInstantNexusDbSQLConnectionDef.ConnectionTypeName: string; begin ! Result := 'NexusDb (Remote/SQL)'; // SRM - 29 Dec 2004 end; *************** *** 294,303 **** function TInstantNexusDbSQLConnector.GetDatabaseName: string; begin ! Result := Database.AliasName; end; function TInstantNexusDbSQLConnector.GetDBMSName: string; begin ! Result := 'NexusDb'; end; --- 306,318 ---- function TInstantNexusDbSQLConnector.GetDatabaseName: string; begin ! if Assigned(Database) then // SRM - 29 Dec 2004 ! Result := Database.AliasName ! else // SRM - 29 Dec 2004 ! Result := SUndefined; // SRM - 29 Dec 2004 end; function TInstantNexusDbSQLConnector.GetDBMSName: string; begin ! Result := 'NexusDb (Remote/SQL)'; // SRM - 29 Dec 2004 end; *************** *** 430,434 **** procedure TInstantNexusDbSQLConnector.InternalCommitTransaction; begin ! Database.Commit; end; --- 445,450 ---- procedure TInstantNexusDbSQLConnector.InternalCommitTransaction; begin ! if Database.InTransaction then // SRM - 29 Dec 2004 ! Database.Commit; end; *************** *** 451,460 **** procedure TInstantNexusDbSQLConnector.InternalRollbackTransaction; begin ! Database.Rollback; end; procedure TInstantNexusDbSQLConnector.InternalStartTransaction; begin ! Database.StartTransaction; end; --- 467,478 ---- procedure TInstantNexusDbSQLConnector.InternalRollbackTransaction; begin ! if Database.InTransaction then // SRM - 29 Dec 2004 ! Database.Rollback; end; procedure TInstantNexusDbSQLConnector.InternalStartTransaction; begin ! if not Database.InTransaction then // SRM - 29 Dec 2004 ! Database.StartTransaction; end; *************** *** 495,499 **** Result := Query; //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.CreateDataSet'); ! end; function TInstantNexusDbSQLBroker.CreateResolver( --- 513,517 ---- Result := Query; //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.CreateDataSet'); ! end; function TInstantNexusDbSQLBroker.CreateResolver( *************** *** 525,537 **** function TInstantNexusDbSQLBroker.Execute(const AStatement: string; AParams: TParams): Integer; begin //CodeSite.SendFmtMsg('SQL Statement: %s', [#13 + AStatement]); ! with CreateDataSet(AStatement, AParams) as TNexusDbQuery do try ! ExecSQL; ! Result := RowsAffected; finally ! Free; end; end; --- 543,559 ---- function TInstantNexusDbSQLBroker.Execute(const AStatement: string; AParams: TParams): Integer; + var // SRM - 11 Feb 2005 + DataSet: TNexusDbQuery; // SRM - 11 Feb 2005 begin //CodeSite.SendFmtMsg('SQL Statement: %s', [#13 + AStatement]); ! // SRM - 11 Feb 2005: begin ! DataSet := AcquireDataSet(AStatement, AParams) as TNexusDbQuery; try ! DataSet.ExecSQL; ! Result := DataSet.RowsAffected; finally ! ReleaseDataSet(DataSet); end; + // SRM - 11 Feb 2005: end end; *************** *** 556,561 **** function TInstantNexusDbSQLBroker.GetDBMSName: string; begin ! Result := 'NexusDbSQL'; end; function TInstantNexusDbSQLBroker.GetSQLQuote: Char; --- 578,590 ---- function TInstantNexusDbSQLBroker.GetDBMSName: string; begin ! Result := 'NexusDb (Remote/SQL)'; // SRM - 29 Dec 2004 ! end; ! ! // SRM - 20 Jan 2005: begin ! function TInstantNexusDbSQLBroker.GetSQLDelimiters: String; ! begin ! Result := '""'; end; + // SRM - 20 Jan 2005: end function TInstantNexusDbSQLBroker.GetSQLQuote: Char; *************** *** 599,602 **** --- 628,652 ---- end; + { TInstantNexusDbSQLTranslator } + + // SRM - 20 Jan 2005: begin + function TInstantNexusDbSQLTranslator.GetDelimiters: String; + begin + Result := '""'; + end; + // SRM - 20 Jan 2005: end + + // SRM - 29 Dec 2004: begin + function TInstantNexusDbSQLTranslator.GetQuote: Char; + begin + Result := ''''; + end; + + function TInstantNexusDbSQLTranslator.IncludeOrderFields: Boolean; + begin + Result := True; + end; + // SRM - 29 Dec 2004: end + initialization RegisterClass(TInstantNexusDbSQLConnectionDef); Index: InstantNexusDbSQLConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDbSQLConnectionDefEdit.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantNexusDbSQLConnectionDefEdit.dfm 17 Nov 2004 17:53:00 -0000 1.1 --- InstantNexusDbSQLConnectionDefEdit.dfm 18 Feb 2005 08:19:16 -0000 1.2 *************** *** 1,5 **** object InstantNexusDbSQLConnectionDefEditForm: TInstantNexusDbSQLConnectionDefEditForm ! Left = 299 ! Top = 202 BorderStyle = bsDialog Caption = ' NexusDbSQL Connection' --- 1,5 ---- object InstantNexusDbSQLConnectionDefEditForm: TInstantNexusDbSQLConnectionDefEditForm ! Left = 257 ! Top = 296 BorderStyle = bsDialog Caption = ' NexusDbSQL Connection' *************** *** 150,157 **** ItemHeight = 13 TabOrder = 1 - OnCloseUp = ServerComboBoxLoadAlias OnDropDown = ServerComboBoxDropDown OnExit = ServerComboBoxLoadAlias - OnSelect = ServerComboBoxSelect end object StreamFormatComboBox: TComboBox --- 150,155 ---- *************** *** 190,196 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 393 - 35) object OkButton: TButton Left = 223 --- 188,191 ---- Index: InstantNexusDbSQLConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDbSQLConnectionDefEdit.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantNexusDbSQLConnectionDefEdit.pas 17 Nov 2004 17:53:00 -0000 1.1 --- InstantNexusDbSQLConnectionDefEdit.pas 18 Feb 2005 08:19:16 -0000 1.2 *************** *** 82,86 **** lblIdSize: TLabel; procedure BrowseButtonClick(Sender: TObject); - procedure ServerComboBoxSelect(Sender: TObject); procedure rgSelDbClick(Sender: TObject); procedure ServerComboBoxLoadAlias(Sender: TObject); --- 82,85 ---- *************** *** 182,191 **** end; - procedure TInstantNexusDbSQLConnectionDefEditForm.ServerComboBoxSelect( - Sender: TObject); - begin - LoadAliasNames; - end; - procedure TInstantNexusDbSQLConnectionDefEditForm.rgSelDbClick( Sender: TObject); --- 181,184 ---- *************** *** 214,217 **** --- 207,213 ---- begin rgSelDb.SetFocus; + {$IFNDEF VER130} + ServerComboBox.OnCloseUp := ServerComboBoxLoadAlias; + {$ENDIF} end; |
|
From: Steven M. <sr...@us...> - 2005-02-18 08:16:55
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3976/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/D5 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-02-18 04:42:42
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20173 Modified Files: OF_readme.txt Log Message: Draft update for V2 Index: OF_readme.txt =================================================================== RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OF_readme.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OF_readme.txt 6 Sep 2004 18:12:42 -0000 1.1 --- OF_readme.txt 18 Feb 2005 04:42:33 -0000 1.2 *************** *** 1,36 **** ! ObjectFoundry Readme ! by Carlo Wolter - 06/09/2004 ! This file contains compilation instructions for the ! Object Foundry integration between IO and ModelMaker(c) ! ModelMaker is an UML designer integrated with Delphi. It can be used also for InstantObject design, provided ! you place in the ! $(ProgramFiles)\ModelMakerTools\ModelMaker\6.2\Experts ! directory the OFExpt.dll ! expert. This DLL can be compiled using the project in this directory. Please take note that the project needs to know where the ! MM Expert files are. This requires to put in ! Project/Directories-Conditionals/SearchPath ! the subdir ! $(ProgramFiles)\ModelMakerTools\ModelMaker\x.x\Experts ! or the like. ! In this directory there is a single file needed: ! MMToolsApi.PAS ! This file being protected by copyright of ModelMakerTools ! cannot be put on CVS. ! Every rightful owner of a MM license, though, should have no ! problems to find it. ! Currently there are a few glitches, namely some missing glyph. ! I thought it would be better to allow starting the test in advance. ! Please make us know (email, forum) abouty any finding and problem. ! Thanks ! Carlo Wolter --- 1,53 ---- ! ObjectFoundry (for IO V2) Readme ! by Carlo Wolter/Steven Mitchell - 18 Feb 2005 ! This file contains instructions and information for the ! Object Foundry (OF) integration between IO version 2 and ! ModelMaker(c) versions 7 and 8. ! ModelMaker (MM) is an UML designer integrated with Delphi. It can be used also for InstantObject design, provided ! you place the OFExpt.dll ! expert file in the ! $(ProgramFiles)\ModelMakerTools\ModelMaker\x.x\Experts ! directory. MM detects and loads it during startup and ! "ObjectFoundry enabled" is included on the MM startup splash ! screen. It is also listed in the "Plug in expert manager" ! dialog launched from the Tools/Expert Manager menu option ! in MM. This DLL can be compiled using the project in this directory. Please take note that the project needs to know where the ! MM Expert files are. Therefore make sure the subdir ! $(ProgramFiles)\ModelMakerTools\ModelMaker\x.x\Experts ! is in the project options search path ! (ie Project/Directories-Conditionals/SearchPath). ! This is required because in the MM experts directory there is ! a single file that is needed: ! MMToolsApi.PAS ! Also ensure that 'MM7' is defined in 'Conditional defines'. ! Note: The MMToolsApi.PAS file is protected by copyright of ! ModelMakerTools and cannot be put into CVS. Every legitimate ! owner of a MM licence, though, should have no problems in ! finding it. ! To operate correctly this version of OF expects and ! generates the IO Metadata identifier tag in the class ! metadata info as follows: ! "{IOMETADATA " (without quotes but including trailing space). ! Conversion of IO MM projects that did not have the IO ! Metadata identifier tag: ! Make sure that the model is up to date then save and close ! Modelmaker. Backup the MM project file. Backup any previous ! 'OFExpt.dll' file and copy the new 'OFExpt.dll' file to the ! {$Modelmaker}\Experts folder as indicated above. Re-open ! Modelmaker. Re-generating the Delphi code from ModelMaker ! should update the model code units to include the new class ! metadata identifier tag. ! ! Please report any problems to the IO news groups at ! "news.instantobjects.org". |
Update of /cvsroot/instantobjects/Source/Brokers/FlashFiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2410 Modified Files: InstantFlashFiler.pas InstantFlashFilerConnectionDefEdit.dfm InstantFlashFilerConnectionDefEdit.pas Added Files: InstantFFReg.pas ioff50.cfg ioff50.res Log Message: Updated by femfad - Compatibility with D5 Pro. Created D5 folder for the packages. Index: InstantFlashFilerConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/FlashFiler/InstantFlashFilerConnectionDefEdit.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantFlashFilerConnectionDefEdit.dfm 29 Jul 2004 20:43:14 -0000 1.2 --- InstantFlashFilerConnectionDefEdit.dfm 17 Feb 2005 05:24:34 -0000 1.3 *************** *** 86,92 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 362 - 35) object OkButton: TButton Left = 204 --- 86,89 ---- Index: InstantFlashFilerConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/FlashFiler/InstantFlashFilerConnectionDefEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantFlashFilerConnectionDefEdit.pas 29 Jul 2004 20:43:14 -0000 1.2 --- InstantFlashFilerConnectionDefEdit.pas 17 Feb 2005 05:24:34 -0000 1.3 *************** *** 65,69 **** uses ! FFDB, FileCtrl; {$R *.DFM} --- 65,69 ---- uses ! FFDB, FileCtrl, InstantPersistence, InstantClasses; {$R *.DFM} --- NEW FILE: InstantFFReg.pas --- (* * InstantObjects * ADS Support *) (* ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1.1 * * The contents of this file are subject to the Mozilla Public License Version * 1.1 (the "License"); you may not use this file except in compliance with * the License. You may obtain a copy of the License at * http://www.mozilla.org/MPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is: Seleqt InstantObjects * * The Initial Developer of the Original Code is: Seleqt * * Portions created by the Initial Developer are Copyright (C) 2001-2003 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) unit InstantFFReg; {$IFNDEF VER130} {$WARN SYMBOL_PLATFORM OFF} {$ENDIF} interface procedure Register; implementation uses Classes, InstantFlashFiler; procedure Register; begin RegisterComponents('InstantObjects', [TInstantFlashFilerConnector]); end; end. Index: InstantFlashFiler.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/FlashFiler/InstantFlashFiler.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantFlashFiler.pas 16 Sep 2004 11:33:37 -0000 1.3 --- InstantFlashFiler.pas 17 Feb 2005 05:24:34 -0000 1.4 *************** *** 212,216 **** const FieldTypes: array[TInstantDataType] of TFieldType = ! (ftInteger, ftFloat, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; --- 212,216 ---- const FieldTypes: array[TInstantDataType] of TFieldType = ! (ftInteger, ftFloat, ftBCD, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; --- NEW FILE: ioff50.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ioff50.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\borland\delphi5\Projects\Bpl" -LN"c:\borland\delphi5\Projects\Bpl" -U"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -O"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -I"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -R"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -Z |
|
From: Femi F. <fad...@us...> - 2005-02-17 04:19:57
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21900/Brokers/ADS Modified Files: InstantADS.pas InstantADSConnectionDefEdit.pas Added Files: InstantADSReg.pas Log Message: Updated by femfad - Compatibility with D5 Pro. Index: InstantADS.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADS/InstantADS.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantADS.pas 16 Sep 2004 11:30:01 -0000 1.3 --- InstantADS.pas 17 Feb 2005 04:19:48 -0000 1.4 *************** *** 296,300 **** const FieldTypes: array[TInstantDataType] of TFieldType = ! (ftInteger, ftFloat, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; --- 296,300 ---- const FieldTypes: array[TInstantDataType] of TFieldType = ! (ftInteger, ftFloat, ftBCD, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; --- NEW FILE: InstantADSReg.pas --- (* * InstantObjects * ADS Support *) (* ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1.1 * * The contents of this file are subject to the Mozilla Public License Version * 1.1 (the "License"); you may not use this file except in compliance with * the License. You may obtain a copy of the License at * http://www.mozilla.org/MPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is: Seleqt InstantObjects * * The Initial Developer of the Original Code is: Seleqt * * Portions created by the Initial Developer are Copyright (C) 2001-2003 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) unit InstantADSReg; {$IFNDEF VER130} {$WARN SYMBOL_PLATFORM OFF} {$ENDIF} interface procedure Register; implementation uses Classes, InstantADS; procedure Register; begin RegisterComponents('InstantObjects', [TInstantADSConnector]); end; end. Index: InstantADSConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADS/InstantADSConnectionDefEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantADSConnectionDefEdit.pas 29 Jul 2004 20:43:12 -0000 1.2 --- InstantADSConnectionDefEdit.pas 17 Feb 2005 04:19:49 -0000 1.3 *************** *** 73,77 **** uses ! SysUtils, FileCtrl, Dialogs, IniFiles; const --- 73,77 ---- uses ! SysUtils, FileCtrl, Dialogs, IniFiles, InstantPersistence, InstantClasses; const |
|
From: Steven M. <sr...@us...> - 2005-02-16 06:49:09
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30921 Modified Files: OFExpt.dpr Log Message: Corrected resource statements. Index: OFExpt.dpr =================================================================== RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFExpt.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** OFExpt.dpr 17 Nov 2004 20:59:50 -0000 1.2 --- OFExpt.dpr 16 Feb 2005 06:49:00 -0000 1.3 *************** *** 1,7 **** library OFExpt; ! {$R OFExpt_ver.res} // SRM - 02 Nov 2004 ! //{$R *.RES} // SRM - 02 Nov 2004 ! {$R ..\Design\iodesimages.res} // SRM - 01 Oct 2004 uses --- 1,6 ---- library OFExpt; ! {$R *.RES} ! {$R ..\Design\iodesimages.res} uses |
|
From: Nando D. <na...@us...> - 2005-02-14 17:57:54
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2298 Modified Files: Maintainers.html Log Message: added Andrea Vaccari Index: Maintainers.html =================================================================== RCS file: /cvsroot/instantobjects/Docs/Maintainers.html,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Maintainers.html 12 Feb 2005 06:43:48 -0000 1.1 --- Maintainers.html 14 Feb 2005 17:57:45 -0000 1.2 *************** *** 10,14 **** <META NAME="CREATED" CONTENT="20050209;10225000"> <META NAME="CHANGEDBY" CONTENT="Nando Dessena"> ! <META NAME="CHANGED" CONTENT="20050212;7411677"> <STYLE> --- 10,14 ---- <META NAME="CREATED" CONTENT="20050209;10225000"> <META NAME="CHANGEDBY" CONTENT="Nando Dessena"> ! <META NAME="CHANGED" CONTENT="20050214;18573381"> <STYLE> *************** *** 25,29 **** <TBODY> <TR> ! <TD WIDTH=216 HEIGHT=18 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Module maintainers</I></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> --- 25,29 ---- <TBODY> <TR> ! <TD WIDTH=216 HEIGHT=17 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Module maintainers</I></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> *************** *** 169,174 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>User Docs</B></TD> ! <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> --- 169,174 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=RIGHT BGCOLOR="#0000FF"><B>User Docs</B></TD> ! <TD ALIGN=CENTER>AV</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> *************** *** 196,200 **** </TR> <TR> ! <TD HEIGHT=18 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Colour legend</I></B></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> --- 196,200 ---- </TR> <TR> ! <TD HEIGHT=17 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Colour legend</I></B></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> *************** *** 214,218 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=CENTER BGCOLOR="#C0C0C0">Not applicable</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> --- 214,227 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=CENTER BGCOLOR="#C0C0C0">Not applicable</TD> ! <TD ALIGN=LEFT><BR></TD> ! <TD ALIGN=LEFT><BR></TD> ! <TD ALIGN=LEFT>AV</TD> ! <TD ALIGN=LEFT>Andrea Vaccari</TD> ! <TD ALIGN=LEFT><BR></TD> ! <TD ALIGN=LEFT><BR></TD> ! </TR> ! <TR> ! <TD HEIGHT=18 ALIGN=CENTER BGCOLOR="#FFFF00">Vacant</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> *************** *** 223,227 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=CENTER BGCOLOR="#FFFF00">Vacant</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> --- 232,236 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> *************** *** 232,237 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=LEFT><BR></TD> ! <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>FF</TD> --- 241,246 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=LEFT BGCOLOR="#99CCFF"><B><I>Main roles</I></B></TD> ! <TD ALIGN=LEFT><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>FF</TD> *************** *** 241,246 **** </TR> <TR> ! <TD HEIGHT=18 ALIGN=LEFT BGCOLOR="#99CCFF"><B><I>Main roles</I></B></TD> ! <TD ALIGN=LEFT><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>ND</TD> --- 250,255 ---- </TR> <TR> ! <TD HEIGHT=17 ALIGN=LEFT BGCOLOR="#0000FF"><B>Project Manager</B></TD> ! <TD ALIGN=LEFT>CW</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>ND</TD> *************** *** 250,255 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=LEFT BGCOLOR="#0000FF"><B>Project Manager</B></TD> ! <TD ALIGN=LEFT>CW</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>RG</TD> --- 259,264 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=LEFT BGCOLOR="#0000FF"><B>Release Manager</B></TD> ! <TD ALIGN=LEFT>CB</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>RG</TD> *************** *** 259,264 **** </TR> <TR> ! <TD HEIGHT=17 ALIGN=LEFT BGCOLOR="#0000FF"><B>Release Manager</B></TD> ! <TD ALIGN=LEFT>CB</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>UB</TD> --- 268,273 ---- </TR> <TR> ! <TD HEIGHT=18 ALIGN=LEFT><BR></TD> ! <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>UB</TD> |
|
From: Nando D. <na...@us...> - 2005-02-13 18:46:58
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21991/Core Modified Files: InstantPersistence.pas Log Message: external part fixes (on behalf of Andrea Vaccari) Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** InstantPersistence.pas 11 Feb 2005 14:38:15 -0000 1.20 --- InstantPersistence.pas 13 Feb 2005 18:46:47 -0000 1.21 *************** *** 12846,12850 **** FieldStr, WhereStr: string; begin ! FieldStr := '%s, %s'; WhereStr := Format('%s = :%s AND %s = :%s', [EmbraceField(InstantClassFieldName), InstantClassFieldName, --- 12846,12850 ---- FieldStr, WhereStr: string; begin ! FieldStr := Format('%s, %s', [EmbraceField('%s'), EmbraceField('%s')]); WhereStr := Format('%s = :%s AND %s = :%s', [EmbraceField(InstantClassFieldName), InstantClassFieldName, *************** *** 13573,13577 **** [AttributeMetadata.FieldName + InstantClassFieldName, AttributeMetadata.FieldName + InstantIdFieldName, ! AObject.Metadata.TableName]); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); --- 13573,13577 ---- [AttributeMetadata.FieldName + InstantClassFieldName, AttributeMetadata.FieldName + InstantIdFieldName, ! AttributeMetadata.ClassMetadata.TableName]); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); *************** *** 13967,13971 **** [AttributeMetadata.FieldName + InstantClassFieldName, AttributeMetadata.FieldName + InstantIdFieldName, ! AObject.Metadata.TableName]); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); --- 13967,13971 ---- [AttributeMetadata.FieldName + InstantClassFieldName, AttributeMetadata.FieldName + InstantIdFieldName, ! AttributeMetadata.ClassMetadata.TableName]); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); |
|
From: Carlo W. <cw...@us...> - 2005-02-12 16:51:34
|
Update of /cvsroot/instantobjects/Source/Brokers/FlashFiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6279/Source/Brokers/FlashFiler Added Files: ffdb_enh.pas Log Message: Update Object Foundry --- NEW FILE: ffdb_enh.pas --- {*********************************************************} {* FlashFiler: FFDBEnh.PAS 2.02 *} {* Copyright (c) TurboPower Software Co 1996-2001 *} {* All rights reserved. *} {*********************************************************} {* FlashFiler: TffTableEnh - provides RecNo support *} {*********************************************************} {$I ffdefine.inc} unit ffdb_enh; interface uses db, ffdb, classes, sysutils, windows, ffllbase; type {The purpose of this table is to provide RecNo support. This support will allow grids the capability of displaying proportional scrollbars.} TffTableEnh = class(TffTable) protected teRecNo : TffWord32; function GetRecNo: Integer; override; function GetRecord(aBuffer : PChar; aGetMode : TGetMode; aDoCheck : boolean): TGetResult; override; procedure InternalFirst; override; procedure InternalLast; override; procedure InternalOpen; override; procedure InternalSetToRecord(aBuffer: PChar); override; function btResetRange(aCursorID : TffCursorID; SwallowSeqAccessError : Boolean) : Boolean; override; protected public function GetCurrentRecord(aBuffer : PChar) : boolean; override; function IsSequenced : boolean; override; end; TffQueryEnh = class(TffQuery) protected teRecNo : TffWord32; function GetRecNo: Integer; override; function GetRecord(aBuffer : PChar; aGetMode : TGetMode; aDoCheck : boolean): TGetResult; override; procedure InternalFirst; override; procedure InternalLast; override; procedure InternalOpen; override; procedure InternalSetToRecord(aBuffer: PChar); override; protected public function GetCurrentRecord(aBuffer : PChar) : boolean; override; function IsSequenced : boolean; override; end; implementation type PDataSetRecInfo = ^TDataSetRecInfo; TDataSetRecInfo = packed record riBookmarkFlag : TBookmarkFlag; riRecNo : TffWord32; end; {*** TffTableEnh ****************************************************} function TffTableEnh.GetCurrentRecord(aBuffer: PChar): boolean; begin Result := inherited GetCurrentRecord(aBuffer); if Result then teRecNo := PDataSetRecInfo(aBuffer + dsRecInfoOfs)^.riRecNo; end; {--------} function TffTableEnh.GetRecNo: Integer; var Buffer : PChar; begin Buffer := ActiveBuffer; Result := PDataSetRecInfo(Buffer + dsRecInfoOfs)^.riRecNo; end; {--------} function TffTableEnh.GetRecord(aBuffer: PChar; aGetMode: TGetMode; aDoCheck: boolean): TGetResult; begin Result := inherited GetRecord(aBuffer, aGetMode, aDoCheck); case aGetMode of gmNext : if Result = grOK then Inc(teRecNo); gmPrior : if Result = grOK then Dec(teRecNo); end; if Result = grOK then with PDataSetRecInfo(aBuffer + dsRecInfoOfs)^ do begin riBookmarkFlag := bfCurrent; riRecNo := teRecNo; end; end; {--------} procedure TffTableEnh.InternalFirst; begin teRecNo := 0; inherited InternalFirst; end; {--------} procedure TffTableEnh.InternalLast; begin teRecNo := GetRecordCount + 1; inherited InternalLast; end; {--------} procedure TffTableEnh.InternalOpen; begin inherited InternalOpen; teRecNo := 0; end; {--------} procedure TffTableEnh.InternalSetToRecord(aBuffer: PChar); begin inherited InternalSetToRecord(aBuffer); teRecNo := PDataSetRecInfo(aBuffer + dsRecInfoOfs)^.riRecNo; end; {--------} function TffTableEnh.IsSequenced: boolean; begin Result := True; end; {--------} function TffTableEnh.btResetRange(aCursorID : TffCursorID; SwallowSeqAccessError : Boolean) : Boolean; begin Result := inherited btResetRange(aCursorID, SwallowSeqAccessError); if Result then teRecNo := 0; end; {********************************************************************} { TffQueryEnh } function TffQueryEnh.GetCurrentRecord(aBuffer: PChar): boolean; begin Result := inherited GetCurrentRecord(aBuffer); if Result then teRecNo := PDataSetRecInfo(aBuffer + dsRecInfoOfs)^.riRecNo; end; function TffQueryEnh.GetRecNo: Integer; var Buffer : PChar; begin Buffer := ActiveBuffer; Result := PDataSetRecInfo(Buffer + dsRecInfoOfs)^.riRecNo; end; function TffQueryEnh.GetRecord(aBuffer: PChar; aGetMode: TGetMode; aDoCheck: boolean): TGetResult; begin Result := inherited GetRecord(aBuffer, aGetMode, aDoCheck); case aGetMode of gmNext : if Result = grOK then Inc(teRecNo); gmPrior : if Result = grOK then Dec(teRecNo); end; if Result = grOK then with PDataSetRecInfo(aBuffer + dsRecInfoOfs)^ do begin riBookmarkFlag := bfCurrent; riRecNo := teRecNo; end; end; procedure TffQueryEnh.InternalFirst; begin teRecNo := 0; inherited InternalFirst; end; procedure TffQueryEnh.InternalLast; begin teRecNo := GetRecordCount + 1; inherited InternalLast; end; procedure TffQueryEnh.InternalOpen; begin inherited InternalOpen; teRecNo := 0; end; procedure TffQueryEnh.InternalSetToRecord(aBuffer: PChar); begin inherited InternalSetToRecord(aBuffer); teRecNo := PDataSetRecInfo(aBuffer + dsRecInfoOfs)^.riRecNo; end; function TffQueryEnh.IsSequenced: boolean; begin Result := True; end; end. |
|
From: Nando D. <na...@us...> - 2005-02-12 11:51:57
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17515/Core Modified Files: InstantPump.pas Log Message: small amendments Index: InstantPump.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPump.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantPump.pas 17 Nov 2004 20:59:48 -0000 1.3 --- InstantPump.pas 12 Feb 2005 11:51:41 -0000 1.4 *************** *** 104,108 **** procedure TInstantPump.SetDestConnector(const Value: TInstantConnector); begin ! if Value <> FDestConnector then begin if Assigned(FDestConnector) then FDestConnector.RemoveFreeNotification(Self); --- 104,109 ---- procedure TInstantPump.SetDestConnector(const Value: TInstantConnector); begin ! if Value <> FDestConnector then ! begin if Assigned(FDestConnector) then FDestConnector.RemoveFreeNotification(Self); *************** *** 115,119 **** procedure TInstantPump.SetSourceConnector(const Value: TInstantConnector); begin ! if Value <> FSourceConnector then begin if Assigned(FSourceConnector) then FSourceConnector.RemoveFreeNotification(Self); --- 116,121 ---- procedure TInstantPump.SetSourceConnector(const Value: TInstantConnector); begin ! if Value <> FSourceConnector then ! begin if Assigned(FSourceConnector) then FSourceConnector.RemoveFreeNotification(Self); *************** *** 195,201 **** FDestConnector.StartTransaction; try ! for I := 0 to Pred(Model.ClassMetadatas.Count) do begin ClassMetadata := Model.ClassMetadatas[I]; ! if ClassMetadata.IsStored then begin if poEmptyDestBeforePump in FOptions then DeleteAllDestObjects(ClassMetadata); --- 197,205 ---- FDestConnector.StartTransaction; try ! for I := 0 to Pred(Model.ClassMetadatas.Count) do ! begin ClassMetadata := Model.ClassMetadatas[I]; ! if ClassMetadata.IsStored then ! begin if poEmptyDestBeforePump in FOptions then DeleteAllDestObjects(ClassMetadata); *************** *** 220,231 **** Query.Command := 'select * from ' + ClassMetadata.Name + ' order by Id'; Query.Open; ! for i := 0 to Query.ObjectCount -1 do ! begin ! SourceObject := Query.Objects[i] as TInstantObject; ! DestObject := TInstantObjectClass(Query.ObjectClass).Clone(SourceObject, FDestConnector); ! DestObject.Store; end; finally - Query.Close; Query.Free; end; --- 224,238 ---- Query.Command := 'select * from ' + ClassMetadata.Name + ' order by Id'; Query.Open; ! try ! for i := 0 to Query.ObjectCount -1 do ! begin ! SourceObject := Query.Objects[i] as TInstantObject; ! DestObject := TInstantObjectClass(Query.ObjectClass).Clone(SourceObject, FDestConnector); ! DestObject.Store; ! end; ! finally ! Query.Close; end; finally Query.Free; end; *************** *** 241,251 **** Query.Command := 'select * from ' + ClassMetadata.Name + ' order by Id'; Query.Open; ! for i := 0 to Query.ObjectCount -1 do ! begin ! if (Query.Objects[i] is TInstantObject) then ! TInstantObject(Query.Objects[i]).Dispose; ! end; finally - Query.Close; Query.Free; end; --- 248,261 ---- Query.Command := 'select * from ' + ClassMetadata.Name + ' order by Id'; Query.Open; ! try ! for i := 0 to Query.ObjectCount -1 do ! begin ! if (Query.Objects[i] is TInstantObject) then ! TInstantObject(Query.Objects[i]).Dispose; ! end; ! finally ! Query.Close; ! end; finally Query.Free; end; *************** *** 255,259 **** begin inherited; ! if Operation = opRemove then begin if AComponent = FSourceConnector then FSourceConnector := nil; --- 265,270 ---- begin inherited; ! if Operation = opRemove then ! begin if AComponent = FSourceConnector then FSourceConnector := nil; |
|
From: Nando D. <na...@us...> - 2005-02-12 11:43:02
|
Update of /cvsroot/instantobjects/Demos/Pump In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14243/Pump Modified Files: Pump.dpr Pump.mdr UFmPump.dfm UFmPump.pas Log Message: InstantPump basic demo Index: UFmPump.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/Pump/UFmPump.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** UFmPump.pas 29 Jul 2004 20:55:13 -0000 1.1 --- UFmPump.pas 12 Feb 2005 11:42:52 -0000 1.2 *************** *** 10,21 **** type TFmPump = class(TForm) ! InstantIBXConnector1: TInstantIBXConnector; ! InstantIBXConnector2: TInstantIBXConnector; IBDatabase1: TIBDatabase; IBDatabase2: TIBDatabase; EmptyBeforePumpCheckBox: TCheckBox; ! Button1: TButton; InstantPump1: TInstantPump; ! procedure Button1Click(Sender: TObject); procedure EmptyBeforePumpCheckBoxClick(Sender: TObject); private --- 10,23 ---- type TFmPump = class(TForm) ! SourceConnector: TInstantIBXConnector; ! DestConnector: TInstantIBXConnector; IBDatabase1: TIBDatabase; IBDatabase2: TIBDatabase; EmptyBeforePumpCheckBox: TCheckBox; ! PumpButton: TButton; InstantPump1: TInstantPump; ! Label1: TLabel; ! Label3: TLabel; ! procedure PumpButtonClick(Sender: TObject); procedure EmptyBeforePumpCheckBoxClick(Sender: TObject); private *************** *** 30,37 **** {$R *.dfm} ! procedure TFmPump.Button1Click(Sender: TObject); begin ! if MessageDlg('Begin pump?', mtConfirmation, [mbYes,mbNo], 0) = mrYes then ! InstantPump1.Pump; end; --- 32,42 ---- {$R *.dfm} ! procedure TFmPump.PumpButtonClick(Sender: TObject); begin ! if MessageDlg('Begin pump?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then ! begin ! InstantPump1.Pump;//(AModel); ! ShowMessage('Pump finished.'); ! end; end; Index: Pump.dpr =================================================================== RCS file: /cvsroot/instantobjects/Demos/Pump/Pump.dpr,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Pump.dpr 29 Jul 2004 20:55:13 -0000 1.1 --- Pump.dpr 12 Feb 2005 11:42:51 -0000 1.2 *************** *** 4,8 **** Forms, UFmPump in 'UFmPump.pas' {FmPump}, ! Model in '..\PrimerCross\Model.pas'; {$R *.res} --- 4,8 ---- Forms, UFmPump in 'UFmPump.pas' {FmPump}, ! Model in '..\Intro\Model.pas'; {$R *.res} Index: UFmPump.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/Pump/UFmPump.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** UFmPump.dfm 29 Jul 2004 20:55:13 -0000 1.1 --- UFmPump.dfm 12 Feb 2005 11:42:52 -0000 1.2 *************** *** 3,7 **** Top = 330 Width = 469 ! Height = 306 Caption = 'InstantPump Demo' Color = clBtnFace --- 3,7 ---- Top = 330 Width = 469 ! Height = 133 Caption = 'InstantPump Demo' Color = clBtnFace *************** *** 14,20 **** PixelsPerInch = 96 TextHeight = 13 object EmptyBeforePumpCheckBox: TCheckBox Left = 8 ! Top = 8 Width = 193 Height = 17 --- 14,40 ---- PixelsPerInch = 96 TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 0 + Width = 442 + Height = 16 + Caption = 'This application uses the model from the Intro demo application.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 8 + Top = 24 + Width = 266 + Height = 13 + Caption = 'Change the settings at design time and recompile to use.' + end object EmptyBeforePumpCheckBox: TCheckBox Left = 8 ! Top = 48 Width = 193 Height = 17 *************** *** 23,73 **** OnClick = EmptyBeforePumpCheckBoxClick end ! object Button1: TButton Left = 8 ! Top = 32 Width = 75 Height = 25 Caption = 'Pump' TabOrder = 1 ! OnClick = Button1Click end ! object InstantIBXConnector1: TInstantIBXConnector Connection = IBDatabase1 ! Left = 48 ! Top = 160 end ! object InstantIBXConnector2: TInstantIBXConnector ! IsDefault = True BlobStreamFormat = sfXML Connection = IBDatabase2 ! Left = 168 ! Top = 160 end object IBDatabase1: TIBDatabase ! DatabaseName = 'C:\IBDATA\PRIMER.GDB' ! Params.Strings = ( ! 'user_name=SYSDBA' ! 'password=a') ! LoginPrompt = False ! SQLDialect = 1 ! Left = 48 ! Top = 208 end object IBDatabase2: TIBDatabase ! Connected = True ! DatabaseName = 'C:\IBDATA\PRIMERXML.FDB' ! Params.Strings = ( ! 'user_name=SYSDBA' ! 'password=a') ! LoginPrompt = False ! Left = 168 ! Top = 208 end object InstantPump1: TInstantPump ! SourceConnector = InstantIBXConnector1 ! DestConnector = InstantIBXConnector2 ! Options = [] ! Left = 112 ! Top = 104 end end --- 43,79 ---- OnClick = EmptyBeforePumpCheckBoxClick end ! object PumpButton: TButton Left = 8 ! Top = 72 Width = 75 Height = 25 Caption = 'Pump' TabOrder = 1 ! OnClick = PumpButtonClick end ! object SourceConnector: TInstantIBXConnector Connection = IBDatabase1 ! Left = 224 ! Top = 48 end ! object DestConnector: TInstantIBXConnector BlobStreamFormat = sfXML Connection = IBDatabase2 ! Left = 368 ! Top = 48 end object IBDatabase1: TIBDatabase ! Left = 264 ! Top = 48 end object IBDatabase2: TIBDatabase ! Left = 400 ! Top = 48 end object InstantPump1: TInstantPump ! SourceConnector = SourceConnector ! DestConnector = DestConnector ! Left = 320 ! Top = 24 end end Index: Pump.mdr =================================================================== RCS file: /cvsroot/instantobjects/Demos/Pump/Pump.mdr,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs3cv5lZ and /tmp/cvskrSVZy differ |
|
From: Nando D. <na...@us...> - 2005-02-12 11:41:58
|
Update of /cvsroot/instantobjects/Demos/Pump In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13837/Pump Added Files: .cvsignore Log Message: improved .cvsignore --- NEW FILE: .cvsignore --- *.dcu *.~* *.ddp *.exe |
|
From: Nando D. <na...@us...> - 2005-02-12 08:26:25
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1753/PrimerCross Added Files: .cvsignore Log Message: improved .cvsignore --- NEW FILE: .cvsignore --- *.dcu *.~* *.ddp *.exe |
|
From: Nando D. <na...@us...> - 2005-02-12 08:21:46
|
Update of /cvsroot/instantobjects/Demos/Intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32425/Intro Added Files: .cvsignore Log Message: improved .cvsignore --- NEW FILE: .cvsignore --- *.dcu *.~* *.ddp *.exe |
|
From: Nando D. <na...@us...> - 2005-02-12 08:19:53
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31744 Added Files: InstantPump.txt Log Message: InstantPump basic documentation --- NEW FILE: InstantPump.txt --- InstantPump =========== Nando Dessena, 12/02/2005 What is TInstantPump ==================== TInstantPump is a component that helps migrate data between InstantObjects databases. It can be of help in the following circumstances: - I have a Paradox database and want to migrate the data to a Firebird database. InstantObjects eases the creation of the new database schema, while InstantPump helps with moving the data. In the general case, you can migrate data using any combination of two InstantConnectors, provided the destination broker supports all the features you have used in the source database. For example, some brokers do not support external Parts and References, while others do. - I have decided to convert my Parts and References blobs from binary to XML format. To do that I create a new empty database, setup the source connector to use binary blobs and the destination connector to use XML blobs, and fire the InstantPump. - I need to change the datatype or size of my Id fields. What InstantPump currently can't do is migrate data between different models (for example migrate from classic blob-based collection storage to external collection storage). Using TInstantPump ================== TInstantPump has two main properties and one method. Basically you hook it to a source TInstantConnector (used to retrieve the objects from the source database) and to a destination TInstantConnector (used to write the objects to the destination database). Properties ---------- SourceConnector: TInstantConnector Use this property to point to the source database. Set the connector's properties (UseTransactions, BlobStreamFormat, IdDataType, IdSize...) to match those of the database. DestConnector: TInstantConnector Use this property to point to the destination database. Set the connector's properties (UseTransactions, BlobStreamFormat, IdDataType, IdSize...) to match those of the database. Options: set of TInstantPumpOption Tweak the pump process. poEmptyDestBeforePump - set this flag to have the component empty each destination table before writing objects to it. Default is [poEmptyDestBeforePump]. Methods ------- procedure Pump(Model: TInstantModel = nil); You use this method to start pumping. Currently, passing an external model is not supported, so you should pass nil and it means the component will use the global InstantModel. This also means that all the model units should be part of the project. IOW, the TInstantPump instance currently only works inside an IO project. Events ------ property BeforePump: TInstantSchemeEvent Handle this event to have a chance of looking at the TInstantScheme instance built by the source connector (and possibly modify it - not tested) before the pump. property AfterPump: TInstantSchemeEvent Same as BeforePump but called after the pump process has finished. Additional info --------------- Although not tested, it should be possible to use the pump without compiling the model units into the application that holds the TInstantPump instance. Just follow these steps: 1) create a package to hold the model units. 2) create a pump application (this could be provided with IO as a demo if it turns out useful) with no model. Compile it with run-time packages. 3) have the application dynamically load the model package: H := LoadPackage(MyModel.bpl'); Don't forget to do UnloadPackage(H); when you're finished. 4) before calling the Pump method, load the model from an MDR or XML file: InstantModel.LoadFromFile('MyModel.xml'); or InstantModel.LoadFromResFile('MyModel.mdr'); 5) Pump() and let me know how it goes. |
|
From: Nando D. <na...@us...> - 2005-02-12 06:43:57
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27228 Added Files: Maintainers.html Removed Files: Maintainers.txt Log Message: Maintainers.txt superseded by Maintainers.html --- Maintainers.txt DELETED --- --- NEW FILE: Maintainers.html --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HTML> <HEAD> <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=windows-1252"> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="OpenOffice.org 1.1.0 (Win32)"> <META NAME="AUTHOR" CONTENT="Nando Dessena"> <META NAME="CREATED" CONTENT="20050209;10225000"> <META NAME="CHANGEDBY" CONTENT="Nando Dessena"> <META NAME="CHANGED" CONTENT="20050212;7411677"> <STYLE> <!-- BODY,DIV,TABLE,THEAD,TBODY,TFOOT,TR,TH,TD,P { font-family:"Arial"; font-size:x-small } --> </STYLE> </HEAD> <BODY TEXT="#000000"> <TABLE FRAME=VOID CELLSPACING=0 COLS=7 RULES=GROUPS BORDER=1> <COLGROUP><COL WIDTH=216><COL WIDTH=86><COL WIDTH=86><COL WIDTH=86><COL WIDTH=86><COL WIDTH=86><COL WIDTH=86></COLGROUP> <TBODY> <TR> <TD WIDTH=216 HEIGHT=18 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Module maintainers</I></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> <TD WIDTH=86 ALIGN=CENTER><B><BR></B></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>X</B></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>D5</B></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>D6</B></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>D7</B></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>K3</B></TD> <TD ALIGN=CENTER BGCOLOR="#0000FF"><B>FPC</B></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>Core</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>ND</TD> <TD ALIGN=CENTER>ND</TD> <TD ALIGN=CENTER>AP</TD> <TD ALIGN=CENTER>UB</TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>TestSuite</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER>ND</TD> <TD ALIGN=CENTER>UB</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER>UB</TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>ObjectFoundry</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>RG</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>ADO Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER>UB</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>ADS Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>FF</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>BDE Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>DBISAM Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER>RG</TD> <TD ALIGN=CENTER>RG</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>DBX Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>FlashFiler Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>FF</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>IBX Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>ND</TD> <TD ALIGN=CENTER>ND</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>UIB Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>FF</TD> <TD ALIGN=CENTER>AP</TD> <TD ALIGN=CENTER>AP</TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER>UB</TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>NexusDB Broker(s)</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CW</TD> <TD ALIGN=CENTER>CW</TD> <TD ALIGN=CENTER>CW</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>XML Broker</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>UB</TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>Demos</B></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>CW</TD> <TD ALIGN=CENTER>CW</TD> <TD ALIGN=CENTER>CB</TD> <TD ALIGN=CENTER>UB</TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>User Docs</B></TD> <TD ALIGN=CENTER BGCOLOR="#FFFF00"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=RIGHT BGCOLOR="#0000FF"><B>Developer Docs</B></TD> <TD ALIGN=CENTER>All</TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> <TD ALIGN=CENTER BGCOLOR="#C0C0C0"><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=18 ALIGN=CENTER BGCOLOR="#99CCFF"><B><I>Colour legend</I></B></TD> <TD ALIGN=CENTER><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT BGCOLOR="#99CCFF"><B><I>Initials legend</I></B></TD> <TD ALIGN=LEFT><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=CENTER>Assigned</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>AP</TD> <TD ALIGN=LEFT>Andrea Petrelli</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=CENTER BGCOLOR="#C0C0C0">Not applicable</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>CB</TD> <TD ALIGN=LEFT>Carlo Barazzetta</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=CENTER BGCOLOR="#FFFF00">Vacant</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>CW</TD> <TD ALIGN=LEFT>Carlo Wolter</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>FF</TD> <TD ALIGN=LEFT>Femi Fadayomi</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=18 ALIGN=LEFT BGCOLOR="#99CCFF"><B><I>Main roles</I></B></TD> <TD ALIGN=LEFT><B><I><BR></I></B></TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>ND</TD> <TD ALIGN=LEFT>Nando Dessena</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=LEFT BGCOLOR="#0000FF"><B>Project Manager</B></TD> <TD ALIGN=LEFT>CW</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>RG</TD> <TD ALIGN=LEFT>Ron Grove</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> <TR> <TD HEIGHT=17 ALIGN=LEFT BGCOLOR="#0000FF"><B>Release Manager</B></TD> <TD ALIGN=LEFT>CB</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT>UB</TD> <TD ALIGN=LEFT>Uberto Barbini</TD> <TD ALIGN=LEFT><BR></TD> <TD ALIGN=LEFT><BR></TD> </TR> </TBODY> </TABLE> <!-- ************************************************************************** --> </BODY> </HTML> |
|
From: Nando D. <na...@us...> - 2005-02-11 17:03:50
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28424/Core Modified Files: InstantCode.pas Log Message: externalstored Part attributes do not map to an intermediate table anymore Index: InstantCode.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InstantCode.pas 20 Nov 2004 10:52:31 -0000 1.7 --- InstantCode.pas 11 Feb 2005 17:03:36 -0000 1.8 *************** *** 3975,3982 **** procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter); ! procedure WriteStr(const Name, Value: string); begin ! if Value <> '' then ! Writer.Write(' ' + Name + ' ''' + Value + ''''); end; --- 3975,3987 ---- procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter); ! procedure WriteStr(const Name, Value: string; const Force: Boolean = False); begin ! if (Value <> '') or Force then ! begin ! if Value <> '' then ! Writer.Write(' ' + Name + ' ''' + Value + '''') ! else ! Writer.Write(' ' + Name); ! end; end; *************** *** 3992,3996 **** WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName) else if Metadata.IsExternal = ceStored then ! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName) else WriteStr(MetaKeyStored, Metadata.StorageName); --- 3997,4005 ---- WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName) else if Metadata.IsExternal = ceStored then ! begin ! if Metadata.AttributeType = atPart then ! WriteStr(MetaKeyStored, Metadata.StorageName); ! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName, True); ! end else WriteStr(MetaKeyStored, Metadata.StorageName); *************** *** 8553,8557 **** begin FMetadata.IsExternal := ceStored; ! FMetadata.ExternalStoredName := ReadStringValue; end; if SameText(Token, MetaKeyExternalLinked) then --- 8562,8566 ---- begin FMetadata.IsExternal := ceStored; ! FMetadata.ExternalStoredName := ''; end; if SameText(Token, MetaKeyExternalLinked) then |
|
From: Nando D. <na...@us...> - 2005-02-11 16:29:12
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15399/Core Modified Files: InstantDefines.inc Log Message: slightly improved inc file Index: InstantDefines.inc =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantDefines.inc,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantDefines.inc 10 Feb 2005 23:06:28 -0000 1.2 --- InstantDefines.inc 11 Feb 2005 16:29:03 -0000 1.3 *************** *** 1,19 **** {$IFDEF VER130} ! {$DEFINE D5} ! {$DEFINE MSWINDOWS} {$ENDIF} {$IFDEF VER140} ! {$DEFINE D6} {$ENDIF} {$IFDEF VER150} ! {$DEFINE D7} ! {$ENDIF} ! ! {$IFNDEF VER130} {$DEFINE D6+} ! {$IFNDEF VER140} ! {$DEFINE D7+} ! {$ENDIF} {$ENDIF} --- 1,19 ---- {$IFDEF VER130} ! {$DEFINE MSWINDOWS} ! {$DEFINE D5} ! {$DEFINE D5+} {$ENDIF} {$IFDEF VER140} ! {$DEFINE D5+} ! {$DEFINE D6} ! {$DEFINE D6+} {$ENDIF} {$IFDEF VER150} ! {$DEFINE D5+} {$DEFINE D6+} ! {$DEFINE D7} ! {$DEFINE D7+} {$ENDIF} + |
|
From: Nando D. <na...@us...> - 2005-02-11 16:22:59
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12949/Core Modified Files: .cvsignore Log Message: improved .cvsignore Index: .cvsignore =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/.cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** .cvsignore 17 Feb 2004 14:53:02 -0000 1.1 --- .cvsignore 11 Feb 2005 16:22:49 -0000 1.2 *************** *** 1 **** ! *.dcu \ No newline at end of file --- 1,3 ---- ! *.dcu ! *.~* ! *.ddp |
|
From: Nando D. <na...@us...> - 2005-02-11 16:17:26
|
Update of /cvsroot/instantobjects/Source/Design/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10640/Design/D7 Added Files: .cvsignore Log Message: improved .cvsignore --- NEW FILE: .cvsignore --- *.dcu *.~* *.ddp |
|
From: Nando D. <na...@us...> - 2005-02-11 16:14:30
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9388/Design Modified Files: .cvsignore Log Message: improved .cvsignore Index: .cvsignore =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/.cvsignore,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** .cvsignore 20 Jul 2004 16:46:45 -0000 1.2 --- .cvsignore 11 Feb 2005 16:14:11 -0000 1.3 *************** *** 1,3 **** *.dcu ! InstantDesignTools.~pas ! InstantOTA.~pas \ No newline at end of file --- 1,3 ---- *.dcu ! *.~* ! *.ddp |
|
From: Nando D. <na...@us...> - 2005-02-11 16:12:28
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8412/Design Modified Files: InstantAttributeEditor.pas Log Message: externalstored Part attributes do not map to an intermediate table anymore Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** InstantAttributeEditor.pas 10 Feb 2005 23:06:31 -0000 1.9 --- InstantAttributeEditor.pas 11 Feb 2005 16:12:16 -0000 1.10 *************** *** 25,30 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix ! * Steven Mitchell: updating for OFExpt in MM7 * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena, Steven Mitchell * * ***** END LICENSE BLOCK ***** *) *************** *** 34,38 **** interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 33,37 ---- interface ! {$I ..\Core\InstantDefines.inc} uses *************** *** 115,119 **** procedure ExternalLinkedNameEditEnter(Sender: TObject); private ! FInMM: boolean; // True if in ModelMaker, default is False FLimited: Boolean; FModel: TInstantCodeModel; --- 114,119 ---- procedure ExternalLinkedNameEditEnter(Sender: TObject); private ! // True if in ModelMaker, default is False ! FInMM: Boolean; FLimited: Boolean; FModel: TInstantCodeModel; *************** *** 474,478 **** var ! HasName, HasClass, HasExternalStoredName, HasExternalLinkedName: Boolean; IsComplex, IsContainer, CanBeExternal, IsExternal, IsMaskable, IsString, IsValid: Boolean; begin --- 474,478 ---- var ! HasName, HasClass, HasExternalLinkedName: Boolean; IsComplex, IsContainer, CanBeExternal, IsExternal, IsMaskable, IsString, IsValid: Boolean; begin *************** *** 480,486 **** if not CanBeExternal then Subject.IsExternal := ceNo; ! if Subject.IsExternal = ceLinked then Subject.ExternalStoredName := ''; ! if Subject.IsExternal = ceStored then Subject.ExternalLinkedName := ''; --- 480,486 ---- if not CanBeExternal then Subject.IsExternal := ceNo; ! if (Subject.IsExternal = ceLinked) or (Subject.AttributeType = atPart) then Subject.ExternalStoredName := ''; ! if (Subject.IsExternal = ceStored) then Subject.ExternalLinkedName := ''; *************** *** 490,500 **** IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; - HasExternalStoredName := ExternalStoredNameEdit.Text <> ''; HasExternalLinkedName := ExternalLinkedNameEdit.Text <> ''; IsExternal := Subject.IsExternal <> ceNo; IsString := Subject.AttributeType in [atString, atMemo]; ! IsValid := HasName and (not IsComplex or HasClass) and ! (not IsExternal or (HasExternalStoredName or HasExternalLinkedName)); DisableSubControls(DefinitionSheet, Limited); --- 490,500 ---- IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; HasExternalLinkedName := ExternalLinkedNameEdit.Text <> ''; IsExternal := Subject.IsExternal <> ceNo; IsString := Subject.AttributeType in [atString, atMemo]; ! IsValid := HasName and (not IsComplex or HasClass); ! if IsValid and (Subject.IsExternal = ceLinked) then ! IsValid := HasExternalLinkedName; DisableSubControls(DefinitionSheet, Limited); *************** *** 518,528 **** EnableCtrl(IsExternalLabel, CanBeExternal); end; ! EnableCtrl(StorageNameLabel, not IsExternal); ! EnableCtrl(StorageNameEdit, not IsExternal); EnableCtrl(ExternalLinkedNameLabel, IsExternal and (Subject.IsExternal = ceLinked)); EnableCtrl(ExternalLinkedNameEdit, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalStoredNameLabel, IsExternal and (Subject.IsExternal = ceStored)); ! EnableCtrl(ExternalStoredNameEdit, IsExternal and (Subject.IsExternal = ceStored)); EnableCtrl(SizeLabel, IsString); --- 518,530 ---- EnableCtrl(IsExternalLabel, CanBeExternal); end; ! EnableCtrl(StorageNameLabel, not IsExternal or (Subject.AttributeType = atPart)); ! EnableCtrl(StorageNameEdit, not IsExternal or (Subject.AttributeType = atPart)); EnableCtrl(ExternalLinkedNameLabel, IsExternal and (Subject.IsExternal = ceLinked)); EnableCtrl(ExternalLinkedNameEdit, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalStoredNameLabel, IsExternal and (Subject.IsExternal = ceStored) ! and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStoredNameEdit, IsExternal and (Subject.IsExternal = ceStored) ! and not (Subject.AttributeType = atPart)); EnableCtrl(SizeLabel, IsString); |
