Update of /cvsroot/instantobjects/Demos/Pump
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14243/Pump
Modified Files:
Pump.dpr Pump.mdr UFmPump.dfm UFmPump.pas
Log Message:
InstantPump basic demo
Index: UFmPump.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Pump/UFmPump.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** UFmPump.pas 29 Jul 2004 20:55:13 -0000 1.1
--- UFmPump.pas 12 Feb 2005 11:42:52 -0000 1.2
***************
*** 10,21 ****
type
TFmPump = class(TForm)
! InstantIBXConnector1: TInstantIBXConnector;
! InstantIBXConnector2: TInstantIBXConnector;
IBDatabase1: TIBDatabase;
IBDatabase2: TIBDatabase;
EmptyBeforePumpCheckBox: TCheckBox;
! Button1: TButton;
InstantPump1: TInstantPump;
! procedure Button1Click(Sender: TObject);
procedure EmptyBeforePumpCheckBoxClick(Sender: TObject);
private
--- 10,23 ----
type
TFmPump = class(TForm)
! SourceConnector: TInstantIBXConnector;
! DestConnector: TInstantIBXConnector;
IBDatabase1: TIBDatabase;
IBDatabase2: TIBDatabase;
EmptyBeforePumpCheckBox: TCheckBox;
! PumpButton: TButton;
InstantPump1: TInstantPump;
! Label1: TLabel;
! Label3: TLabel;
! procedure PumpButtonClick(Sender: TObject);
procedure EmptyBeforePumpCheckBoxClick(Sender: TObject);
private
***************
*** 30,37 ****
{$R *.dfm}
! procedure TFmPump.Button1Click(Sender: TObject);
begin
! if MessageDlg('Begin pump?', mtConfirmation, [mbYes,mbNo], 0) = mrYes then
! InstantPump1.Pump;
end;
--- 32,42 ----
{$R *.dfm}
! procedure TFmPump.PumpButtonClick(Sender: TObject);
begin
! if MessageDlg('Begin pump?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
! begin
! InstantPump1.Pump;//(AModel);
! ShowMessage('Pump finished.');
! end;
end;
Index: Pump.dpr
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Pump/Pump.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Pump.dpr 29 Jul 2004 20:55:13 -0000 1.1
--- Pump.dpr 12 Feb 2005 11:42:51 -0000 1.2
***************
*** 4,8 ****
Forms,
UFmPump in 'UFmPump.pas' {FmPump},
! Model in '..\PrimerCross\Model.pas';
{$R *.res}
--- 4,8 ----
Forms,
UFmPump in 'UFmPump.pas' {FmPump},
! Model in '..\Intro\Model.pas';
{$R *.res}
Index: UFmPump.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Pump/UFmPump.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** UFmPump.dfm 29 Jul 2004 20:55:13 -0000 1.1
--- UFmPump.dfm 12 Feb 2005 11:42:52 -0000 1.2
***************
*** 3,7 ****
Top = 330
Width = 469
! Height = 306
Caption = 'InstantPump Demo'
Color = clBtnFace
--- 3,7 ----
Top = 330
Width = 469
! Height = 133
Caption = 'InstantPump Demo'
Color = clBtnFace
***************
*** 14,20 ****
PixelsPerInch = 96
TextHeight = 13
object EmptyBeforePumpCheckBox: TCheckBox
Left = 8
! Top = 8
Width = 193
Height = 17
--- 14,40 ----
PixelsPerInch = 96
TextHeight = 13
+ object Label1: TLabel
+ Left = 8
+ Top = 0
+ Width = 442
+ Height = 16
+ Caption = 'This application uses the model from the Intro demo application.'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -13
+ Font.Name = 'MS Sans Serif'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label3: TLabel
+ Left = 8
+ Top = 24
+ Width = 266
+ Height = 13
+ Caption = 'Change the settings at design time and recompile to use.'
+ end
object EmptyBeforePumpCheckBox: TCheckBox
Left = 8
! Top = 48
Width = 193
Height = 17
***************
*** 23,73 ****
OnClick = EmptyBeforePumpCheckBoxClick
end
! object Button1: TButton
Left = 8
! Top = 32
Width = 75
Height = 25
Caption = 'Pump'
TabOrder = 1
! OnClick = Button1Click
end
! object InstantIBXConnector1: TInstantIBXConnector
Connection = IBDatabase1
! Left = 48
! Top = 160
end
! object InstantIBXConnector2: TInstantIBXConnector
! IsDefault = True
BlobStreamFormat = sfXML
Connection = IBDatabase2
! Left = 168
! Top = 160
end
object IBDatabase1: TIBDatabase
! DatabaseName = 'C:\IBDATA\PRIMER.GDB'
! Params.Strings = (
! 'user_name=SYSDBA'
! 'password=a')
! LoginPrompt = False
! SQLDialect = 1
! Left = 48
! Top = 208
end
object IBDatabase2: TIBDatabase
! Connected = True
! DatabaseName = 'C:\IBDATA\PRIMERXML.FDB'
! Params.Strings = (
! 'user_name=SYSDBA'
! 'password=a')
! LoginPrompt = False
! Left = 168
! Top = 208
end
object InstantPump1: TInstantPump
! SourceConnector = InstantIBXConnector1
! DestConnector = InstantIBXConnector2
! Options = []
! Left = 112
! Top = 104
end
end
--- 43,79 ----
OnClick = EmptyBeforePumpCheckBoxClick
end
! object PumpButton: TButton
Left = 8
! Top = 72
Width = 75
Height = 25
Caption = 'Pump'
TabOrder = 1
! OnClick = PumpButtonClick
end
! object SourceConnector: TInstantIBXConnector
Connection = IBDatabase1
! Left = 224
! Top = 48
end
! object DestConnector: TInstantIBXConnector
BlobStreamFormat = sfXML
Connection = IBDatabase2
! Left = 368
! Top = 48
end
object IBDatabase1: TIBDatabase
! Left = 264
! Top = 48
end
object IBDatabase2: TIBDatabase
! Left = 400
! Top = 48
end
object InstantPump1: TInstantPump
! SourceConnector = SourceConnector
! DestConnector = DestConnector
! Left = 320
! Top = 24
end
end
Index: Pump.mdr
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Pump/Pump.mdr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvs3cv5lZ and /tmp/cvskrSVZy differ
|
