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: <na...@us...> - 2006-02-28 10:46:54
|
Revision: 636 Author: nandod Date: 2006-02-28 02:46:42 -0800 (Tue, 28 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=636&view=rev Log Message: ----------- + Fixed Bug# 1439234 - Params not working with MS Access Modified Paths: -------------- trunk/Source/Brokers/ADO/InstantADO.pas Modified: trunk/Source/Brokers/ADO/InstantADO.pas =================================================================== --- trunk/Source/Brokers/ADO/InstantADO.pas 2006-02-28 10:43:34 UTC (rev 635) +++ trunk/Source/Brokers/ADO/InstantADO.pas 2006-02-28 10:46:42 UTC (rev 636) @@ -24,8 +24,8 @@ * the Initial Developer. All Rights Reserved. * * Contributor(s): - * Carlo Barazzetta: blob streaming in XML format (Part, Parts, References) - * Carlo Barazzetta: Currency and LoginPrompt support + * Carlo Barazzetta, Nando Dessena + * * ***** END LICENSE BLOCK ***** *) unit InstantADO; @@ -195,7 +195,7 @@ const ADOLinkPrefix = 'FILE NAME='; -procedure AssignParameters(Params: TParams; Parameters: TParameters); +procedure AssignParamsToParameters(Params: TParams; Parameters: TParameters); var I: Integer; Parameter: TParameter; @@ -214,7 +214,8 @@ Param := Params.ParamByName(Parameter.Name); Parameter.DataType := Param.DataType; if Param.ParamType = DB.ptUnknown then - Parameter.Direction := pdInput else + Parameter.Direction := pdInput + else Parameter.Direction := TParameterDirection(Param.ParamType); Parameter.Attributes := []; Parameter.NumericScale := 0; @@ -949,8 +950,8 @@ procedure TInstantADOQuery.SetParams(Value: TParams); begin - ParamsObject.Assign(Query.Parameters); - AssignParameters(Params, Query.Parameters); + ParamsObject.Assign(Value); + AssignParamsToParameters(ParamsObject, Query.Parameters); end; procedure TInstantADOQuery.SetStatement(const Value: string); @@ -1028,7 +1029,7 @@ procedure TInstantADOMSSQLBroker.AssignDataSetParams(DataSet: TDataSet; AParams: TParams); begin - AssignParameters(AParams,TADOQuery(DataSet).Parameters); + AssignParamsToParameters(AParams, TADOQuery(DataSet).Parameters); end; function TInstantADOMSSQLBroker.CreateCatalog( @@ -1049,7 +1050,7 @@ Query.Connection := (Connector as TInstantADOConnector).Connection; Query.SQL.Text := Statement; if Assigned(Params) then - AssignParameters(Params, Query.Parameters); + AssignParamsToParameters(Params, Query.Parameters); Result := Query; Except Query.Free; |
From: <na...@us...> - 2006-02-28 10:43:59
|
Revision: 635 Author: nandod Date: 2006-02-28 02:43:34 -0800 (Tue, 28 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=635&view=rev Log Message: ----------- + Fixed Bug # 1439851 - Required fields not checked in Exposers Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-28 09:17:36 UTC (rev 634) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-28 10:43:34 UTC (rev 635) @@ -3363,6 +3363,9 @@ AObject: TObject; NewPos: Integer; begin +{$IFDEF D7+} + inherited; +{$ENDIF} AObject := CurrentObject; CopyBufferToObject(ActiveBuffer, AObject); if InContent then |
From: <na...@us...> - 2006-02-28 09:17:46
|
Revision: 634 Author: nandod Date: 2006-02-28 01:17:36 -0800 (Tue, 28 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=634&view=rev Log Message: ----------- + FR# 1440209 - Pass the object instance to OnGenerateId Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-28 08:48:40 UTC (rev 633) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-28 09:17:36 UTC (rev 634) @@ -1433,7 +1433,8 @@ TInstantQuery = class; TInstantSchemeEvent = procedure(Sender: TObject; Scheme: TInstantScheme) of object; - TInstantGenerateIdEvent = procedure(Sender: TObject; var Id: String) of object; + TInstantGenerateIdEvent = procedure(Sender: TObject; const AObject: TInstantObject; + var Id: string) of object; TInstantConnector = class(TComponent) private @@ -1483,7 +1484,7 @@ function InternalCreateQuery: TInstantQuery; virtual; function InternalCreateScheme(Model: TInstantModel): TInstantScheme; virtual; abstract; procedure InternalDisconnect; virtual; abstract; - function InternalGenerateId: string; virtual; + function InternalGenerateId(const AObject: TInstantObject = nil): string; virtual; procedure InternalRollbackTransaction; virtual; procedure InternalStartTransaction; virtual; function RemoveTransactedObject(AObject: TInstantObject): Integer; @@ -1503,7 +1504,7 @@ function CreateQuery: TInstantQuery; procedure Disconnect; function EnsureObjectStore(AClass: TInstantObjectClass): TInstantObjectStore; - function GenerateId: string; + function GenerateId(const AObject: TInstantObject = nil): string; class procedure RegisterClass; procedure RegisterClient(Client: TObject); procedure RollbackTransaction; @@ -9225,9 +9226,9 @@ end; end; -function TInstantConnector.GenerateId: string; +function TInstantConnector.GenerateId(const AObject: TInstantObject = nil): string; begin - Result := InternalGenerateId; + Result := InternalGenerateId(AObject); end; function TInstantConnector.GetBroker: TInstantBroker; @@ -9366,12 +9367,12 @@ Result := Broker.CreateQuery; end; -function TInstantConnector.InternalGenerateId: string; +function TInstantConnector.InternalGenerateId(const AObject: TInstantObject = nil): string; begin if Assigned(FOnGenerateId) then begin Result := ''; - FOnGenerateId(Self, Result); + FOnGenerateId(Self, AObject, Result); end else Result := InstantGenerateId; |
From: <na...@us...> - 2006-02-28 08:48:48
|
Revision: 633 Author: nandod Date: 2006-02-28 00:48:40 -0800 (Tue, 28 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=633&view=rev Log Message: ----------- cosmetic fixes Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-28 03:06:41 UTC (rev 632) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-28 08:48:40 UTC (rev 633) @@ -3092,58 +3092,54 @@ SizeOfGraphicHeader = 8; MinimumBytesToRead = 10; var - P: PChar; + P: array [0..MinimumBytesToRead - 1] of Char; StreamLength: Longint; BytesRetrieved: Integer; begin Result := gffUnknown; if not Assigned(AStream) then Exit; - GetMem(P, 10); - try - StreamLength := AStream.Size; - AStream.Position := 0; - BytesRetrieved := AStream.Read(P[0], MinimumBytesToRead); - AStream.Position := 0; - if BytesRetrieved < MinimumBytesToRead then - Exit; - // bitmap format - if (P[0] = #66) and (P[1] = #77) then - Result := gffBmp - // tiff format - else if ((P[0] = #73) and (P[1] = #73) and (P[2] = #42) and (P[3] = #0)) - or ((P[0] = #77) and (P[1] = #77) and (P[2] = #42) and (P[3] = #0)) then - Result := gffTiff - // jpg format - else if (P[6] = #74) and (P[7] = #70) and (P[8] = #73) and (P[9] = #70) - or (P[6] = #69) and (P[7] = #120) and (P[8] = #105) and (P[9] = #102) then - Result := gffJpeg - // png format - else if (P[0] = #137 ) and (P[1] = #80) and (P[2] = #78) and (P[3] = #71) - and (P[4] = #13) and (P[5] = #10) and (P[6] = #26) and (P[7] = #10) then - Result := gffPng - // dcx format - else if (P[0] = #177) and (P[1] = #104) and (P[2] = #222) and (P[3] = #58) then - Result := gffDcx - // pcx format - else if p[0] = #10 then - Result := gffPcx - // emf format - else if ((P[0] = #215) and (P[1] = #205) and (P[2] = #198) and (P[3] = #154)) - or ((P[0] = #1) and (P[1] = #0) and (P[2] = #0) and (P[3] = #0)) then - Result := gffEmf - // gif format - else if (P[0] = #$47) and (P[1] = #$49) and (P[2] = #$46) then - Result := gffGif - // bitmap format with TGraphicHeader header - else if (P[0] = #01) and (P[1] = #00) and (P[2] = #00) and (P[3] = #01) - and (PLongint(@p[4])^ = StreamLength - SizeOfGraphicHeader) then - begin - Result := gffBmp; - AStream.Position := SizeOfGraphicHeader; - end; - finally - FreeMem(P); + StreamLength := AStream.Size; + AStream.Position := 0; + FillChar(P, SizeOf(P), #0); + BytesRetrieved := AStream.Read(P[0], SizeOf(P)); + AStream.Position := 0; + if BytesRetrieved < MinimumBytesToRead then + Exit; + // bitmap format + if (P[0] = #66) and (P[1] = #77) then + Result := gffBmp + // tiff format + else if ((P[0] = #73) and (P[1] = #73) and (P[2] = #42) and (P[3] = #0)) + or ((P[0] = #77) and (P[1] = #77) and (P[2] = #42) and (P[3] = #0)) then + Result := gffTiff + // jpg format + else if (P[6] = #74) and (P[7] = #70) and (P[8] = #73) and (P[9] = #70) + or (P[6] = #69) and (P[7] = #120) and (P[8] = #105) and (P[9] = #102) then + Result := gffJpeg + // png format + else if (P[0] = #137 ) and (P[1] = #80) and (P[2] = #78) and (P[3] = #71) + and (P[4] = #13) and (P[5] = #10) and (P[6] = #26) and (P[7] = #10) then + Result := gffPng + // dcx format + else if (P[0] = #177) and (P[1] = #104) and (P[2] = #222) and (P[3] = #58) then + Result := gffDcx + // pcx format + else if p[0] = #10 then + Result := gffPcx + // emf format + else if ((P[0] = #215) and (P[1] = #205) and (P[2] = #198) and (P[3] = #154)) + or ((P[0] = #1) and (P[1] = #0) and (P[2] = #0) and (P[3] = #0)) then + Result := gffEmf + // gif format + else if (P[0] = #$47) and (P[1] = #$49) and (P[2] = #$46) then + Result := gffGif + // bitmap format with TGraphicHeader header + else if (P[0] = #01) and (P[1] = #00) and (P[2] = #00) and (P[3] = #01) + and (PLongint(@p[4])^ = StreamLength - SizeOfGraphicHeader) then + begin + Result := gffBmp; + AStream.Position := SizeOfGraphicHeader; end; end; |
From: <jcm...@us...> - 2006-02-26 17:15:25
|
Revision: 631 Author: jcmoraisjr Date: 2006-02-26 09:15:10 -0800 (Sun, 26 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=631&view=rev Log Message: ----------- Fixed bug # 1436858 (Exposer.AutoDispose disposing referenced object) (ps: it was previously - and erroneously - marked as fixed) Modified Paths: -------------- trunk/Demos/PrimerCross/COMPANYEDITACTIONIMAGES.BMP trunk/Demos/PrimerCross/CompanyEdit.dfm trunk/Demos/PrimerCross/CompanyEdit.pas trunk/Demos/PrimerCross/PrimerImages.res trunk/Source/Core/InstantPresentation.pas Property Changed: ---------------- trunk/Demos/PrimerCross/CompanyEdit.dfm Modified: trunk/Demos/PrimerCross/COMPANYEDITACTIONIMAGES.BMP =================================================================== (Binary files differ) Modified: trunk/Demos/PrimerCross/CompanyEdit.dfm =================================================================== (Binary files differ) Property changes on: trunk/Demos/PrimerCross/CompanyEdit.dfm ___________________________________________________________________ Name: svn:mime-type - application/octet-stream Name: svn:keywords + Author Date Id Revision Name: svn:eol-style + native Modified: trunk/Demos/PrimerCross/CompanyEdit.pas =================================================================== --- trunk/Demos/PrimerCross/CompanyEdit.pas 2006-02-26 14:25:36 UTC (rev 630) +++ trunk/Demos/PrimerCross/CompanyEdit.pas 2006-02-26 17:15:10 UTC (rev 631) @@ -20,8 +20,6 @@ Actions: TActionList; ActionImages: TImageList; EmployeeButtonPanel: TPanel; - EmployeeDeleteAction: TAction; - EmployeeDeleteButton: TBitBtn; EmployeeDeleteItem: TMenuItem; EmployeeEditAction: TAction; EmployeeEditButton: TBitBtn; @@ -44,7 +42,6 @@ procedure ActionsUpdate(Action: TBasicAction; var Handled: Boolean); procedure EmployeeNewActionExecute(Sender: TObject); procedure EmployeeEditActionExecute(Sender: TObject); - procedure EmployeeDeleteActionExecute(Sender: TObject); procedure EmployeeLookupActionExecute(Sender: TObject); procedure EmployeeRemoveActionExecute(Sender: TObject); procedure EmployeeExposerCompare(Sender, AObject1, AObject2: TObject; @@ -74,21 +71,11 @@ begin Employee := EmployeeExposer.CurrentObject as TPerson; EmployeeEditAction.Enabled := Assigned(Employee); - EmployeeDeleteAction.Enabled := Assigned(Employee); EmployeeRemoveAction.Enabled := Assigned(Employee); Handled := True; end; -procedure TCompanyEditForm.EmployeeDeleteActionExecute(Sender: TObject); -var - Employee: TPerson; -begin - Employee := EmployeeExposer.CurrentObject as TPerson; - if Confirm(Format('Delete "%s"?', [Employee.Name])) then - EmployeeExposer.Delete; -end; - procedure TCompanyEditForm.EmployeeEditActionExecute(Sender: TObject); var Employee: TPerson; @@ -177,7 +164,6 @@ EmployeeLookupButton.Action := EmployeeLookupAction; EmployeeEditButton.Action := EmployeeEditAction; EmployeeRemoveButton.Action := EmployeeRemoveAction; - EmployeeDeleteButton.Action := EmployeeDeleteAction; end; initialization Modified: trunk/Demos/PrimerCross/PrimerImages.res =================================================================== (Binary files differ) Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-26 14:25:36 UTC (rev 630) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-26 17:15:10 UTC (rev 631) @@ -222,7 +222,7 @@ public constructor Create(AObject: TObject; AOwner: TInstantContentBuffer = nil); destructor Destroy; override; - procedure RegisterAsDeleted(ARecNo: Integer; AAutoApplyChanges: Boolean); + procedure RegisterAsDeleted(ARecNo: Integer; AAutoApplyChanges, ACanDispose: Boolean); procedure RegisterAsInserted; procedure RegisterAsModified; procedure RegisterField(AField: TField); @@ -241,6 +241,7 @@ TInstantContentBuffer = class(TObject) private FAutoApplyChanges: Boolean; + FCanDispose: Boolean; FRecordBufferList: TList; procedure FreeRecordBufferList; function GetRecordBuffer(AIndex: Integer): TInstantRecordBuffer; @@ -251,11 +252,12 @@ function FindRecordBufferIndex(AObject: TObject): Integer; procedure RegisterObjectUpdate(AObject: TObject; ARecNo: Integer; AUpdateStatus: TUpdateStatus); property AutoApplyChanges: Boolean read FAutoApplyChanges; + property CanDispose: Boolean read FCanDispose; property RecordBuffer[AIndex: Integer]: TInstantRecordBuffer read GetRecordBuffer; property RecordBufferCount: Integer read GetRecordBufferCount; property RecordBufferList: TList read GetRecordBufferList; public - constructor Create(AAutoApplyChanges: Boolean); + constructor Create(AAutoApplyChanges, ACanDispose: Boolean); destructor Destroy; override; procedure AddRecordBuffer(ARecordBuffer: TInstantRecordBuffer); procedure DisposeDeletedObjects; @@ -317,6 +319,7 @@ procedure ClearRecord(Buffer: PChar); function DataFieldsSize: Integer; function GetAutoApplyChanges: Boolean; + function GetCanDispose: Boolean; function GetContentBuffer: TInstantContentBuffer; function GetCurrentBuffer: PChar; function GetDesignClass: TInstantCodeClass; @@ -461,6 +464,7 @@ procedure DoBeforeRefresh; override; property Accessor: TInstantAccessor read GetAccessor; property AutoApplyChanges: Boolean read GetAutoApplyChanges; + property CanDispose: Boolean read GetCanDispose; property ContainerName: string read FContainerName write SetContainerName; property ContentBuffer: TInstantContentBuffer read GetContentBuffer; property CurrentBuffer: PChar read GetCurrentBuffer; @@ -1637,7 +1641,7 @@ end; procedure TInstantRecordBuffer.RegisterAsDeleted(ARecNo: Integer; - AAutoApplyChanges: Boolean); + AAutoApplyChanges, ACanDispose: Boolean); begin if UpdateStatus = usModified then // Roll back changes, so RevertDeleted will restore the original object @@ -1646,7 +1650,7 @@ begin FDeletedObjectBM.RecNo := ARecNo; FDeletedObjectBM.Instance.Free; - if AAutoApplyChanges then + if AAutoApplyChanges and ACanDispose then FDeletedObjectBM.Instance := Subject.Clone else begin @@ -1715,10 +1719,11 @@ RecordBufferList.Add(ARecordBuffer); end; -constructor TInstantContentBuffer.Create(AAutoApplyChanges: Boolean); +constructor TInstantContentBuffer.Create(AAutoApplyChanges, ACanDispose: Boolean); begin inherited Create; FAutoApplyChanges := AAutoApplyChanges; + FCanDispose := ACanDispose; end; destructor TInstantContentBuffer.Destroy; @@ -1731,7 +1736,7 @@ var I: Integer; begin - if not AutoApplyChanges then + if not AutoApplyChanges and CanDispose then for I := 0 to Pred(RecordBufferCount) do if RecordBuffer[I].UpdateStatus = usDeleted then with RecordBuffer[I].FDeletedObjectBM.Instance do @@ -1830,7 +1835,7 @@ usInserted: VRecordBuffer.RegisterAsInserted; usDeleted: - VRecordBuffer.RegisterAsDeleted(ARecNo, AutoApplyChanges); + VRecordBuffer.RegisterAsDeleted(ARecNo, AutoApplyChanges, CanDispose); else ; end; @@ -1872,13 +1877,13 @@ else AExposer.InternalInsertObject(DeletedObjectRecNo, DeletedObjectInstance); // Friend class - if AutoApplyChanges then + if AutoApplyChanges and CanDispose then begin if AExposer is TInstantSelector then // TInstantQuery - TheObject.Store is enough DeletedObjectInstance.Store else - // TInstantParts or TInstantReferences - need to call Subject.Store + // TInstantParts - need to call Subject.Store SubjectChanged := True; end; end; @@ -2257,7 +2262,7 @@ procedure TInstantCustomExposer.AutoDispose(AObject: TObject); begin - if AutoApplyChanges and (AObject is TInstantObject) then + if AutoApplyChanges and (AObject is TInstantObject) and CanDispose then with TInstantObject(AObject) do if CanDispose then Dispose; @@ -2638,6 +2643,14 @@ Result := GetRecInfo(Buffer).BookmarkFlag; end; +function TInstantCustomExposer.GetCanDispose: Boolean; +begin + if InContent and (Subject is TInstantObject) then + Result := not (TInstantObject(Subject).FindContainer(ContainerName) is TInstantReferences) + else + Result := True; +end; + function TInstantCustomExposer.GetCanModify: Boolean; begin Result := inherited GetCanModify and HasSubject and not ReadOnly; @@ -2646,7 +2659,7 @@ function TInstantCustomExposer.GetContentBuffer: TInstantContentBuffer; begin if not Assigned(FContentBuffer) then - FContentBuffer := TInstantContentBuffer.Create(AutoApplyChanges); + FContentBuffer := TInstantContentBuffer.Create(AutoApplyChanges, CanDispose); Result := FContentBuffer; end; |
From: <jcm...@us...> - 2006-02-26 14:25:44
|
Revision: 630 Author: jcmoraisjr Date: 2006-02-26 06:25:36 -0800 (Sun, 26 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=630&view=rev Log Message: ----------- Fixed bug # 1439025 Apply/RestoreState decrementing StateLevel. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-26 13:50:12 UTC (rev 629) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-26 14:25:36 UTC (rev 630) @@ -7537,6 +7537,8 @@ procedure TInstantObject.ApplyState; begin + if FSaveStateLevel = 0 then + Exit; if FSaveStateLevel = 1 then try SavedState.Assign(State); @@ -8791,6 +8793,8 @@ var vInCache: Boolean; begin + if FSaveStateLevel = 0 then + Exit; if (FSaveStateLevel = 1) and not IsAbandoned then try vInCache := ObjectStore.Find(Self.PersistentId) = Self; @@ -8868,7 +8872,6 @@ begin if State.PersistentId = '' then Exit; - if FSaveStateLevel = 0 then try SavedState.Assign(State); |
From: <sr...@us...> - 2006-02-25 23:29:26
|
Revision: 627 Author: srmitch Date: 2006-02-25 15:29:17 -0800 (Sat, 25 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=627&view=rev Log Message: ----------- Fix for bug: [1437815] Exposer.RemoveObject messes up TDataSet data. Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-25 00:10:30 UTC (rev 626) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-25 23:29:17 UTC (rev 627) @@ -3799,6 +3799,7 @@ Result := InternalRemoveObject(AObject); if Result <> -1 then Refresh; + FRemovedObject := nil; end; procedure TInstantCustomExposer.Reset; |
From: <sr...@us...> - 2006-02-25 00:10:40
|
Revision: 626 Author: srmitch Date: 2006-02-24 16:10:30 -0800 (Fri, 24 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=626&view=rev Log Message: ----------- Fixes for bugs: #1430106 - TInstantBlobAttribute.Assign doesn't work properly because LoadDataFromStream doesn't clear stream. #1410143 - When an EditForm of a Person with image that was just edited is opened, Primer raises an exception with message "Unsupported graphic stream format", "Metafile is not valid" or "Stream read error". Always inside TInstantBlob.AssignToPicture procedure (InstantPersistence unit). Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-23 18:33:19 UTC (rev 625) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-25 00:10:30 UTC (rev 626) @@ -3120,7 +3120,7 @@ else if (p[0] = #$47) and (p[1] = #$49) and (p[2] = #$46) then Result := gffGif; finally AStream.Position := 0; - end; + end; finally Freemem( p ); end; @@ -5790,8 +5790,7 @@ begin if not Assigned(AStream) then Exit; - Stream.Clear; - Stream.CopyFrom(AStream, 0); + Stream.LoadFromStream(AStream); Changed; end; @@ -5825,7 +5824,7 @@ procedure TInstantBlob.SaveDataToStream(AStream: TStream); begin if Assigned(AStream) then - AStream.CopyFrom(Stream, 0); + Stream.SaveToStream(AStream); end; procedure TInstantBlob.SetAsString(const AValue: string); Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-23 18:33:19 UTC (rev 625) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-25 00:10:30 UTC (rev 626) @@ -2145,6 +2145,8 @@ case AttributeMetadata.AttributeType of atBlob: Result := ftBlob; + atGraphic: + Result := ftGraphic; atMemo: Result := ftMemo; else |
From: <jcm...@us...> - 2006-02-23 18:33:29
|
Revision: 625 Author: jcmoraisjr Date: 2006-02-23 10:33:19 -0800 (Thu, 23 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=625&view=rev Log Message: ----------- Rolled back change into GetConnector due to AV introduced into designtime package. Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-23 17:44:25 UTC (rev 624) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-23 18:33:19 UTC (rev 625) @@ -4504,7 +4504,7 @@ function TInstantSelector.GetConnector: TInstantConnector; begin - if Assigned(FConnector) or (csDesigning in ComponentState) then + if Assigned(FConnector) then Result := FConnector else Result := InstantDefaultConnector; |
From: <jcm...@us...> - 2006-02-23 17:44:36
|
Revision: 624 Author: jcmoraisjr Date: 2006-02-23 09:44:25 -0800 (Thu, 23 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=624&view=rev Log Message: ----------- Fixed TInstantSelector.GetConnector, that was retrieving DefaultConnector even in designtime and without select it. Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-23 16:55:26 UTC (rev 623) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-23 17:44:25 UTC (rev 624) @@ -4504,7 +4504,7 @@ function TInstantSelector.GetConnector: TInstantConnector; begin - if Assigned(FConnector) then + if Assigned(FConnector) or (csDesigning in ComponentState) then Result := FConnector else Result := InstantDefaultConnector; |
From: <jcm...@us...> - 2006-02-23 16:55:44
|
Revision: 623 Author: jcmoraisjr Date: 2006-02-23 08:55:26 -0800 (Thu, 23 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=623&view=rev Log Message: ----------- Fixed exception into D5 and IBX.InternalCommit and InternalRollback methods. Modified Paths: -------------- trunk/Source/Brokers/IBX/InstantIBX.pas Modified: trunk/Source/Brokers/IBX/InstantIBX.pas =================================================================== --- trunk/Source/Brokers/IBX/InstantIBX.pas 2006-02-23 14:14:00 UTC (rev 622) +++ trunk/Source/Brokers/IBX/InstantIBX.pas 2006-02-23 16:55:26 UTC (rev 623) @@ -268,12 +268,14 @@ procedure TInstantIBXConnector.InternalCommitTransaction; begin - Transaction.Commit; + if Transaction.InTransaction then + Transaction.Commit; end; procedure TInstantIBXConnector.InternalRollbackTransaction; begin - Transaction.Rollback; + if Transaction.InTransaction then + Transaction.Rollback; end; procedure TInstantIBXConnector.InternalStartTransaction; |
From: <jcm...@us...> - 2006-02-23 14:14:12
|
Revision: 622 Author: jcmoraisjr Date: 2006-02-23 06:14:00 -0800 (Thu, 23 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=622&view=rev Log Message: ----------- Fixed Info.Conflict assignment into TInstantSQLResolver.ExecuteStatement method. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-22 23:10:36 UTC (rev 621) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-23 14:14:00 UTC (rev 622) @@ -13781,7 +13781,7 @@ try Result := Broker.Execute(AStatement, AParams); Info.Success := Result >= 1; - Info.Conflict := not Info.Success or (ConflictAction = caIgnore); + Info.Conflict := not (Info.Success or (ConflictAction = caIgnore)); except on EAbort do raise; |
From: <jcm...@us...> - 2006-02-22 17:38:26
|
Revision: 619 Author: jcmoraisjr Date: 2006-02-22 09:38:12 -0800 (Wed, 22 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=619&view=rev Log Message: ----------- Fixed new TInstanReferences.DestroyObject method that is causing an infinite loop into FreeCircularReference. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-21 19:43:52 UTC (rev 618) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-22 17:38:12 UTC (rev 619) @@ -7204,7 +7204,7 @@ Index: Integer; begin Index := IndexOf(AObject); - Result := Index >= 0; + Result := (Index >= 0) and ObjectReferenceList.RefItems[Index].HasInstance; if Result then ObjectReferenceList.RefItems[Index].DestroyInstance; end; |
From: <jcm...@us...> - 2006-02-17 12:15:15
|
Revision: 614 Author: jcmoraisjr Date: 2006-02-17 04:14:51 -0800 (Fri, 17 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=614&view=rev Log Message: ----------- - Fixed relative path in InstantReplicateResource.sh script; - Fixed messages; - 'Cosmetic' changes. Modified Paths: -------------- trunk/ReleaseTools/InstantReplicateResource.bat trunk/ReleaseTools/InstantReplicateResource.sh trunk/ReleaseTools/InstantSyncBatchFile.sh Modified: trunk/ReleaseTools/InstantReplicateResource.bat =================================================================== --- trunk/ReleaseTools/InstantReplicateResource.bat 2006-02-17 08:25:45 UTC (rev 613) +++ trunk/ReleaseTools/InstantReplicateResource.bat 2006-02-17 12:14:51 UTC (rev 614) @@ -1,121 +1,240 @@ @echo off echo. echo This script will replicate InstantVersion.res, -echo creating or overwriting all projects' resource files. +echo creating or overwriting all packages' resource files. echo. echo Press Enter to continue, Ctrl+C to cancel. +echo. pause > nul +echo Copying... +echo. copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D6\DclDBISAM.res" > nul +echo ..\Source\Brokers\DBISAM\D6\DclDBISAM.res copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D6\IODBISAM.res" > nul +echo ..\Source\Brokers\DBISAM\D6\IODBISAM.res copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D7\DclDBISAM.res" > nul +echo ..\Source\Brokers\DBISAM\D7\DclDBISAM.res copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D7\IODBISAM.res" > nul +echo ..\Source\Brokers\DBISAM\D7\IODBISAM.res copy "InstantVersion.res" "..\Source\Brokers\FlashFiler\D5\DclIOff_D5.res" > nul +echo ..\Source\Brokers\FlashFiler\D5\DclIOff_D5.res copy "InstantVersion.res" "..\Source\Brokers\FlashFiler\D5\ioff_D5.res" > nul +echo ..\Source\Brokers\FlashFiler\D5\ioff_D5.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D5\DclIOUIB_D5.res" > nul +echo ..\Source\Brokers\UIB\D5\DclIOUIB_D5.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D5\IOUIB_D5.res" > nul +echo ..\Source\Brokers\UIB\D5\IOUIB_D5.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D6\IOUIB.res" > nul +echo ..\Source\Brokers\UIB\D6\IOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D6\DclIOUIB.res" > nul +echo ..\Source\Brokers\UIB\D6\DclIOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D2005\IOUIB.res" > nul +echo ..\Source\Brokers\UIB\D2005\IOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D2005\DclIOUIB.res" > nul +echo ..\Source\Brokers\UIB\D2005\DclIOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D7\IOUIB.res" > nul +echo ..\Source\Brokers\UIB\D7\IOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D7\DclIOUIB.res" > nul +echo ..\Source\Brokers\UIB\D7\DclIOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D2006\IOUIB.res" > nul +echo ..\Source\Brokers\UIB\D2006\IOUIB.res copy "InstantVersion.res" "..\Source\Brokers\UIB\D2006\DclIOUIB.res" > nul +echo ..\Source\Brokers\UIB\D2006\DclIOUIB.res copy "InstantVersion.res" "..\Source\Brokers\XML\D5\DclIOXML_D5.res" > nul +echo ..\Source\Brokers\XML\D5\DclIOXML_D5.res copy "InstantVersion.res" "..\Source\Brokers\XML\D5\Ioxml_D5.res" > nul +echo ..\Source\Brokers\XML\D5\Ioxml_D5.res copy "InstantVersion.res" "..\Source\Brokers\XML\D6\IOXML.res" > nul +echo ..\Source\Brokers\XML\D6\IOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D6\DclIOXML.res" > nul +echo ..\Source\Brokers\XML\D6\DclIOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D2005\IOXML.res" > nul +echo ..\Source\Brokers\XML\D2005\IOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D2005\DclIOXML.res" > nul +echo ..\Source\Brokers\XML\D2005\DclIOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D7\IOXML.res" > nul +echo ..\Source\Brokers\XML\D7\IOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D7\DclIOXML.res" > nul +echo ..\Source\Brokers\XML\D7\DclIOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D2006\IOXML.res" > nul +echo ..\Source\Brokers\XML\D2006\IOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\D2006\DclIOXML.res" > nul +echo ..\Source\Brokers\XML\D2006\DclIOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\k3\IOXML.res" > nul +echo ..\Source\Brokers\XML\k3\IOXML.res copy "InstantVersion.res" "..\Source\Brokers\XML\k3\DclIOXML.res" > nul +echo ..\Source\Brokers\XML\k3\DclIOXML.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D5\DclIOIBX_D5.res" > nul +echo ..\Source\Brokers\IBX\D5\DclIOIBX_D5.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D5\Ioibx_D5.res" > nul +echo ..\Source\Brokers\IBX\D5\Ioibx_D5.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D6\IOIBX.res" > nul +echo ..\Source\Brokers\IBX\D6\IOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D6\DclIOIBX.res" > nul +echo ..\Source\Brokers\IBX\D6\DclIOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D2005\IOIBX.res" > nul +echo ..\Source\Brokers\IBX\D2005\IOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D2005\DclIOIBX.res" > nul +echo ..\Source\Brokers\IBX\D2005\DclIOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D7\IOIBX.res" > nul +echo ..\Source\Brokers\IBX\D7\IOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D7\DclIOIBX.res" > nul +echo ..\Source\Brokers\IBX\D7\DclIOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D2006\IOIBX.res" > nul +echo ..\Source\Brokers\IBX\D2006\IOIBX.res copy "InstantVersion.res" "..\Source\Brokers\IBX\D2006\DclIOIBX.res" > nul +echo ..\Source\Brokers\IBX\D2006\DclIOIBX.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D5\DclIOADO_D5.res" > nul +echo ..\Source\Brokers\ADO\D5\DclIOADO_D5.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D5\IOADO_D5.res" > nul +echo ..\Source\Brokers\ADO\D5\IOADO_D5.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D6\IOADO.res" > nul +echo ..\Source\Brokers\ADO\D6\IOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D6\DclIOADO.res" > nul +echo ..\Source\Brokers\ADO\D6\DclIOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D2005\IOADO.res" > nul +echo ..\Source\Brokers\ADO\D2005\IOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D2005\DclIOADO.res" > nul +echo ..\Source\Brokers\ADO\D2005\DclIOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D7\IOADO.res" > nul +echo ..\Source\Brokers\ADO\D7\IOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D7\DclIOADO.res" > nul +echo ..\Source\Brokers\ADO\D7\DclIOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D2006\IOADO.res" > nul +echo ..\Source\Brokers\ADO\D2006\IOADO.res copy "InstantVersion.res" "..\Source\Brokers\ADO\D2006\DclIOADO.res" > nul +echo ..\Source\Brokers\ADO\D2006\DclIOADO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D5\DclIOZeosDBO_D5.res" > nul +echo ..\Source\Brokers\ZeosDBO\D5\DclIOZeosDBO_D5.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D5\IOZeosDBO_D5.res" > nul +echo ..\Source\Brokers\ZeosDBO\D5\IOZeosDBO_D5.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D6\IOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D6\IOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D6\DclIOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D6\DclIOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2005\IOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D2005\IOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2005\DclIOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D2005\DclIOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D7\IOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D7\IOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D7\DclIOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D7\DclIOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2006\IOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D2006\IOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2006\DclIOZeosDBO.res" > nul +echo ..\Source\Brokers\ZeosDBO\D2006\DclIOZeosDBO.res copy "InstantVersion.res" "..\Source\Brokers\ADS\D5\DclIOADS_D5.res" > nul +echo ..\Source\Brokers\ADS\D5\DclIOADS_D5.res copy "InstantVersion.res" "..\Source\Brokers\ADS\D5\ioads_D5.res" > nul +echo ..\Source\Brokers\ADS\D5\ioads_D5.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2005\DclIONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D2005\DclIONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2005\IONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D2005\IONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2006\DclIONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D2006\DclIONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2006\IONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D2006\IONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D5\DclIONexusDB_D5.res" > nul +echo ..\Source\Brokers\NexusDb\D5\DclIONexusDB_D5.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D5\IONexusDB_D5.res" > nul +echo ..\Source\Brokers\NexusDb\D5\IONexusDB_D5.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D6\DclIONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D6\DclIONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D6\IONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D6\IONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D7\DclIONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D7\DclIONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D7\IONexusDB.res" > nul +echo ..\Source\Brokers\NexusDb\D7\IONexusDB.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D5\DclIOBDE_D5.res" > nul +echo ..\Source\Brokers\BDE\D5\DclIOBDE_D5.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D5\Iobde_D5.res" > nul +echo ..\Source\Brokers\BDE\D5\Iobde_D5.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D6\IOBDE.res" > nul +echo ..\Source\Brokers\BDE\D6\IOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D6\DclIOBDE.res" > nul +echo ..\Source\Brokers\BDE\D6\DclIOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D2005\IOBDE.res" > nul +echo ..\Source\Brokers\BDE\D2005\IOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D2005\DclIOBDE.res" > nul +echo ..\Source\Brokers\BDE\D2005\DclIOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D7\IOBDE.res" > nul +echo ..\Source\Brokers\BDE\D7\IOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D7\DclIOBDE.res" > nul +echo ..\Source\Brokers\BDE\D7\DclIOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D2006\IOBDE.res" > nul +echo ..\Source\Brokers\BDE\D2006\IOBDE.res copy "InstantVersion.res" "..\Source\Brokers\BDE\D2006\DclIOBDE.res" > nul +echo ..\Source\Brokers\BDE\D2006\DclIOBDE.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D6\IODBX.res" > nul +echo ..\Source\Brokers\DBX\D6\IODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D6\DclIODBX.res" > nul +echo ..\Source\Brokers\DBX\D6\DclIODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D2005\IODBX.res" > nul +echo ..\Source\Brokers\DBX\D2005\IODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D2005\DclIODBX.res" > nul +echo ..\Source\Brokers\DBX\D2005\DclIODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D7\IODBX.res" > nul +echo ..\Source\Brokers\DBX\D7\IODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D7\DclIODBX.res" > nul +echo ..\Source\Brokers\DBX\D7\DclIODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D2006\IODBX.res" > nul +echo ..\Source\Brokers\DBX\D2006\IODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\D2006\DclIODBX.res" > nul +echo ..\Source\Brokers\DBX\D2006\DclIODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\K3\IODBX.res" > nul +echo ..\Source\Brokers\DBX\K3\IODBX.res copy "InstantVersion.res" "..\Source\Brokers\DBX\K3\DclIODBX.res" > nul +echo ..\Source\Brokers\DBX\K3\DclIODBX.res copy "InstantVersion.res" "..\Source\Core\D2005\IOCore.res" > nul +echo ..\Source\Core\D2005\IOCore.res copy "InstantVersion.res" "..\Source\Core\D2006\IOCore.res" > nul +echo ..\Source\Core\D2006\IOCore.res copy "InstantVersion.res" "..\Source\Core\K3\IOCore.res" > nul +echo ..\Source\Core\K3\IOCore.res copy "InstantVersion.res" "..\Source\Core\D5\IOCore_D5.res" > nul +echo ..\Source\Core\D5\IOCore_D5.res copy "InstantVersion.res" "..\Source\Core\D6\IOCore.res" > nul +echo ..\Source\Core\D6\IOCore.res copy "InstantVersion.res" "..\Source\Core\D7\IOCore.res" > nul +echo ..\Source\Core\D7\IOCore.res copy "InstantVersion.res" "..\Source\Design\D2005\DclIOCore.res" > nul +echo ..\Source\Design\D2005\DclIOCore.res copy "InstantVersion.res" "..\Source\Design\D2006\DclIOCore.res" > nul +echo ..\Source\Design\D2006\DclIOCore.res copy "InstantVersion.res" "..\Source\Design\K3\DclIOCore.res" > nul +echo ..\Source\Design\K3\DclIOCore.res copy "InstantVersion.res" "..\Source\Design\D5\DclIOCore_D5.res" > nul +echo ..\Source\Design\D5\DclIOCore_D5.res copy "InstantVersion.res" "..\Source\Design\D6\DclIOCore.res" > nul +echo ..\Source\Design\D6\DclIOCore.res copy "InstantVersion.res" "..\Source\Design\D7\DclIOCore.res" > nul +echo ..\Source\Design\D7\DclIOCore.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D5\IOMSSqlCatalog_D5.res" > nul +echo ..\Source\Catalogs\MSSql\D5\IOMSSqlCatalog_D5.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D6\IOMSSqlCatalog.res" > nul +echo ..\Source\Catalogs\MSSql\D6\IOMSSqlCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D2005\IOMSSqlCatalog.res" > nul +echo ..\Source\Catalogs\MSSql\D2005\IOMSSqlCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D7\IOMSSqlCatalog.res" > nul +echo ..\Source\Catalogs\MSSql\D7\IOMSSqlCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D2006\IOMSSqlCatalog.res" > nul +echo ..\Source\Catalogs\MSSql\D2006\IOMSSqlCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\MSSql\K3\IOMSSqlCatalog.res" > nul +echo ..\Source\Catalogs\MSSql\K3\IOMSSqlCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D5\IOIBFbCatalog_D5.res" > nul +echo ..\Source\Catalogs\IBFb\D5\IOIBFbCatalog_D5.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D6\IOIBFbCatalog.res" > nul +echo ..\Source\Catalogs\IBFb\D6\IOIBFbCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D2005\IOIBFbCatalog.res" > nul +echo ..\Source\Catalogs\IBFb\D2005\IOIBFbCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D7\IOIBFbCatalog.res" > nul +echo ..\Source\Catalogs\IBFb\D7\IOIBFbCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D2006\IOIBFbCatalog.res" > nul +echo ..\Source\Catalogs\IBFb\D2006\IOIBFbCatalog.res copy "InstantVersion.res" "..\Source\Catalogs\IBFb\K3\IOIBFbCatalog.res" > nul +echo ..\Source\Catalogs\IBFb\K3\IOIBFbCatalog.res +echo. +echo Done. Modified: trunk/ReleaseTools/InstantReplicateResource.sh =================================================================== --- trunk/ReleaseTools/InstantReplicateResource.sh 2006-02-17 08:25:45 UTC (rev 613) +++ trunk/ReleaseTools/InstantReplicateResource.sh 2006-02-17 12:14:51 UTC (rev 614) @@ -6,12 +6,12 @@ { echo "Resource file ${InstantVersionResFile} was not found."; exit 1; } echo echo "This script will replicate ${InstantVersionResFile}," -echo "creating or overwriting all projects' resource files." +echo "creating or overwriting all packages' resource files." echo echo "Press Enter to continue, Ctrl+C to cancel." read -find . -iname "*.dpk" -type f | while read DpkFile +find .. -iname "*.dpk" -type f | while read DpkFile do cp -f "${InstantVersionResFile}" "${DpkFile/.dpk/.res}" done Modified: trunk/ReleaseTools/InstantSyncBatchFile.sh =================================================================== --- trunk/ReleaseTools/InstantSyncBatchFile.sh 2006-02-17 08:25:45 UTC (rev 613) +++ trunk/ReleaseTools/InstantSyncBatchFile.sh 2006-02-17 12:14:51 UTC (rev 614) @@ -11,13 +11,20 @@ "@echo off\r\n"\ "echo.\r\n"\ "echo This script will replicate ${InstantVersionResFile},\r\n"\ -"echo creating or overwriting all projects' resource files.\r\n"\ +"echo creating or overwriting all packages' resource files.\r\n"\ "echo.\r\n"\ "echo Press Enter to continue, Ctrl+C to cancel.\r\n"\ -"pause > nul\r\n" > ${InstantScriptFile} +"echo.\r\n"\ +"pause > nul\r\n"\ +"echo Copying...\r\n"\ +"echo.\r\n" > ${InstantScriptFile} find .. -name "*.dpk" -type f | sed 's/\//\\\\/g' | while read DpkFile do - echo -e copy \"${InstantVersionResFile}\" \"${DpkFile/.dpk/.res}\"" > nul\r" + echo -e "copy \"${InstantVersionResFile}\" \"${DpkFile/.dpk/.res}\" > nul\r" + echo -e "echo ${DpkFile/.dpk/.res}\r" done >> ${InstantScriptFile} +echo -n -e \ +"echo.\r\n"\ +"echo Done.\r\n" >> ${InstantScriptFile} echo "Done." |
From: <na...@us...> - 2006-02-17 08:25:53
|
Revision: 613 Author: nandod Date: 2006-02-17 00:25:45 -0800 (Fri, 17 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=613&view=rev Log Message: ----------- test undo Removed Paths: ------------- trunk/test.txt Deleted: trunk/test.txt =================================================================== |
From: <na...@us...> - 2006-02-17 08:04:37
|
Revision: 612 Author: nandod Date: 2006-02-17 00:04:24 -0800 (Fri, 17 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=612&view=rev Log Message: ----------- test Added Paths: ----------- trunk/test.txt Added: trunk/test.txt =================================================================== |
From: <sr...@us...> - 2006-02-17 03:05:39
|
Revision: 611 Author: srmitch Date: 2006-02-16 19:05:20 -0800 (Thu, 16 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=611&view=rev Log Message: ----------- Changes: 1. Updated InstantIBFbCatalog to allow for the skipping of unsupported data types with warning during database evolve. 2. A bug fix to InstantNexusDBCatalog previous update. Modified Paths: -------------- trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas trunk/Source/Catalogs/IBFb/InstantIBFbCatalog.pas Modified: trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas =================================================================== --- trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-02-16 22:49:16 UTC (rev 610) +++ trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-02-17 03:05:20 UTC (rev 611) @@ -176,11 +176,11 @@ FieldMetadata.Size := Fields.FieldByName('FIELD_UNITS').AsInteger else FieldMetadata.Size := Fields.FieldByName('FIELD_LENGTH').AsInteger; - Fields.Next; end else DoWarning(Format(SUnsupportedColumnSkipped, [TableMetadata.Name, FieldMetadata.Name, FieldDataType])); + Fields.Next; end; finally Fields.Close; Modified: trunk/Source/Catalogs/IBFb/InstantIBFbCatalog.pas =================================================================== --- trunk/Source/Catalogs/IBFb/InstantIBFbCatalog.pas 2006-02-16 22:49:16 UTC (rev 610) +++ trunk/Source/Catalogs/IBFb/InstantIBFbCatalog.pas 2006-02-17 03:05:20 UTC (rev 611) @@ -24,6 +24,7 @@ * the Initial Developer. All Rights Reserved. * * Contributor(s): + * Steven Mitchell * * ***** END LICENSE BLOCK ***** *) @@ -49,13 +50,13 @@ procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata); procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); - // Returns the TInstantDataType value that matches the supplied - // combination of ColumnType, BlobSubType and FieldScale. If more than - // on datatypes apply, alternate data types are returned in + // Returns True if the TInstantDataType value that matches the supplied + // combination of ColumnType, BlobSubType and FieldScale is found. If + // more than one datatypes apply, alternate data types are returned in // AlternateDataTypes, otherwise AlternateDataTypes is [] on exit. function ColumnTypeToDataType(const ColumnType: string; - const BlobSubType, FieldScale: Integer; - out AlternateDataTypes: TInstantDataTypes): TInstantDataType; + const BlobSubType, FieldScale: Integer; out DataType: TInstantDataType; + out AlternateDataTypes: TInstantDataTypes): Boolean; function GetSelectFieldsSQL(const ATableName: string): string; function GetSelectIndexesSQL(const ATableName: string): string; function GetSelectIndexFieldsSQL(const AIndexName: string): string; @@ -68,7 +69,7 @@ implementation uses - SysUtils, Classes, DB; + SysUtils, Classes, DB, InstantConsts; { TInstantIBFbCatalog } @@ -139,6 +140,7 @@ Fields: TDataSet; FieldMetadata: TInstantFieldMetadata; AlternateDataTypes: TInstantDataTypes; + FieldMetaDataType: TInstantDataType; begin Fields := Broker.AcquireDataSet(GetSelectFieldsSQL(TableMetadata.Name)); try @@ -148,21 +150,29 @@ begin FieldMetadata := TableMetadata.FieldMetadatas.Add; FieldMetadata.Name := Trim(Fields.FieldByName('RDB$FIELD_NAME').AsString); - FieldMetadata.DataType := ColumnTypeToDataType( + if ColumnTypeToDataType( Trim(Fields.FieldByName('RDB$TYPE_NAME').AsString), Fields.FieldByName('RDB$FIELD_SUB_TYPE').AsInteger, Fields.FieldByName('RDB$FIELD_SCALE').AsInteger, - AlternateDataTypes); - FieldMetadata.AlternateDataTypes := AlternateDataTypes; - FieldMetadata.Options := []; - if Fields.FieldByName('RDB$NULL_FLAG').AsInteger <> 0 then - FieldMetadata.Options := FieldMetadata.Options + [foRequired]; - if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then - FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - if FieldMetadata.DataType = dtString then - FieldMetadata.Size := Fields.FieldByName('RDB$CHARACTER_LENGTH').AsInteger + FieldMetaDataType, + AlternateDataTypes) then + begin + FieldMetadata.DataType := FieldMetaDataType; + FieldMetadata.AlternateDataTypes := AlternateDataTypes; + FieldMetadata.Options := []; + if Fields.FieldByName('RDB$NULL_FLAG').AsInteger <> 0 then + FieldMetadata.Options := FieldMetadata.Options + [foRequired]; + if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then + FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; + if FieldMetadata.DataType = dtString then + FieldMetadata.Size := Fields.FieldByName('RDB$CHARACTER_LENGTH').AsInteger + else + FieldMetadata.Size := Fields.FieldByName('RDB$FIELD_LENGTH').AsInteger; + end else - FieldMetadata.Size := Fields.FieldByName('RDB$FIELD_LENGTH').AsInteger; + DoWarning(Format(SUnsupportedColumnSkipped, + [TableMetadata.Name, FieldMetadata.Name, + Trim(Fields.FieldByName('RDB$TYPE_NAME').AsString)])); Fields.Next; end; finally @@ -202,35 +212,37 @@ end; function TInstantIBFbCatalog.ColumnTypeToDataType(const ColumnType: string; - const BlobSubType, FieldScale: Integer; - out AlternateDataTypes: TInstantDataTypes): TInstantDataType; + const BlobSubType, FieldScale: Integer; out DataType: TInstantDataType; + out AlternateDataTypes: TInstantDataTypes): Boolean; begin AlternateDataTypes := []; + Result := True; { TODO : How to use FieldScale? } if SameText(ColumnType, 'TEXT') or SameText(ColumnType, 'VARYING') then - Result := dtString - else if SameText(ColumnType, 'SHORT') then begin - Result := dtBoolean; + DataType := dtString + else if SameText(ColumnType, 'SHORT') then + begin + DataType := dtBoolean; Include(AlternateDataTypes, dtInteger); end else if SameText(ColumnType, 'LONG') then - Result := dtInteger + DataType := dtInteger else if SameText(ColumnType, 'FLOAT') or SameText(ColumnType, 'DOUBLE') then - Result := dtFloat + DataType := dtFloat else if SameText(ColumnType, 'TIMESTAMP') or SameText(ColumnType, 'DATE') or SameText(ColumnType, 'TIME')then - Result := dtDateTime + DataType := dtDateTime else if SameText(ColumnType, 'BLOB') then begin if BlobSubType = 1 then - Result := dtMemo + DataType := dtMemo else - Result := dtBlob; + DataType := dtBlob; end else if SameText(ColumnType, 'INT64') then - Result := dtCurrency + DataType := dtCurrency else - raise Exception.CreateFmt('ColumnType %s not supported.', [ColumnType]); + Result := False; end; function TInstantIBFbCatalog.GetSelectFieldsSQL( |
From: <sr...@us...> - 2006-02-15 22:58:21
|
Revision: 608 Author: srmitch Date: 2006-02-15 14:58:06 -0800 (Wed, 15 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=608&view=rev Log Message: ----------- Changes: 1. Updated InstantNexusDBCatalog to allow for the skipping of unsupported data types with warning during database evolve. 2. A couple of minor editorial changes to Readme1st.txt. Modified Paths: -------------- trunk/Readme1st.txt trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas Modified: trunk/Readme1st.txt =================================================================== --- trunk/Readme1st.txt 2006-02-15 15:18:23 UTC (rev 607) +++ trunk/Readme1st.txt 2006-02-15 22:58:06 UTC (rev 608) @@ -48,13 +48,13 @@ A database for storing the business objects can be automatically generated from the defined model via the Database Builder. InstantObjects supports databases available -via BDE, ADO, InterBase Express, dbExpress, DBISAM, FlashFiler, NexusDb, UIB and +via BDE, ADO, InterBase Express, dbExpress, DBISAM, FlashFiler, NexusDB, UIB and Advantage Database Server, plus a native, file-based XML storage. OBJECT PERSISTENCE One of the major issues when developing object-oriented applications is object -persistence. InstantObjects adresses this issue by providing a powerful persistence +persistence. InstantObjects addresses this issue by providing a powerful persistence mechanism that allows using the most common databases as storage. Storing and retrieving objects is a simple matter of invoking methods of the common ancestor class, TInstantObject. Mapping of objects to and from tables is done automatically @@ -107,7 +107,7 @@ ------------------------- The InstantObjects Guide IOHelp.hlp in the <installdir>\Help folder contains more -informations about InstantObjects. +information about InstantObjects. The section "User Guide" explains how to build applications with InstantObjects. The section "Reference Guide" contains a detailed explanation of every class Modified: trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas =================================================================== --- trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-02-15 15:18:23 UTC (rev 607) +++ trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-02-15 22:58:06 UTC (rev 608) @@ -49,8 +49,8 @@ procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata); procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); - function ColumnTypeToDataType(const ColumnType: string; const NexusType, - FieldScale: Integer): TInstantDataType; + function ColumnTypeToDataType(const ColumnType: string; out DataType: + TInstantDataType): Boolean; function GetSelectFieldsSQL(const ATableName: string): string; function GetSelectIndexesSQL(const ATableName: string): string; function GetSelectIndexFieldsSQL(const AIndexName: string): string; @@ -63,7 +63,7 @@ implementation uses - SysUtils, Classes, DB; + SysUtils, Classes, DB, InstantConsts; { TInstantNexusDBCatalog } @@ -86,7 +86,7 @@ try while not IndexFields.Eof do begin - IndexFieldList.Add(Trim(IndexFields.FieldByName('SEGMENT_FIELD').AsString)); + IndexFieldList.Add(IndexFields.FieldByName('SEGMENT_FIELD').AsString); IndexFields.Next; end; finally @@ -110,7 +110,7 @@ while not Indexes.Eof do begin IndexMetadata := TableMetadata.IndexMetadatas.Add; - IndexMetadata.Name := Trim(Indexes.FieldByName('INDEX_NAME').AsString); + IndexMetadata.Name := Indexes.FieldByName('INDEX_NAME').AsString; // Ignore automatically generated 'Sequential Access Index' if SameText('Sequential Access Index', IndexMetadata.Name) then @@ -148,6 +148,8 @@ var Fields: TDataSet; FieldMetadata: TInstantFieldMetadata; + FieldDataType: String; + FieldMetaDataType: TInstantDataType; begin Fields := Broker.AcquireDataSet(GetSelectFieldsSQL(TableMetadata.Name)); try @@ -156,26 +158,29 @@ while not Fields.Eof do begin FieldMetadata := TableMetadata.FieldMetadatas.Add; - FieldMetadata.Name := Trim(Fields.FieldByName('FIELD_NAME').AsString); - FieldMetadata.DataType := ColumnTypeToDataType( + FieldMetadata.Name := Fields.FieldByName('FIELD_NAME').AsString; {$IFDEF NX1} - Trim(Fields.FieldByName('FIELD_TYPE').AsString), + FieldDataType := Fields.FieldByName('FIELD_TYPE').AsString; {$ELSE} - Trim(Fields.FieldByName('FIELD_TYPE_NEXUS').AsString), + FieldDataType := Fields.FieldByName('FIELD_TYPE_NEXUS').AsString; {$ENDIF} - 0,// No need for 'FIELD_SUB_TYPE' here - Fields.FieldByName('FIELD_DECIMALS').AsInteger); - FieldMetadata.Options := []; - if Fields.FieldByName('FIELD_REQUIRED').AsBoolean then - FieldMetadata.Options := FieldMetadata.Options + [foRequired]; - if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then - FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - { TODO : support ExternalTableName? } - if FieldMetadata.DataType = dtString then - FieldMetadata.Size := Fields.FieldByName('FIELD_UNITS').AsInteger + if ColumnTypeToDataType(FieldDataType, FieldMetaDataType) then + begin + FieldMetadata.DataType := FieldMetaDataType; + FieldMetadata.Options := []; + if Fields.FieldByName('FIELD_REQUIRED').AsBoolean then + FieldMetadata.Options := FieldMetadata.Options + [foRequired]; + if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then + FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; + if FieldMetadata.DataType = dtString then + FieldMetadata.Size := Fields.FieldByName('FIELD_UNITS').AsInteger + else + FieldMetadata.Size := Fields.FieldByName('FIELD_LENGTH').AsInteger; + Fields.Next; + end else - FieldMetadata.Size := Fields.FieldByName('FIELD_LENGTH').AsInteger; - Fields.Next; + DoWarning(Format(SUnsupportedColumnSkipped, + [TableMetadata.Name, FieldMetadata.Name, FieldDataType])); end; finally Fields.Close; @@ -198,7 +203,7 @@ while not Tables.Eof do begin TableMetadata := TableMetadatas.Add; - TableMetadata.Name := Trim(Tables.FieldByName('TABLE_NAME').AsString); + TableMetadata.Name := Tables.FieldByName('TABLE_NAME').AsString; // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what // indexes are defined to correctly set the foIndexed option. AddIndexMetadatas(TableMetadata); @@ -213,63 +218,63 @@ end; end; -function TInstantNexusDBCatalog.ColumnTypeToDataType(const ColumnType: string; const - NexusType, FieldScale: Integer): TInstantDataType; +function TInstantNexusDBCatalog.ColumnTypeToDataType(const ColumnType: string; + out DataType: TInstantDataType): Boolean; begin - { TODO : How to use FieldScale? } + Result := True; {$IFDEF NX1} if SameText(ColumnType, 'ShortString') or SameText(ColumnType, 'NullString') then - Result := dtString + DataType := dtString else if SameText(ColumnType, 'Int8') or SameText(ColumnType, 'Int16') or SameText(ColumnType, 'Int32') then //or SameText(ColumnType, 'nxtAutoInc') then // is unsigned 32 bit - Result := dtInteger + DataType := dtInteger else if SameText(ColumnType, 'Single') or SameText(ColumnType, 'Double') or SameText(ColumnType, 'Extended') then - Result := dtFloat + DataType := dtFloat else if SameText(ColumnType, 'Currency') then - Result := dtCurrency + DataType := dtCurrency else if SameText(ColumnType, 'Boolean') then - Result := dtBoolean + DataType := dtBoolean else if SameText(ColumnType, 'DateTime') or SameText(ColumnType, 'Date') or SameText(ColumnType, 'Time')then - Result := dtDateTime + DataType := dtDateTime else if SameText(ColumnType, 'BLOB') then - Result := dtBlob + DataType := dtBlob else if SameText(ColumnType, 'BLOB Memo') then - Result := dtMemo + DataType := dtMemo {$ELSE} if SameText(ColumnType, 'nxtNullString') or SameText(ColumnType, 'nxtShortString') then - Result := dtString + DataType := dtString else if SameText(ColumnType, 'nxtInt8') or SameText(ColumnType, 'nxtInt16') or SameText(ColumnType, 'nxtInt32') then //or SameText(ColumnType, 'nxtAutoInc') then // is unsigned 32 bit - Result := dtInteger + DataType := dtInteger else if SameText(ColumnType, 'nxtSingle') or SameText(ColumnType, 'nxtDouble') or SameText(ColumnType, 'nxtExtended') then - Result := dtFloat + DataType := dtFloat else if SameText(ColumnType, 'nxtCurrency') then - Result := dtCurrency + DataType := dtCurrency else if SameText(ColumnType, 'nxtBoolean') then - Result := dtBoolean + DataType := dtBoolean else if SameText(ColumnType, 'nxtDateTime') or SameText(ColumnType, 'nxtDate') or SameText(ColumnType, 'nxtTime')then - Result := dtDateTime + DataType := dtDateTime else if SameText(ColumnType, 'nxtBlob') then - Result := dtBlob + DataType := dtBlob else if SameText(ColumnType, 'nxtBlobMemo') then - Result := dtMemo + DataType := dtMemo {$ENDIF} else - raise Exception.CreateFmt('ColumnType %s not supported.', [ColumnType]); + Result := False; end; function TInstantNexusDBCatalog.GetSelectFieldsSQL( |
From: <jcm...@us...> - 2006-02-15 15:19:53
|
Revision: 607 Author: jcmoraisjr Date: 2006-02-15 07:18:23 -0800 (Wed, 15 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=607&view=rev Log Message: ----------- Release Tools - resource file and scripts used to replicate it. Added Paths: ----------- trunk/ReleaseTools/ trunk/ReleaseTools/InstantReplicateResource.bat trunk/ReleaseTools/InstantReplicateResource.sh trunk/ReleaseTools/InstantSyncBatchFile.sh trunk/ReleaseTools/InstantVersion.res Removed Paths: ------------- trunk/Source/InstantReplicateResource.sh Added: trunk/ReleaseTools/InstantReplicateResource.bat =================================================================== --- trunk/ReleaseTools/InstantReplicateResource.bat (rev 0) +++ trunk/ReleaseTools/InstantReplicateResource.bat 2006-02-15 15:18:23 UTC (rev 607) @@ -0,0 +1,121 @@ +@echo off +echo. +echo This script will replicate InstantVersion.res, +echo creating or overwriting all projects' resource files. +echo. +echo Press Enter to continue, Ctrl+C to cancel. +pause > nul +copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D6\DclDBISAM.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D6\IODBISAM.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D7\DclDBISAM.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBISAM\D7\IODBISAM.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\FlashFiler\D5\DclIOff_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\FlashFiler\D5\ioff_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D5\DclIOUIB_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D5\IOUIB_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D6\IOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D6\DclIOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D2005\IOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D2005\DclIOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D7\IOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D7\DclIOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D2006\IOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\UIB\D2006\DclIOUIB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D5\DclIOXML_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D5\Ioxml_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D6\IOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D6\DclIOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D2005\IOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D2005\DclIOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D7\IOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D7\DclIOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D2006\IOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\D2006\DclIOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\k3\IOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\XML\k3\DclIOXML.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D5\DclIOIBX_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D5\Ioibx_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D6\IOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D6\DclIOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D2005\IOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D2005\DclIOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D7\IOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D7\DclIOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D2006\IOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\IBX\D2006\DclIOIBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D5\DclIOADO_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D5\IOADO_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D6\IOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D6\DclIOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D2005\IOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D2005\DclIOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D7\IOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D7\DclIOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D2006\IOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADO\D2006\DclIOADO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D5\DclIOZeosDBO_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D5\IOZeosDBO_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D6\IOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D6\DclIOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2005\IOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2005\DclIOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D7\IOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D7\DclIOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2006\IOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ZeosDBO\D2006\DclIOZeosDBO.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADS\D5\DclIOADS_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\ADS\D5\ioads_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2005\DclIONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2005\IONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2006\DclIONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D2006\IONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D5\DclIONexusDB_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D5\IONexusDB_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D6\DclIONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D6\IONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D7\DclIONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\NexusDb\D7\IONexusDB.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D5\DclIOBDE_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D5\Iobde_D5.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D6\IOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D6\DclIOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D2005\IOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D2005\DclIOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D7\IOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D7\DclIOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D2006\IOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\BDE\D2006\DclIOBDE.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D6\IODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D6\DclIODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D2005\IODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D2005\DclIODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D7\IODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D7\DclIODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D2006\IODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\D2006\DclIODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\K3\IODBX.res" > nul +copy "InstantVersion.res" "..\Source\Brokers\DBX\K3\DclIODBX.res" > nul +copy "InstantVersion.res" "..\Source\Core\D2005\IOCore.res" > nul +copy "InstantVersion.res" "..\Source\Core\D2006\IOCore.res" > nul +copy "InstantVersion.res" "..\Source\Core\K3\IOCore.res" > nul +copy "InstantVersion.res" "..\Source\Core\D5\IOCore_D5.res" > nul +copy "InstantVersion.res" "..\Source\Core\D6\IOCore.res" > nul +copy "InstantVersion.res" "..\Source\Core\D7\IOCore.res" > nul +copy "InstantVersion.res" "..\Source\Design\D2005\DclIOCore.res" > nul +copy "InstantVersion.res" "..\Source\Design\D2006\DclIOCore.res" > nul +copy "InstantVersion.res" "..\Source\Design\K3\DclIOCore.res" > nul +copy "InstantVersion.res" "..\Source\Design\D5\DclIOCore_D5.res" > nul +copy "InstantVersion.res" "..\Source\Design\D6\DclIOCore.res" > nul +copy "InstantVersion.res" "..\Source\Design\D7\DclIOCore.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D5\IOMSSqlCatalog_D5.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D6\IOMSSqlCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D2005\IOMSSqlCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D7\IOMSSqlCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\D2006\IOMSSqlCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\MSSql\K3\IOMSSqlCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D5\IOIBFbCatalog_D5.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D6\IOIBFbCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D2005\IOIBFbCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D7\IOIBFbCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\D2006\IOIBFbCatalog.res" > nul +copy "InstantVersion.res" "..\Source\Catalogs\IBFb\K3\IOIBFbCatalog.res" > nul Added: trunk/ReleaseTools/InstantReplicateResource.sh =================================================================== --- trunk/ReleaseTools/InstantReplicateResource.sh (rev 0) +++ trunk/ReleaseTools/InstantReplicateResource.sh 2006-02-15 15:18:23 UTC (rev 607) @@ -0,0 +1,18 @@ +#!/bin/sh +[ $# -gt 0 ] && + InstantVersionResFile=$1 || + InstantVersionResFile="InstantVersion.res" +[ -f ${InstantVersionResFile} ] || + { echo "Resource file ${InstantVersionResFile} was not found."; exit 1; } +echo +echo "This script will replicate ${InstantVersionResFile}," +echo "creating or overwriting all projects' resource files." +echo +echo "Press Enter to continue, Ctrl+C to cancel." +read + +find . -iname "*.dpk" -type f | while read DpkFile +do + cp -f "${InstantVersionResFile}" "${DpkFile/.dpk/.res}" +done +echo "Done." Property changes on: trunk/ReleaseTools/InstantReplicateResource.sh ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:eol-style + LF Added: trunk/ReleaseTools/InstantSyncBatchFile.sh =================================================================== --- trunk/ReleaseTools/InstantSyncBatchFile.sh (rev 0) +++ trunk/ReleaseTools/InstantSyncBatchFile.sh 2006-02-15 15:18:23 UTC (rev 607) @@ -0,0 +1,23 @@ +#!/bin/sh +InstantVersionResFile="InstantVersion.res" +InstantScriptFile="InstantReplicateResource.bat" + +echo +echo "This script will (re)create ${InstantScriptFile}." +echo "Press Enter to continue, Ctrl+C to cancel." +read + +echo -n -e \ +"@echo off\r\n"\ +"echo.\r\n"\ +"echo This script will replicate ${InstantVersionResFile},\r\n"\ +"echo creating or overwriting all projects' resource files.\r\n"\ +"echo.\r\n"\ +"echo Press Enter to continue, Ctrl+C to cancel.\r\n"\ +"pause > nul\r\n" > ${InstantScriptFile} + +find .. -name "*.dpk" -type f | sed 's/\//\\\\/g' | while read DpkFile +do + echo -e copy \"${InstantVersionResFile}\" \"${DpkFile/.dpk/.res}\"" > nul\r" +done >> ${InstantScriptFile} +echo "Done." Property changes on: trunk/ReleaseTools/InstantSyncBatchFile.sh ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:eol-style + LF Added: trunk/ReleaseTools/InstantVersion.res =================================================================== (Binary files differ) Property changes on: trunk/ReleaseTools/InstantVersion.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Deleted: trunk/Source/InstantReplicateResource.sh =================================================================== (Binary files differ) |
From: <jcm...@us...> - 2006-02-14 20:20:57
|
Revision: 606 Author: jcmoraisjr Date: 2006-02-14 12:20:12 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=606&view=rev Log Message: ----------- Changed how packages include resource files: - Added a sh script to replicate a new resource file; - changed Install.txt (removing a note about packages and .res files); - removed InstantVersion.res, InstantVersion.inc and InstantPackageVersion.inc. Modified Paths: -------------- trunk/Docs/Install.txt Added Paths: ----------- trunk/Source/InstantReplicateResource.sh Removed Paths: ------------- trunk/Source/InstantPackageVersion.inc trunk/Source/InstantVersion.inc trunk/Source/InstantVersion.res Modified: trunk/Docs/Install.txt =================================================================== --- trunk/Docs/Install.txt 2006-02-14 19:52:19 UTC (rev 605) +++ trunk/Docs/Install.txt 2006-02-14 20:20:12 UTC (rev 606) @@ -88,25 +88,4 @@ NOTE TO DELPHI 5 USERS: dpk files in Delphi 5 have an additional suffix "_D5". This is because Delphi 5 does not support the LIBSUFFIX compiler directive - that InstantObjects uses in newer versions of Delphi. - -******************************************************************************** -Note: All InstantObjects packages use non-standard code in the package -source file. In particular, they miss the standard line: - -{$R *.RES} - -and have instead something similar to this line: - -{$I '../../InstantVersion.inc'} - -that includes the InstantVersion.inc file in the $(InstantObjects)\Source -folder (Substitute the correct relative path in this statement depending on -where in the installed folder tree the package file resides). However if you -open the Project Options for a package and click the OK button, the Delphi IDE -will restore the line with the $R directive, automatically create a -<packagename>.res file that IO doesn't need and delete the $I -directive. If you ever do that, please restore the original code by editing -the Project Source by hand or restoring the original file from the distribution -archive. -******************************************************************************** + that InstantObjects uses in newer versions of Delphi. \ No newline at end of file Deleted: trunk/Source/InstantPackageVersion.inc =================================================================== --- trunk/Source/InstantPackageVersion.inc 2006-02-14 19:52:19 UTC (rev 605) +++ trunk/Source/InstantPackageVersion.inc 2006-02-14 20:20:12 UTC (rev 606) @@ -1,5 +0,0 @@ -{$IFDEF LINUX} -{$R '../../InstantVersion.res'} -{$ELSE} -{$R '..\..\InstantVersion.res'} -{$ENDIF} Added: trunk/Source/InstantReplicateResource.sh =================================================================== (Binary files differ) Property changes on: trunk/Source/InstantReplicateResource.sh ___________________________________________________________________ Name: svn:mime-type + Text/Plain Deleted: trunk/Source/InstantVersion.inc =================================================================== --- trunk/Source/InstantVersion.inc 2006-02-14 19:52:19 UTC (rev 605) +++ trunk/Source/InstantVersion.inc 2006-02-14 20:20:12 UTC (rev 606) @@ -1,5 +0,0 @@ -{$IFDEF LINUX} -{$R '../../../InstantVersion.res'} -{$ELSE} -{$R '..\..\..\InstantVersion.res'} -{$ENDIF} Deleted: trunk/Source/InstantVersion.res =================================================================== (Binary files differ) |
From: <jcm...@us...> - 2006-02-14 19:55:08
|
Revision: 605 Author: jcmoraisjr Date: 2006-02-14 11:52:19 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=605&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.dpk trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.dpk trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.dpk trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.dpk Added Paths: ----------- trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.res trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.res trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.res trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.res Modified: trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,8 +1,8 @@ package DclIOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantZeosDBO.dcr'} -{$R '..\InstantZeosDBO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D2005/DclIOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,6 +1,6 @@ package IOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D2005/IOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,8 +1,8 @@ package DclIOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantZeosDBO.dcr'} -{$R '..\InstantZeosDBO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D2006/DclIOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,6 +1,6 @@ package IOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D2006/IOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,8 +1,8 @@ package DclIOZeosDBO_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantZeosDBO.dcr'} -{$R '..\InstantZeosDBO.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D5/DclIOZeosDBO_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,6 +1,6 @@ package IOZeosDBO_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} @@ -28,8 +28,8 @@ {$IMPLICITBUILD OFF} requires - ZComponent, - IOCore_D5; + IOCore_D5, + ZComponent; contains InstantZeosDBO in '..\InstantZeosDBO.pas', Added: trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D5/IOZeosDBO_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,8 +1,8 @@ package DclIOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantZeosDBO.dcr'} -{$R '..\InstantZeosDBO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D6/DclIOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,6 +1,6 @@ package IOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D6/IOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,8 +1,8 @@ package DclIOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantZeosDBO.dcr'} -{$R '..\InstantZeosDBO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D7/DclIOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.dpk =================================================================== --- trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.dpk 2006-02-14 19:48:26 UTC (rev 604) +++ trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.dpk 2006-02-14 19:52:19 UTC (rev 605) @@ -1,6 +1,6 @@ package IOZeosDBO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ZeosDBO/D7/IOZeosDBO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
From: <jcm...@us...> - 2006-02-14 19:51:48
|
Revision: 604 Author: jcmoraisjr Date: 2006-02-14 11:48:26 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=604&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/XML/D2005/DclIOXML.dpk trunk/Source/Brokers/XML/D2005/IOXML.dpk trunk/Source/Brokers/XML/D2006/DclIOXML.dpk trunk/Source/Brokers/XML/D2006/IOXML.dpk trunk/Source/Brokers/XML/D5/DclIOXML_D5.dpk trunk/Source/Brokers/XML/D5/Ioxml_D5.dpk trunk/Source/Brokers/XML/D6/DclIOXML.dpk trunk/Source/Brokers/XML/D6/IOXML.dpk trunk/Source/Brokers/XML/D7/DclIOXML.dpk trunk/Source/Brokers/XML/D7/IOXML.dpk trunk/Source/Brokers/XML/k3/DclIOXML.dpk trunk/Source/Brokers/XML/k3/IOXML.dpk Added Paths: ----------- trunk/Source/Brokers/XML/D2005/DclIOXML.res trunk/Source/Brokers/XML/D2005/IOXML.res trunk/Source/Brokers/XML/D2006/DclIOXML.res trunk/Source/Brokers/XML/D2006/IOXML.res trunk/Source/Brokers/XML/D5/DclIOXML_D5.res trunk/Source/Brokers/XML/D5/Ioxml_D5.res trunk/Source/Brokers/XML/D6/DclIOXML.res trunk/Source/Brokers/XML/D6/IOXML.res trunk/Source/Brokers/XML/D7/DclIOXML.res trunk/Source/Brokers/XML/D7/IOXML.res trunk/Source/Brokers/XML/k3/DclIOXML.res trunk/Source/Brokers/XML/k3/IOXML.res Modified: trunk/Source/Brokers/XML/D2005/DclIOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D2005/DclIOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D2005/DclIOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,8 +1,8 @@ package DclIOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantXML.dcr'} -{$R '..\InstantXML.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/D2005/DclIOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D2005/DclIOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D2005/IOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D2005/IOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D2005/IOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,6 @@ package IOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/XML/D2005/IOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D2005/IOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D2006/DclIOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D2006/DclIOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D2006/DclIOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,8 +1,8 @@ package DclIOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantXML.dcr'} -{$R '..\InstantXML.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/D2006/DclIOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D2006/DclIOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D2006/IOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D2006/IOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D2006/IOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,6 @@ package IOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/XML/D2006/IOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D2006/IOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D5/DclIOXML_D5.dpk =================================================================== --- trunk/Source/Brokers/XML/D5/DclIOXML_D5.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D5/DclIOXML_D5.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,8 +1,8 @@ package DclIOXML_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantXML.dcr'} -{$R '..\InstantXML.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/D5/DclIOXML_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D5/DclIOXML_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D5/Ioxml_D5.dpk =================================================================== --- trunk/Source/Brokers/XML/D5/Ioxml_D5.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D5/Ioxml_D5.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,6 @@ package IOXML_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/XML/D5/Ioxml_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D5/Ioxml_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D6/DclIOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D6/DclIOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D6/DclIOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,8 +1,8 @@ package DclIOXML; -{$I ..\..\..\InstantVersion.inc} +{$R *.res} +{$R '..\InstantXML.dcr'} -{$R '..\InstantXML.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/D6/DclIOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D6/DclIOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D6/IOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D6/IOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D6/IOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,6 @@ package IOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/XML/D6/IOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D6/IOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D7/DclIOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D7/DclIOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D7/DclIOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,8 +1,8 @@ package DclIOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantXML.dcr'} -{$R '..\InstantXML.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/D7/DclIOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D7/DclIOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/D7/IOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/D7/IOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/D7/IOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,6 @@ package IOXML; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/XML/D7/IOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/D7/IOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/k3/DclIOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/k3/DclIOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/k3/DclIOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,7 +1,8 @@ package DclIOXML; -{$I '../../../InstantVersion.inc'} +{$R *.res} {$R '../InstantXML.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/k3/DclIOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/k3/DclIOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/XML/k3/IOXML.dpk =================================================================== --- trunk/Source/Brokers/XML/k3/IOXML.dpk 2006-02-14 19:44:55 UTC (rev 603) +++ trunk/Source/Brokers/XML/k3/IOXML.dpk 2006-02-14 19:48:26 UTC (rev 604) @@ -1,6 +1,7 @@ package IOXML; -{$I '../../../InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/XML/k3/IOXML.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/XML/k3/IOXML.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
From: <jcm...@us...> - 2006-02-14 19:47:50
|
Revision: 603 Author: jcmoraisjr Date: 2006-02-14 11:44:55 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=603&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/UIB/D2005/DclIOUIB.dpk trunk/Source/Brokers/UIB/D2005/IOUIB.dpk trunk/Source/Brokers/UIB/D2006/DclIOUIB.dpk trunk/Source/Brokers/UIB/D2006/IOUIB.dpk trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.dpk trunk/Source/Brokers/UIB/D5/IOUIB_D5.dpk trunk/Source/Brokers/UIB/D6/DclIOUIB.dpk trunk/Source/Brokers/UIB/D6/IOUIB.dpk trunk/Source/Brokers/UIB/D7/DclIOUIB.dpk trunk/Source/Brokers/UIB/D7/IOUIB.dpk Added Paths: ----------- trunk/Source/Brokers/UIB/D2005/DclIOUIB.res trunk/Source/Brokers/UIB/D2005/IOUIB.res trunk/Source/Brokers/UIB/D2006/DclIOUIB.res trunk/Source/Brokers/UIB/D2006/IOUIB.res trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.res trunk/Source/Brokers/UIB/D5/IOUIB_D5.res trunk/Source/Brokers/UIB/D6/DclIOUIB.res trunk/Source/Brokers/UIB/D6/IOUIB.res trunk/Source/Brokers/UIB/D7/DclIOUIB.res trunk/Source/Brokers/UIB/D7/IOUIB.res Modified: trunk/Source/Brokers/UIB/D2005/DclIOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D2005/DclIOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D2005/DclIOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,7 +1,8 @@ package DclIOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$R '..\InstantUIB.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D2005/DclIOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D2005/DclIOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D2005/IOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D2005/IOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D2005/IOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,6 +1,7 @@ package IOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D2005/IOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D2005/IOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D2006/DclIOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D2006/DclIOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D2006/DclIOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,7 +1,8 @@ package DclIOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$R '..\InstantUIB.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D2006/DclIOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D2006/DclIOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D2006/IOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D2006/IOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D2006/IOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,6 +1,7 @@ package IOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D2006/IOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D2006/IOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.dpk =================================================================== --- trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,8 +1,8 @@ package DclIOUIB_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantUIB.dcr'} -{$R '..\InstantUIB.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D5/DclIOUIB_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D5/IOUIB_D5.dpk =================================================================== --- trunk/Source/Brokers/UIB/D5/IOUIB_D5.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D5/IOUIB_D5.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,6 +1,6 @@ package IOUIB_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/UIB/D5/IOUIB_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D5/IOUIB_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D6/DclIOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D6/DclIOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D6/DclIOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,8 +1,8 @@ package DclIOUIB; -{$I '..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantUIB.dcr'} -{$R '..\InstantUIB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D6/DclIOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D6/DclIOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D6/IOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D6/IOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D6/IOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,6 +1,6 @@ package IOUIB; -{$I '..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/UIB/D6/IOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D6/IOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D7/DclIOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D7/DclIOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D7/DclIOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,8 +1,8 @@ package DclIOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantUIB.dcr'} -{$R '..\InstantUIB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/UIB/D7/DclIOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D7/DclIOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/UIB/D7/IOUIB.dpk =================================================================== --- trunk/Source/Brokers/UIB/D7/IOUIB.dpk 2006-02-14 19:41:27 UTC (rev 602) +++ trunk/Source/Brokers/UIB/D7/IOUIB.dpk 2006-02-14 19:44:55 UTC (rev 603) @@ -1,6 +1,6 @@ package IOUIB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/UIB/D7/IOUIB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/UIB/D7/IOUIB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
From: <jcm...@us...> - 2006-02-14 19:44:23
|
Revision: 602 Author: jcmoraisjr Date: 2006-02-14 11:41:27 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=602&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.dpk trunk/Source/Brokers/NexusDb/D2005/IONexusDB.dpk trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.dpk trunk/Source/Brokers/NexusDb/D2006/IONexusDB.dpk trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.dpk trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.dpk trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.dpk trunk/Source/Brokers/NexusDb/D6/IONexusDB.dpk trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.dpk trunk/Source/Brokers/NexusDb/D7/IONexusDB.dpk Added Paths: ----------- trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.res trunk/Source/Brokers/NexusDb/D2005/IONexusDB.res trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.res trunk/Source/Brokers/NexusDb/D2006/IONexusDB.res trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.res trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.res trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.res trunk/Source/Brokers/NexusDb/D6/IONexusDB.res trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.res trunk/Source/Brokers/NexusDb/D7/IONexusDB.res Modified: trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,8 +1,8 @@ package DclIONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantNexusDB.dcr'} -{$R '..\InstantNexusDB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D2005/DclIONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D2005/IONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D2005/IONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D2005/IONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,6 +1,6 @@ package IONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/NexusDb/D2005/IONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D2005/IONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,8 +1,8 @@ package DclIONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantNexusDB.dcr'} -{$R '..\InstantNexusDB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D2006/DclIONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D2006/IONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D2006/IONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D2006/IONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,6 +1,6 @@ package IONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/NexusDb/D2006/IONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D2006/IONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,8 +1,8 @@ package DclIONexusDB_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantNexusDB.dcr'} -{$R '..\InstantNexusDB.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D5/DclIONexusDB_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,6 +1,6 @@ package IONexusDB_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D5/IONexusDB_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,8 +1,8 @@ package DclIONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantNexusDB.dcr'} -{$R '..\InstantNexusDB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D6/DclIONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D6/IONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D6/IONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D6/IONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,6 +1,6 @@ package IONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/NexusDb/D6/IONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D6/IONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,8 +1,8 @@ package DclIONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantNexusDB.dcr'} -{$R '..\InstantNexusDB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D7/DclIONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/NexusDb/D7/IONexusDB.dpk =================================================================== --- trunk/Source/Brokers/NexusDb/D7/IONexusDB.dpk 2006-02-14 19:37:53 UTC (rev 601) +++ trunk/Source/Brokers/NexusDb/D7/IONexusDB.dpk 2006-02-14 19:41:27 UTC (rev 602) @@ -1,6 +1,6 @@ package IONexusDB; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/NexusDb/D7/IONexusDB.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/NexusDb/D7/IONexusDB.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
From: <jcm...@us...> - 2006-02-14 19:40:56
|
Revision: 601 Author: jcmoraisjr Date: 2006-02-14 11:37:53 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=601&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/IBX/D2005/DclIOIBX.dpk trunk/Source/Brokers/IBX/D2005/IOIBX.dpk trunk/Source/Brokers/IBX/D2006/DclIOIBX.dpk trunk/Source/Brokers/IBX/D2006/IOIBX.dpk trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.dpk trunk/Source/Brokers/IBX/D5/Ioibx_D5.dpk trunk/Source/Brokers/IBX/D6/DclIOIBX.dpk trunk/Source/Brokers/IBX/D6/IOIBX.dpk trunk/Source/Brokers/IBX/D7/DclIOIBX.dpk trunk/Source/Brokers/IBX/D7/IOIBX.dpk Added Paths: ----------- trunk/Source/Brokers/IBX/D2005/DclIOIBX.res trunk/Source/Brokers/IBX/D2005/IOIBX.res trunk/Source/Brokers/IBX/D2006/DclIOIBX.res trunk/Source/Brokers/IBX/D2006/IOIBX.res trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.res trunk/Source/Brokers/IBX/D5/Ioibx_D5.res trunk/Source/Brokers/IBX/D6/DclIOIBX.res trunk/Source/Brokers/IBX/D6/IOIBX.res trunk/Source/Brokers/IBX/D7/DclIOIBX.res trunk/Source/Brokers/IBX/D7/IOIBX.res Modified: trunk/Source/Brokers/IBX/D2005/DclIOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D2005/DclIOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D2005/DclIOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,8 +1,8 @@ package DclIOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantIBX.dcr'} -{$R '..\InstantIBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/IBX/D2005/DclIOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D2005/DclIOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D2005/IOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D2005/IOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D2005/IOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,6 +1,6 @@ package IOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/IBX/D2005/IOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D2005/IOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D2006/DclIOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D2006/DclIOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D2006/DclIOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,8 +1,8 @@ package DclIOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantIBX.dcr'} -{$R '..\InstantIBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/IBX/D2006/DclIOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D2006/DclIOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D2006/IOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D2006/IOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D2006/IOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,6 +1,6 @@ package IOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/IBX/D2006/IOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D2006/IOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.dpk =================================================================== --- trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,8 +1,8 @@ package DclIOIBX_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantIBX.dcr'} -{$R '..\InstantIBX.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D5/DclIOIBX_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D5/Ioibx_D5.dpk =================================================================== --- trunk/Source/Brokers/IBX/D5/Ioibx_D5.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D5/Ioibx_D5.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,6 +1,6 @@ package IOIBX_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/IBX/D5/Ioibx_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D5/Ioibx_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D6/DclIOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D6/DclIOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D6/DclIOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,8 +1,8 @@ package DclIOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantIBX.dcr'} -{$R '..\InstantIBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/IBX/D6/DclIOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D6/DclIOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D6/IOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D6/IOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D6/IOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,6 +1,6 @@ package IOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/IBX/D6/IOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D6/IOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D7/DclIOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D7/DclIOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D7/DclIOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,8 +1,8 @@ package DclIOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantIBX.dcr'} -{$R '..\InstantIBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/IBX/D7/DclIOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D7/DclIOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/IBX/D7/IOIBX.dpk =================================================================== --- trunk/Source/Brokers/IBX/D7/IOIBX.dpk 2006-02-14 19:35:50 UTC (rev 600) +++ trunk/Source/Brokers/IBX/D7/IOIBX.dpk 2006-02-14 19:37:53 UTC (rev 601) @@ -1,6 +1,6 @@ package IOIBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/IBX/D7/IOIBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/IBX/D7/IOIBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |