Search the Community

hello I use delphi7 made a printed ocx, use is MachRep print components. In del2010 in unigui registered in use, I'm in the machine operation can be invoked ocx print, can display the print preview interface, but in another client computers can't call out ocx print preview. And in clients' calls, has been waiting for the state. I put this ocx file copy to the client, use regsvr32.exe Registered, also can't use.exe print preview. function TUniMainModule.webprint(sfilename:widestring):integer; var olePrint:TWebPrintActiveFormX; begin sfilename:=UniServerModule.StartPath+'Report\222.rmf'; olePrint :=TWebPrintActiveFormX.Create(self); olePrint.webPrint(sfilename); end;

Message from: "Antonio G. Gutierrez" Thanks, everything works beautifully "Farshad Mohajeri" escribió en el mensaje news:Q0CSQDt8LHA.1984@anaxagvs227... > In unit MainModule.pas add the following: > > procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); > begin > Theme:=UniServerModule.CurrentTheme; > end; > > "Antonio G. Gutierrez" wrote in message > news:eLt7lbs8LHA.1984@anaxagvs227... >> Hola, gracias por tu interés, a continuación te pongo el código que no me >> funciona para cambiar el Theme..el primero es el Uniserver y después el >> evento onclick para cambiar dicho theme. >> >> unit ServerModule; >> >> interface >> >> uses >> SysUtils, UniGUIServer, UniGUIMainModule; >> >> type >> TUniServerModule = class(TUniGUIServerModule) >> procedure UniGUIServerModuleCreate(Sender: TObject); >> private >> { Private declarations } >> protected >> procedure FirstInit; override; >> public >> { Public declarations } >> CurrentTheme : string; >> end; >> >> function UniServerModule: TUniServerModule; >> >> implementation >> >> {$R *.dfm} >> >> uses >> UniGUIVars; >> >> function UniServerModule: TUniServerModule; >> begin >> Result:=TUniServerModule(UniGUIServerInstance); >> end; >> >> procedure TUniServerModule.FirstInit; >> begin >> InitServerModule(Self); >> end; >> >> procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); >> begin >> >> UniServerModule.ServerRoot:=GetCurrentDir; >> UniServerModule.ExtRoot:=GetCurrentDir+'\ext-3.3.0'; >> >> >> end; >> >> initialization >> RegisterServerModuleClass(TUniServerModule); >> end. >> >> >> Now Onclick event. >> >> procedure TMainForm.bcambiartemaClick(Sender: TObject); >> begin >> >> UniServerModule.Lock; >> try >> UniServerModule.CurrentTheme:='classic'; >> finally >> UniServerModule.UnLock; >> end; >> TUniGUIApplication(UniApplication).Restart; >> >> >> >> >> end; >> >> >> >> >> >> >> >> >> >> "Farshad Mohajeri" escribió en el mensaje >> news:hCS6EJJ8LHA.3976@anaxagvs227... >>> If you've replicated same code in demo it should work. Can you paste >>> your code here? >>> >>> "Antonio G. Gutierrez" wrote in message >>> news:QujFJXD8LHA.3976@anaxagvs227... >>>> Greetings, I tried to change the Theme to choose their means by the >>>> user, so I follow the demo and megademo fishfact and not make the >>>> change .. any suggestions? >>>> >>> >>> >> >> > > .

