instantobjects-cvscommit — Generates a message for every commit made on CVS

[Instantobjects-cvscommit] Source/Brokers/IBX InstantIBXConnectionDefEdit.dfm,1.6,1.7

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/IBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21332/Source/Brokers/IBX

Modified Files:
	InstantIBXConnectionDefEdit.dfm 
Log Message:
removed DesignSize for Kylix compatibility

Index: InstantIBXConnectionDefEdit.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantIBXConnectionDefEdit.dfm	24 Jul 2005 16:34:50 -0000	1.6
--- InstantIBXConnectionDefEdit.dfm	16 Sep 2005 08:59:02 -0000	1.7
***************
*** 203,209 ****
      BevelOuter = bvNone
      TabOrder = 1
-     DesignSize = (
-       362
-       35)
      object OkButton: TButton
        Left = 204
--- 203,206 ----

[Instantobjects-cvscommit] Source/Brokers/BDE InstantBDEConnectionDefEdit.dfm,1.5,1.6

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21332/Source/Brokers/BDE

Modified Files:
	InstantBDEConnectionDefEdit.dfm 
Log Message:
removed DesignSize for Kylix compatibility

Index: InstantBDEConnectionDefEdit.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDEConnectionDefEdit.dfm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantBDEConnectionDefEdit.dfm	26 Aug 2005 07:15:53 -0000	1.5
--- InstantBDEConnectionDefEdit.dfm	16 Sep 2005 08:59:02 -0000	1.6
***************
*** 160,166 ****
      BevelOuter = bvNone
      TabOrder = 1
-     DesignSize = (
-       392
-       35)
      object OkButton: TButton
        Left = 234
--- 160,163 ----

[Instantobjects-cvscommit] Source/Core/D7 IOCore.dpk,1.10,1.11

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20959/Source/Core/D7

Modified Files:
	IOCore.dpk 
Log Message:
Fixed compilation problems of packages

Index: IOCore.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/D7/IOCore.dpk,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** IOCore.dpk	3 Sep 2005 08:03:13 -0000	1.10
--- IOCore.dpk	16 Sep 2005 08:57:21 -0000	1.11
***************
*** 1,5 ****
  package IOCore;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$ALIGN 8}
--- 1,5 ----
  package IOCore;
  
! {$I '..\..\InstantPackageVersion.inc'}
  
  {$ALIGN 8}

[Instantobjects-cvscommit] Source/Design/D7 DclIOCore.dpk,1.9,1.10

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Design/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20959/Source/Design/D7

Modified Files:
	DclIOCore.dpk 
Log Message:
Fixed compilation problems of packages

Index: DclIOCore.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/D7/DclIOCore.dpk,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** DclIOCore.dpk	3 Sep 2005 08:03:13 -0000	1.9
--- DclIOCore.dpk	16 Sep 2005 08:57:21 -0000	1.10
***************
*** 1,5 ****
  package DclIOCore;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$R '..\..\Core\InstantPresentation.dcr'}
--- 1,5 ----
  package DclIOCore;
  
! {$I '..\..\InstantPackageVersion.inc'}
  
  {$R '..\..\Core\InstantPresentation.dcr'}

[Instantobjects-cvscommit] Source InstantVersion.inc,1.1,1.2

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20959/Source

Modified Files:
	InstantVersion.inc 
Log Message:
Fixed compilation problems of packages

Index: InstantVersion.inc
===================================================================
RCS file: /cvsroot/instantobjects/Source/InstantVersion.inc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantVersion.inc	24 Jul 2005 16:34:58 -0000	1.1
--- InstantVersion.inc	16 Sep 2005 08:57:21 -0000	1.2
***************
*** 1 ****
! {$R '../../InstantVersion.res'}
--- 1 ----
! {$R '..\..\..\InstantVersion.res'}

[Instantobjects-cvscommit] Source/Brokers/UIB/D7 DclIOUIB.dpk,1.5,1.6 IOUIB.dpk,1.4,1.5

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/UIB/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20959/Source/Brokers/UIB/D7

Modified Files:
	DclIOUIB.dpk IOUIB.dpk 
Log Message:
Fixed compilation problems of packages

Index: IOUIB.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/D7/IOUIB.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** IOUIB.dpk	3 Sep 2005 08:03:11 -0000	1.4
--- IOUIB.dpk	16 Sep 2005 08:57:21 -0000	1.5
***************
*** 1,5 ****
  package IOUIB;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$ALIGN 8}
--- 1,5 ----
  package IOUIB;
  
! {$I '..\..\..\InstantVersion.inc'}
  
  {$ALIGN 8}

Index: DclIOUIB.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/D7/DclIOUIB.dpk,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DclIOUIB.dpk	3 Sep 2005 08:03:11 -0000	1.5
--- DclIOUIB.dpk	16 Sep 2005 08:57:21 -0000	1.6
***************
*** 1,5 ****
  package DclIOUIB;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$R '..\InstantUIB.dcr'}
--- 1,5 ----
  package DclIOUIB;
  
! {$I '..\..\..\InstantVersion.inc'}
  
  {$R '..\InstantUIB.dcr'}

[Instantobjects-cvscommit] Source/Brokers/DBX/D7 DclIODBX.dpk,1.4,1.5 IODBX.dpk,1.5,1.6

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/DBX/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20959/Source/Brokers/DBX/D7

Modified Files:
	DclIODBX.dpk IODBX.dpk 
Log Message:
Fixed compilation problems of packages

Index: DclIODBX.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/D7/DclIODBX.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DclIODBX.dpk	3 Sep 2005 08:03:10 -0000	1.4
--- DclIODBX.dpk	16 Sep 2005 08:57:21 -0000	1.5
***************
*** 1,5 ****
  package DclIODBX;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$R '..\InstantDBX.dcr'}
--- 1,5 ----
  package DclIODBX;
  
! {$I '..\..\..\InstantVersion.inc'}
  
  {$R '..\InstantDBX.dcr'}

Index: IODBX.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/D7/IODBX.dpk,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** IODBX.dpk	3 Sep 2005 08:03:10 -0000	1.5
--- IODBX.dpk	16 Sep 2005 08:57:21 -0000	1.6
***************
*** 1,5 ****
  package IODBX;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$ALIGN 8}
--- 1,5 ----
  package IODBX;
  
