UniGUIVars' cannot be put into a package

[asapltda]

Hello, I try to develop a TEDIT component that calls one way, but it seems you can not do, there way?

 

see message compilation using delphi xe2

 

[DCC Error] E2223 $DENYPACKAGEUNIT 'UniGUIVars' cannot be put into a package

 

 

Checking project dependencies...

Compiling UNIGUICLIENTES.dproj (Debug, Win32)

brcc32 command line for "UNIGUICLIENTES.vrc"

  c:\program files (x86)\embarcadero\rad studio\9.0\bin\cgrc.exe -c65001 "UNIGUICLIENTES.vrc" -foUNIGUICLIENTES.res 

dcc command line for "UNIGUICLIENTES.dpk"

  c:\program files (x86)\embarcadero\rad studio\9.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.bpl 

  -AGenerics.Collections=System.Generics.Collections;Generics.Defaults=System.Generics.Defaults;WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;

  DbiProcs=BDE;DbiErrs=BDE -DDEBUG -E.\Win32\Debug -I"C:\DELPHI UNIGUI PRUEBAS\PRUEBAEDITCONBOTON";"C:\SERVINET2014 X2\DELPHIWEB";"c:\program files 

  (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\Users\CRAMIREZ\Documents\RAD Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad 

  studio\9.0\Imports";"C:\Users\Public\Documents\RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\9.0\include";"C:\Program Files 

  (x86)\SqlDir\D16";"C:\SERVINET2014 X2\DELPHI\SMCOMPONETS\SOURCES";"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505";"C:\Program Files 

  (x86)\FastReports\FastReport 5\LibD16";"C:\Program Files (x86)\FMSoft\Framework\uniGUI";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\uIndy";

  "C:\Program Files (x86)\FMSoft\Framework\uniGUI\ExtPascal";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\CSSParser";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\SynEdit\Source";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\Dcu\Delphi2012";"C:\Program Files 

  (x86)\FMSoft\Framework\uniTools";"C:\Program Files (x86)\FMSoft\Framework\uniTools\Dcu\Delphi2012" -LE"C:\SERVINET2014 X2\DELPHIWEB" 

  -LN"C:\SERVINET2014 X2\DELPHIWEB" -N0.\Win32\Debug -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;

  Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell; -O"C:\DELPHI UNIGUI PRUEBAS\PRUEBAEDITCONBOTON";"C:\SERVINET2014 X2\DELPHIWEB";"c:\program 

  files (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\Users\CRAMIREZ\Documents\RAD Studio\9.0\Imports";"c:\program files 

  (x86)\embarcadero\rad studio\9.0\Imports";"C:\Users\Public\Documents\RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\9.0\include";

  "C:\Program Files (x86)\SqlDir\D16";"C:\SERVINET2014 X2\DELPHI\SMCOMPONETS\SOURCES";"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505";

  "C:\Program Files (x86)\FastReports\FastReport 5\LibD16";"C:\Program Files (x86)\FMSoft\Framework\uniGUI";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\uIndy";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\ExtPascal";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\CSSParser";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\SynEdit\Source";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\Dcu\Delphi2012";"C:\Program Files (x86)\FMSoft\Framework\uniTools";"C:\Program Files 

  (x86)\FMSoft\Framework\uniTools\Dcu\Delphi2012" -R"C:\DELPHI UNIGUI PRUEBAS\PRUEBAEDITCONBOTON";"C:\SERVINET2014 X2\DELPHIWEB";"c:\program files 

  (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\Users\CRAMIREZ\Documents\RAD Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad 

  studio\9.0\Imports";"C:\Users\Public\Documents\RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\9.0\include";"C:\Program Files 

  (x86)\SqlDir\D16";"C:\SERVINET2014 X2\DELPHI\SMCOMPONETS\SOURCES";"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505";"C:\Program Files 

  (x86)\FastReports\FastReport 5\LibD16";"C:\Program Files (x86)\FMSoft\Framework\uniGUI";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\uIndy";

  "C:\Program Files (x86)\FMSoft\Framework\uniGUI\ExtPascal";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\CSSParser";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\SynEdit\Source";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\Dcu\Delphi2012";"C:\Program Files 

  (x86)\FMSoft\Framework\uniTools";"C:\Program Files (x86)\FMSoft\Framework\uniTools\Dcu\Delphi2012" -U"C:\DELPHI UNIGUI PRUEBAS\PRUEBAEDITCONBOTON";

  "C:\SERVINET2014 X2\DELPHIWEB";"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\Users\CRAMIREZ\Documents\RAD 

  Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad studio\9.0\Imports";"C:\Users\Public\Documents\RAD Studio\9.0\Dcp";"c:\program files 

  (x86)\embarcadero\rad studio\9.0\include";"C:\Program Files (x86)\SqlDir\D16";"C:\SERVINET2014 X2\DELPHI\SMCOMPONETS\SOURCES";"C:\Program Files 

  (x86)\Embarcadero\RAD Studio\9.0\Quickrep505";"C:\Program Files (x86)\FastReports\FastReport 5\LibD16";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\uIndy";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\ExtPascal";

  "C:\Program Files (x86)\FMSoft\Framework\uniGUI\CSSParser";"C:\Program Files (x86)\FMSoft\Framework\uniGUI\SynEdit\Source";"C:\Program Files 

  (x86)\FMSoft\Framework\uniGUI\Dcu\Delphi2012";"C:\Program Files (x86)\FMSoft\Framework\uniTools";"C:\Program Files 

  (x86)\FMSoft\Framework\uniTools\Dcu\Delphi2012" -V -VN --description:UNIGUICLIENTES -JL -NB"C:\SERVINET2014 X2\DELPHIWEB" 

  -NH"C:\Users\Public\Documents\RAD Studio\9.0\hpp" -NO"C:\SERVINET2014 X2\DELPHIWEB"   UNIGUICLIENTES.dpk   

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'FORMA555' implicitly imported into package 'UNIGUICLIENTES'

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'MainModule' implicitly imported into package 'UNIGUICLIENTES'

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'ServerModule' implicitly imported into package 'UNIGUICLIENTES'

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'UniGUIVars' implicitly imported into package 'UNIGUICLIENTES'

[DCC Error] E2223 $DENYPACKAGEUNIT 'UniGUIVars' cannot be put into a package

Failed

Elapsed time: 00:00:00.8

 

[Farshad Mohajeri]

You do not need to have uniGUIVars in your uses list. Remove it and your package will compile.

[Farshad Mohajeri]

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'MainModule' implicitly imported into package 'UNIGUICLIENTES'

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'ServerModule' implicitly imported into package 'UNIGUICLIENTES'

[DCC Warning] UNIGUICLIENTES.dpk(52): W1033 Unit 'UniGUIVars' implicitly imported into package 'UNIGUICLIENTES'

 

These units are for a server project and should not be included in a package.

[asapltda]

Hi Farshad, tks 

I try an edit component. call a form.

A tedit components can call a form?

 

 

Please see the following source code (model another user unigui)

 

unit UniButtonEdit;

 

interface

uses SysUtils,Classes,uniGuiTypes, uniGUIClasses, UniEdit, Dialogs

 ;

 

type

   TIconCls = (action, add, arrow_up, arrow_right, arrow_down, arrow_left, bookmarks, compose, delete, download, favorites, info, more, refresh, reply, search, settings, star, team, time, trash, user);

 

Type

  TUniButtonEdit = class(TUniEdit)

  private

    FOnButtonClick: TNotifyEvent;

    FIconCls: String;

    procedure SetIconCls(const Value: String);

    function GetTriggerCls: String;

  protected

    procedure DOHandleEvent(EventName: string; Params: TUniStrings); override;

    procedure ConfigJSClasses(ALoading: Boolean); override;

    procedure LoadCompleted; override;

  public

    constructor Create(AOwner:TComponent); override;

  published

 

      property OnButtonClick:TNotifyEvent read FOnButtonClick write FOnButtonClick;

      property IconCls:String read FIconCls write SetIconCls;

      property triggerCls:String read GetTriggerCls;

 

 

  End;

 

procedure Register;

 

implementation

   uses FORMA555 ;

 

 

procedure Register;

begin

  RegisterComponents('uniGUI Custom', [TUniButtonEdit]);

end;

 

{ TUniButtonEdit }

 

function TUniButtonEdit.GetTriggerCls: String;

begin

 if FIconCls<>'' then

 Result:='x-form-'+FIconCls+'-trigger'

 else

 Result:='';

end;

 

 

procedure TUniButtonEdit.ConfigJSClasses(ALoading: Boolean);

begin

  inherited;

  JSObjects.DefaultJSClassName:='Ext.form.TriggerField';

end;

 

constructor TUniButtonEdit.Create(AOwner: TComponent);

begin

  inherited;

 FIconCls:='search';

end;

 

 

procedure TUniButtonEdit.DOHandleEvent(EventName: string; Params: TUniStrings);

begin

if (EventName='buttonclick') then begin

   text:= 'xxxxxxx';  //cramriez

    FORMA555:= TFORMA555.create(SELF);

    FORMA555.show;

  if Assigned(FOnButtonClick) then

    FOnButtonClick(Self);

  show

end;

 

 inherited;

 

end;

 

procedure TUniButtonEdit.LoadCompleted;

begin

  inherited;

 

if WebMode then

begin

 if FIconCls<>'' then

 JSCode('triggerCls:"'+triggerCls+'"');

 JSCode('hideTrigger:false');

 JSAfterCreate(JSName+'.onTriggerClick=function(){ajaxRequest('+JSName+',"buttonclick",[]);};');

 

end;

end;

 

 

 

procedure TUniButtonEdit.SetIconCls(const Value: String);

begin

  FIconCls := Value;

end;

 

 

end.

 

 

[Farshad Mohajeri]

FORMA555

 

 

You must use a Free Form instead of Application Form.

 

Please create a Free Form from uniGUI wizard to see the difference.