Message from: "Farshad Mohajeri" In unit MainModule.pas add the following: procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); begin Theme:=UniServerModule.CurrentTheme; end; "Antonio G. Gutierrez" wrote in message news:eLt7lbs8LHA.1984@anaxagvs227... > Hola, gracias por tu interés, a continuación te pongo el código que no me > funciona para cambiar el Theme..el primero es el Uniserver y después el > evento onclick para cambiar dicho theme. > > unit ServerModule; > > interface > > uses > SysUtils, UniGUIServer, UniGUIMainModule; > > type > TUniServerModule = class(TUniGUIServerModule) > procedure UniGUIServerModuleCreate(Sender: TObject); > private > { Private declarations } > protected > procedure FirstInit; override; > public > { Public declarations } > CurrentTheme : string; > end; > > function UniServerModule: TUniServerModule; > > implementation > > {$R *.dfm} > > uses > UniGUIVars; > > function UniServerModule: TUniServerModule; > begin > Result:=TUniServerModule(UniGUIServerInstance); > end; > > procedure TUniServerModule.FirstInit; > begin > InitServerModule(Self); > end; > > procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); > begin > > UniServerModule.ServerRoot:=GetCurrentDir; > UniServerModule.ExtRoot:=GetCurrentDir+'\ext-3.3.0'; > > > end; > > initialization > RegisterServerModuleClass(TUniServerModule); > end. > > > Now Onclick event. > > procedure TMainForm.bcambiartemaClick(Sender: TObject); > begin > > UniServerModule.Lock; > try > UniServerModule.CurrentTheme:='classic'; > finally > UniServerModule.UnLock; > end; > TUniGUIApplication(UniApplication).Restart; > > > > > end; > > > > > > > > > > "Farshad Mohajeri" escribió en el mensaje > news:hCS6EJJ8LHA.3976@anaxagvs227... >> If you've replicated same code in demo it should work. Can you paste your >> code here? >> >> "Antonio G. Gutierrez" wrote in message >> news:QujFJXD8LHA.3976@anaxagvs227... >>> Greetings, I tried to change the Theme to choose their means by the >>> user, so I follow the demo and megademo fishfact and not make the change >>> .. any suggestions? >>> >> >> > > .

Message from: "Antonio G. Gutierrez" Hola, gracias por tu interés, a continuación te pongo el código que no me funciona para cambiar el Theme..el primero es el Uniserver y después el evento onclick para cambiar dicho theme. unit ServerModule; interface uses SysUtils, UniGUIServer, UniGUIMainModule; type TUniServerModule = class(TUniGUIServerModule) procedure UniGUIServerModuleCreate(Sender: TObject); private { Private declarations } protected procedure FirstInit; override; public { Public declarations } CurrentTheme : string; end; function UniServerModule: TUniServerModule; implementation {$R *.dfm} uses UniGUIVars; function UniServerModule: TUniServerModule; begin Result:=TUniServerModule(UniGUIServerInstance); end; procedure TUniServerModule.FirstInit; begin InitServerModule(Self); end; procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin UniServerModule.ServerRoot:=GetCurrentDir; UniServerModule.ExtRoot:=GetCurrentDir+'\ext-3.3.0'; end; initialization RegisterServerModuleClass(TUniServerModule); end. Now Onclick event. procedure TMainForm.bcambiartemaClick(Sender: TObject); begin UniServerModule.Lock; try UniServerModule.CurrentTheme:='classic'; finally UniServerModule.UnLock; end; TUniGUIApplication(UniApplication).Restart; end; "Farshad Mohajeri" escribió en el mensaje news:hCS6EJJ8LHA.3976@anaxagvs227... > If you've replicated same code in demo it should work. Can you paste your > code here? > > "Antonio G. Gutierrez" wrote in message > news:QujFJXD8LHA.3976@anaxagvs227... >> Greetings, I tried to change the Theme to choose their means by the user, >> so I follow the demo and megademo fishfact and not make the change .. any >> suggestions? >> > > .

Message from: "Sergio" Farshad Mohajeri wrote: > > "Sergio" wrote in message > news:1QT$d8eyLHA.2164@anaxagvs227... > > Hi Farshad, first post here, so first of all, GREAT work, a dream > > for many of us out here! Count on my licence for sure. > > > > I have read out there you can compile the final web app into a Kylix > > linux executable (from the delphi windows IDE) and then use it at a > > linux server, but haven't tried it my self. > > > > Have a look here: http://crosskylix.untergrund.net/ > > > > Hi Sergio, > > Thanks for your post. > > UniGUI apps are normal Windows apps that will run under Linux using > WINE library. As far as I know Crosskylix is not in active > development and I'm not sure if it is compatible with unigui and > recent Delphi versions. > > If we consider cross platform it will be FPC and Lazarus in future. > > > Not the place, but have you pondered the possibility of purchasing a > > OEM license of ExtJS for uniGUI? > > > > Well, I did, but Ext JS people seems to be interested in ean OEM > agreement with big parties who guarantee selling many copies of Ext > JS licenses. I will contact them again to see if we can include an > OEM license of Ext JS. > > > This way you can offer to flavours: unigui without ExtJS licencse > > (the one you plan to offer) or a boundle of unigui + ExtJS license > > that allows me to use it in non GPL commercial apps. > > Sure it is too soon now to think of it, but if you ever plan to get an OEM licencse and need to have a list of people interested before even contacting them again, you can count on at least one of those mixed licenses for me, and if you ask around, may be more people will be interested on that. .