! {$I '..\..\..\InstantVersion.inc'}
  
  {$ALIGN 8}

[Instantobjects-cvscommit] Demos/IntroIW CompanyEditIW.pas,1.1,1.2 ContactEditIW.dfm,1.1,1.2 MainIW.dfm,1.1,1.2 MainIW.pas,1.1,1.2 PersonEditIW.dfm,1.1,1.2 QueryIW.dfm,1.1,1.2 QueryIW.pas,1.1,1.2

[Bernard S. <bvs...@us...>]

Update of /cvsroot/instantobjects/Demos/IntroIW
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13008/Demos/IntroIW

Modified Files:
	CompanyEditIW.pas ContactEditIW.dfm MainIW.dfm MainIW.pas 
	PersonEditIW.dfm QueryIW.dfm QueryIW.pas 
Log Message:
Clean up of the IO/Interweb demo to remove references to unused files. Changed how the grids display day to always display from the beginning of the datafile

Index: QueryIW.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/QueryIW.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** QueryIW.dfm	12 Apr 2005 15:48:06 -0000	1.1
--- QueryIW.dfm	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 202,206 ****
        RawText = False
      end
!     object MaxCountEdit: TTIWAdvEdit
        Left = 552
        Top = 136
--- 202,206 ----
        RawText = False
      end
!     object MaxCountEdit: TIWEdit
        Left = 552
        Top = 136
***************
*** 228,243 ****
        ScriptEvents = <>
        TabOrder = 4
-       AdvanceOnReturn = False
-       AdvanceOnUpDown = False
-       BorderColor = clBlack
-       BorderWidth = 1
-       Color = clNone
-       DecimalPoint = ','
-       EditType = etNumeric
-       Flat = False
        PasswordPrompt = False
-       SelectAll = False
-       Signed = False
-       SubmitOnReturn = False
        Text = '0'
      end
--- 228,232 ----

Index: ContactEditIW.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/ContactEditIW.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ContactEditIW.dfm	12 Apr 2005 15:48:06 -0000	1.1
--- ContactEditIW.dfm	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 496,500 ****
      FooterRowCount = 0
      FriendlyName = 'IWDBGrid1'
!     FromStart = False
      HighlightColor = clNone
      HighlightRows = False
--- 496,500 ----
      FooterRowCount = 0
      FriendlyName = 'IWDBGrid1'
!     FromStart = True
      HighlightColor = clNone
      HighlightRows = False

Index: PersonEditIW.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/PersonEditIW.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** PersonEditIW.dfm	12 Apr 2005 15:48:06 -0000	1.1
--- PersonEditIW.dfm	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 1,200 ****
  inherited PersonEditForm: TPersonEditForm
!   DesignLeft = 354
!   DesignTop = 297
!   inherited TIWDBAdvWebGrid1: TTIWDBAdvWebGrid
!     Columns = <
!       item
!         Alignment = taLeftJustify
!         AllowSizing = False
!         ButtonWidth = 0
!         CheckTrue = 'true'
!         CheckFalse = 'false'
!         Color = clNone
!         ColumnHeaderAlignment = taLeftJustify
!         ColumnHeaderClick = False
!         ColumnHeaderColor = clNone
!         ColumnHeaderFont.Color = clNone
!         ColumnHeaderFont.Size = 10
!         ColumnHeaderFont.Style = []
!         ColumnHeaderGradient1 = clNone
!         ColumnHeaderGradient2 = clNone
!         ColumnHeaderGradientDirection = gdHorizontal
!         ColumnHeaderCheckBox = False
!         ColumnHeaderNode = False
!         ColumnType = ctRowIndicator
!         DataButtonType = dbtButton
!         DefaultDynEdit = '0'
!         DefaultDynText = '0'
!         DetailSpan = 0
!         DynPrecision = 0
!         DynEditor = deText
!         ImageIndex = -1
!         Editor = edEdit
!         Filter = False
!         FilterIndex = 0
!         Font.Color = clNone
!         Font.Size = 10
!         Font.Style = []
!         FooterAlignment = taLeftJustify
!         FooterFormat = '%g'
!         FooterGradient1 = clNone
!         FooterGradient2 = clNone
!         FooterType = ftText
!         MaxLength = 0
!         PopupColor = clWebWHITE
!         PopupColorTo = clNone
!         PopupColorGradientDirection = gdHorizontal
!         ImageHeight = 0
!         ImageWidth = 0
!         PopupHeight = 200
!         PopupWidth = 200
!         ProgressColor = clWebRED
!         ShowHint = False
!         SpinEditMaxValue = 100
!         SpinEditMinValue = 0
!         SubTitleSpan = 0
!         SubTitleVAlign = vaNone
!         Tag = 0
!         TitleRowSpan = False
!         TitleSpan = 0
!         TitleVAlign = vaNone
!         VAlign = vaNone
!         Visible = True
!         Width = 40
!         WidthType = wtAbsolute
!       end
!       item
!         Alignment = taLeftJustify
!         AllowSizing = False
!         ButtonWidth = 0
!         CheckTrue = 'true'
!         CheckFalse = 'false'
!         Color = clNone
!         ColumnHeaderAlignment = taLeftJustify
!         ColumnHeaderClick = False
!         ColumnHeaderColor = clNone
!         ColumnHeaderFont.Color = clNone
!         ColumnHeaderFont.Size = 10
!         ColumnHeaderFont.Style = []
!         ColumnHeaderGradient1 = clNone
!         ColumnHeaderGradient2 = clNone
!         ColumnHeaderGradientDirection = gdHorizontal
!         ColumnHeaderCheckBox = False
!         ColumnHeaderNode = False
!         ColumnType = ctNormal
!         DataButtonType = dbtButton
!         DefaultDynEdit = '0'
!         DefaultDynText = '0'
!         DetailSpan = 0
!         DynPrecision = 0
!         DynEditor = deText
!         ImageIndex = -1
!         Editor = edEdit
!         Filter = False
!         FilterIndex = 0
!         Font.Color = clNone
!         Font.Size = 10
!         Font.Style = []
!         FooterAlignment = taLeftJustify
!         FooterFormat = '%g'
!         FooterGradient1 = clNone
!         FooterGradient2 = clNone
!         FooterType = ftText
!         MaxLength = 0
!         PopupColor = clWebWHITE
!         PopupColorTo = clNone
!         PopupColorGradientDirection = gdHorizontal
!         ImageHeight = 0
!         ImageWidth = 0
!         PopupHeight = 200
!         PopupWidth = 200
!         ProgressColor = clWebRED
!         ShowHint = False
!         SpinEditMaxValue = 100
!         SpinEditMinValue = 0
!         SubTitleSpan = 0
!         SubTitleVAlign = vaNone
!         Tag = 0
!         Title = 'Name'
!         TitleRowSpan = False
!         TitleSpan = 0
!         TitleVAlign = vaNone
!         VAlign = vaNone
!         Visible = True
!         Width = 128
!         WidthType = wtAbsolute
!         DataField = 'Name'
!       end
!       item
!         Alignment = taLeftJustify
!         AllowSizing = False
!         ButtonWidth = 0
!         CheckTrue = 'true'
!         CheckFalse = 'false'
!         Color = clNone
!         ColumnHeaderAlignment = taLeftJustify
!         ColumnHeaderClick = False
!         ColumnHeaderColor = clNone
!         ColumnHeaderFont.Color = clNone
!         ColumnHeaderFont.Size = 10
!         ColumnHeaderFont.Style = []
!         ColumnHeaderGradient1 = clNone
!         ColumnHeaderGradient2 = clNone
!         ColumnHeaderGradientDirection = gdHorizontal
!         ColumnHeaderCheckBox = False
!         ColumnHeaderNode = False
!         ColumnType = ctNormal
!         DataButtonType = dbtButton
!         DefaultDynEdit = '0'
!         DefaultDynText = '0'
!         DetailSpan = 0
!         DynPrecision = 0
!         DynEditor = deText
!         ImageIndex = -1
!         Editor = edEdit
!         Filter = False
!         FilterIndex = 0
!         Font.Color = clNone
!         Font.Size = 10
!         Font.Style = []
!         FooterAlignment = taLeftJustify
!         FooterFormat = '%g'
!         FooterGradient1 = clNone
!         FooterGradient2 = clNone
!         FooterType = ftText
!         MaxLength = 0
!         PopupColor = clWebWHITE
!         PopupColorTo = clNone
!         PopupColorGradientDirection = gdHorizontal
!         ImageHeight = 0
!         ImageWidth = 0
!         PopupHeight = 200
!         PopupWidth = 200
!         ProgressColor = clWebRED
!         ShowHint = False
!         SpinEditMaxValue = 100
!         SpinEditMinValue = 0
!         SubTitleSpan = 0
!         SubTitleVAlign = vaNone
!         Tag = 0
!         Title = 'Number'
!         TitleRowSpan = False
!         TitleSpan = 0
!         TitleVAlign = vaNone
!         VAlign = vaNone
!         Visible = True
!         Width = 128
!         WidthType = wtAbsolute
!         DataField = 'Number'
!       end>
!     TabOrder = 5
!   end
    inherited OkButton: TIWButton
