Jump to content

Marlon Nardi

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    611

  • Joined

  • Last visited

  • Days Won

    69

 Content Type 

Posts posted by Marlon Nardi

    Falcon Store - Components Delphi - https://store.falconsistemas.com.br

    in Third Party Components

    Posted

    News :cool:

    All components are compatible with the Delphi 11.1 Alexandria and latest version ExtJS 7.4 - uniGUI v1.90.0.1560 ;)

    https://store.falconsistemas.com.br

    • Added Triggers property support in TUniFSEdit;
    • Added support for removing password strength bar in TUniFSEdit;
      image.png.c5780f181a7a7d5c1fa0a89b47e44ddf.png
    • Added support to confirm modal with Enter in TUniFSConfirm;
    • Added support for using native uniGUI keys in TUniFSMap;
    • Like 1

    Falcon Store - Components Delphi - https://store.falconsistemas.com.br

    in Third Party Components

    Posted

    1.    I want to display two lines, one below the other, and my text is 'One 
    or more fields have been changed.'+#13#10+'Do you wish to cancel the 
    change(s)?'. However, TUniFSConfirm is not doing so. Please see attached 
    screenshot. How do I get this to work? 
     
    So that you have line breaks, replace '+#13#10+' with </br>
     
     
    2.    I want the user to be able to press the ESCAPE key to close the 
    dialogue box. However, when I press the ESCAPE key, the control simply 
    shakes. The property for EscapeKey is set to True. How do I get this to 
    work? 
     
    I simulated it here and it's really not working, let's fix it now.
     
    3.    How do I focus to the No button by default so that when the user 
    presses the Enter key, that button is selected? 
     
    I get it, this feature is interesting, it has not yet been implemented.
     
    4.    I want the control to always pop up from the centre of the screen and 
    not from the left to right. How do I do this?
     
    I didn't understand this question, all popups appear centered.
     
    Thanks in advance for your feedback.

    Falcon Store - Components Delphi - https://store.falconsistemas.com.br

    in Third Party Components

    Posted

    News :cool:

    All components are compatible with the Delphi 11.0 Alexandria and latest version ExtJS 7.4 - uniGUI v1.90.0.1558 ;)

    https://store.falconsistemas.com.br

    • Updated project ThemCrystal (in folder UniFalcon -> Demos -> FSThemeCrystal );
    • Added news styles of Themes
    • Added news features in google maps (route, polygons, heat map) and other minor fixes
    • Added Support for CallBack in TUniFSToast
    • New component UniFSHighCharts (in testing phase)

      Sample: https://themecrystal.falconsistemas.com.br/

    image.thumb.png.cfbed602749c86e6950853e4b6e359e4.png

    • Like 1

    use a Hitamp plugin on the UniMap

    in General

    Posted

    If interested:
    https://store.falconsistemas.com.br 

    Example of an application using the heatmap from the UniFSMap maps component (UniFalcon)

    image.thumb.png.8bdfffdeabbb3b33f794fc8bdf1fc901.png

     

    Code example for this application:

    in the first block the polygons are created
    in the second block the heatmap is created based on the points (Lat, Lng)

      

    procedure TfrmModManejoPainel.CarregaHMEspecies(ID_FAZENDA, ID_SAFRA, ID_CULTURA,
  ID_TALHAO, ID_ESPECIE: Integer; DAT_INI, DAT_FIM: TDate);
var
  Polygon: TPolygon;
  PointHeatMap: TPointHeatMap;
  ListTalhaoPolygon: TObjectList<TTalhaoPolygon>;
  TalhaoPolygons: TTalhaoPolygons;

  PontoReferencias: TPontoReferencias;
  LstLatLng: TObjectList<TLatLng>;
  vI: Integer;
begin
  TalhaoPolygons := TTalhaoPolygons.Create(dmBanco.Conexao);
  ListTalhaoPolygon := TalhaoPolygons.GetListTalhao(ID_FAZENDA,0);
  try
    for vI := 0 to ListTalhaoPolygon.Count-1 do
    begin
      Polygon := TPolygon.Create;
      Polygon.Id := ListTalhaoPolygon[vI].ID_TALHAO_POLYGON;
      Polygon.Paths := ListTalhaoPolygon[vI].POLYGON;
      Polygon.StrokeColor := '#014FA1';
      Polygon.strokeOpacity := '0.5';
      Polygon.strokeWeight := 2;
      Polygon.fillColor := '#014FA1';
      Polygon.fillOpacity := '0.1';

      map.AddPolygon(Polygon);
    end;
  finally
    FreeAndNil(TalhaoPolygons);
    FreeAndNil(ListTalhaoPolygon);
  end;

  PontoReferencias := TPontoReferencias.Create(dmBanco.Conexao);
  LstLatLng := PontoReferencias.GetListPontosEspecietLng(ID_FAZENDA, ID_SAFRA, ID_CULTURA, ID_TALHAO, ID_ESPECIE, DAT_INI, DAT_FIM);
  try
    for vI := 0 to LstLatLng.Count -1 do
    begin
      PointHeatMap := TPointHeatMap.Create;
      PointHeatMap.Lat := LstLatLng.Items[vI].Lat;
      PointHeatMap.Lng := LstLatLng.Items[vI].Lng;

      map.AddPointHeatMap(PointHeatMap);
    end;

    map.ShowHeatMap;
    map.SetOpacityHeatMap(1);
  finally
    FreeAndNil(PontoReferencias);
    FreeAndNil(LstLatLng);
  end;
end;

     

     

     

    • Like 1

    How To Get URL Parameters As-Is?

    in General

    Posted

    There are several ways, the simplest I use is the following:

    in ServerModule -> OnHTTPCommand

    Sample: 

    procedure TUniServerModule.UniGUIServerModuleHTTPCommand(
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
var
  vParams: string;
  vI: Integer;
begin
    for vI := 0 to ARequestInfo.Params.Count - 1 do
    begin
        if vI = 0 then
        vParams := '?' + ARequestInfo.Params[vI]
        else
        vParams := vParams + '&' + ARequestInfo.Params[vI]
    end;
end;

     

    • Like 1

    Font changed when published

    in General

    Posted

    3 hours ago, wjjw said:

    Hello again,

    main question was why "some" font not showing correctly.
    In specific the new standard font from Delphi 11 - "Segoe UI". The Delphi 10 standard font "Tahoma" is still looking fine.
    Can you confirm that this font "Segoe UI" is shown correctly on your uniGUI projects?

    /Werner

    Yes the fonts are being displayed correctly.

    In the latest version of Delphi (11 Alexandria):
    https://docwiki.embarcadero.com/RADStudio/Alexandria/en/What's_New 
    image.png.9c9d124dd75f339d24bb1a614d2de194.png

    Changed the default font to Segoe UI, ie all fields in your system where you have not defined a font (be it the default font) The Delphi IDE will change everything to Segoe UI.

    If your browser is not displaying the font correctly, you probably don't have this font on your machine. So one of the solutions is to load your font as I mentioned before without depending on the local font.

    Delphi 11 and uniGUI 1.90.1552
    https://store.falconsistemas.com.br 
    image.thumb.png.1859e56dcd7fbead8f7d98f788a2a772.png

    What operating system are you using, on this machine where the fonts are diverging?

    Font changed when published

    in General

    Posted

    2 hours ago, wilton_rad said:

    Could you share how you use google fonts? 

    use in TUniServerModule.UniGUIServerModuleBeforeInit

Sample:

UniAddCSSLibrary('https://fonts.googleapis.com/css?family=Roboto', True, [upoAsync, upoPlatformBoth]);

     

×
×
  • Create New...