Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18410/Demos/PrimerCross
Modified Files:
Main.pas
Log Message:
InstantConnectionManagerForm added to uses clause.
Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Main.pas 10 Feb 2005 23:06:18 -0000 1.8
--- Main.pas 22 Feb 2005 14:56:26 -0000 1.9
***************
*** 19,23 ****
QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList,
{$ENDIF}
! InstantPersistence, BasicView, Stopwatch, InstantConnectionManager;
type
--- 19,24 ----
QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList,
{$ENDIF}
! InstantPersistence, BasicView, Stopwatch,
! InstantConnectionManagerForm, InstantConnectionManager;
type
***************
*** 333,337 ****
end;
if Confirm('Create random data?') then
! RandomDataActionExecute(nil); //CB
finally
if Assigned(DefaultConnector) then
--- 334,338 ----
end;
if Confirm('Create random data?') then
! RandomDataActionExecute(nil);
finally
if Assigned(DefaultConnector) then
***************
*** 357,361 ****
Result := CreateRandomPerson(Company, Gender);
if LoadPictures then
! AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture); //CB
end else
begin
--- 358,362 ----
Result := CreateRandomPerson(Company, Gender);
if LoadPictures then
! AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture);
end else
begin
***************
*** 592,596 ****
procedure TMainForm.InitSideBar;
! procedure AddShortcut(Form: TBasicViewForm; Index: Integer); //CB was TForm
begin
with SideBar.Items.Add do
--- 593,597 ----
procedure TMainForm.InitSideBar;
! procedure AddShortcut(Form: TBasicViewForm; Index: Integer);
begin
with SideBar.Items.Add do
|
