Jump to content

Alessandro

uniGUI Subscriber
  • Posts

    104
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Alessandro

  1. Hello everyone!

    I'm trying to use the keyPress DBEdit, but is not working.

    In a DBEdit, I have to create a formula (using parser.pas), but want the user to only enter numbers and some specific letters, the formula.

    I tried to do the following below, but is not working.

     


    procedure TForm.UniDBEdit1KeyPress(Sender: TObject; var Key: Char);

    begin                            //                    +     -    *    /    ^    [    ]    (    )

       if not (Key in ['0'..'9','Q','P','V', 'L','D', 'M', #43, #45, #42, #47, #94,#91, #93, #40, #41, #8]) then begin

          key := 0; <-- error char vs string

          //Key := chr('0'); <-- dont work

       end;

    end;


     

    When the letter that is not present in the function, it is accept by the procedure and allows inclusion in Edit.

    Can anyone help?

    Thanks.

     

     

  2. [sOLVED]


    I had put the code in the Main Module.

    I wrote the code in the MainForm and is now ok.

    Thank you.

    -----------------------------------------------------------------------------


     

    Hello everyone.

    I follow the example above, but I can not build the my project.

    I opened the ClientInfo Demo and perfect works.

    I did the entire procedure in my project, but not working.

    I forgot to declare somewhere some unit?

     

    XE5, uniGUI Version:0.95.0 build 1046

     

    Code:


    procedure TMainForm.UniFormActivate(Sender: TObject);

    var C : TUniClientInfoRec;

    begin

      UniLabel7.Caption:=UniApplication.RemoteAddress;

      C:=UniApplication.ClientInfoRec; <----- PROBLEM: undeclared idenifier.

      UniLabel6.Caption:=C.BrowserType;

      UniLabel4.Caption:=IntToStr(C.BrowserVersion);

      UniLabel5.Caption:=C.OSType;

    end;


     

    Thanks.

  3. Hi Alessandro

     

    First thing you need to do is change some codes in your css.

     

    Change

    .tooltip span {
    ; position: absolute;
    }
    

    to

    .tooltip span {
    
     display:none;
    }
    

    and add

    display:inline;
    

    into " .tooltip:hover span "

     

    after add this code in UniLabel's Caption (I copied from the website you add)

    Classic<span class="classic">This is just an example of what you can do using a CSS tooltip, feel free to get creative and produce your own!</span>
    

    and change UniLabel's TextConversion properties to txtHTML.

     

    Last thing you gonna do is add this code bellow in your FormCreate event

    procedure TMainForm.UniFormCreate(Sender: TObject);
    begin
     UniSession.AddJS(UniLabel1.JSName+'.addCls("tooltip");');
    end;
    
    

    But you can only use UniLabel Component for this. It doesn't fit other components.

     

     

    Bugra Yener Sahinoglu, Thank you, it worked perfect!
  4. procedure TUniMainModule.MyFrxDownload(frxReport: TfrxReport);

    var

       fn:String;

       FormUrlView1: TFm_Rel;

    begin

       fn:= 'R-' + FormatDateTime('hhmmss.zzz', Now()) +'.pdf'; 

       frxReport.PrintOptions.ShowDialog := False;

       frxReport.ShowProgress:=false;

       frxReport.PrintOptions.ShowDialog:=false;

       frxReport.EngineOptions.SilentMode:=True;

       frxPDFExport.Background:=True;

       frxPDFExport.ShowProgress:=False;

       frxPDFExport.ShowDialog:=False;

       frxPDFExport.FileName := UniServerModule.LocalCachePath + fn;

     

       frxPDFExport.DefaultPath := '';

     

       frxReport.PrepareReport(); 

       frxReport.Export(frxPDFExport); 

     

       UniSession.SendFile(UniServerModule.LocalCachePath + fn, fn);

     

     

          FormUrlView1 := TFm_Rel.Create(UniApplication);

          FormUrlView1.uniURLFrame1.URL := UniServerModule.LocalCacheURL + fn;

          FormUrlView1.Show;

    end;
  5.  
    Hello everybody, I would like to know how to work with CSS.
    What I do:
    Place a Hint customized as per attached.
     
    I have the following CSS code, which for all I know, we put in SeverModule.
     
    .tooltip {
    border-bottom: 1px dotted #000000; color: #000000; outline: none; cursor: help; text-decoration: none;
    position: relative;
    }
    .tooltip span {
    position: absolute;
    }
    .tooltip:hover span {
    border-radius: 5px 5px; -moz-border-radius: 5px; -webkit-border-radius: 5px; 
    box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.1); -webkit-box-shadow: 5px 5px rgba(0, 0, 0, 0.1); -moz-box-shadow: 5px 5px rgba(0, 0, 0, 0.1);
    font-family: Calibri, Tahoma, Geneva, sans-serif;
    position: absolute; left: 1em; top: 2em; z-index: 99;
    margin-left: 0; width: 250px;
    }
    .tooltip:hover img {
    border: 0; margin: -10px 0 0 -55px; float: left; position: absolute;
    }
    .tooltip:hover em {
    font-family: Candara, Tahoma, Geneva, sans-serif; font-size: 1.2em; font-weight: bold;
    display: block; padding: 0.2em 0 0.6em 0;
    }
    .classic { padding: 0.8em 1em; }
    .custom { padding: 0.5em 0.8em 0.8em 2em; }
    * html a:hover { background: transparent; }
    .classic {background: #FFFFAA; border: 1px solid #FFAD33; }
    .critical { background: #FFCCAA; border: 1px solid #FF3334; }
    .help { background: #9FDAEE; border: 1px solid #2BB0D7; }
    .info { background: #9FDAEE; border: 1px solid #2BB0D7; }
    .warning { background: #FFFFAA; border: 1px solid #FFAD33; }
     
     
    Now, how to make my UniLabel1 to show you the hint as the attached?
     
    Grateful for the help
     
     
     
    ================================================
     
     
    COMO TRABALHAR COM CSS?
    Olá pessoal, eu gostaria de saber como trabalhar com o CSS.
    O que quero fazer:
    Colocar um Hint personalizado conforme a figura em anexo.
     
    Eu tenho o Código CSS a seguir, que pelo que sei, nós colocamos no SeverModule.
     
     
    Agora, como fazer com que meu UniLabel1 mostre para o usuário o hint como a figura em anexo?
     
    Grato pela ajuda
     

     

    Fonte: http://sixrevisions.com/css/css-only-tooltips/

    post-2783-0-93545800-1447437811_thumb.png

  6. Hello guys!
    Does anyone have an example to sources, even if simples,  how to work with frames?
    If yes, it would be possible provide me?
    Thanks
    ---------------------------------------------
     
    Olá pessoal!
    Alguém tem um exemplo com fontes, mesmo que simples, de como trabalhar com Frames?
    Se sim, seria possível me disponibilizar?
    Obrigado

     

  7. Hi!
    I created a report generator FastReport in my system.
    When show (PDF) file, appears in another browser tab.
    Its ok.
    It turns out that when the generator creates the report, the file is saved in "UniServerModule.LocalCachePath" site server.
    I want the report generator to create the file and save this on the local machine of the client, perhaps in a specified folder (I create) or in the customer's own cache folders.
    How to do this? Thank you.
     
     
    -----------------------------------
     
     
    Olá! 
    Eu criei um gerador de relatórios em FastReport para meu sistema.
    Quando mando visualizar o arquivo (PDF), aparece em uma outra aba do browser.
    Até aí tudo certo.
    Acontece que, quando o gerador cria o relatório, o arquivo é salvo no local UniServerModule.LocalCachePath, servidor.
    Eu quero que quando o gerador do relatório criar o arquivo, este salve na maquina local do cliente, talvez numa pasta específica (que eu mande criar) ou nas pastas cache do próprio cliente.
    Como fazer isso? Obrigado.

     


  8. What I see is this:

    When I run the application on the server, it consumes very little memory.

    Once the first user accesses the system, the memory consumption goes to 150Mb, and for each user who accesses the system it adds plus 150Mb.

    10 users logged into the system, my memory consumption reaches 1GB!

    And even after the user closes the browser, consumption does not decrease.

    How do I solve this problem?

    Thank you.

  9. Good afternoon.
     
    Before, in Delphi 7 for desktop I created the forms at runtime with the following command:
     
    if Fm_Client  = nil then
       Fm_Client: = TFm_Client.Create (Application);
    Fm_Client.ShowModal;
     
    And to close the form I released the memory with the command:
     
    Fm_Client: = nil;
     
    How to do this same procedure in uniGUI?
    I tried to do and XE5 did not accept the command.
    Just like the previous Delphi, I create forms at runtime.
     
    Tks, see ya later.
     
    -------------------------------------
     
    Boa tarde.
     
    Galera, antes, no Delphi 7 para desktop eu criava os formulários em tempo de execução com o seguinte comando:
     
    if Fm_Client  = Nil then
       Fm_Client := TFm_Client.Create(Application);
    Fm_Client.ShowModal;
     
    E ao fechar o formulário eu liberava da memória com o comando:
     
    Fm_Client := nil;
     
    Como fazer esse mesmo procedimento no uniGUI?
    Eu tentei fazer e o XE5 não aceitou o comando.
    Assim como o delphi anterior, quero criar os formulários em tempo de execução.
     
    Obrigado, até mais.

     

×
×
  • Create New...