Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1981/Source/Core
Modified Files:
InstantConnectionManagerForm.pas InstantConsts.pas
InstantDBEvolverForm.dfm
Log Message:
Added MS-SQL catalog support for dbevolver and changed DBX and ADO brokers to use it.
Index: InstantConsts.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantConsts.pas 26 Jun 2005 14:28:20 -0000 1.11
--- InstantConsts.pas 1 Jul 2005 23:29:22 -0000 1.12
***************
*** 163,166 ****
--- 163,167 ----
SUnsupportedType = 'Unsupported type: %s';
SUpdateConflict = 'Object %s(''%s'') was updated by another session';
+ SUnsupportedColumnType = 'ColumnType %s not supported';
implementation
Index: InstantConnectionManagerForm.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManagerForm.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantConnectionManagerForm.pas 28 Jun 2005 10:13:47 -0000 1.5
--- InstantConnectionManagerForm.pas 1 Jul 2005 23:29:22 -0000 1.6
***************
*** 395,398 ****
--- 395,399 ----
DBEvolverForm := TInstantDBEvolverForm.Create(nil);
try
+ DBEvolverForm.Caption := DBEvolverForm.Caption + ' - ' + ConnectionDef.Name;
DBEvolverForm.Connector := Connector;
DBEvolverForm.TargetModel := Model;
Index: InstantDBEvolverForm.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantDBEvolverForm.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantDBEvolverForm.dfm 28 Jun 2005 10:13:47 -0000 1.1
--- InstantDBEvolverForm.dfm 1 Jul 2005 23:29:22 -0000 1.2
***************
*** 23,31 ****
0000C0070000C0070000C0070000C0070000E00F0000F83F0000FFFF0000}
OldCreateOrder = False
ShowHint = True
OnCreate = FormCreate
DesignSize = (
593
! 305)
PixelsPerInch = 96
TextHeight = 13
--- 23,32 ----
0000C0070000C0070000C0070000C0070000E00F0000F83F0000FFFF0000}
OldCreateOrder = False
+ Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
DesignSize = (
593
! 298)
PixelsPerInch = 96
TextHeight = 13
***************
*** 127,134 ****
--- 128,137 ----
object ShowSequenceAction: TAction
Caption = 'Show Evolution Sequence'
+ Hint = 'Show Evolution Sequence'
OnExecute = ShowSequenceActionExecute
end
object EvolveAction: TAction
Caption = 'Evolve Database'
+ Hint = 'Evolve Database'
OnExecute = EvolveActionExecute
OnUpdate = EvolveActionUpdate
***************
*** 136,139 ****
--- 139,143 ----
object MoveCommandUpAction: TAction
Caption = 'Move Command Up'
+ Hint = 'Move Command Up'
OnExecute = MoveCommandUpActionExecute
OnUpdate = MoveCommandUpActionUpdate
***************
*** 141,144 ****
--- 145,149 ----
object MoveCommandDownAction: TAction
Caption = 'Move Command Down'
+ Hint = 'Move Command Down'
OnExecute = MoveCommandDownActionExecute
OnUpdate = MoveCommandDownActionUpdate
***************
*** 146,149 ****
--- 151,155 ----
object EnableAllCommandsAction: TAction
Caption = 'Enable All Commands'
+ Hint = 'Enable All Commands'
OnExecute = EnableAllCommandsActionExecute
OnUpdate = EnableAllCommandsActionUpdate
***************
*** 151,154 ****
--- 157,161 ----
object DisableAllCommandsAction: TAction
Caption = 'Disable All Commands'
+ Hint = 'Disable All Commands'
OnExecute = DisableAllCommandsActionExecute
OnUpdate = DisableAllCommandsActionUpdate
|
