Jump to content

ttamturk

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    234

  • Joined

  • Last visited

  • Days Won

    4

 Content Type 

Posts posted by ttamturk

    InputQuery code sample

    in General

    Posted

    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?

    UniLabel Change Font Color

    in General

    Posted

    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

    InputQuery code sample

    in General

    Posted

    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;

    Someone can give me a LoginDemo

    in General

    Posted

    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?

    Evaluation

    in General

    Posted

    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

    Evaluation

    in General

    Posted

    It is not within scope of uniGUI so it doesn't provide a reporting tools. You can successfully integrate any reporting tool with uniGUI. I personally use Fast reports with success.

     

    Any sample code?

    Evaluation

    in General

    Posted

    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

    IIS 7.5 HTTP Error 500.0 - Internal Server Error There is a problem with the resource you are looking for, so it cannot be displayed.

    in General

    Posted

     

    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.

    IIS 7.5 HTTP Error 500.0 - Internal Server Error There is a problem with the resource you are looking for, so it cannot be displayed.

    in General

    Posted

    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

    exe to dll. Deploying IIS7. Am I missing something?

    in General

    Posted

    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.

    exe to dll. Deploying IIS7. Am I missing something?

    in General

    Posted

    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.

    exe to dll. Deploying IIS7. Am I missing something?

    in General

    Posted

    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

×
×
  • Create New...