Jump to content
uniGUI Discussion Forums

asapltda

uniGUI Subscriber
  • Content Count

    227
  • Joined

  • Last visited

  • Days Won

    4

asapltda last won the day on August 25 2016

asapltda had the most liked content!

Community Reputation

9 Neutral

About asapltda

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. asapltda

    TUnimTabPanel+.ActivePage:=XXX Problem

    The problem appears when: the person selects a TUnimTabSheet by pressing the header of the TUnimTabSheet, the button on the selected sheet that uses PageControl1.ActivePage: = tbsNoCode is disabled. ---- The temporary solution is to place a Change event in TUnimTabPanel and it is not necessary to place code you must place a comment for the event to remain,, I think the problem is that TUnimTabPanel is not updated when using the tabsheet header to navigate. Mainm.dfm Mainm.pas TUnimTabPanelPry.res
  2. I have a TUnimTabPanel, with two (2) TUnimTabSheet, I have a button on the TUnimTabSheet1, which performs a process and by code I select the TUnimTabSheet2, using UnimTabPanel1.ActivePage: = TUnimTabSheet2, it works fine. But if I go back to TUnimTabSheet1 and press the button again, the process is executed but TUnimTabSheet2 is not shown, what can I do to solve this. thanks for your help
  3. asapltda

    Maximum size in desktop

    Good morning, is it possible to control the maximum size to deploy of a mobile application when it is displayed on a desktop? Example for mobile is 320 * 480 on desktop is 1080 * 1050 is maximum desired size is 420 * 580 Thank you
  4. asapltda

    MultiDetail List with Unigui Mobile?

    As I simulate the requirement: 1. I have the html unit that receives text parameters and returns html 2. I add the html to the UnimList 1 ---------------------------------------------------------- // RETORNA CADENA EN FORMATO HTML unit HTML_COLOR; interface uses SysUtils ; var w_retorno : boolean; function Get_Html(p_string, p_color:string; P_size:integer):string; // function Get_Html(P_title; p_valor, p_color:string; P_size:integer):string; implementation // http://www.w3schools.com/html/html_colornames.asp // RED , GREEN, AQUA, BLACK, BLUE, YELLOW , ORANGE, ORANGERED , MAGENTA..... // w_s1:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NIT').AsString, 'blue', 2) ; // w_s2:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NOMBRE').AsString , 'black', 3) ; // w_s3T:= HTML_COLOR.Get_Html ('Direccion:', 'blue', 1) ; function Get_Html(p_string, p_color:string; P_size:integer):string; const K_negrita = '<b> %s </b>' ; K_FONT1 = '<font size= "%d" color = " %s" >' ; K_FONT2 = '</font>'; // <font size="6"> This is some text!</font> var w_html :string; begin // NEGRITA if uppercase(p_color) = 'NEGRITAS' then begin w_html := K_negrita ; w_html := format(w_html, [ p_STRING]); result:= w_html ; exit; end; // COLORES HTML w_html := K_FONT1 ; w_html := format(w_html, [P_SIZE, p_color ]); result:= w_html + p_string + K_FONT2 ; end; end. --------------------------------------- 2-----add the html to the UnimList----------- // pedidos = DATASET while not PEDIDOS.Eof DO begin W_STR := 'Pedido ' + PEDIDOS.FieldByName('NOPEDIDO').AsString ; // + '<br>'; w_nopedido := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := ' Ped.Cliente:' + PEDIDOS.FieldByName('PEDIDOCLIENTE').AsString + '<br>'; W_PEDIDOCLIENTE := HTML_COLOR.Get_Html ( W_STR, 'red', 4) ; W_STR := 'Despachar A:' + PEDIDOS.FieldByName('CLIENTESHP').AsString ; w_clienteshp := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := PEDIDOS.FieldByName('DCLIENTESHP').AsString ; W_DCLIENTESHP := HTML_COLOR.Get_Html ( W_STR, 'blue', 2) ; UnimList1.Items.Add(W_STR); PEDIDOS.Next; end; PEDIDOS.Close;
  5. asapltda

    MultiDetail List with Unigui Mobile?

    Hello, can you post an example in delphi + unigui Thank you
  6. asapltda

    MultiDetail List with Unigui Mobile?

    +1 What is TPL? Thank you
  7. asapltda

    How to open a select file dialog?

    Send file to Client ------------------------ procedure TFCONSULTAMOVINVENTARIOS.BTN_DownLoadXLSClick(Sender: TObject); var Uid: TGuid; Result: HResult; W_recurso :string; w_FileName :string; FilesFolderPath:string; TempFolderPath :string; ExtFullPath :string; w_Ruta :string; ExcelName :string; begin ExtFullPath := UniServerModule.ExtFullPath ; // CREATE GUID PARA MANEJO DE ARCHIVO DE DATOS Result := CreateGuid(Uid); CreateGuid(Uid); if Result = 1 then w_FileName:= GuidToString(Uid) ; // ARMAR NOMBRE DE ARCHIVO PARA ENVIA AL FOLDER TEMPORAL // W_recurso := RECURSO.Text; w_FileName:= w_FileName + '.xls' ; w_Ruta := UniServerModule.TempFolderPath + w_FileName ; // CONVERTIR ARCHIVO A EXCEL , SALVARLO TEMPORALMENTE Y CREAR LINK DE DESCARGA uNativeXLSExport.DataSetToXLS(INMOV, w_Ruta ); UniSession.SendFile(w_Ruta , 'MovInventory.xls'); LnkDowlaod.Caption:='<a href="'+ w_Ruta +'" target=new>Click here to download: ( '+' MovInventory.xls'+')</a>'; LnkDowlaod.SetFocus; end;
  8. asapltda

    How to set the service port in a ini file?

    Unit CONFIGURACIONPARMS; interface var G_DBSERVER :string; G_DBNAME :string; G_DATABASE :string; G_USUARIODB :string; // USUARIO COMUN TOMADO DE LA CONFIGURACION G_PASSWDB :string; // tomado de la configuracion G_Usuario :String; g_PassW :string; G_ROLE :string; G_Port :Integer ; g_ExtRoot :string; G_CacheFolder :string; G_Title :string; g_LogoCompania :string; g_LogoLogin :string; g_Theme :string; {} P_USUARIO :STRING; O_CONO :string; O_CLIENTE :string; O_CLIENTESHP :string; Procedure SET_INICIAR_VALORES; implementation Procedure SET_INICIAR_VALORES; Var W_Null:Variant; BEGIN //P_RECURSO :=''; End; END. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ARCHIVO DE CONFIGURACION Configuracion.cfg [user] USUARIO=SERVINETWEB PASSW=SERVINETWEB ROLE=USUARIOS [server] SERVER=192.168.1.115 <-- NO SE USA [Database] DBSERVER=192.168.1.115 DBNAME=127.0.0.1:E:\__DISCO C TOSHIBA\SERVINET_XE10_BERLIN\SERVINETDB-2017.FDB [Logos] LOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_COMPANIA=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN_CDLG=C:\SERVINETWEB\LOGO_CDLG.JPG LOGO_COMPANIA_CDLG =C:\SERVINETWEB\LOGO_CDLG3.JPG [Logos Otros] <-- NO SE USA XLOGO_COMPANIA=C:\SERVINETWEB\Logo_Organizacion_hercules_Compania.jpg XLOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\Logo_Organizacion_hercules_Compania_LOGIN.jpg LOGO_COMPANIA_apix=C:\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN=C:\SERVINETWEB\apix_logo.jpg LOGO_COMPANIA_INTERLLANTAS=logoInterllantas.png LOGO_LOGIN_INTERLLANTAS =logoInterllantas.png [Licencias] LICENCIA1=XXXXXXX LICENCIA2=YYYYYY [serverModule] Port=8077 ExtRootX=C:\SERVINET2014 X2\DELPHIWEB\ext-4.2.2.1144\ CacheFolder=\cache ExtRoot=C:\Program Files (x86)\FMSoft\Framework\uniGUI\ext-4.2.5.1763 Title=SERVINETWEB@LOGISTICASOFT [MAINMODULE] BackGroundPicture=Tortas-de-cumpleanos-vectorizadas.jpg Theme=default Theme_blue=blue Theme_gray_gray Theme_neptune=neptune Theme_access=access IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; **** FIN ARCHIVO DE CONFIGURACION ******** EN SERVER MODULE implementation {$R *.dfm} uses UniGUIVars ,inifiles , CONFIGURACIONPARMS; // <-------- incluye unidad procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin LEER_CONFIGURACION; end; procedure TUniServerModule.LEER_CONFIGURACION; var IniFile : TIniFile; w_F :TextFile; W_CONFIGURACION:string ; W_DIR :string; W_String:string; W_ERROR:STRING; begin FormatSettings.shortdateformat := 'yyyy/MM/dd'; //2008/04/16 FormatSettings.ShortTimeFormat := 'HH:MM'; FormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz'; FormatSettings.DecimalSeparator := '.'; FormatSettings.ThousandSeparator := ','; FormatSettings.dateSeparator := '-'; FormatSettings.timeSeparator := ':'; W_DIR := ExtractFilePath(UniFullPath); W_DIR := UniServerModule.StartPath; W_CONFIGURACION := W_DIR + 'Configuracion.cfg' ; // <------------------------leer configuracion externa TRY IniFile := TIniFile.Create( W_CONFIGURACION ); EXCEPT on E : Exception do begin W_ERROR:= E.Message; end; END; // LEER PARAMETROS CONFIGURACIONPARMS.G_DBSERVER := IniFile.ReadString('Database' , 'DBSERVER', ' ') ; CONFIGURACIONPARMS.G_DBNAME := IniFile.ReadString('Database' , 'DBNAME', ' ') ; CONFIGURACIONPARMS.G_DATABASE := CONFIGURACIONPARMS.G_DBNAME; CONFIGURACIONPARMS.g_USUARIODB := IniFile.ReadString('User' , 'USUARIO', ' ') ; CONFIGURACIONPARMS.g_PASSWDB := IniFile.ReadString('User' , 'PASSW', ' ') ; CONFIGURACIONPARMS.g_ROLE := IniFile.ReadString('User' , 'ROLE', ' ') ; CONFIGURACIONPARMS.g_LogoCompania := IniFile.ReadString('LOGOS' , 'LOGO_COMPANIA', ' ') ; CONFIGURACIONPARMS.g_LogoLogin := IniFile.ReadString('LOGOS' , 'LOGO_LOGIN', ' ') ; CONFIGURACIONPARMS.g_port := StrToInt(IniFile.ReadString('ServerModule' , 'Port', ' ')) ; CONFIGURACIONPARMS.G_ExtRoot := IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; CONFIGURACIONPARMS.G_CacheFolder := IniFile.ReadString('ServerModule' , 'CacheFolder', ' ') ; CONFIGURACIONPARMS.G_TITLE := IniFile.ReadString('ServerModule' , 'Title', ' ') ; CONFIGURACIONPARMS.G_Theme := IniFile.ReadString('ServerModule' , 'g_Theme', ' ') ; // SET PARAMETROS UniServerModule.title := G_TITLE; UniServerModule.title := CONFIGURACIONPARMS.G_TITLE ; UniServerModule.Port := G_PORT; end;
  9. asapltda

    Disabling context menu in UniURLFrame

    Hi, can you give an example of how to use this component (UniPDFFrame) ? Thank you
  10. asapltda

    form in frame

    review this link
  11. asapltda

    Create variable in session in unigui

    use mainmodule
×