!     TabOrder = 6
    end
    inherited CancelButton: TIWButton
      TabOrder = 7
    end
!   object IWLabel5: TIWLabel [12]
      Left = 8
      Top = 240
--- 1,18 ----
  inherited PersonEditForm: TPersonEditForm
!   DesignLeft = 351
!   DesignTop = 252
    inherited OkButton: TIWButton
!     TabOrder = 5
    end
    inherited CancelButton: TIWButton
      TabOrder = 7
    end
!   inherited IWDBEdit6: TIWDBEdit
!     TabOrder = 8
!   end
!   inherited IWDBEdit7: TIWDBEdit
!     TabOrder = 9
!   end
!   object IWLabel5: TIWLabel [16]
      Left = 8
      Top = 240
***************
*** 218,222 ****
      RawText = False
    end
!   object IWDBEdit5: TIWDBEdit [13]
      Left = 8
      Top = 256
--- 36,40 ----
      RawText = False
    end
!   object IWDBEdit5: TIWDBEdit [17]
      Left = 8
      Top = 256

Index: MainIW.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/MainIW.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MainIW.dfm	12 Apr 2005 15:48:06 -0000	1.1
--- MainIW.dfm	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 352,356 ****
      FooterRowCount = 0
      FriendlyName = 'IWDBGrid1'
!     FromStart = False
      HighlightColor = clNone
      HighlightRows = False
--- 352,356 ----
      FooterRowCount = 0
      FriendlyName = 'IWDBGrid1'
!     FromStart = True
      HighlightColor = clNone
      HighlightRows = False

Index: QueryIW.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/QueryIW.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** QueryIW.pas	12 Apr 2005 15:48:06 -0000	1.1
--- QueryIW.pas	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 5,9 ****
  uses
    Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
!   IWCompEdit, IWTMSCtrls, IWCompMemo, IWCompListbox, IWCompButton,
    IWCompLabel, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl,
    IWControl, IWGrids, IWDBGrids, Controls, Forms, IWVCLBaseContainer,
--- 5,9 ----
  uses
    Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
!   IWCompEdit, IWCompMemo, IWCompListbox, IWCompButton,
    IWCompLabel, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl,
    IWControl, IWGrids, IWDBGrids, Controls, Forms, IWVCLBaseContainer,
***************
*** 26,30 ****
      IWLabel3: TIWLabel;
      CommandLabel: TIWLabel;
!     MaxCountEdit: TTIWAdvEdit;
      IWDBNavigator1: TIWDBNavigator;
      procedure IWAppFormCreate(Sender: TObject);
--- 26,30 ----
      IWLabel3: TIWLabel;
      CommandLabel: TIWLabel;
!     MaxCountEdit: TIWEdit;
      IWDBNavigator1: TIWDBNavigator;
      procedure IWAppFormCreate(Sender: TObject);

Index: MainIW.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/MainIW.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MainIW.pas	12 Apr 2005 15:48:06 -0000	1.1
--- MainIW.pas	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 7,11 ****
    Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
    IWGrids, IWDBGrids, DB, InstantPresentation, InstantPersistence, Model,
!   IWDBStdCtrls, IWCompEdit, IWCompLabel, IWWebGrid, IWDBAdvWebGrid,
    IWCompButton, ContactEditIW, PersonEditIW, CompanyEditIW;
  
--- 7,11 ----
    Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
    IWGrids, IWDBGrids, DB, InstantPresentation, InstantPersistence, Model,