Message from: "Farshad Mohajeri" "Sergio" wrote in message news:1QT$d8eyLHA.2164@anaxagvs227... > Hi Farshad, first post here, so first of all, GREAT work, a dream for > many of us out here! Count on my licence for sure. > > I have read out there you can compile the final web app into a Kylix > linux executable (from the delphi windows IDE) and then use it at a > linux server, but haven't tried it my self. > > Have a look here: http://crosskylix.untergrund.net/ > Hi Sergio, Thanks for your post. UniGUI apps are normal Windows apps that will run under Linux using WINE library. As far as I know Crosskylix is not in active development and I'm not sure if it is compatible with unigui and recent Delphi versions. If we consider cross platform it will be FPC and Lazarus in future. > Not the place, but have you pondered the possibility of purchasing a > OEM license of ExtJS for uniGUI? > Well, I did, but Ext JS people seems to be interested in ean OEM agreement with big parties who guarantee selling many copies of Ext JS licenses. I will contact them again to see if we can include an OEM license of Ext JS. > This way you can offer to flavours: unigui without ExtJS licencse (the > one you plan to offer) or a boundle of unigui + ExtJS license that > allows me to use it in non GPL commercial apps. > .

Message from: "Sergio" Hi Farshad, first post here, so first of all, GREAT work, a dream for many of us out here! Count on my licence for sure. I have read out there you can compile the final web app into a Kylix linux executable (from the delphi windows IDE) and then use it at a linux server, but haven't tried it my self. Have a look here: http://crosskylix.untergrund.net/ Not the place, but have you pondered the possibility of purchasing a OEM license of ExtJS for uniGUI? This way you can offer to flavours: unigui without ExtJS licencse (the one you plan to offer) or a boundle of unigui + ExtJS license that allows me to use it in non GPL commercial apps. Regards, Sergio. Farshad Mohajeri wrote: > > "rap" wrote in message > news:LYZs4jklLHA.2080@anaxagvs227... > > Any chance we could have uniGUI deployed on a Unix/Linux server no > > ISAPI module ? Thanks > > The only chance is using WINE under a Linux VPS. > > Linux VPS with good price. > http://www.cloudnext.com/virtual-servers/ .

Message from: "zilav" I=E2=80=99ve made a small demo for you, but perhaps Farshad can advise a = better way. "LDiaz" = =D1=81=D0=BE=D0=BE=D0=B1=D1=89=D0=B8=D0=BB(=D0=B0) =D0=B2 = =D0=BD=D0=BE=D0=B2=D0=BE=D1=81=D1=82=D1=8F=D1=85 = =D1=81=D0=BB=D0=B5=D0=B4=D1=83=D1=8E=D1=89=D0=B5=D0=B5:E2WrmcFyLHA.2160@a= naxagvs227... You should not write any code after a call to ShowModal and instead = handle=20 it in OnClose event How I do this?. I try in onClose event this code: TExpPerCalendario(Self.Owner).QuerySol.Refresh; But get a exception. Forgive my ignorance

You should not write any code after a call to ShowModal and instead handle it in OnClose event How I do this?. I try in onClose event this code: TExpPerCalendario(Self.Owner).QuerySol.Refresh; But get a exception. Forgive class="hps">my ignorance

