Menu
▾
▴
instantobjects-cvscommit — Generates a message for every commit made on CVS
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(13) |
Sep
(25) |
Oct
(10) |
Nov
(19) |
Dec
(20) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(206) |
Mar
(43) |
Apr
(25) |
May
(20) |
Jun
(69) |
Jul
(121) |
Aug
(95) |
Sep
(122) |
Oct
(213) |
Nov
(46) |
Dec
(39) |
| 2006 |
Jan
(28) |
Feb
(57) |
Mar
(21) |
Apr
(7) |
May
(11) |
Jun
(2) |
Jul
(8) |
Aug
(13) |
Sep
(2) |
Oct
(2) |
Nov
(20) |
Dec
(16) |
| 2007 |
Jan
(9) |
Feb
(15) |
Mar
|
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
|
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(1) |
Sep
(9) |
Oct
|
Nov
(1) |
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(8) |
Apr
(1) |
May
|
Jun
|
Jul
(11) |
Aug
(57) |
Sep
(2) |
Oct
(6) |
Nov
|
Dec
(7) |
| 2010 |
Jan
(11) |
Feb
(1) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
(1) |
Aug
(2) |
Sep
(27) |
Oct
(3) |
Nov
(7) |
Dec
(1) |
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(8) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
(3) |
Nov
(1) |
Dec
(1) |
| 2013 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
(4) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
|
Feb
|
Mar
(1) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
(3) |
Oct
|
Nov
(4) |
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Nando D. <na...@us...> - 2005-02-11 16:08:26
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6463/Design Modified Files: InstantModelExplorer.pas Log Message: added standard include statement Index: InstantModelExplorer.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantModelExplorer.pas 10 Feb 2005 23:06:32 -0000 1.5 --- InstantModelExplorer.pas 11 Feb 2005 16:08:05 -0000 1.6 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantModelExplorer; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantModelExplorer; ! {$I ..\Core\InstantDefines.inc} ! interface uses |
|
From: Nando D. <na...@us...> - 2005-02-11 16:07:11
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5819/Design Modified Files: InstantAbout.pas InstantClassEditor.pas InstantCommandEditor.pas InstantDesignResources.pas InstantDesignUtils.pas InstantDialog.pas InstantDualList.pas InstantEdit.pas InstantModelExpert.pas InstantUnitSelect.pas InstantWizard.pas Log Message: added standard include statement Index: InstantEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantEdit.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantEdit.pas 10 Feb 2005 23:06:32 -0000 1.3 --- InstantEdit.pas 11 Feb 2005 16:06:43 -0000 1.4 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantEdit; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantEdit; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantDesignResources.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignResources.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantDesignResources.pas 10 Feb 2005 23:06:32 -0000 1.4 --- InstantDesignResources.pas 11 Feb 2005 16:06:43 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantDesignResources; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantDesignResources; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantDualList.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDualList.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantDualList.pas 10 Feb 2005 23:06:32 -0000 1.3 --- InstantDualList.pas 11 Feb 2005 16:06:43 -0000 1.4 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantDualList; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantDualList; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantCommandEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantCommandEditor.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantCommandEditor.pas 10 Feb 2005 23:06:32 -0000 1.3 --- InstantCommandEditor.pas 11 Feb 2005 16:06:43 -0000 1.4 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantCommandEditor; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantCommandEditor; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantDialog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDialog.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantDialog.pas 10 Feb 2005 23:06:32 -0000 1.3 --- InstantDialog.pas 11 Feb 2005 16:06:43 -0000 1.4 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantDialog; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantDialog; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantWizard.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantWizard.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantWizard.pas 10 Feb 2005 23:06:32 -0000 1.3 --- InstantWizard.pas 11 Feb 2005 16:06:43 -0000 1.4 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantWizard; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantWizard; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantAbout.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAbout.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantAbout.pas 10 Feb 2005 23:06:31 -0000 1.4 --- InstantAbout.pas 11 Feb 2005 16:06:43 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantAbout; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantAbout; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantUnitSelect.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantUnitSelect.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantUnitSelect.pas 10 Feb 2005 23:06:32 -0000 1.4 --- InstantUnitSelect.pas 11 Feb 2005 16:06:43 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantUnitSelect; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantUnitSelect; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantDesignUtils.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignUtils.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantDesignUtils.pas 10 Feb 2005 23:06:32 -0000 1.4 --- InstantDesignUtils.pas 11 Feb 2005 16:06:43 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantDesignUtils; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantDesignUtils; ! {$I ..\Core\InstantDefines.inc} ! interface uses Index: InstantModelExpert.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExpert.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantModelExpert.pas 10 Feb 2005 23:06:32 -0000 1.6 --- InstantModelExpert.pas 11 Feb 2005 16:06:43 -0000 1.7 *************** *** 24,28 **** * the Initial Developer. All Rights Reserved. * ! * Contributor(s): * * ***** END LICENSE BLOCK ***** *) --- 24,28 ---- * the Initial Developer. All Rights Reserved. * ! * Contributor(s): Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 30,34 **** unit InstantModelExpert; ! {$IFDEF VER150} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} --- 30,36 ---- unit InstantModelExpert; ! {$I ..\Core\InstantDefines.inc} ! ! {$IFDEF D7+} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} *************** *** 40,44 **** InstantDesignResources, InstantModelExplorer, InstantCode, ExtCtrls, Forms; ! {$IFDEF VER130} const sLineBreak = #13#10; --- 42,46 ---- InstantDesignResources, InstantModelExplorer, InstantCode, ExtCtrls, Forms; ! {$IFNDEF D6+} const sLineBreak = #13#10; Index: InstantClassEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantClassEditor.pas 10 Feb 2005 23:06:32 -0000 1.4 --- InstantClassEditor.pas 11 Feb 2005 16:06:43 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 31,37 **** unit InstantClassEditor; ! interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses --- 31,37 ---- unit InstantClassEditor; ! {$I ..\Core\InstantDefines.inc} ! interface uses |
|
From: Nando D. <na...@us...> - 2005-02-11 14:38:26
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1661/Design Removed Files: iodes50.dof iodesK3.dpk Log Message: removed some obsolete files --- iodesK3.dpk DELETED --- --- iodes50.dof DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-11 14:38:25
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1661/Core Modified Files: InstantPersistence.pas Removed Files: iorun50.dof iorunk3.dpk Log Message: removed some obsolete files Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** InstantPersistence.pas 10 Feb 2005 23:19:45 -0000 1.19 --- InstantPersistence.pas 11 Feb 2005 14:38:15 -0000 1.20 *************** *** 2123,2127 **** function InternalGenerateCreateTableSQL(Metadata: TInstantTableMetadata): string; virtual; function InternalGenerateCreateExternalTableSQL(TableName: string): string; virtual; - function InternalGenerateCreateExternalPartTableSQL(TableName: string): string; virtual; function InternalGenerateDeleteConcurrentSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateDeleteSQL(Map: TInstantAttributeMap): string; virtual; --- 2123,2126 ---- *************** *** 2131,2135 **** function InternalGenerateInsertSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateInsertExternalSQL(Map: TInstantAttributeMap): string; virtual; - function InternalGenerateInsertExternalPartSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateSelectSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateSelectExternalLinkedSQL(Map: TInstantAttributeMap): string; virtual; --- 2130,2133 ---- *************** *** 2145,2149 **** function GenerateCreateTableSQL(Metadata: TInstantTableMetadata): string; function GenerateCreateExternalTableSQL(TableName: string): string; - function GenerateCreateExternalPartTableSQL(TableName: string): string; function GenerateDeleteConcurrentSQL(Map: TInstantAttributeMap): string; function GenerateDeleteSQL(Map: TInstantAttributeMap): string; --- 2143,2146 ---- *************** *** 2153,2157 **** function GenerateInsertSQL(Map: TInstantAttributeMap): string; function GenerateInsertExternalSQL(Map: TInstantAttributeMap): string; - function GenerateInsertExternalPartSQL(Map: TInstantAttributeMap): string; function GenerateSelectSQL(Map: TInstantAttributeMap): string; function GenerateSelectExternalLinkedSQL(Map: TInstantAttributeMap): string; --- 2150,2153 ---- *************** *** 2215,2219 **** FDeleteExternalSQL: string; FInsertExternalSQL: string; - FInsertExternalPartSQL: string; function CreatePreparedQuery(const AStatement: string; AParams: TParams = nil): TDataSet; --- 2211,2214 ---- *************** *** 2239,2243 **** function GetDeleteExternalSQL: string; function GetInsertExternalSQL: string; - function GetInsertExternalPartSQL: string; protected procedure AddAttributeParam(Attribute: TInstantAttribute; --- 2234,2237 ---- *************** *** 2282,2286 **** property InsertSQL: string read GetInsertSQL write FInsertSQL; property InsertExternalSQL: string read GetInsertExternalSQL write FInsertExternalSQL; - property InsertExternalPartSQL: string read GetInsertExternalPartSQL write FInsertExternalPartSQL; property Map: TInstantAttributeMap read FMap; property SelectSQL: string read GetSelectSQL write FSelectSQL; --- 2276,2279 ---- *************** *** 2522,2526 **** if Assigned(AParams) then begin for g := 0 to AParams.Count - 1 do begin ! S := S + sLineBreak + AParams[g].Name + ': ' + GetEnumName(TypeInfo(TFieldType), Ord(AParams[g].DataType)) + ' = ' + AParams[g].AsString; --- 2515,2519 ---- if Assigned(AParams) then begin for g := 0 to AParams.Count - 1 do begin ! S := S + sLineBreak + ' ' + AParams[g].Name + ': ' + GetEnumName(TypeInfo(TFieldType), Ord(AParams[g].DataType)) + ' = ' + AParams[g].AsString; *************** *** 10174,10182 **** FIdDataType, FIdSize, AttributeType); end ! else if AttributeType in [atPart, atParts, atReferences] then begin if IsExternal = ceNo then FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), ! Size, AttributeType, [], feNone, '', ) else if IsExternal = ceLinked then FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), --- 10167,10191 ---- FIdDataType, FIdSize, AttributeType); end ! else if AttributeType = atPart then begin if IsExternal = ceNo then FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), ! Size, AttributeType, [], feNone, '') ! else if IsExternal = ceLinked then ! FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), ! Size, AttributeType, [], feLinked, ExternalLinkedName) ! else if IsExternal = ceStored then ! begin ! FieldMetadatas.AddFieldMetadata(FieldName + InstantClassFieldName, ! AttributeTypeToDataType(atString), InstantDefaultFieldSize, AttributeType); ! FieldMetadatas.AddFieldMetadata(FieldName + InstantIdFieldName, ! FIdDataType, FIdSize, AttributeType); ! end; ! end ! else if AttributeType in [atParts, atReferences] then ! begin ! if IsExternal = ceNo then ! FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), ! Size, AttributeType, [], feNone, '') else if IsExternal = ceLinked then FieldMetadatas.AddFieldMetadata(FieldName, AttributeTypeToDataType(AttributeType), *************** *** 12441,12445 **** Additional: array of string): string; begin ! Result := BuildList(Map, Additional,EmbraceField); end; --- 12450,12454 ---- Additional: array of string): string; begin ! Result := BuildList(Map, Additional, EmbraceField); end; *************** *** 12492,12496 **** Result := Result + SpaceDelimiter; end ! else if AttributeMetadata.AttributeType in [atPart, atParts, atReferences] then begin if AttributeMetadata.IsExternal = ceNo then --- 12501,12521 ---- Result := Result + SpaceDelimiter; end ! else if AttributeMetadata.AttributeType = atPart then ! begin ! if AttributeMetadata.IsExternal = ceStored then ! begin ! RefClassFieldName := FieldName + InstantClassFieldName; ! RefIdFieldName := FieldName + InstantIdFieldName; ! Result := Result + StringFunc(RefClassFieldName) + ', ' + ! StringFunc(RefIdFieldName); ! Result := Result + SpaceDelimiter; ! end ! else if AttributeMetadata.IsExternal = ceNo then ! begin ! Result := Result + StringFunc(FieldName); ! Result := Result + SpaceDelimiter; ! end; ! end ! else if AttributeMetadata.AttributeType in [atParts, atReferences] then begin if AttributeMetadata.IsExternal = ceNo then *************** *** 12549,12558 **** end; - function TInstantSQLGenerator.GenerateCreateExternalPartTableSQL( - TableName: string): string; - begin - Result := InternalGenerateCreateExternalPartTableSQL(TableName); - end; - function TInstantSQLGenerator.GenerateCreateExternalTableSQL( TableName: string): string; --- 12574,12577 ---- *************** *** 12603,12612 **** end; - function TInstantSQLGenerator.GenerateInsertExternalPartSQL( - Map: TInstantAttributeMap): string; - begin - Result := InternalGenerateInsertExternalPartSQL(Map) - end; - function TInstantSQLGenerator.GenerateInsertExternalSQL( Map: TInstantAttributeMap): string; --- 12622,12625 ---- *************** *** 12662,12686 **** end; - function TInstantSQLGenerator.InternalGenerateCreateExternalPartTableSQL( - TableName: string): string; - var - Columns: string; - begin - Columns := EmbraceField(InstantIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize) + ' NOT NULL'; - Columns := Columns + ', ' + EmbraceField(InstantParentClassFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); - Columns := Columns + ', ' + EmbraceField(InstantParentIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize); - Columns := Columns + ', ' + EmbraceField(InstantParentAttributeFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); - Columns := Columns + ', ' + EmbraceField(InstantChildClassFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); - Columns := Columns + ', ' + EmbraceField(InstantChildIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize); - Columns := Columns + ', PRIMARY KEY (' + EmbraceField(InstantIdFieldName) + ')'; - Result := Format('CREATE TABLE %s (%s)', [EmbraceTable(TableName), Columns]); - end; - function TInstantSQLGenerator.InternalGenerateCreateExternalTableSQL( TableName: string): string; --- 12675,12678 ---- *************** *** 12799,12823 **** end; - function TInstantSQLGenerator.InternalGenerateInsertExternalPartSQL( - Map: TInstantAttributeMap): string; - var - FieldStr, ParamStr: string; - begin - FieldStr := Format('%s, %s, %s, %s, %s, %s', - [EmbraceField(InstantIdFieldName), - EmbraceField(InstantParentClassFieldName), - EmbraceField(InstantParentIdFieldName), - EmbraceField(InstantParentAttributeFieldName), - EmbraceField(InstantChildClassFieldName), - EmbraceField(InstantChildIdFieldName)]); - ParamStr := Format(':%s, :%s, :%s, :%s, :%s, :%s', - [InstantIdFieldName, - InstantParentClassFieldName, InstantParentIdFieldName, - InstantParentAttributeFieldName, - InstantChildClassFieldName, InstantChildIdFieldName]); - Result := Format('INSERT INTO %s (%s) VALUES (%s)', - [EmbraceTable('%s'), FieldStr, ParamStr]); - end; - function TInstantSQLGenerator.InternalGenerateInsertExternalSQL( Map: TInstantAttributeMap): string; --- 12791,12794 ---- *************** *** 12875,12885 **** FieldStr, WhereStr: string; begin ! FieldStr := Format('%s, %s', [EmbraceField(InstantChildClassFieldName), ! EmbraceField(InstantChildIdFieldName)]); ! WhereStr := Format('%s = :%s AND %s = :%s AND %s = :%s AND %s = :%s', ! [EmbraceField(InstantParentClassFieldName), InstantParentClassFieldName, ! EmbraceField(InstantParentIdFieldName), InstantParentIdFieldName, ! EmbraceField(InstantParentAttributeFieldName), InstantParentAttributeFieldName, ! EmbraceField(InstantChildClassFieldName), InstantChildClassFieldName]); Result := Format('SELECT %s FROM %s WHERE %s', [FieldStr, EmbraceTable('%s'), WhereStr]); --- 12846,12853 ---- FieldStr, WhereStr: string; begin ! FieldStr := '%s, %s'; ! WhereStr := Format('%s = :%s AND %s = :%s', ! [EmbraceField(InstantClassFieldName), InstantClassFieldName, ! EmbraceField(InstantIdFieldName), InstantIdFieldName]); Result := Format('SELECT %s FROM %s WHERE %s', [FieldStr, EmbraceTable('%s'), WhereStr]); *************** *** 13073,13079 **** if FieldMetadata.ExternalOption = feStored then begin ! if FieldMetadata.OriginalAttributeType = atPart then ! Execute(Generator.GenerateCreateExternalPartTableSQL(FieldMetadata.ExternalName)) ! else Execute(Generator.GenerateCreateExternalTableSQL(FieldMetadata.ExternalName)); end; --- 13041,13045 ---- if FieldMetadata.ExternalOption = feStored then begin ! if FieldMetadata.OriginalAttributeType <> atPart then Execute(Generator.GenerateCreateExternalTableSQL(FieldMetadata.ExternalName)); end; *************** *** 13180,13193 **** var Stream: TInstantStringStream; begin ! Stream := TInstantStringStream.Create(''); ! try ! (Attribute as TInstantPart).SaveObjectToStream(Stream); ! if Broker.Connector.BlobStreamFormat = sfBinary then ! AddBlobParam(FieldName, Stream.DataString) ! else ! AddMemoParam(FieldName, Stream.DataString); ! finally ! Stream.Free; end; end; --- 13146,13173 ---- var Stream: TInstantStringStream; + Part: TInstantPart; begin ! if Attribute.Metadata.IsExternal = ceStored then ! begin ! Part := Attribute as TInstantPart; ! if Part.HasValue then ! begin ! AddStringParam(Params, FieldName + InstantClassFieldName, Part.Value.ClassName); ! Part.Value.CheckId; ! AddIdParam(Params, FieldName + InstantIdFieldName, Part.Value.Id); ! end; ! end ! else ! begin ! Stream := TInstantStringStream.Create(''); ! try ! (Attribute as TInstantPart).SaveObjectToStream(Stream); ! if Broker.Connector.BlobStreamFormat = sfBinary then ! AddBlobParam(FieldName, Stream.DataString) ! else ! AddMemoParam(FieldName, Stream.DataString); ! finally ! Stream.Free; ! end; end; end; *************** *** 13280,13284 **** begin Attribute := AObject.AttributeByName(Map[I].Name); ! if Attribute.Metadata.IsExternal = ceNo then AddAttributeParam(Attribute, Params); end; --- 13260,13265 ---- begin Attribute := AObject.AttributeByName(Map[I].Name); ! if (Attribute.Metadata.IsExternal = ceNo) or ! ((Attribute.Metadata.IsExternal = ceStored) and (Attribute.Metadata.AttributeType = atPart)) then AddAttributeParam(Attribute, Params); end; *************** *** 13537,13542 **** i: Integer; PartObject: TInstantObject; ! SelectParams, DeleteParams: TParams; ! SelectStatement, DeleteStatement: string; AttributeMetadata: TInstantAttributeMetadata; DataSet: TDataSet; --- 13518,13523 ---- i: Integer; PartObject: TInstantObject; ! SelectParams: TParams; ! SelectStatement: string; AttributeMetadata: TInstantAttributeMetadata; DataSet: TDataSet; *************** *** 13589,13597 **** SelectParams := TParams.Create; try ! SelectStatement := Format(SelectExternalPartStoredSQL, [AttributeMetadata.ExternalStoredName]); ! AddIdParam(SelectParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); try --- 13570,13579 ---- SelectParams := TParams.Create; try ! SelectStatement := Format(SelectExternalPartStoredSQL, ! [AttributeMetadata.FieldName + InstantClassFieldName, ! AttributeMetadata.FieldName + InstantIdFieldName, ! AObject.Metadata.TableName]); ! AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); ! AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); try *************** *** 13619,13637 **** end; - // Delete link - DeleteParams := TParams.Create; - try - DeleteStatement := Format(DeleteExternalSQL, - [AttributeMetadata.ExternalStoredName, - InstantParentClassFieldName, - InstantParentIdFieldName, - InstantParentAttributeFieldName]); - AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); - AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); - Broker.Execute(DeleteStatement, DeleteParams); - finally - DeleteParams.Free; - end; end; end; --- 13601,13604 ---- *************** *** 13938,13943 **** PartAttribute: TInstantPart; AttributeMetadata: TInstantAttributeMetadata; ! SelectParams, DeleteParams, InsertParams: TParams; ! SelectStatement, DeleteStatement, InsertStatement: string; DataSet: TDataSet; begin --- 13905,13910 ---- PartAttribute: TInstantPart; AttributeMetadata: TInstantAttributeMetadata; ! SelectParams: TParams; ! SelectStatement: string; DataSet: TDataSet; begin *************** *** 13997,14005 **** SelectParams := TParams.Create; try ! SelectStatement := Format(SelectExternalPartStoredSQL, [AttributeMetadata.ExternalStoredName]); ! AddIdParam(SelectParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); try --- 13964,13973 ---- SelectParams := TParams.Create; try ! SelectStatement := Format(SelectExternalPartStoredSQL, ! [AttributeMetadata.FieldName + InstantClassFieldName, ! AttributeMetadata.FieldName + InstantIdFieldName, ! AObject.Metadata.TableName]); ! AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); ! AddIdParam(SelectParams, InstantIdFieldName, AObject.Id); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); try *************** *** 14027,14045 **** end; - // Delete link - DeleteParams := TParams.Create; - try - DeleteStatement := Format(DeleteExternalSQL, - [AttributeMetadata.ExternalStoredName, - InstantParentClassFieldName, - InstantParentAttributeFieldName]); - AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); - AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); - Broker.Execute(DeleteStatement, DeleteParams); - finally - DeleteParams.Free; - end; - // Store object PartObject := PartAttribute.Value; --- 13995,13998 ---- *************** *** 14047,14067 **** PartObject.ObjectStore.StoreObject(PartObject, caIgnore); - // Insert link - InsertParams := TParams.Create; - try - InsertStatement := Format(InsertExternalPartSQL, - [AttributeMetadata.ExternalStoredName]); - AddIdParam(InsertParams, InstantIdFieldName, AObject.GenerateId); - AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); - AddIdParam(InsertParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(InsertParams, InstantParentAttributeFieldName, AttributeMetadata.Name); - AddStringParam(InsertParams, InstantChildClassFieldName, - PartAttribute.Value.ClassName); - AddIdParam(InsertParams, InstantChildIdFieldName, - PartAttribute.Value.Id); - Broker.Execute(InsertStatement, InsertParams); - finally - InsertParams.Free; - end; end; end; --- 14000,14003 ---- *************** *** 14350,14353 **** --- 14286,14290 ---- AddBaseParams(Params, AObject.ClassName, AObject.Id, NewUpdateCount); AddAttributeParams(Params, AObject, Map); + UpdateExternalPartMap; if AObject.IsPersistent then UpdateMap *************** *** 14357,14361 **** Broker.SetObjectUpdateCount(AObject, NewUpdateCount); - UpdateExternalPartMap; UpdateExternalPartsMap; UpdateExternalReferencesMap; --- 14294,14297 ---- *************** *** 14415,14418 **** --- 14351,14355 ---- Params: TParams; Statement: string; + PartDataSet: TDataSet; begin if AttributeMetadata.IsExternal = ceLinked then *************** *** 14428,14444 **** AddIdParam(Params, InstantIdFieldName, AObjectId); AddStringParam(Params, InstantClassFieldName, AObject.ClassName); ! DataSet := Broker.AcquireDataSet(Statement, Params); try ! DataSet.Open; try Value := nil; ! if not DataSet.IsEmpty then Value := AttributeMetadata.ObjectClass.Retrieve( ! DataSet.Fields[1].AsString, False, False, AObject.Connector); finally ! DataSet.Close; end; finally ! Broker.ReleaseDataSet(DataSet); end; finally --- 14365,14381 ---- AddIdParam(Params, InstantIdFieldName, AObjectId); AddStringParam(Params, InstantClassFieldName, AObject.ClassName); ! PartDataSet := Broker.AcquireDataSet(Statement, Params); try ! PartDataSet.Open; try Value := nil; ! if not PartDataSet.IsEmpty then Value := AttributeMetadata.ObjectClass.Retrieve( ! PartDataSet.Fields[1].AsString, False, False, AObject.Connector); finally ! PartDataSet.Close; end; finally ! Broker.ReleaseDataSet(PartDataSet); end; finally *************** *** 14450,14479 **** begin with (Attribute as TInstantPart) do ! begin ! Params := TParams.Create; ! try ! Statement := Format(SelectExternalPartStoredSQL, [AttributeMetadata.ExternalStoredName]); ! AddIdParam(Params, InstantParentIdFieldName, AObjectId); ! AddStringParam(Params, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(Params, InstantParentAttributeFieldName, Attribute.Name); ! AddStringParam(Params, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); ! DataSet := Broker.AcquireDataSet(Statement, Params); ! try ! DataSet.Open; ! try ! Value := nil; ! if not DataSet.IsEmpty then ! Value := AttributeMetadata.ObjectClass.Retrieve( ! DataSet.Fields[1].AsString, False, False, AObject.Connector); ! finally ! DataSet.Close; ! end; ! finally ! Broker.ReleaseDataSet(DataSet); ! end; ! finally ! Params.Free; ! end; ! end; end else --- 14387,14392 ---- begin with (Attribute as TInstantPart) do ! Value := InstantFindClass(ReadStringField(DataSet, AFieldName + InstantClassFieldName)).Retrieve( ! ReadStringField(DataSet, AFieldName + InstantIdFieldName), False, False, AObject.Connector); end else *************** *** 14812,14822 **** end; - function TInstantSQLResolver.GetInsertExternalPartSQL: string; - begin - if FInsertExternalPartSQL = '' then - FInsertExternalPartSQL := Broker.Generator.GenerateInsertExternalPartSQL(Map); - Result := FInsertExternalPartSQL; - end; - { TInstantSQLQuery } --- 14725,14728 ---- --- iorun50.dof DELETED --- --- iorunk3.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-11 14:38:25
|
Update of /cvsroot/instantobjects/Source/Design/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1661/Design/D7 Modified Files: DclIOCore.dof Log Message: removed some obsolete files Index: DclIOCore.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/D7/DclIOCore.dof,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** DclIOCore.dof 10 Feb 2005 23:06:30 -0000 1.4 --- DclIOCore.dof 11 Feb 2005 14:38:15 -0000 1.5 *************** *** 102,106 **** [Parameters] RunParams= ! HostApplication= Launcher= UseLauncher=0 --- 102,106 ---- [Parameters] RunParams= ! HostApplication=C:\Programmi\Borland\Delphi7\Bin\delphi32.exe Launcher= UseLauncher=0 |
|
From: Nando D. <na...@us...> - 2005-02-11 14:38:24
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1661/ObjectFoundry Modified Files: OFExpt.res Log Message: removed some obsolete files Index: OFExpt.res =================================================================== RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFExpt.res,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsUx3d8f and /tmp/cvs8TPysV differ |
|
From: Nando D. <na...@us...> - 2005-02-11 14:35:46
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv525/Brokers/NexusDb Removed Files: ionx70.cfg ionx70.dof ionx70.dpk ionx70.res Log Message: removed some obsolete files --- ionx70.dof DELETED --- --- ionx70.dpk DELETED --- --- ionx70.res DELETED --- --- ionx70.cfg DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-11 14:35:46
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv525/Brokers/IBX Removed Files: ioibx50.dof Log Message: removed some obsolete files --- ioibx50.dof DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-11 14:35:45
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv525/Brokers/BDE Removed Files: iobde50.dof Log Message: removed some obsolete files --- iobde50.dof DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-11 14:35:45
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv525/Brokers/ADO Removed Files: ioado50.dof Log Message: removed some obsolete files --- ioado50.dof DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:42:44
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14312/Source/Brokers/ADO Modified Files: InstantADO.pas Log Message: Bug fixing Index: InstantADO.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantADO.pas 10 Feb 2005 23:06:21 -0000 1.6 --- InstantADO.pas 10 Feb 2005 23:42:35 -0000 1.7 *************** *** 226,234 **** Parameter.Direction := TParameterDirection(Param.ParamType); Parameter.Attributes := []; ! Parameter.NumericScale := Param.NumericScale; ! Parameter.Precision := Param.NumericScale; ! Parameter.Size := Param.Size; Parameter.Value := Param.Value; - // Parameter.Assign(Param); end; end; --- 226,233 ---- Parameter.Direction := TParameterDirection(Param.ParamType); Parameter.Attributes := []; ! Parameter.NumericScale := 0; ! Parameter.Precision := 0; ! Parameter.Size := 0; Parameter.Value := Param.Value; end; end; |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:20:08
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5869/Source/Core Modified Files: InstantPersistence.pas InstantPresentation.pas Log Message: Bug fixing Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** InstantPresentation.pas 10 Feb 2005 23:06:29 -0000 1.9 --- InstantPresentation.pas 10 Feb 2005 23:19:55 -0000 1.10 *************** *** 2745,2750 **** FNewObject := AddNewObject(ActiveBuffer, GetBookmarkFlag(ActiveBuffer) = bfEOF); - if (FNewObject is TInstantObject) and (TInstantObject(FNewObject).RefCount > 1) then - TInstantObject(FNewObject).Release; end; --- 2745,2748 ---- Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** InstantPersistence.pas 3 Feb 2005 17:01:59 -0000 1.18 --- InstantPersistence.pas 10 Feb 2005 23:19:45 -0000 1.19 *************** *** 6524,6528 **** function TInstantParts.GetInstances(Index: Integer): TInstantObject; begin ! Result := ObjectReferences[Index].Instance; end; --- 6524,6531 ---- function TInstantParts.GetInstances(Index: Integer): TInstantObject; begin ! if Metadata.IsExternal = ceNo then ! Result := inherited GetInstances(Index) ! else ! Result := ObjectReferences[Index].Instance; end; |
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Demos/PrimerCross Modified Files: BasicBrowse.pas BasicEdit.pas BasicView.pas CompanyEdit.pas ContactEdit.pas ContactFilterEdit.pas ContactSort.pas ContactView.pas DemoDataRequest.pas Main.pas MainData.pas PerformanceView.pas PersonEdit.pas Primer.dpr Primer.xml PrimerExternal.dpr PrimerExternal.xml QueryView.pas Stopwatch.pas Utility.pas Welcome.pas Log Message: Porting to Delphi 5 Index: QueryView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/QueryView.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** QueryView.pas 29 Jul 2004 20:43:10 -0000 1.2 --- QueryView.pas 10 Feb 2005 23:06:20 -0000 1.3 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: PerformanceView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PerformanceView.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** PerformanceView.pas 10 Feb 2005 13:04:25 -0000 1.6 --- PerformanceView.pas 10 Feb 2005 23:06:19 -0000 1.7 *************** *** 2,6 **** interface ! {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} Index: Stopwatch.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Stopwatch.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Stopwatch.pas 20 Jul 2004 11:05:15 -0000 1.1 --- Stopwatch.pas 10 Feb 2005 23:06:21 -0000 1.2 *************** *** 3,6 **** --- 3,8 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Index: ContactSort.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactSort.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ContactSort.pas 7 Dec 2004 08:45:33 -0000 1.3 --- ContactSort.pas 10 Feb 2005 23:06:18 -0000 1.4 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: BasicBrowse.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicBrowse.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** BasicBrowse.pas 4 Aug 2004 22:43:38 -0000 1.3 --- BasicBrowse.pas 10 Feb 2005 23:06:16 -0000 1.4 *************** *** 2,6 **** interface ! uses SysUtils, Classes, DB, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, DB, *************** *** 10,17 **** {$ENDIF} {$IFDEF LINUX} ! Qt, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QGrids, QDBGrids, QExtCtrls, QComCtrls, QImgList, QMenus, QActnList, {$ENDIF} ! InstantPresentation, QTypes; const --- 10,17 ---- {$ENDIF} {$IFDEF LINUX} ! Qt, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QTypes, QGrids, QDBGrids, QExtCtrls, QComCtrls, QImgList, QMenus, QActnList, {$ENDIF} ! InstantPresentation; const Index: ContactFilterEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactFilterEdit.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ContactFilterEdit.pas 7 Dec 2004 08:45:33 -0000 1.3 --- ContactFilterEdit.pas 10 Feb 2005 23:06:18 -0000 1.4 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: CompanyEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/CompanyEdit.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** CompanyEdit.pas 7 Dec 2004 08:45:33 -0000 1.5 --- CompanyEdit.pas 10 Feb 2005 23:06:18 -0000 1.6 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: ContactEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactEdit.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ContactEdit.pas 7 Dec 2004 08:45:33 -0000 1.3 --- ContactEdit.pas 10 Feb 2005 23:06:18 -0000 1.4 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: ContactView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactView.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ContactView.pas 7 Dec 2004 08:45:33 -0000 1.5 --- ContactView.pas 10 Feb 2005 23:06:18 -0000 1.6 *************** *** 2,6 **** interface ! {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} *************** *** 10,14 **** uses ! SysUtils, Classes, DB, Types, {$IFDEF MSWINDOWS} Windows, Messages, Graphics, Controls, Forms, Dialogs, --- 10,14 ---- uses ! SysUtils, Classes, DB, {$IFDEF MSWINDOWS} Windows, Messages, Graphics, Controls, Forms, Dialogs, Index: PrimerExternal.xml =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.xml,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PrimerExternal.xml 10 Feb 2005 13:04:33 -0000 1.1 --- PrimerExternal.xml 10 Feb 2005 23:06:19 -0000 1.2 *************** *** 1,12 **** ! <TInstantConnectionDefs> ! <TInstantIBXConnectionDef> ! <Name>FirebirdDBExternal</Name> ! <IsBuilt>TRUE</IsBuilt> ! <LoginPrompt>FALSE</LoginPrompt> ! <Path>.\FirebirdDB\PRIMERDBEXTERNAL.FDB</Path> ! <NetType>ntLocal</NetType> ! <Options>ibxUseDelimitedIdents</Options> ! <Params>User_Name=SYSDBA ! Password=masterkey</Params> ! </TInstantIBXConnectionDef> ! </TInstantConnectionDefs> --- 1,2 ---- ! <TInstantConnectionDefs><TInstantIBXConnectionDef><Name>FirebirdDBExternal</Name><IsBuilt>TRUE</IsBuilt><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDBEXTERNAL.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> Index: Utility.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Utility.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Utility.pas 20 Jul 2004 11:05:15 -0000 1.1 --- Utility.pas 10 Feb 2005 23:06:21 -0000 1.2 *************** *** 2,6 **** interface ! procedure BeginBusy; procedure EndBusy; --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} procedure BeginBusy; procedure EndBusy; Index: Primer.dpr =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.dpr,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Primer.dpr 10 Feb 2005 13:04:33 -0000 1.5 --- Primer.dpr 10 Feb 2005 23:06:19 -0000 1.6 *************** *** 28,37 **** * Contributor(s): * Carlo Barazzetta: ! * - cross-platform porting for Delphi & Kilix * - PerformanceView form changed to make tests with UsePreparedQuery * - PerformanceView form changed to make tests with Statement Cache * - PerformanceView form changed to make tests of Queries ! * Salary attribute of type Currency added to Person ! * PersonEdit form and random data form changed to test Graphic support * ***** END LICENSE BLOCK ***** *) --- 28,37 ---- * Contributor(s): * Carlo Barazzetta: ! * - cross-platform porting for Delphi 5,6,7 & Kilix * - PerformanceView form changed to make tests with UsePreparedQuery * - PerformanceView form changed to make tests with Statement Cache * - PerformanceView form changed to make tests of Queries ! * - Salary attribute of type Currency added to Person ! * - PersonEdit form and random data form changed to test Graphic support * ***** END LICENSE BLOCK ***** *) Index: MainData.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/MainData.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MainData.pas 7 Dec 2004 08:45:33 -0000 1.3 --- MainData.pas 10 Feb 2005 23:06:19 -0000 1.4 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, Index: PrimerExternal.dpr =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PrimerExternal.dpr 7 Dec 2004 08:45:33 -0000 1.2 --- PrimerExternal.dpr 10 Feb 2005 23:06:19 -0000 1.3 *************** *** 27,34 **** * Contributor(s): * Carlo Barazzetta: ! * - cross-platform porting for Delphi & Kilix * - PerformanceView form changed to make tests with UsePreparedQuery ! * Salary attribute of type Currency added to Person ! * PersonEdit form and random data form changed to test Graphic support * ***** END LICENSE BLOCK ***** *) --- 27,36 ---- * Contributor(s): * Carlo Barazzetta: ! * - cross-platform porting for Delphi 5,6,7 & Kilix * - PerformanceView form changed to make tests with UsePreparedQuery ! * - PerformanceView form changed to make tests with Statement Cache ! * - PerformanceView form changed to make tests of Queries ! * - Salary attribute of type Currency added to Person ! * - PersonEdit form and random data form changed to test Graphic support * ***** END LICENSE BLOCK ***** *) Index: Main.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Main.pas 10 Feb 2005 12:55:08 -0000 1.7 --- Main.pas 10 Feb 2005 23:06:18 -0000 1.8 *************** *** 2,6 **** interface ! {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} *************** *** 16,24 **** {$ENDIF} {$IFDEF LINUX} ! QGraphics, QControls, QForms, QDialogs, QStdCtrls, QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList, {$ENDIF} ! InstantPersistence, BasicView, Stopwatch, InstantConnectionManager, ! QTypes; type --- 16,23 ---- {$ENDIF} {$IFDEF LINUX} ! QGraphics, QControls, QForms, QDialogs, QStdCtrls,QTypes, QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList, {$ENDIF} ! InstantPersistence, BasicView, Stopwatch, InstantConnectionManager; type Index: DemoDataRequest.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/DemoDataRequest.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** DemoDataRequest.pas 29 Jul 2004 20:43:09 -0000 1.2 --- DemoDataRequest.pas 10 Feb 2005 23:06:18 -0000 1.3 *************** *** 2,6 **** interface ! uses SysUtils, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Index: Welcome.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Welcome.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Welcome.pas 7 Dec 2004 08:45:34 -0000 1.2 --- Welcome.pas 10 Feb 2005 23:06:21 -0000 1.3 *************** *** 2,6 **** interface ! {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} {$IFDEF VER150} {$WARN UNSAFE_TYPE OFF} Index: Primer.xml =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.xml,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Primer.xml 10 Feb 2005 13:04:33 -0000 1.1 --- Primer.xml 10 Feb 2005 23:06:19 -0000 1.2 *************** *** 1,24 **** ! <TInstantConnectionDefs> ! <TInstantBDEConnectionDef> ! <Name>ParadoxDB</Name> ! <IsBuilt>TRUE</IsBuilt> ! <BlobStreamFormat>sfXML</BlobStreamFormat> ! <LoginPrompt>FALSE</LoginPrompt> ! <DriverName>STANDARD</DriverName> ! <Parameters>PATH=.\ParadoxDB DEFAULT DRIVER=PARADOX ENABLE BCD=TRUE ! </Parameters> ! </TInstantBDEConnectionDef> ! <TInstantIBXConnectionDef> ! <Name>FirebirdDB</Name> ! <IsBuilt>TRUE</IsBuilt> ! <BlobStreamFormat>sfXML</BlobStreamFormat> ! <LoginPrompt>FALSE</LoginPrompt> ! <Path>.\FirebirdDB\PRIMERDB.FDB</Path> ! <NetType>ntLocal</NetType> ! <Options>ibxUseDelimitedIdents</Options> ! <Params>User_Name=SYSDBA ! Password=masterkey</Params> ! </TInstantIBXConnectionDef> ! </TInstantConnectionDefs> --- 1,5 ---- ! <TInstantConnectionDefs><TInstantBDEConnectionDef><Name>ParadoxDB</Name><IsBuilt>TRUE</IsBuilt><BlobStreamFormat>sfXML</BlobStreamFormat><LoginPrompt>FALSE</LoginPrompt><DriverName>STANDARD</DriverName><Parameters>PATH=.\ParadoxDB DEFAULT DRIVER=PARADOX ENABLE BCD=TRUE ! </Parameters></TInstantBDEConnectionDef><TInstantIBXConnectionDef><Name>FirebirdDB</Name><IsBuilt>TRUE</IsBuilt><BlobStreamFormat>sfXML</BlobStreamFormat><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDB.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> Index: PersonEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PersonEdit.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** PersonEdit.pas 7 Dec 2004 08:45:33 -0000 1.6 --- PersonEdit.pas 10 Feb 2005 23:06:19 -0000 1.7 *************** *** 2,6 **** interface ! uses SysUtils, Classes, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, *************** *** 172,176 **** --- 172,178 ---- {$IFDEF MSWINDOWS} LoadMultipleImages(EmployerToolImages,'PERSONEMPLOYERTOOLIMAGES',HInstance); + {$IFNDEF VER130} PictureImage.Proportional := True; + {$ENDIF} {$ENDIF} {$IFDEF LINUX} Index: BasicView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicView.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** BasicView.pas 10 Feb 2005 13:04:25 -0000 1.3 --- BasicView.pas 10 Feb 2005 23:06:17 -0000 1.4 *************** *** 3,6 **** --- 3,8 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, Index: BasicEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicEdit.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BasicEdit.pas 20 Jul 2004 11:05:15 -0000 1.1 --- BasicEdit.pas 10 Feb 2005 23:06:17 -0000 1.2 *************** *** 2,6 **** interface ! uses SysUtils, Classes, DB, --- 2,6 ---- interface ! {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} uses SysUtils, Classes, DB, |
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Design Modified Files: InstantAbout.pas InstantAttributeEditor.pas InstantClassEditor.pas InstantCommandEditor.pas InstantDesignResources.pas InstantDesignTools.pas InstantDesignUtils.pas InstantDialog.pas InstantDualList.pas InstantEdit.pas InstantModelExpert.pas InstantModelExplorer.pas InstantUnitSelect.pas InstantWizard.pas Removed Files: iodes50.dpk Log Message: Porting to Delphi 5 --- iodes50.dpk DELETED --- Index: InstantEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantEdit.pas 20 Jul 2004 11:07:49 -0000 1.2 --- InstantEdit.pas 10 Feb 2005 23:06:32 -0000 1.3 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, DB, Index: InstantCommandEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantCommandEditor.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantCommandEditor.pas 20 Jul 2004 11:07:49 -0000 1.2 --- InstantCommandEditor.pas 10 Feb 2005 23:06:32 -0000 1.3 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, Index: InstantModelExplorer.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantModelExplorer.pas 27 Aug 2004 14:33:10 -0000 1.4 --- InstantModelExplorer.pas 10 Feb 2005 23:06:32 -0000 1.5 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, IniFiles, Index: InstantDesignResources.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignResources.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantDesignResources.pas 20 Jul 2004 16:39:08 -0000 1.3 --- InstantDesignResources.pas 10 Feb 2005 23:06:32 -0000 1.4 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Index: InstantDualList.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDualList.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantDualList.pas 20 Jul 2004 11:07:49 -0000 1.2 --- InstantDualList.pas 10 Feb 2005 23:06:32 -0000 1.3 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, Index: InstantModelExpert.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExpert.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantModelExpert.pas 17 Nov 2004 20:59:49 -0000 1.5 --- InstantModelExpert.pas 10 Feb 2005 23:06:32 -0000 1.6 *************** *** 40,43 **** --- 40,48 ---- InstantDesignResources, InstantModelExplorer, InstantCode, ExtCtrls, Forms; + {$IFDEF VER130} + const + sLineBreak = #13#10; + {$ENDIF} + type TIOMetaDataCheckState = (mcNeverChecked, mcCheckError, mcCheckCorrect); Index: InstantDialog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDialog.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantDialog.pas 20 Jul 2004 11:07:49 -0000 1.2 --- InstantDialog.pas 10 Feb 2005 23:06:32 -0000 1.3 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Index: InstantWizard.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantWizard.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantWizard.pas 20 Jul 2004 11:07:49 -0000 1.2 --- InstantWizard.pas 10 Feb 2005 23:06:32 -0000 1.3 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, InstantDialog, Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantAttributeEditor.pas 17 Nov 2004 20:59:49 -0000 1.8 --- InstantAttributeEditor.pas 10 Feb 2005 23:06:31 -0000 1.9 *************** *** 34,37 **** --- 34,39 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, Index: InstantAbout.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAbout.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantAbout.pas 29 Jul 2004 20:43:15 -0000 1.3 --- InstantAbout.pas 10 Feb 2005 23:06:31 -0000 1.4 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, *************** *** 91,96 **** TitleLabel.Font.Size := 18; TitleLabel.Font.Style := [fsBold]; ! //Package version ! S := Format('Version %d.%d.%d %s', [1,6,6,'MPL']); {$ENDIF} VersionLabel.Caption := S; --- 93,98 ---- TitleLabel.Font.Size := 18; TitleLabel.Font.Style := [fsBold]; ! //Package version for Kylix ! S := Format('Version %d.%d.%d %s', [2,0,0,'MPL']); {$ENDIF} VersionLabel.Caption := S; Index: InstantDesignTools.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignTools.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantDesignTools.pas 4 Aug 2004 22:43:40 -0000 1.4 --- InstantDesignTools.pas 10 Feb 2005 23:06:32 -0000 1.5 *************** *** 35,40 **** uses Classes, - {$IFDEF MSWINDOWS} {$I ..\core\InstantDefines.inc} {$IFDEF D6+} DesignIntf, DesignEditors, --- 35,40 ---- uses Classes, {$I ..\core\InstantDefines.inc} + {$IFDEF MSWINDOWS} {$IFDEF D6+} DesignIntf, DesignEditors, *************** *** 47,51 **** DesignIntf, DesignEditors, ClxStrEdit, {$ENDIF} ! StrEdit, InstantPresentation, ColnEdit; type --- 47,51 ---- DesignIntf, DesignEditors, ClxStrEdit, {$ENDIF} ! StrEdit, ColnEdit, InstantPresentation; type Index: InstantDesignUtils.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignUtils.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantDesignUtils.pas 20 Jul 2004 11:07:49 -0000 1.3 --- InstantDesignUtils.pas 10 Feb 2005 23:06:32 -0000 1.4 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses DB, Index: InstantUnitSelect.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantUnitSelect.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantUnitSelect.pas 20 Jul 2004 16:39:08 -0000 1.3 --- InstantUnitSelect.pas 10 Feb 2005 23:06:32 -0000 1.4 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, Index: InstantClassEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantClassEditor.pas 20 Jul 2004 16:39:08 -0000 1.3 --- InstantClassEditor.pas 10 Feb 2005 23:06:32 -0000 1.4 *************** *** 33,36 **** --- 33,38 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses SysUtils, Classes, DB, Contnrs, InstantPresentation, |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:23
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Core Modified Files: InstantClasses.pas InstantConnectionManager.dfm InstantConnectionManager.pas InstantDefines.inc InstantImageUtils.pas InstantPresentation.pas Removed Files: iorun50.dpk Log Message: Porting to Delphi 5 Index: InstantConnectionManager.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.dfm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantConnectionManager.dfm 5 Aug 2004 12:27:43 -0000 1.5 --- InstantConnectionManager.dfm 10 Feb 2005 23:06:28 -0000 1.6 *************** *** 2,6 **** Left = 327 Top = 305 ! Width = 393 Height = 281 BorderIcons = [biSystemMenu] --- 2,6 ---- Left = 327 Top = 305 ! Width = 350 Height = 281 BorderIcons = [biSystemMenu] *************** *** 33,37 **** Left = 0 Top = 0 ! Width = 385 Height = 215 Align = alClient --- 33,37 ---- Left = 0 Top = 0 ! Width = 342 Height = 215 Align = alClient *************** *** 44,51 **** Caption = 'Type' Width = 80 - end - item - Caption = 'Blob format' - Width = 80 end> PopupMenu = ConnectionMenu --- 44,47 ---- *************** *** 57,61 **** Left = 0 Top = 215 ! Width = 385 Height = 32 Align = alBottom --- 53,57 ---- Left = 0 Top = 215 ! Width = 342 Height = 32 Align = alBottom *************** *** 70,74 **** end object ButtonsPanel: TPanel ! Left = 223 Top = 1 Width = 161 --- 66,70 ---- end object ButtonsPanel: TPanel ! Left = 180 Top = 1 Width = 161 --- iorun50.dpk DELETED --- Index: InstantConnectionManager.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantConnectionManager.pas 7 Dec 2004 08:52:44 -0000 1.8 --- InstantConnectionManager.pas 10 Feb 2005 23:06:28 -0000 1.9 *************** *** 484,488 **** ConnectionView.Columns[0].Width := 225; ConnectionView.Columns[1].Width := 80; - ConnectionView.Columns[2].Width := 80; UpdateMenu; end; --- 484,487 ---- Index: InstantImageUtils.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantImageUtils.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantImageUtils.pas 4 Aug 2004 22:43:39 -0000 1.3 --- InstantImageUtils.pas 10 Feb 2005 23:06:28 -0000 1.4 *************** *** 30,33 **** --- 30,35 ---- interface + {$I InstantDefines.inc} + uses SysUtils, Index: InstantDefines.inc =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantDefines.inc,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantDefines.inc 2 Feb 2004 20:52:15 -0000 1.1 --- InstantDefines.inc 10 Feb 2005 23:06:28 -0000 1.2 *************** *** 1,4 **** --- 1,5 ---- {$IFDEF VER130} {$DEFINE D5} + {$DEFINE MSWINDOWS} {$ENDIF} Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantPresentation.pas 19 Oct 2004 07:46:38 -0000 1.8 --- InstantPresentation.pas 10 Feb 2005 23:06:29 -0000 1.9 *************** *** 648,654 **** QControls, QMask, QForms, {$ENDIF} ! {$IFDEF D6+}Variants, MaskUtils,{$ENDIF} InstantClasses, InstantConsts, InstantRtti, InstantDesignHook, InstantAccessors, ! DbConsts, FmtBcd; const --- 648,654 ---- QControls, QMask, QForms, {$ENDIF} ! {$IFDEF D6+}Variants, MaskUtils, FmtBcd,{$ENDIF} InstantClasses, InstantConsts, InstantRtti, InstantDesignHook, InstantAccessors, ! DbConsts; const *************** *** 2745,2748 **** --- 2745,2750 ---- FNewObject := AddNewObject(ActiveBuffer, GetBookmarkFlag(ActiveBuffer) = bfEOF); + if (FNewObject is TInstantObject) and (TInstantObject(FNewObject).RefCount > 1) then + TInstantObject(FNewObject).Release; end; Index: InstantClasses.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantClasses.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantClasses.pas 29 Jul 2004 20:43:14 -0000 1.3 --- InstantClasses.pas 10 Feb 2005 23:06:28 -0000 1.4 *************** *** 44,47 **** --- 44,48 ---- uses + {$IFDEF D5}Windows,{$ENDIF} Classes, InstantConsts, SysUtils; *************** *** 373,376 **** --- 374,381 ---- 'XML format'); + {$IFDEF D5} + sLineBreak = #13#10; + {$ENDIF} + function InstantBuildEndTag(const TagName: string): string; function InstantBuildStartTag(const TagName: string): string; *************** *** 406,410 **** ExceptObject: TObject; {$IFDEF MSWINDOWS} ! ExceptionRecord: PExceptionRecord platform; {$ENDIF} {$IFDEF LINUX} --- 411,415 ---- ExceptObject: TObject; {$IFDEF MSWINDOWS} ! ExceptionRecord: PExceptionRecord {$IFNDEF VER130}platform{$ENDIF}; {$ENDIF} {$IFDEF LINUX} |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:16
|
Update of /cvsroot/instantobjects/Source/Design/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Design/D7 Modified Files: DclIOCore.dof Log Message: Porting to Delphi 5 Index: DclIOCore.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/D7/DclIOCore.dof,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** DclIOCore.dof 17 Nov 2004 20:59:48 -0000 1.3 --- DclIOCore.dof 10 Feb 2005 23:06:30 -0000 1.4 *************** *** 113,119 **** IncludeVerInfo=1 AutoIncBuild=0 ! MajorVer=1 ! MinorVer=6 ! Release=7 Build=0 Debug=0 --- 113,119 ---- IncludeVerInfo=1 AutoIncBuild=0 ! MajorVer=2 ! MinorVer=0 ! Release=0 Build=0 Debug=0 *************** *** 127,131 **** CompanyName=InstantObjects.org FileDescription=InstantObjects Design-Time Package (Delphi 7) ! FileVersion=1.6.7.0 InternalName= LegalCopyright= --- 127,131 ---- CompanyName=InstantObjects.org FileDescription=InstantObjects Design-Time Package (Delphi 7) ! FileVersion=2.0.0.0 InternalName= LegalCopyright= *************** *** 133,136 **** OriginalFilename= ProductName=InstantObjects ! ProductVersion=1.6.7 Comments= --- 133,136 ---- OriginalFilename= ProductName=InstantObjects ! ProductVersion=2.0 Comments= |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:15
|
Update of /cvsroot/instantobjects/Source/Core/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Core/D7 Modified Files: IOCore.dof Log Message: Porting to Delphi 5 Index: IOCore.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D7/IOCore.dof,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOCore.dof 17 Nov 2004 20:59:47 -0000 1.3 --- IOCore.dof 10 Feb 2005 23:06:27 -0000 1.4 *************** *** 113,119 **** IncludeVerInfo=1 AutoIncBuild=0 ! MajorVer=1 ! MinorVer=6 ! Release=7 Build=0 Debug=0 --- 113,119 ---- IncludeVerInfo=1 AutoIncBuild=0 ! MajorVer=2 ! MinorVer=0 ! Release=0 Build=0 Debug=0 *************** *** 127,131 **** CompanyName=InstantObjects.org FileDescription=InstantObjects Run-Time Package (Delphi 7) ! FileVersion=1.6.7.0 InternalName= LegalCopyright= --- 127,131 ---- CompanyName=InstantObjects.org FileDescription=InstantObjects Run-Time Package (Delphi 7) ! FileVersion=2.0.0.0 InternalName= LegalCopyright= *************** *** 133,136 **** OriginalFilename= ProductName=InstantObjects ! ProductVersion=1.6.7 Comments= --- 133,136 ---- OriginalFilename= ProductName=InstantObjects ! ProductVersion=2.0 Comments= |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:15
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Brokers/IBX Modified Files: InstantIBX.pas Removed Files: ioibx50.dpk Log Message: Porting to Delphi 5 Index: InstantIBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantIBX.pas 3 Feb 2005 16:54:53 -0000 1.6 --- InstantIBX.pas 10 Feb 2005 23:06:23 -0000 1.7 *************** *** 336,344 **** --- 336,347 ---- procedure TInstantIBXConnector.InternalCreateDatabase; + {$IFDEF D7+} var db_handle: TISC_DB_HANDLE; tr_handle: TISC_TR_HANDLE; + {$ENDIF} begin inherited; + {$IFDEF D7+} // IBX's TIBDatabase.CreateDatabase is fatally flawed and so we have to // bypass it for the time being. *************** *** 356,359 **** --- 359,363 ---- Disconnect; end; + {$ENDIF} end; --- ioibx50.dpk DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:06
|
Update of /cvsroot/instantobjects/Source/Brokers/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Brokers/XML Modified Files: InstantXML.pas InstantXMLConnectionDefEdit.pas Log Message: Porting to Delphi 5 Index: InstantXML.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/InstantXML.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantXML.pas 1 Oct 2004 16:09:13 -0000 1.2 --- InstantXML.pas 10 Feb 2005 23:06:25 -0000 1.3 *************** *** 32,35 **** --- 32,36 ---- uses + {$IFDEF VER130}{$DEFINE MSWINDOWS}FileCtrl,{$ENDIF} Classes, DB, InstantPersistence, InstantCommand, Contnrs; *************** *** 39,43 **** DOT_XML_EXT = '.'+XML_EXT; XML_WILDCARD = '*'+DOT_XML_EXT; ! type TXMLFileFormat = (xffUtf8, xffUtf8BOT, xffIso); --- 40,45 ---- DOT_XML_EXT = '.'+XML_EXT; XML_WILDCARD = '*'+DOT_XML_EXT; ! {$IFDEF VER130}PathDelim = '\';{$ENDIF} ! type TXMLFileFormat = (xffUtf8, xffUtf8BOT, xffIso); *************** *** 225,229 **** function GetFileVersion(const FileName : string) : Integer; forward; - procedure Register; begin --- 227,230 ---- *************** *** 232,243 **** end; ! ! // note by marcoc: there is already an IncludeTrailingPathDelimiter ! {function CheckPathDelim(const Path : string) : string; begin ! Result := Path; ! if Copy(Path,length(Path),1) <> pathDelim then ! Result := Result + PathDelim; ! end;} procedure GlobalLoadFileList(const Path: string; FileList : TStringList); --- 233,242 ---- end; ! {$IFDEF VER130} ! function IncludeTrailingPathDelimiter(const S : string) : string; begin ! Result := IncludeTrailingBackSlash(S); ! end; ! {$ENDIF} procedure GlobalLoadFileList(const Path: string; FileList : TStringList); *************** *** 921,926 **** --- 920,929 ---- strStream.Write(XMLHEADER, Length(XMLHEADER)); InstantWriteObject(strStream, sfXML, AObject); + {$IFNDEF VER130} if FXMLFileFormat in [xffUtf8, xffUtf8Bot] then strUtf8 := AnsiToUtf8 (strStream.DataString); + {$ELSE} + strUtf8 := strStream.DataString; + {$ENDIF} finally strStream.Free; *************** *** 929,934 **** fileStream := TFileStream.Create(FileName, fmCreate); try - // if FXMLFileFormat = xffUtf8Bot then - // add BOT Result := fileStream.Write (strUtf8[1], Length (strUtf8)) <> 0; finally --- 932,935 ---- *************** *** 967,972 **** --- 968,975 ---- end; + {$IFNDEF VER130} if FXMLFileFormat in [xffUtf8, xffUtf8Bot] then strUtf8 := Utf8ToAnsi (strUtf8); + {$ENDIF} strstream := TStringStream.Create (strUtf8); Index: InstantXMLConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/InstantXMLConnectionDefEdit.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantXMLConnectionDefEdit.pas 20 Jul 2004 16:39:09 -0000 1.1 --- InstantXMLConnectionDefEdit.pas 10 Feb 2005 23:06:26 -0000 1.2 *************** *** 31,34 **** --- 31,36 ---- interface + {$IFDEF VER130}{$DEFINE MSWINDOWS}{$ENDIF} + uses Classes, InstantXML, |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:07:03
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Brokers/ADO Modified Files: InstantADO.pas Removed Files: ioado50.dpk Log Message: Porting to Delphi 5 Index: InstantADO.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantADO.pas 16 Sep 2004 11:29:22 -0000 1.5 --- InstantADO.pas 10 Feb 2005 23:06:21 -0000 1.6 *************** *** 179,183 **** function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override; function DataTypeToColumnType(DataType: TInstantDataType; Size: Integer): string; override; ! function Execute(const Statement: string; Params: TParams): Integer; override; end; --- 179,183 ---- function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override; function DataTypeToColumnType(DataType: TInstantDataType; Size: Integer): string; override; ! function Execute(const AStatement: string; AParams: TParams): Integer; override; end; *************** *** 186,191 **** TInstantADOMSSQLQuery = class(TInstantSQLQuery) - protected - function CreateDataSet(const AStatement: string; AParams: TParams): TDataSet; override; end; --- 186,189 ---- *************** *** 224,228 **** Param := Params.ParamByName(Parameter.Name); Parameter.DataType := Param.DataType; ! Parameter.Assign(Param); end; end; --- 222,234 ---- Param := Params.ParamByName(Parameter.Name); Parameter.DataType := Param.DataType; ! if Param.ParamType = DB.ptUnknown then ! Parameter.Direction := pdInput else ! Parameter.Direction := TParameterDirection(Param.ParamType); ! Parameter.Attributes := []; ! Parameter.NumericScale := Param.NumericScale; ! Parameter.Precision := Param.NumericScale; ! Parameter.Size := Param.Size; ! Parameter.Value := Param.Value; ! // Parameter.Assign(Param); end; end; *************** *** 1041,1051 **** begin Query := TADOQuery.Create(nil); ! with Query do ! begin ! Connection := (Connector as TInstantADOConnector).Connection; ! SQL.Text := Statement; ! AssignParameters(Params, Parameters); ! end; ! Result := Query; end; --- 1047,1062 ---- begin Query := TADOQuery.Create(nil); ! Try ! Query.CursorType := ctOpenForwardOnly; ! Query.LockType := ltReadOnly; ! Query.Connection := (Connector as TInstantADOConnector).Connection; ! Query.SQL.Text := Statement; ! if Assigned(Params) then ! AssignParameters(Params, Query.Parameters); ! Result := Query; ! Except ! Query.Free; ! raise; ! End; end; *************** *** 1074,1085 **** end; ! function TInstantADOMSSQLBroker.Execute(const Statement: string; ! Params: TParams): Integer; begin ! with CreateDataSet(Statement, Params) as TADOQuery do try ! Result := ExecSQL; finally ! Free; end; end; --- 1085,1098 ---- end; ! function TInstantADOMSSQLBroker.Execute(const AStatement: string; ! AParams: TParams): Integer; ! var ! DataSet : TADOQuery; begin ! DataSet := AcquireDataSet(AStatement, AParams) as TADOQuery; try ! Result := DataSet.ExecSQL; finally ! ReleaseDataSet(DataSet); end; end; *************** *** 1112,1135 **** { TInstantADOMSSQLQuery } - function TInstantADOMSSQLQuery.CreateDataSet(const AStatement: string; - AParams: TParams): TDataSet; - var - Query: TADOQuery; - begin - Query := TADOQuery.Create(nil); - try - Query.SQL.Text := AStatement; - AssignParameters(AParams, Query.Parameters); - Query.CursorType := ctOpenForwardOnly; - Query.LockType := ltReadOnly; - Query.MaxRecords := MaxCount; - Query.Connection := (Connector as TInstantADOConnector).Connection; - Result := Query; - except - Query.Free; - raise; - end; - end; - initialization RegisterClass(TInstantADOConnectionDef); --- 1125,1128 ---- --- ioado50.dpk DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:06:56
|
Update of /cvsroot/instantobjects/Demos/Intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Demos/Intro Modified Files: Intro.dof Log Message: Porting to Delphi 5 Index: Intro.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Intro.dof 2 Feb 2004 20:55:16 -0000 1.1 --- Intro.dof 10 Feb 2005 23:06:09 -0000 1.2 *************** *** 29,32 **** --- 29,33 ---- ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + [Linker] MapFile=0 *************** *** 39,42 **** --- 40,44 ---- ImageBase=4194304 ExeDescription= + [Directories] OutputDir= *************** *** 44,59 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLIE50;INETDB50;INET50;VCLMID50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;Orbit50;Bgo23;Bgo22;RBTDBC51;RBRCL45;RBCIDE45;RBIDE45;RBBDE45;RBUSER45;RBDB45;dclRBA45;RBDAD45;dclRBI45;TSDG5201;TSG5201 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000406 RootDir= [Version Info] IncludeVerInfo=0 --- 46,64 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Brokers\BDE Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLIE50;INETDB50;INET50;VCLMID50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;Orbit50;Bgo23;Bgo22;RBTDBC51;RBRCL45;RBCIDE45;RBIDE45;RBBDE45;RBUSER45;RBDB45;dclRBA45;RBDAD45;dclRBI45;TSDG5201;TSG5201 Conditionals= DebugSourceDirs= UsePackages=0 + [Parameters] RunParams= HostApplication= + [Language] ActiveLang= ProjectLang=$00000406 RootDir= + [Version Info] IncludeVerInfo=0 *************** *** 70,73 **** --- 75,79 ---- Locale=1030 CodePage=1252 + [Version Info Keys] CompanyName= *************** *** 81,89 **** ProductVersion=1.0.0.0 Comments= ! [Excluded Packages] ! $(DELPHI)\Projects\Bpl\dclDAD45.bpl=ReportBuilder Data Access Environment [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 --- 87,95 ---- ProductVersion=1.0.0.0 Comments= ! [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + [HistoryLists\hlSearchPath] Count=1 |
|
From: Carlo B. <car...@us...> - 2005-02-10 23:06:53
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Brokers/BDE Removed Files: iobde50.dpk Log Message: Porting to Delphi 5 --- iobde50.dpk DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:59:45
|
Update of /cvsroot/instantobjects/Source/Design/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30387/Source/Design/D5 Added Files: DclIOCore.cfg DclIOCore.dof DclIOCore.dpk Log Message: Delphi 5 Design package --- NEW FILE: DclIOCore.dpk --- package DclIOCore; {$R *.RES} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\iodesimages.res'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects Design-Time Package (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires dsnide50, IOCore; contains InstantWizard in '..\InstantWizard.pas', InstantClassEditor in '..\InstantClassEditor.pas' {InstantClassEditorForm: TIOBaseForm}, InstantCommandEditor in '..\InstantCommandEditor.pas' {InstantCommandEditorForm}, InstantDesignResources in '..\InstantDesignResources.pas' {InstantDesignResourceModule: TDataModule}, InstantDesignTools in '..\InstantDesignTools.pas', InstantDesignUtils in '..\InstantDesignUtils.pas', InstantDialog in '..\InstantDialog.pas' {InstantDialogForm}, InstantDualList in '..\InstantDualList.pas' {InstantDualListForm}, InstantEdit in '..\InstantEdit.pas' {InstantEditForm}, InstantModelExpert in '..\InstantModelExpert.pas', InstantModelExplorer in '..\InstantModelExplorer.pas' {InstantModelExplorerForm}, InstantOTA in '..\InstantOTA.pas', InstantReg in '..\InstantReg.pas', InstantUnitSelect in '..\InstantUnitSelect.pas' {InstantUnitSelectForm}, InstantAttributeEditor in '..\InstantAttributeEditor.pas' {InstantAttributeEditorForm}, InstantAbout in '..\InstantAbout.pas' {InstantAboutForm}; end. --- NEW FILE: DclIOCore.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects Design-Time Package (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: DclIOCore.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:58:08
|
Update of /cvsroot/instantobjects/Source/Design/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29797/D5 Log Message: Directory /cvsroot/instantobjects/Source/Design/D5 added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:57:43
|
Update of /cvsroot/instantobjects/Source/Core/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29660/Source/Core/D5 Added Files: IOCore.dof IOCore.dpk Log Message: Delphi 5 Core --- NEW FILE: IOCore.dpk --- package IOCore; {$R *.RES} {$R '..\InstantPump.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects Run-Time Package (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires VCL50, VCLDB50; contains InstantUtils in '..\InstantUtils.pas', InstantClasses in '..\InstantClasses.pas', InstantConsts in '..\InstantConsts.pas', InstantRtti in '..\InstantRtti.pas', InstantCommand in '..\InstantCommand.pas', InstantPersistence in '..\InstantPersistence.pas', InstantExplorer in '..\InstantExplorer.pas', InstantDesignHook in '..\InstantDesignHook.pas', InstantCode in '..\InstantCode.pas', InstantTextFiler in '..\InstantTextFiler.pas', InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; end. --- NEW FILE: IOCore.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects Run-Time Package (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Work\DelphiProjects\InstantObjects17\Source\Core\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects Run-Time Package (Delphi 5) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