!   IWDBStdCtrls, IWCompEdit, IWCompLabel,
    IWCompButton, ContactEditIW, PersonEditIW, CompanyEditIW;
  
***************
*** 36,40 ****
      Person: TPerson;
      Company: TCompany;
!    procedure EditContact(Contact: TContact);
    end;
  
--- 36,40 ----
      Person: TPerson;
      Company: TCompany;
!    procedure EditContact(Contact: TContact; sCaption: String);
    end;
  
***************
*** 45,49 ****
  {$R *.dfm}
  
! procedure TMainForm.EditContact(Contact: TContact);
  begin
    if Contact is TCompany then
--- 45,49 ----
  {$R *.dfm}
  
! procedure TMainForm.EditContact(Contact: TContact; sCaption: String);
  begin
    if Contact is TCompany then
***************
*** 57,62 ****
    Form.ContactExposer.Subject := Contact;
    UserSession.bOk := False;
!   Form.IWDBGrid1.Caption := ContactSelector.FieldByName('Name').AsString +
!     '''s Phone Numbers';
    Form.Show;
  end;
--- 57,61 ----
    Form.ContactExposer.Subject := Contact;
    UserSession.bOk := False;
!   Form.IWDBGrid1.Caption := sCaption;
    Form.Show;
  end;
***************
*** 64,70 ****
  
  procedure TMainForm.EditContactButtonClick(Sender: TObject);
  begin
    bAdd := False;
!   EditContact(ContactSelector.CurrentObject as TContact);
  end;
  
--- 63,73 ----
  
  procedure TMainForm.EditContactButtonClick(Sender: TObject);
+ var
+   sCaption : string;
  begin
    bAdd := False;
!   sCaption := ContactSelector.FieldByName('Name').AsString +
!     '''s Phone Numbers';
!   EditContact(ContactSelector.CurrentObject as TContact, sCaption);
  end;
  
***************
*** 73,77 ****
    Person := TPerson.Create(ContactSelector.Connector);
    bAdd := True;
!   EditContact(Person);
  end;
  
--- 76,80 ----
    Person := TPerson.Create(ContactSelector.Connector);
    bAdd := True;
!   EditContact(Person, 'Phone Numbers');
  end;
  
***************
*** 80,84 ****
    Company := TCompany.Create(ContactSelector.Connector);
    bAdd := True;
!   EditContact(Company);
  end;
  
--- 83,87 ----
    Company := TCompany.Create(ContactSelector.Connector);
    bAdd := True;
!   EditContact(Company, 'Phone Numbers');
  end;
  

Index: CompanyEditIW.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/IntroIW/CompanyEditIW.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CompanyEditIW.pas	12 Apr 2005 15:48:06 -0000	1.1
--- CompanyEditIW.pas	16 Sep 2005 05:11:42 -0000	1.2
***************
*** 7,12 ****
    Dialogs, ContactEditIW, UserSessionUnit, DB, InstantPresentation, IWCompButton,
    IWCompLabel, IWCompEdit, IWDBStdCtrls, IWVCLBaseControl, IWBaseControl,
!   IWBaseHTMLControl, IWControl, IWWebGrid, IWDBAdvWebGrid, IWDBTMSCtrls,
!   IWCompListbox, IWGrids, IWDBGrids;
  
  type
--- 7,11 ----
    Dialogs, ContactEditIW, UserSessionUnit, DB, InstantPresentation, IWCompButton,
    IWCompLabel, IWCompEdit, IWDBStdCtrls, IWVCLBaseControl, IWBaseControl,
!   IWBaseHTMLControl, IWControl, IWCompListbox, IWGrids, IWDBGrids;
  
  type

[Instantobjects-cvscommit] Source/ObjectFoundry OFExpt.dpr,1.4,1.5

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/ObjectFoundry
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1339

Modified Files:
	OFExpt.dpr 
Log Message:
Remove imageslist from InstantAttributeEditor form as it is not used. This also
eliminates the need for loading the resources from the iodesimages.res file in
the OF Expert DLL.

Index: OFExpt.dpr
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFExpt.dpr,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** OFExpt.dpr	21 Mar 2005 02:18:53 -0000	1.4
--- OFExpt.dpr	16 Sep 2005 00:57:16 -0000	1.5
***************
*** 2,6 ****
  
  {$R *.RES}
- {$R ..\Design\iodesimages.res}   
  
  uses
--- 2,5 ----

[Instantobjects-cvscommit] Source/Design InstantAttributeEditor.pas,1.21,1.22 InstantAttributeEditor.dfm,1.11,1.12

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1230

Modified Files:
	InstantAttributeEditor.pas InstantAttributeEditor.dfm 
Log Message:
Remove imageslist from InstantAttributeEditor form as it is not used. This also
eliminates the need for loading the resources from the iodesimages.res file in
the OF Expert DLL.

Index: InstantAttributeEditor.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantAttributeEditor.dfm	7 Sep 2005 06:56:14 -0000	1.11
--- InstantAttributeEditor.dfm	16 Sep 2005 00:56:52 -0000	1.12
***************
*** 12,21 ****
    inherited EditPanel: TPanel
      Width = 241
!     Height = 300
      object PageControl: TPageControl
        Left = 4
        Top = 4
        Width = 233
!       Height = 292
        ActivePage = DefinitionSheet
        Align = alClient
--- 12,21 ----
    inherited EditPanel: TPanel
      Width = 241
!     Height = 293
      object PageControl: TPageControl
        Left = 4
        Top = 4
        Width = 233
!       Height = 285
        ActivePage = DefinitionSheet
        Align = alClient
***************
*** 380,384 ****
    end
    inherited BottomPanel: TPanel
!     Top = 300
      Width = 241
      inherited ButtonPanel: TPanel
--- 380,384 ----
    end
    inherited BottomPanel: TPanel
!     Top = 293
      Width = 241
      inherited ButtonPanel: TPanel
***************
*** 404,410 ****
      Top = 284
    end
-   object TypeImages: TImageList
-     Left = 92
-     Top = 284
-   end
  end
--- 404,406 ----

Index: InstantAttributeEditor.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** InstantAttributeEditor.pas	7 Sep 2005 06:56:14 -0000	1.21
--- InstantAttributeEditor.pas	16 Sep 2005 00:56:52 -0000	1.22
***************
*** 86,90 ****
      StorageNameLabel: TLabel;
      TypeEdit: TDBComboBox;