Message from: "Farshad Mohajeri" Try this: procedure TMainForm.UniFormCreate(Sender: TObject); var M : TUniScreenMask; begin M:=TUniScreenMask.Create(Self); M.AttachedControl:=UniButton1; M.DisplayMessage:='My Message'; end; "Javi" wrote in message news:TvATQU%23qLHA.2316@anaxagvs227... >I have tried this: > > ///////////////////////////////////////////////// > type > TMainForm = class(TUniForm) > ..... > public > UniScreen:TUniScreenMask; > end; > > // NOT WORK > procedure TMainForm.UniFormCreate(Sender: TObject); > begin > UniScreen := TUniScreenMask.Create(UniApplication); > UniScreen.DisplayMessage := 'hola holita'; > UniSCreen.AttachedControl := UniButton1; > UniScreen.Enabled := True; > end; > > // NOT WORK > procedure TMainForm.Procedimiento(Sender: TObject); > begin > UniScreen := TUniScreenMask.Create(UniApplication); > UniScreen.DisplayMessage := 'hola holita'; > UniSCreen.AttachedControl := UniButton1; > UniScreen.Enabled := True; > end; > /////////////////////////////////////////////////// > > But this does not work. I have also tried this: > > ///////////////////////////////////////////////// > type > TMainForm = class(TUniForm) > UniScreenMask1:TUniScreenMask; > end; > > // WORK !!! > procedure TMainForm.UniFormCreate(Sender: TObject); > begin > UniScreenMask1.AttachedControl := UniButton1; > end; > > // NOT WORK > procedure TMainForm.Procedimiento(Sender: TObject); > begin > UniScreenMask1.AttachedControl := UniButton1; > end; > /////////////////////////////////////////////////// > > I think the TUniScreenMask component, it only works if it is created at > design time. And it is configured in the creation of form (at the latest) > Is this true? Is it a bug? > > -- > NNTP.hk - (^(oo)^) > http://www.nntp.hk/web/ > .

Message from: "Harry Rogers" Hi Is there a means to determine the dimensions of the browser window ? I wanted to reposition a form in the browser centre at certain points in the app. I tried to capture the initial form position so I could at least restore that - but a call to Self.left, top, width, Height always return 0 when called in the onShow for the main form Best regards -- .

Message from: "Farshad Mohajeri" "Harry Rogers" wrote in message news:L2FeFovXLHA.2996@anaxagvs227... > Hi > > Is there a means to determine the dimensions of the browser window ? > I wanted to reposition a form in the browser centre at certain points > in the app. I will look at possiblities to implement this. If I recall correctly, Ext JS can return browser window size. > I tried to capture the initial form position so I could at least > restore that - but a call to Self.left, top, width, Height always > return 0 when called in the onShow for the main form Thanks for reporting. Logged. .

Message from: "Harry Rogers" Hi Hugely impressed with this !... A couple of questions 1. Was wondering what is the difference between the 'Application Form' and the 'Form' when using the File | New | Other | uniGui option from the IDE. 2. What is the mechanism (if any ?)to dynamicly create multiple instances of a form ? e.g. this fails procedure TMainForm.UniButton1Click(Sender: TObject); var aform : TUniform1 begin aform := Tuniform.create( self ); aform.show; end; Best regards Harry Rogers -- .

Message from: "Jaider" how to protect some areas of grid from being edited ??? ............... Farshad Mohajeri wrote: > > "Jaider" > > how to create an object at run-time ??? > > Next version 0.71.0 will include a Demo for this. > > I can give you a brief example here: > > // Please note that in uniGUI we use "This" instead of "Self". > with TUniEdit(InsertControl(TUniEdit.Create(This))) do > begin > Left:=10; > Top:=40; > Text:='Text'; > end; > > with TUniButton(InsertControl(TUniButton.Create(This))) do > begin > Left:=10; > Top:=65; > Caption:='Button'; > end; > > with TUniLabel(InsertControl(TUniLabel.Create(This))) do > begin > Left:=10; > Top:=90; > Caption:='Label'; > end; > > with TUniMemo(InsertControl(TUniMemo.Create(This))) do > begin > Left:=10; > Top:=105; > Height:=100; > Width:=150; > Text:='Memo Text'; > end; .

Message from: "Farshad Mohajeri" "Jaider" > how to create an object at run-time ??? Next version 0.71.0 will include a Demo for this. I can give you a brief example here: // Please note that in uniGUI we use "This" instead of "Self". with TUniEdit(InsertControl(TUniEdit.Create(This))) do begin Left:=10; Top:=40; Text:='Text'; end; with TUniButton(InsertControl(TUniButton.Create(This))) do begin Left:=10; Top:=65; Caption:='Button'; end; with TUniLabel(InsertControl(TUniLabel.Create(This))) do begin Left:=10; Top:=90; Caption:='Label'; end; with TUniMemo(InsertControl(TUniMemo.Create(This))) do begin Left:=10; Top:=105; Height:=100; Width:=150; Text:='Memo Text'; end; .