Jump to content

erich.wanker

uniGUI Subscriber
  • Posts

    865
  • Joined

  • Last visited

  • Days Won

    28

Posts posted by erich.wanker

  1. OK . got it 🙂

     

    private
        { Private declarations }
        my_unitreeNode : TunitreeNode;

     

    procedure TUniForm.UniTreeMenu1SelectionChange(Sender: TObject);
    begin
      my_unitreeNode:= UniTreeMenu1.Selected;
      if my_unitreeNode.Text = 'Aktuelle News' then
    begin

     

    • Like 1
  2. Hello everyone and thank you for your support.

    I have not been able to solve the problem with safari and give up.

    I will change the logistics in my software - to work around the problem.

    Norm: I want a parent main menu - that is always above any currently visible window.

    I will now create many copies of this main menu to solve the problem.

    Thank you very much
    Eric

  3. hi 🙂 ant thank you for your support

    This doesnt help 

    in the testcase i use  { translateZ(1000px) !important; -webkit-transform: translate3D(0,0,0) !important; transform: translate3D(0,0,0) !important; position: absolute !important;   z-index: 90000 !important;}');

  4. Hi .. i want to give an UniContainerpanel the css ->  z-Index: 900000 !important;

    and it works fine in chrome, edge, firefox, opera ... JUST Apple makes problems... 😞

    (i treid a lot: .hauptmenu { translateZ(1000px) !important; -webkit-transform: translate3D(0,0,0) !important; transform: translate3D(0,0,0) !important; position: absolute !important;   z-index: 90000 !important;}');

    • i made a testcase for this - if someone has a idea how to solve this

     

    The paged Mainform has a UniContainerpanel (as Mainmenu) and a button -> UniForm1.showmodal 

     

    Chrome shows the black UniContainerpanel correct over UniForm1

    chrome_2.jpg.351a38c52aa416ce275eeb45d2379c98.jpg

     

    Safari ignores the css - and put the form over the black UniContainerpanel

    safari_2.jpg.0298ce063d8d9952b31d1e93e537a449.jpg

    if someone has a solution - what would be fine 😉

     

    ThanX

     

    Erich

     

    chrome_1.jpg

    safari_1.jpg

    testcase.zip

  5. can someone translate this to javascript - please 😉

    display_panel = Tuniscrollbox
    toppanel = TUniContainerpanel

     

    procedure TMainForm.display_panelScrollChange(Sender: TComponent; const X,
      Y: Integer);
    begin
    new_y:=y;
    if  old_y  <  new_y then toppanel.top := -125 else toppanel.top :=0;
    old_y:= new_y;
    end;

     

    ..i want to hide header on scroll down, show on scroll up ...

     my delphi code works like i want  .. but my code workes just after a time-delay and that is not nice 😉

     

    ThanX

    Erich

  6. PS.

     

    to install the certificate into Windows Trusted Root Certificates  - i use:

     

     // Add the cert.pem on the Windows Trusted Root Certificates
        cert_pem := Dossier +  'cert.pem';
        Chemin := ExtractFilePath( Application.ExeName ) + 'Data\OpenSSL\export.ps1';
        // prepare the Script
        MyText := TStringlist.create;
        try
          MyText.Add( '$CertificateName = "UNIGUI_All_OS"' );
          MyText.Add( '$Certificate = Get-ChildItem "CERT:\" -Recurse | ' );
          MyText.Add( '    Where-Object {$_.FriendlyName -eq "UNIGUI_All_OS"} ' );
          MyText.Add( 'Export-Certificate -Cert $Certificate -FilePath "'+ ExtractFilePath( Application.ExeName )+'\exportiertes_zertifikat\your_name.cer'+'" ' );
          MyText.SaveToFile( Chemin );
    
        finally
          MyText.Free
        end;
        sleep( 300 );
    
        // Execute the Script
        ch := '/K powershell.exe -executionpolicy bypass -file "' + Chemin + '"';
        Dossier := GetEnvironmentVariable( 'SYSTEMROOT' ) + '\System32';
        ShellExecute( Application.Handle, 'runas', 'cmd.exe', PChar( ch ), PChar( Dossier ), SW_HIDE );

     

    • Like 1
  7. Hi Abaksoft,

     

    Thanx for your PERFECT work .. i tried a lot! of things and found a solution for the Android Problem 😉

    The maion problem is the "-extensions v3_req"

    1. change in delphi:

      //A.2.2  root.pem
      stDays:=intToStr(365 * upYrears.Position);
      param:='req -x509  -days ' + stDays + ' -new -nodes -key root.key -out root.pem -config san.cnf -extensions v3_req';
      ShellExecute(Application.Handle ,PChar('RunAs'),PChar(Fichier),PChar(param),PChar(Dossier),SW_HIDE);
      sleep(300);


      //A.2.3  cert.pem
      param:='req -x509 -nodes -days ' + stDays + ' -newkey rsa:2048 -keyout key.pem -out cert.pem -config san.cnf -extensions v3_req';
      ShellExecute(Application.Handle ,PChar('RunAs'),PChar(Fichier),PChar(param),PChar(Dossier),SW_HIDE);
      sleep(300);

     

    2. change in san.cnf

     

    [req]
    default_bits  = 2048
    distinguished_name = req_distinguished_name
    req_extensions = v3_req
    x509_extensions = v3_req
    prompt = no
    [req_distinguished_name]
    countryName = XX
    stateOrProvinceName = N/A
    localityName = N/A
    organizationName = Self-signed certificate
    commonName = Self-signed certificate
    [req_ext]
    subjectAltName = @alt_names
    [v3_req]
    subjectAltName = @alt_names
    basicConstraints = critical,CA:true
    [alt_names]
    IP.1 =10.0.0.10

    3. Export CA in Windows - and import it as CA in Android

     

    .. Works 🙂

     

     

     

    • Thanks 3
  8. Hi .. has anyone a sample-code how to scroll a uniscrollbox left or right by clicking Unibuttons

    unibutton1.onclick -> should scroll actual position +100px  (if higher whan maximum then maximum)

    unibutton2.onclick -> should scroll actual position -100px (if less 0 then 0)

     

    ThanX for Help 🙂

    Erich

  9. Hi,

    a uniGui App on IIS with Hyperserver does not start the daily task correctly- what i need for importing data every 24 hours 

     

    How i use the UniThreadTimer:

     

    on Servermodule - i have a uniThreadTimer with intervall 2000000  (0,5 hours)

    procedure TUniServerModule.UniThreadTimer1Timer( Sender : TObject );
          
      begin
    
        disconnect_to_my_mysql_database;
    
        connect_to_my_mysql_database;
    
        read_last_sync_date_in_table_settings;
    
        if last_sync_date <> actual_date
        then
    
        begin
    
          UniThreadTimer1.Lock;
    
          ..
          do my things
    
             UniThreadTimer1.unLock;
    
        end;
    
      end;

     

    Any Idea why this not work correctly?

    ThanX for help

    Erich

  10. Hi,

    if i click the checkbox to select ALL in uniDBGrid  (dgCheckSelect and dgMultiselect and dgTitleClick =true)

    following happens:

    1. every row will be select

    2 following procedure will start 

    procedure Tf_Monthly_Report.MydbgridTitleClick(Column: TUniDBGridColumn);
    begin

        my_Fieldname_1 := Column.FieldName;

        if my_Direction_1 = true
        then
          my_Direction_1 := False
        else
          my_Direction_1 := true;

         start_sql;  // order by my_Fieldname_1  - my_Direction_1  represents asc / desc  
    end;

    3. the table will become a new sql statement

    4. the selection is lost

     

    how can i solve this?

     

     

    ThanX 

    Erich

  11. OK .. i made a WorkAround 😉

    procedure Tf_project_main.UniFrameCreate( Sender : TObject );
      begin
           UniContainerpanel.ClientEvents.ExtEvents.Add('OnAfterrender=function OnAfterrender(sender, eOpts)'+
          '{ sender.getEl().dom.addEventListener('+#39+'wheel'+#39+', function(e)  { e.preventDefault();'+
          'ele = document.getElementById('+#39+ unidbmemo1.JSName+'_id-inputEl'+#39+');'+
          'ele.scrollTop += e.deltaY;'+
          '}, false); }' );


     

     

     

    • i have a editlock = TUniContainerPanel
    • i have a UniDBMemo1 = TUniDBMemo

     

    i want to scroll the UniDBMemo1 - if the mouse is over the editlock and the wheel is turning  ...     

    i made this in "editlock" -> clientEvents -> Extevents:

    function afterrender(sender, eOpts)
    {  
        sender.getEl().dom.addEventListener('wheel', function(e) 
        {
        e.preventDefault();
        ele = document.getElementById('O73A_id-inputEl'); 
        ele.scrollTop += e.deltaY;
        }, false);
    }

     

    it works .. 

    ThanX

    Erich

     

     

  12. Hy, i have one server with apache webserver

    in htdocs - i have 2 folders

    • customer1
    • customer2

    in each folder - i have the same application :

    • start.exe  (my app)
    • start.dll   (unigui hyperServer DLL)
    • start.cfg  (see end of my posting)
    • start.ssl.cfg (disabled - Apache handles the thing)
    • and the generated folders for files,cache, log, nodes.inf  and so on

    so every customer can start his own version of the app with the url:  www.domainname.com/customer[x]/start.dll

    It works - BUT:

    if i start the internet address - a lot of  (i think)  "timed out sessions" are starting first and i must click "refresh" 2 or 3 times till i can start a functionary session ..

    (it shows the "terminateTemplate where i can reload the app)   .. as workAround i wrote in terminateTemplate  : <script type="text/javascript">window.location.reload();</script>

     

    i made only one different between the cfg-files (in the different foders)  

    [http_transport] start_port=15005

    • customer1 has the valus 15005
    • customer2 has the value 5005

    Must i change other things to make my special-solution to run stable??

     

    start.cfg:

    [transport]
    pool_size=0
    command_timeout=20000
    request_timeout=300000
    connect_timeout=20000

    [http_transport]
    start_port=15001

    [hyper_server]
    binary_name=start.exe
    initial_nodes=2
    max_nodes=8
    max_sessions=0
    sessions_per_nodes=0
    prompt_login=1
    persistent_node_zero=0
    detailed_log=0
    port=17082
    url_path=
    url_referer=
    ext_root=[ext]\
    uni_mobile_root=[unim]\
    uni_root=[uni]\
    server_root=
    uni_packages_root=[unipack]\
    max_requests=500
    antiflood_per_ip=0
    server_root=
    server_title=
    framework_files_root=
    server_build=1.90.0.1563
    http_max_pool=500
    max_connections=500
    session_one_per_ip=0
    dont_create_backup=0
    allow_remote_config=1
    domain_cookies=0
    token=fil7676hghgh230503101632826

    [node_recycling]
    enabled=0
    recycle_after_secs=3600
    recycle_after_sessions=0
    recycle_after_idle_secs=300
    recycle_when_empty=1
    recycle_after_idle_seconds=0

    [login-0]
    user_name=
    password=!
    admin=1

    [login-1]
    user_name=
    password=
    admin=0

    [login-2]
    user_name=
    password=
    admin=0

    [login-3]
    user_name=
    password=
    admin=0

    [login-4]
    user_name=
    password=
    admin=0

    [login-5]
    user_name=
    password=
    admin=0

    [login-6]
    user_name=
    password=
    admin=0

    [login-7]
    user_name=
    password=
    admin=0

    [login-8]
    user_name=
    password=
    admin=0

    [login-9]
    user_name=
    password=
    admin=0

    [custom_mimes]
    mime_0_ext=
    mime_0_type=
    mime_1_ext=
    mime_1_type=
    mime_2_ext=
    mime_2_type=
    mime_3_ext=
    mime_3_type=
    mime_4_ext=
    mime_4_type=

     

    .exe, application.dll

  13. Hi,

    i have a UniGui App to store Working time and ToDo lists.

     

    i want - if a parameter is added to the starting URL -  my app should start a function (recalc times of one Customer) and sends the result as a json array and close the started node

    without parameter - the app sould start normal ...

    How can i do this?

     

    ThanX

    Erich

     

  14. Hi ..

    if i put a UniDBFormattedNumberEdit1 in your "DB Demo" the format is also incorrect:

     

     

      object UniDBFormattedNumberEdit1: TUniDBFormattedNumberEdit
        Left = 8
        Top = 146
        Width = 159
        Height = 22
        Hint = ''
        FormattedInput.DecimalGroup = 2
        DataField = 'Length_In'
        DataSource = DataSource1
        TabOrder = 21
        DecimalSeparator = ','
        ThousandSeparator = '.'
      end

    issue.jpg

×
×
  • Create New...