-     TypeImages: TImageList;
      TypeLabel: TLabel;
      ValidCharsEdit: TDBEdit;
--- 86,89 ----
***************
*** 159,163 ****
  procedure TInstantAttributeEditorForm.FormCreate(Sender: TObject);
  begin
-   LoadMultipleImages(TypeImages, 'IO_ATTRIBUTEEDITORIMAGES', HInstance);
    PageControl.ActivePage := DefinitionSheet;
    ActiveControl := NameEdit;
--- 158,161 ----

[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.55,1.56

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1180

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix for bug # 1285523: Parts of Parts Are Lost when 
UpdateExternalPartsMap. When Model include a parts of parts schema, sometimes when store first level part
the second level parts are lost in DataBase. [Fix and bug report from Hanedi
Salas]

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.55
retrieving revision 1.56
diff -C2 -d -r1.55 -r1.56
*** InstantPersistence.pas	7 Sep 2005 10:52:04 -0000	1.55
--- InstantPersistence.pas	9 Sep 2005 23:16:47 -0000	1.56
***************
*** 26,30 ****
   * Contributor(s):
   * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
!  * Joao Morais, Cesar Coll, Uberto Barbini, David Taylor
   *
   * ***** END LICENSE BLOCK ***** *)
--- 26,30 ----
   * Contributor(s):
   * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
!  * Joao Morais, Cesar Coll, Uberto Barbini, David Taylor, Hanedi Salas
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 13975,13979 ****
                        DataSet.Fields[1].AsString, False, False, AObject.Connector);
                      try
!                       if Assigned(PartObject) then
                          PartObject.ObjectStore.DisposeObject(PartObject, caIgnore);
                      finally
--- 13975,13980 ----
                        DataSet.Fields[1].AsString, False, False, AObject.Connector);
                      try
!                       if Assigned(PartObject) and
!                           (PartsAttribute.IndexOf(PartObject) = -1) then
                          PartObject.ObjectStore.DisposeObject(PartObject, caIgnore);
                      finally

[Instantobjects-cvscommit] Source/Core InstantConnectionManager.pas,1.19,1.20

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2085/Source/Core

Modified Files:
	InstantConnectionManager.pas 
Log Message:
Changed important comment to from InstantConnectionManagerForm to InstantConnectionManagerFormUnit

Index: InstantConnectionManager.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** InstantConnectionManager.pas	4 Sep 2005 23:15:54 -0000	1.19
--- InstantConnectionManager.pas	8 Sep 2005 16:27:28 -0000	1.20
***************
*** 347,351 ****
      // WARNING:
      // If you want to use the default ConnectionManagerForm (as in previous versions of IO)
!     // simply add InstantConnectionManagerForm in an uses section of your application.
      raise EInstantError.Create(SConnectionManagerExecutorNotAssigned);
  end;
--- 347,351 ----
      // WARNING:
      // If you want to use the default ConnectionManagerForm (as in previous versions of IO)
!     // simply add InstantConnectionManagerFormUnit in an uses section of your application.
      raise EInstantError.Create(SConnectionManagerExecutorNotAssigned);
  end;

[Instantobjects-cvscommit] Demos/PrimerCross Main.pas,1.11,1.12

[David T. <dav...@us...>]

Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30945/Demos/PrimerCross

Modified Files:
	Main.pas 
Log Message:
Fix for range check exception in TMainForm.StopWatchStop

Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Main.pas	24 Jul 2005 16:38:36 -0000	1.11
--- Main.pas	8 Sep 2005 14:07:31 -0000	1.12
***************
*** 695,699 ****
  procedure TMainForm.StopwatchStop(Sender: TObject);
  var
!   ms : word;
  {$IFDEF LINUX}
    h,m,s : word;
--- 695,699 ----
  procedure TMainForm.StopwatchStop(Sender: TObject);
  var
!   ms : cardinal;
  {$IFDEF LINUX}
    h,m,s : word;

[Instantobjects-cvscommit] Source/Catalogs/XML InstantXMLCatalog.pas,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/XML
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Catalogs/XML

Added Files:
	InstantXMLCatalog.pas 
Log Message:
Added XML catalog and updated XML broker.

--- NEW FILE: InstantXMLCatalog.pas ---
(*
 *   InstantObjects DBEvolver Support
 *   XML Catalog
 *)

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is: InstantObjects DBEvolver Support/XML Catalog
 *
 * The Initial Developer of the Original Code is: Steven Mitchell
 *
 * Portions created by the Initial Developer are Copyright (C) 2005
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

unit InstantXMLCatalog;

{$IFDEF LINUX}
{$I '../../InstantDefines.inc'}
{$ELSE}
{$I '..\..\InstantDefines.inc'}
{$ENDIF}

interface

uses
  InstantPersistence;

type
  // A TInstantCatalog that reads catalog information from a XML
  // database. Can be used with a XML broker.
  TInstantXMLCatalog = class(TInstantBrokerCatalog)
  private
    procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas);
  protected
    function GetFeatures: TInstantCatalogFeatures; override;
  public
    procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas);
      override;
  end;

implementation

uses
  SysUtils, Classes, TypInfo, Dialogs, InstantConsts;
  
procedure TInstantXMLCatalog.AddTableMetadatas(
  TableMetadatas: TInstantTableMetadatas);
var
  vDatabaseName: String;
  i: integer;
  TableMetadata: TInstantTableMetadata;
  vTables: TStringList;

  procedure GetTablesList(const ADatabaseName: string; ATables: TStrings);
  var
    sr: TSearchRec;
  begin
    if FindFirst(ADatabaseName + '*', faDirectory, sr) = 0 then
      repeat
        if ((sr.Attr and faDirectory) <> 0) and
                (sr.Name <> '.') and (sr.Name <> '..') then
          ATables.Add(sr.Name);
      until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  
begin
  vTables := TStringList.Create;
  try
    vDatabaseName := Broker.Connector.DatabaseName;
    if DirectoryExists(vDatabaseName) then
      GetTablesList(vDatabaseName, vTables);

    if vTables.Count > 0 then
      for i := 0 to Pred(vTables.Count) do
      begin
        TableMetadata := TableMetadatas.Add;
        TableMetadata.Name := vTables[i];
      end;
  finally
    vTables.Free;
  end;
end;

