asapltda Posted February 23, 2015 Posted February 23, 2015 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 Quote
Administrators Farshad Mohajeri Posted February 28, 2015 Administrators Posted February 28, 2015 You do not need to have uniGUIVars in your uses list. Remove it and your package will compile. Quote
Administrators Farshad Mohajeri Posted February 28, 2015 Administrators Posted February 28, 2015 [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. Quote
asapltda Posted February 28, 2015 Author Posted February 28, 2015 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. Quote
Administrators Farshad Mohajeri Posted February 28, 2015 Administrators Posted February 28, 2015 FORMA555 You must use a Free Form instead of Application Form. Please create a Free Form from uniGUI wizard to see the difference. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.