ttamturk

Ok. Thanks..

Hi Farshad, I wrote a dirty version of InputQuery. procedure InputQuery(ACaption, APrompt, AValue : String; _OnOkClick, _OnCancelClick : TNotifyEvent); var F : TUniForm; Prompt: TUniLabel; Edit : TUniEdit; DialogUnits: TPoint; B1,B2 : TUniButton; ButtonTop, ButtonWidth, ButtonHeight: Integer; const SMsgDlgOK = 'Ok'; SMsgDlgCancel = 'Cancel'; begin F := TUniForm.Create(UniApplication); with F do begin F.Caption := ACaption; F.BorderStyle := bsDialog; DialogUnits := Point(8,8); //F.ClientWidth := MulDiv(180, DialogUnits.X,4); //Not Working //F.ClientHeight := MulDiv(60, DialogUnits.Y,4); //Not Working F.SetBounds(0,0,MulDiv(164, DialogUnits.X,4), MulDiv(70, DialogUnits.Y,4)); //Working Prompt := TUniLabel.Create(F); with Prompt do begin Parent := F; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); end; Edit := TUniEdit.Create(F); with Edit do begin Parent := F; Name := 'ueEdit'; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(140, DialogUnits.X, 4); Text := AValue; end; ButtonTop := Edit.Top + Edit.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TUniButton.Create(F) do begin Parent := F; Caption := SMsgDlgOK; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,ButtonHeight); OnClick := _OnOkClick; end; B2 := TUniButton.Create(F); with B2 do begin Parent := F; Caption := SMsgDlgCancel; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15, ButtonWidth, ButtonHeight); OnClick := _OnCancelClick; //F.Height := B2.Top + B2.Height + 13 + 20; //Not Working end; F.ShowModal; end; end; procedure TMainForm._OkClick(Sender : TObject); var F : TUniForm; E : TUniEdit; begin F := TUniForm(TUniButton(Sender).Owner); E := TUniEdit(F.FindChildControl('ueEdit')); ShowMessage('Value : '+E.Text); end; Question 1: ClientWidht, ClientHeight is not working? Question 2: What is the best way to release F (TUniForm)? Or Is it cleared automaticaly?

Hi Farshad, I tried this code in uniLabel.Caption (txtHTML mode) <a onmouseover="this.style.textDecoration='underline';this.style.color='#0080FF';" onmouseout="this.style.textDecoration='none';this.style.color='#000000';">Geri bildirimde bulun...</a> Everything is fine. Both color and underline is changing on mouse over.. But because it's written in Caption, not readable on design time really. I can apply changing Form.OnCreate may be, but this time, I have to change all nail characters with #39 which is not efficient. Is there a quick and visible way of this. (Some extra htlmText property may be, supporting multiline input editor would be nice); Thanks

Ok. I also use modal Login form for now. Thanks.

Hi, I can see a different style InputQuery parameters in code completion. function InputQuery(const ACaption: string; const APromts: array of string; var AValues: array of string;CloseQueryFunc: TInputCloseQueryFunc = nil): Boolean; When I use this It opens Windows Form InputQuery box.. I need InputQuery in Web. Like MessageDlg web version.. procedure TMainForm._ExitConfirm(AResult:Integer); begin case AResult of mrYes : MainForm.Close; mrNo : ShowMessage('Application continue.'); end; end; procedure TMainForm.Cikis1Click(Sender: TObject); begin MessageDlg('Exit?',mtConfirmation, mbYesNo,_ExitConfirm); end;

Hi Farshad, I searched in demos but, I could not find InputQuery example.. Very simple example? Thanks.

Hi Farshad, It's working for MainFormDisplaymode = mfWindow. I tried when mfPage, It is not working that way. Any suggestion? Plus: In this method It's loading main page with Login form.. This cause longer page loading time. Is It possible first load small login page, and than create main form?

Hi Stefano, I saw ExtJs4.1 demos. Infinite Scrolling is a leap in web application development. I am looking forward too..

Hi Picyka, This is quite exciting code.. As I can read, this code is exporting report as PDF format, am I right? I will try... Thanks

Any sample code?

Hi Farshad, Count me for supporting FMSoft in some way. My company is Enfotek Corp. from Izmir/Turkey. We are developing ERP platform on Windows base. And UniGui is seems the best way for integrate to Web. Tugrul Tamturk

Interesting. I changed only that parameter really!. I do not changed any other parameter? Beginner's misfortune? Anyway, I have the code working at least. I focused on adding new features for now.

Thanks everybody! My first web 32 bit app demo runned with IIS 7.5 64bit Windows 2008 Server! For note for Newbies; After start with ISAPI Module empty project, I realized that I compiled my first application with Standalone Server Mode. I closed Standalone Server mode. Then build as dll and successfully started..

Hi Farshad, Yes my server is 64 bit. 32bit exe allowed. Ok. I will try simplest one.

Hi Dieger, I have already read these documents and double check all of it, It seems there is no missing settings. My Server is Windows 2008 server + IIS 7.5, not Win7, therefore IIS windows installing is different.

I made lots of setup for IIS 7.5 but stil get this error: "HTTP Error 500.0 - Internal Server Error There is a problem with the resource you are looking for, so it cannot be displayed." Result of Microsoft site search, http://support.microsoft.com/kb/943891 > It is said: "500 - Internal server error. IIS 7.0 defines the following HTTP status codes that indicate a more specific cause of a 500 error: 500.0 - Module or ISAPI error occurred." Does It means IIS server does not work? One point that unigui IIS7 documentation does not mention "Default Documentation" which is searching Default.htm, Index.htm etc. in application directory. I add to Default Documantation "myApp.dll". It seems to me right but I am not sure.. Is it correct (missing in documentation) or unnecessary changing? I will start to a project if I could overcome this problem.. please help.. Tugrul

Now I see after examine your demo sources. In any case a newbie fall in same situation like me, I leave redesinged project source lines. Thank you.. {.$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module {$ifndef UNIGUI_VCL} library {$else} program {$endif} IstakipWeb; uses uniGUIISAPI, //<-This is new Forms, ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule}, MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule}, Main in 'Main.pas' {MainForm: TUniForm}; {$R *.res} {$ifndef UNIGUI_VCL} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; {$endif} begin {$ifdef UNIGUI_VCL} Application.Initialize; TUniServerModule.Create(Application); Application.Run; {$endif} end.

Sorry for disturbing you.. But no {$define UNIGUI_VCL} directive in my project. I feel that doing something wrong from begining may be... program IstakipWeb; uses Forms, ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule}, MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule}, Main in 'Main.pas' {MainForm: TUniForm}; {$R *.res} begin Application.Initialize; TUniServerModule.Create(Application); Application.Run; end.

Thank you very much!

Hi, First of all this is newbie question. Sorry If It is basic, simple question. But I am stuck. I compiled my uniGui application in DelphiXE2, Standalone Server mode, running exe server. Call in browser at address "local:8077", running perfectly. No problem at my local pc with exe file.. Yesterday, I try to deploy to a Windwos2008 server with IIS7. Than I realize that deploying part is a DLL not an exe file.. I search forum but I could not find a clue. How can I produce this DLL? Thanks, Tugrul