function TInstantXMLCatalog.GetFeatures: TInstantCatalogFeatures;
begin
  Result := [cfReadTableInfo];
end;

procedure TInstantXMLCatalog.InitTableMetadatas(
  ATableMetadatas: TInstantTableMetadatas);
begin
  ATableMetadatas.Clear;
  AddTableMetadatas(ATableMetadatas);
end;

end. 

[Instantobjects-cvscommit] Source/Catalogs/XML/D2005 IOXMLCatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/XML/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Catalogs/XML/D2005

Added Files:
	IOXMLCatalog.dpk 
Log Message:
Added XML catalog and updated XML broker.

--- NEW FILE: IOXMLCatalog.dpk ---
package IOXMLCatalog;

{$I '..\..\..\InstantVersion.inc'}

{$ALIGN 8}
{$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 OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'InstantObjects Catalog for XML (Delphi 2005)'}
{$LIBSUFFIX '_D9'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  vcl,
  dbrtl,
  bdertl,
  IOCore,
  vcldb;

contains
  InstantXMLCatalog in '..\InstantXMLCatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/XML/k3 IOXML.dpk,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML/k3
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML/k3

Modified Files:
	IOXML.dpk 
Log Message:
Added XML catalog and updated XML broker.

Index: IOXML.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/k3/IOXML.dpk,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** IOXML.dpk	21 Mar 2005 16:50:02 -0000	1.1
--- IOXML.dpk	8 Sep 2005 07:35:32 -0000	1.2
***************
*** 1,5 ****
  package IOXML;
  
! {$R *.res}
  {$ALIGN 8}
  {$ASSERTIONS ON}
--- 1,6 ----
  package IOXML;
  
! {$I '../../../InstantVersion.inc'}
! 
  {$ALIGN 8}
  {$ASSERTIONS ON}
***************
*** 28,32 ****
  
  requires
!   IOCore;
  
  contains
--- 29,34 ----
  
  requires
!   IOCore,
!   IOXMLCatalog;
  
  contains

[Instantobjects-cvscommit] Source/Catalogs/XML/D6 IOXMLCatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/XML/D6
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Catalogs/XML/D6

Added Files:
	IOXMLCatalog.dpk 
Log Message:
Added XML catalog and updated XML broker.

--- NEW FILE: IOXMLCatalog.dpk ---
package IOXMLCatalog;

{$I '..\..\..\InstantVersion.inc'}

{$ALIGN 8}
{$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 OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'InstantObjects Catalog for XML (Delphi 6)'}
{$LIBSUFFIX '_D6'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  vcl,
  dbrtl,
  bdertl,
  IOCore,
  vcldb;

contains
  InstantXMLCatalog in '..\InstantXMLCatalog.pas';

end.

[Instantobjects-cvscommit] Source/Tests MinimalModel.pas,1.3,1.4 TestMinimalModel.pas,1.5,1.6

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Tests

Modified Files:
	MinimalModel.pas TestMinimalModel.pas 
Log Message:
Added XML catalog and updated XML broker.

Index: MinimalModel.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/MinimalModel.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MinimalModel.pas	28 Jun 2005 03:45:50 -0000	1.3
--- MinimalModel.pas	8 Sep 2005 07:35:32 -0000	1.4
***************
*** 78,82 ****
  </TInstantClassMetadatas>
  *)
!   InstantModel.ClassMetadatas.Create(InstantModel);
    InstantClassMetadata := InstantModel.ClassMetadatas.Add;
    InstantClassMetadata.Name := 'TSimpleClass';
--- 78,82 ----
  </TInstantClassMetadatas>
  *)
!   // An empty InstantModel.ClassMetadatas should already be available
    InstantClassMetadata := InstantModel.ClassMetadatas.Add;
    InstantClassMetadata.Name := 'TSimpleClass';

Index: TestMinimalModel.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestMinimalModel.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TestMinimalModel.pas	28 Jun 2005 03:45:50 -0000	1.5
--- TestMinimalModel.pas	8 Sep 2005 07:35:32 -0000	1.6
***************
*** 86,90 ****
  begin
  //code from CreateMinimalModel;
-   InstantModel.ClassMetadatas.Create(InstantModel);
  
    AssertNotNull('InstantModel',InstantModel);
--- 86,89 ----

[Instantobjects-cvscommit] Source/Catalogs/XML/D5 IOXMLCatalog_D5.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/XML/D5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Catalogs/XML/D5

Added Files:
	IOXMLCatalog_D5.dpk 
Log Message:
Added XML catalog and updated XML broker.

--- NEW FILE: IOXMLCatalog_D5.dpk ---
package IOXMLCatalog_D5;

{$I '..\..\..\InstantVersion.inc'}

{$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 OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'InstantObjects Catalog for XML (Delphi 5)'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  IOCore;

contains
  InstantXMLCatalog in '..\InstantXMLCatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/XML InstantXML.pas,1.8,1.9

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML

Modified Files:
	InstantXML.pas 
Log Message:
Added XML catalog and updated XML broker.

Index: InstantXML.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/InstantXML.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** InstantXML.pas	4 Sep 2005 23:15:53 -0000	1.8
--- InstantXML.pas	8 Sep 2005 07:35:31 -0000	1.9
***************
*** 22,26 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Nando Dessena, Marco Cantù
   *
   * ***** END LICENSE BLOCK ***** *)
--- 22,27 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Nando Dessena, Marco Cantù,
!  * Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 34,37 ****
--- 35,43 ----
  {$ENDIF}
  
+ {$IFDEF D6+}
+   {$WARN SYMBOL_PLATFORM OFF}
+   {$WARN UNIT_PLATFORM OFF}
+ {$ENDIF}
+ 
  interface
  
***************
*** 45,49 ****
    DOT_XML_EXT = '.'+XML_EXT;
    XML_WILDCARD = '*'+DOT_XML_EXT;
!   {$IFDEF VER130}PathDelim = '\';{$ENDIF}
    
  type
--- 51,55 ----
    DOT_XML_EXT = '.'+XML_EXT;
    XML_WILDCARD = '*'+DOT_XML_EXT;
!   {$IFDEF D5}PathDelim = '\';{$ENDIF}
    
  type
***************
*** 111,114 ****
--- 117,121 ----
    protected
      function CreateBroker: TInstantBroker; override;
+     function GetDatabaseName: string; override;
      procedure InternalBuildDatabase(Scheme: TInstantScheme); override;
      procedure InternalCommitTransaction; override;
