--- In IBObjects@yahoogroups.com, Helen Borrie <helebor@...> wrote:

>
> At 04:08 PM 19/01/2007, you wrote:
>
> >I uninstalled IBO and then reinstalled using the registered version
> >just to be sure. I then installed FB & my recompiled app on a clean
> >virtual machine. I get the same problem.
> >
> >But it will run OK on my development pc even if I don't have delphi
> >running.
>
> Did you compile your app using runtime libraries, by any chance? You
> can look at that by opening the Packages tab of the project's Project
> Options dialog. There is a checkbox in a panel in the lower half of

the page.


No, the checkbox is not checked.

>
>
> >I have run Icarus Uses List Analyzer to see what's going on. I am
> >registered for IBO TDataset components only, but I notice in the Uses
> >List the following entries which seem to have found their way in
> >presumably in error. I am not aware of actually using any other IBO
> >components other than the TDataset ones. Could any of these be the
> >problem?
>
> No, they are all allowed to be there and most are needed.
>
>
> >IB_MaskInterface
> >IB_Constants
> >IB_Header
> >IB_Session
> >Mask
> >Grids
> >IB_Utils
> >Unixpass
> >IB_NodeList
> >IB_Components
> >IB_Parse
> >IBD_Error
> >uRounding
> >IB_Schema
> >IBD_Login
> >IBD_CancelQuery
> >
> >Is this error standard behaviour for any instance where unlicenced 3rd
> >party controls are used or if they are not used but residual
> >references remain in the uses lists?
>
> No, not standard at all. Various 3P trial versions have ways to stop
> you from deploying apps built with unlicensed components but all IBO
> does is display the nag screen. It doesn't used "crippled versions"
> or anything like that. You should be able to click OK in the modal
> dialog and carry on.
>
> The exception is when you have compiled the app as a library, e.g. an
> isapi. Since you can't respond to a modal dialog in that
> environment, the app will just hang.
>
> But it might occur either way if your app needs runtime libraries in
> order to run and they are either missing (not found where they should
> be) or are not the same versions that the compiler has linked to.
>
> >Any other suggestions?
>
> Can't think of any without more info about what the app is doing at

startup.

>
> Helen
>

Helen,

I did not compile using runtime libraries.

Here is my main form code. There is a splashscreen which was also in
my version 1 demo. Just to be sure I tested it while disabled and
still get the problem.

--------------

unit Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, FormCont, ExtCtrls, Menus, Buttons, ComCtrls, Tabs, ActnList,
StdActns;

type
TfrmMain = class(TForm)
FormContainer1: TFormContainer;
MainMenu1: TMainMenu;
Project1: TMenuItem;
Reports1: TMenuItem;
Panel5: TPanel;
StatusBar1: TStatusBar;
SystemSetUp1: TMenuItem;
CostTypes1: TMenuItem;
MainActionlist: TActionList;
FileExit1: TFileExit;
N1: TMenuItem;
Library1: TMenuItem;
ImportImage1: TMenuItem;
DeleteImage1: TMenuItem;
N2: TMenuItem;
UsersLogIns1: TMenuItem;
DesignerInfo1: TMenuItem;
Help1: TMenuItem;
UpdateProgram1: TMenuItem;
About1: TMenuItem;
Help2: TMenuItem;
EnhancementRequest1: TMenuItem;
BugReport1: TMenuItem;
Documents1: TMenuItem;
CreateRFQ1: TMenuItem;
CreatePO1: TMenuItem;
CreatGoodsReceived1: TMenuItem;
ShowfrmBusinessPartners: TAction;
BusinessPartners2: TMenuItem;
ShowfrmItemsGrid: TAction;
ShowfrmUnitsOfMeasure: TAction;
ShowfrmUnitConversions: TAction;
ShowfrmCostTypes: TAction;
Utilities1: TMenuItem;
CheckDataFileSize1: TMenuItem;
RepairDataFile1: TMenuItem;
RestoredataFile1: TMenuItem;
BackupDatafile1: TMenuItem;
ShowfrmSpecifications: TAction;
ShowfrmItems: TAction;
ShowfrmProjectContainer: TAction;
ShowfrmProjectSelector: TAction;
ShowfrmProjectSelector1: TMenuItem;
ShowfrmProjManager: TAction;
ProjectManager1: TMenuItem;
ExitInigo1: TMenuItem;
N3: TMenuItem;
GlobalDashboard1: TMenuItem;
ShowfrmGlobalDashboard: TAction;
ShowfrmSplashscreen: TAction;
Print1: TMenuItem;
ShowfrmPrintOptions: TAction;
procedure FormShow(Sender: TObject);
procedure ShowfrmBusinessPartnersExecute(Sender: TObject);
procedure ShowfrmItemsGridExecute(Sender: TObject);
procedure ShowfrmCostTypesExecute(Sender: TObject);
procedure ShowfrmItemsExecute(Sender: TObject);
procedure ShowfrmProjectContainerExecute(Sender: TObject);
procedure ShowfrmProjectSelectorExecute(Sender: TObject);
procedure ShowfrmProjManagerExecute(Sender: TObject);
procedure ShowfrmDocumentExecute(Sender: TObject);
procedure ShowfrmGlobalDashboardExecute(Sender: TObject);
procedure ShowfrmSplashscreenExecute(Sender: TObject);
procedure ShowfrmPrintOptionsExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

uses Utils, Splash, BusinessPartners, CostTypes, Item,
ProjectContainer, ProjSelector, ItemsGrid, ProjManager, Document,
GlobalDashboard, BusPartnersContainer, PrintOptions;

{$R *.DFM}


procedure TfrmMain.FormShow(Sender: TObject);
begin
frmSplashScreen.Free;
end;

procedure TfrmMain.ShowfrmBusinessPartnersExecute(Sender: TObject);
begin
// FormContainer1.CreateShowForm(TfrmBusinessPartners);
frmBusPartnersContainer.ShowModal;
end;

procedure TfrmMain.ShowfrmCostTypesExecute(Sender: TObject);
begin
FormContainer1.CreateShowForm(TfrmCostTypes);
end;

procedure TfrmMain.ShowfrmDocumentExecute(Sender: TObject);
begin
frmDocument.ShowModal;
end;

procedure TfrmMain.ShowfrmGlobalDashboardExecute(Sender: TObject);
begin
frmGlobalDashboard.showmodal;
end;

procedure TfrmMain.ShowfrmItemsExecute(Sender: TObject);
begin
FormContainer1.CreateShowForm(TfrmItem);
end;

procedure TfrmMain.ShowfrmItemsGridExecute(Sender: TObject);
begin
FormContainer1.CreateShowForm(TfrmItemsGrid);
end;

procedure TfrmMain.ShowfrmPrintOptionsExecute(Sender: TObject);
begin
frmPrintOptions.ShowModal;
end;

procedure TfrmMain.ShowfrmProjectContainerExecute(Sender: TObject);
begin
FormContainer1.CreateShowForm(TfrmProjectContainer);
end;

procedure TfrmMain.ShowfrmProjectSelectorExecute(Sender: TObject);
begin
frmProjSelector.showmodal;
end;

procedure TfrmMain.ShowfrmProjManagerExecute(Sender: TObject);
begin
frmProjManager.showmodal;
end;


procedure TfrmMain.ShowfrmSplashscreenExecute(Sender: TObject);
begin
{
frmSplashscreen := frmSplashscreen.Create(self);
try
frmSplashscreen.ShowModal;
finally
frmSplashscreen.Free;
end;
}
end;


end.