Jump to content

albertovesx

uniGUI Subscriber
  • Posts

    598
  • Joined

  • Last visited

  • Days Won

    12

Posts posted by albertovesx

  1. On 2/1/2022 at 2:16 PM, Israel Portillo said:

    Hi Lema.

    Thanks for you awesome component.

    Is there a way to save the UniGMap canvas into a jpg image ?

    Mi goal is to generate the map with polylines then save it in a jpg file for future views of the same map to watch the image a not to make another query to google maps api...?

    thanks again.

     

     

    source: https://stackoverflow.com/questions/43068738/get-static-image-from-google-map-for-given-area

     

    https://maps.googleapis.com/maps/api/staticmap?size=600x400&markers=icon%3Ahttp%3A%2F%2Fwww.google.com%2Fmapfiles%2Farrow.png|41.39479%2C2.148768&visible=41.320004%2C2.069526|41.469576%2C2.22801&key=yourapikeyhere

  2. procedure delScreenMask()
    begin
    
      unisession.AddJS('document.querySelectorAll("div.x-mask").forEach(e => { if (e.style["background-color"] == "transparent") e.remove()})');
    
    end;
    
    frmbuscar.showmodal(
      procedure(sender: Tcomponent; res: integer)
      begin
        delScreenMask();
      end
    );
    • Like 1
  3. Hi, I made this procedure and just call it after showmodal in order to remove the screenmask that remains active, but transparent. It works fine, but the browser needs to be upgrated to recent version.


     

    procedure delScreenMask()
    begin
    
      unisession.AddJS('document.querySelectorAll("div.x-mask").forEach(e => { if (e.style["background-color"] == "transparent") e.remove()})');
    
    end;
    frmbuscar.showmodal(
      procedure(sender: Tcomponent; res: integer)
      begin
        delScreenMask();
      end
    );

     

  4. Can someone tell me why this code generate an exception?

    image.png.8b7d04dd217b5bd788b0c3ef07601dbb.png

    I can´t call components stored in unimainmodule.

    Ttask.run(
      procedure
      begin
         unimainmodule.Query.open;
      end
      );

    or

    Ttask.run(
      procedure
      begin
        TThread.Queue(nil,
        procedure
        begin
          uniMainModule.Query.open;
        end
        );
      end
      );

    Best regards.

  5. Hi

    I am having some issues with unimDBgrid. This are the properties for the grid:

    Buffered Store{
    
      Enabled: True;
    
      LoadingBufferZone: 200;
    
      PageSize: 100:
    
    }
    
    WebOptions{
    
      FetchAll: False;
    
    Paged: False;
    
    PageSize: 10;
    
    }

    I make a query like this in UniDAc query:

    Sql.Text := 'select * from nacimiento limit 1000';

    The grid keep a mask over dbgrid with loading message (cargando in spanish)

    image.png.72af3d399f919888de94cd7b2aede482.png

     

    I verified the answer for the get transaction and it has100  records, so it worked well, but they never are shown in dbgrid because loading mask never finish

    image.png.ef3a3892591c8ff8044740a15bcc8f4b.png

×
×
  • Create New...