***************
*** 133,136 ****
--- 140,145 ----
      function GetConnector: TInstantXMLConnector;
    protected
+     function CreateCatalog(const AScheme: TInstantScheme): TInstantCatalog;
+         override;
      function CreateResolver(const StorageName: string): TInstantXMLResolver;
      function EnsureResolver(Map: TInstantAttributeMap): TInstantCustomResolver; override;
***************
*** 140,143 ****
--- 149,154 ----
    public
      destructor Destroy; override;
+     function CreateDBBuildCommand(const CommandType: TInstantDBBuildCommandType):
+         TInstantDBBuildCommand; override;
      property Connector: TInstantXMLConnector read GetConnector;
    end;
***************
*** 214,226 ****
    end;
  
! procedure Register;
  
  implementation
  
  uses
!   SysUtils, InstantConsts, InstantClasses, TypInfo,
    InstantXMLConnectionDefEdit,
  {$IFDEF MSWINDOWS}
!   {$IFDEF VER130}
      FileCtrl,
    {$ENDIF}
--- 225,274 ----
    end;
  
!   // Base class for all steps that work by executing one or more commands
!   // (that is, a script) each.
!   TInstantDBBuildXMLCommand = class(TInstantDBBuildCommand)
!   private
!     function GetConnector: TInstantXMLConnector;
!     function GetBroker: TInstantXMLBroker;
!   protected
!     // Returns The number of statements that compound this script. The
!     // predefined implementation returns 1.
!     function GetCommandCount: Integer; virtual;
!     // Returns the nth command that is part of this script. Valid values
!     // are in the range 0 to Pred(GetCommandCount). The default
!     // implementation, which should always be called through inherited at the
!     // beginning of the overridden version, just returns '', or raises an
!     // exception if Index is not in the allowed range.
!     function GetCommand(const Index: Integer): string; virtual;
!   public
!     property Connector: TInstantXMLConnector read GetConnector;
!     property Broker: TInstantXMLBroker read GetBroker;
!   end;
! 
!   TInstantDBBuildXMLAddTableCommand = class(TInstantDBBuildXMLCommand)
!   private
!     function GetTableMetadata: TInstantTableMetadata;
!   protected
!     procedure InternalExecute; override;
!   public
!     property TableMetadata: TInstantTableMetadata read GetTableMetadata;
!   end;
! 
!   TInstantDBBuildXMLDropTableCommand = class(TInstantDBBuildXMLCommand)
!   private
!     function GetTableMetadata: TInstantTableMetadata;
!   protected
!     procedure InternalExecute; override;
!   public
!     property TableMetadata: TInstantTableMetadata read GetTableMetadata;
!   end;
  
  implementation
  
  uses
!   SysUtils, InstantConsts, InstantClasses, TypInfo, InstantXMLCatalog,
    InstantXMLConnectionDefEdit,
  {$IFDEF MSWINDOWS}
!   {$IFDEF D5}
      FileCtrl,
    {$ENDIF}
***************
*** 231,245 ****
  {$ENDIF}
  
  function GetFileClassName(const FileName : string) : string; forward;
  function GetFileId(const FileName : string) : string; forward;
  function GetFileVersion(const FileName : string) : Integer; forward;
  
! procedure Register;
! begin
!   RegisterComponents('InstantObjects', [TInstantXMLConnector]);
!   RegisterComponents('InstantObjects', [TXMLFilesAccessor]);
! end;
! 
! {$IFDEF VER130}
  function IncludeTrailingPathDelimiter(const S : string) : string;
  begin
--- 279,291 ----
  {$ENDIF}
  
+ resourcestring
+   SCannotCreateDirectory = 'Cannot create directory %s';
+   SCommandIndexOutOfBounds = 'Command index out of bounds.';
+ 
  function GetFileClassName(const FileName : string) : string; forward;
  function GetFileId(const FileName : string) : string; forward;
  function GetFileVersion(const FileName : string) : Integer; forward;
  
! {$IFDEF D5}
  function IncludeTrailingPathDelimiter(const S : string) : string;
  begin
***************
*** 560,564 ****
  begin
    if not assigned(Connection) then
!     raise EPropertyError.Create('Connection property unassigned');
  end;
  
--- 606,610 ----
  begin
    if not assigned(Connection) then
!     raise EPropertyError.Create(SUnassignedConnection);
  end;
  
***************
*** 578,581 ****
--- 624,632 ----
  end;
  
+ function TInstantXMLConnector.GetDatabaseName: string;
+ begin
+   Result := Connection.RootFolder;
+ end;
+ 
  procedure TInstantXMLConnector.InternalBuildDatabase(Scheme: TInstantScheme);
  var
***************
*** 587,591 ****
    if not DirectoryExists(Connection.RootFolder) and
      not ForceDirectories(Connection.RootFolder) then
!     raise EInOutError.CreateFmt('Cannot create directory %s', [Connection.RootFolder]);
  
    //build SubFolder for each "storage name"
--- 638,642 ----
    if not DirectoryExists(Connection.RootFolder) and
      not ForceDirectories(Connection.RootFolder) then
!     raise EInOutError.CreateFmt(SCannotCreateDirectory, [Connection.RootFolder]);
  
    //build SubFolder for each "storage name"
***************
*** 638,641 ****
--- 689,709 ----
  end;
  
+ function TInstantXMLBroker.CreateCatalog(const AScheme: TInstantScheme):
+     TInstantCatalog;
+ begin
+   Result := TInstantXMLCatalog.Create(AScheme, Self);
+ end;
+ 
+ function TInstantXMLBroker.CreateDBBuildCommand(const CommandType:
+     TInstantDBBuildCommandType): TInstantDBBuildCommand;
+ begin
+   if CommandType = ctAddTable then
+     Result := TInstantDBBuildXMLAddTableCommand.Create(CommandType, Connector)
+   else if CommandType = ctDropTable then
+     Result := TInstantDBBuildXMLDropTableCommand.Create(CommandType, Connector)
+   else
+     Result := inherited CreateDBBuildCommand(CommandType);
+ end;
+ 
  function TInstantXMLBroker.EnsureResolver(
    Map: TInstantAttributeMap): TInstantCustomResolver;
***************
*** 1223,1226 ****
--- 1291,1373 ----
  end;
  
+ { TInstantDBBuildXMLCommand }
+ 
+ function TInstantDBBuildXMLCommand.GetBroker: TInstantXMLBroker;
+ begin
+   Result := Connector.Broker as TInstantXMLBroker;
+ end;
+ 
+ function TInstantDBBuildXMLCommand.GetCommand(const Index: Integer): string;
+ begin
+   if (Index < 0) or (Index >= GetCommandCount) then
+     raise EInstantDBBuildError.CreateFmt(SCommandIndexOutOfBounds,
+       [Index]);
+   Result := '';
+ end;
+ 
+ function TInstantDBBuildXMLCommand.GetCommandCount: Integer;
+ begin
+   Result := 1;
+ end;
+ 
+ function TInstantDBBuildXMLCommand.GetConnector: TInstantXMLConnector;
+ begin
+   Result := inherited Connector as TInstantXMLConnector;
+ end;
+ 
+ function TInstantDBBuildXMLAddTableCommand.GetTableMetadata:
+     TInstantTableMetadata;
+ begin
+   Result := NewMetadata as TInstantTableMetadata;
+ end;
+ 
+ procedure TInstantDBBuildXMLAddTableCommand.InternalExecute;
+ var
+   vDatabaseName: String;
+ begin
+   Connector.CheckConnection;
+   vDatabaseName := Connector.DatabaseName;
+ 
+   //build RootFolder if not exists
+   if not DirectoryExists(vDatabaseName) and
+     not ForceDirectories(vDatabaseName) then
+     raise EInOutError.CreateFmt(SCannotCreateDirectory, [vDatabaseName]);
+ 
+   // Create a subFolder for the "storage name"
+   if not DirectoryExists(vDatabaseName + TableMetadata.Name) then
+     MkDir(vDatabaseName + TableMetadata.Name);
+ end;
+ 
+ function TInstantDBBuildXMLDropTableCommand.GetTableMetadata:
+     TInstantTableMetadata;
+ begin
+   Result := OldMetadata as TInstantTableMetadata;
+ end;
+ 
+ procedure TInstantDBBuildXMLDropTableCommand.InternalExecute;
+ var
+   vTableName: String;
+   sr: TSearchRec;
+   vDatabaseName: String;
+ begin
+   Connector.CheckConnection;
+   vDatabaseName := Connector.DatabaseName;
+ 
+   // Delete subFolder for the "storage name"
+   vTableName := vDatabaseName + TableMetadata.Name;
+   if DirectoryExists(vTableName) then
+   begin
+     if FindFirst(vTableName + '\*.*', faAnyFile, sr) = 0 then
+     begin
+       repeat
+         DeleteFile(vTableName + '\' + sr.Name);
+       until FindNext(sr) <> 0;
+       FindClose(sr);
+     end;
+     RemoveDir(vTableName);
+   end;
+ end;
+ 
+ 
  initialization
    RegisterClass(TInstantXMLConnectionDef);

[Instantobjects-cvscommit] Source/Brokers/XML/D6 IOXML.dpk,1.3,1.4

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML/D6
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML/D6

Modified Files:
	IOXML.dpk 
Log Message:
Added XML catalog and updated XML broker.

Index: IOXML.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D6/IOXML.dpk,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** IOXML.dpk	3 Sep 2005 08:03:12 -0000	1.3
--- IOXML.dpk	8 Sep 2005 07:35:32 -0000	1.4
***************
*** 34,38 ****
    dbrtl,
    IOCore,
!   vclx;
  
  contains
--- 34,39 ----
    dbrtl,
    IOCore,
!   vclx,
!   IOXMLCatalog;
  
  contains

[Instantobjects-cvscommit] Source/Catalogs/XML/D7 IOXMLCatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/XML/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Catalogs/XML/D7

Added Files:
	IOXMLCatalog.dpk 
Log Message:
Added XML catalog and updated XML broker.

--- NEW FILE: IOXMLCatalog.dpk ---
package IOXMLCatalog;

{$R *.res}
{$ALIGN 8}
{$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 OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'InstantObjects Catalog for XML (Delphi 7)'}
{$LIBSUFFIX '_D7'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  vcl,
  dbrtl,
  bdertl,
  IOCore,
  vcldb;

contains
  InstantXMLCatalog in '..\InstantXMLCatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/XML/D5 Ioxml_D5.dpk,1.4,1.5

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML/D5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML/D5

Modified Files:
	Ioxml_D5.dpk 
Log Message:
Added XML catalog and updated XML broker.

Index: Ioxml_D5.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D5/Ioxml_D5.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Ioxml_D5.dpk	3 Sep 2005 08:03:12 -0000	1.4
--- Ioxml_D5.dpk	8 Sep 2005 07:35:31 -0000	1.5
***************
*** 30,34 ****
  requires
    IOCore,
!   VCLX50;
  
  contains
--- 30,35 ----
  requires
    IOCore,
!   VCLX50,
!   IOXMLCatalog;
  
  contains

[Instantobjects-cvscommit] Source/Brokers/XML/D2005 IOXML.dpk,1.3,1.4

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML/D2005

Modified Files:
	IOXML.dpk 
Log Message:
Added XML catalog and updated XML broker.

Index: IOXML.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D2005/IOXML.dpk,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** IOXML.dpk	3 Sep 2005 08:03:11 -0000	1.3
--- IOXML.dpk	8 Sep 2005 07:35:31 -0000	1.4
***************
*** 34,38 ****
    dbrtl,
    IOCore,
!   vclx;
  
  contains
--- 34,39 ----
    dbrtl,
    IOCore,
!   vclx,
!   IOXMLCatalog;
  
  contains

[Instantobjects-cvscommit] Source/Brokers/XML/D7 IOXML.dpk,1.4,1.5

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/XML/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10267/Brokers/XML/D7

Modified Files:
	IOXML.dpk 
Log Message:
Added XML catalog and updated XML broker.

Index: IOXML.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D7/IOXML.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** IOXML.dpk	3 Sep 2005 08:03:12 -0000	1.4
--- IOXML.dpk	8 Sep 2005 07:35:32 -0000	1.5
***************
*** 34,38 ****
    dbrtl,
    IOCore,
!   vclx;
  
  contains
--- 34,39 ----
    dbrtl,
    IOCore,
!   vclx,
!   IOXMLCatalog;
  
  contains