asapltda

Example in code --------------------- procedure TFPRUEBA.UnimEdit1Exit(Sender: TObject); begin WITH Sender AS TUnimEdit do begin UnimEdit2.SetFocus ; UnimEdit2.SelectAll; end; end; procedure TFPRUEBA.UnimEdit2Exit(Sender: TObject); begin WITH Sender AS TUnimEdit do begin UnimEdit3.SetFocus ; UnimEdit3.SelectAll; end; procedure TFPRUEBA.UnimEdit3Exit(Sender: TObject); begin WITH Sender AS TUnimEdit do begin UnimEdit3.SetFocus ; UnimEdit3.SelectAll; end; procedure TFPRUEBA.UnimEdit4Exit(Sender: TObject); begin WITH Sender AS TUnimEdit do begin UnimButton1.SetFocus ; end; ------------------------ Using the go or enter key in the movil phone does not advance to the next tunimedit, the setfocus intruction does not position the cursor in the following tunimedit, in a windows 7 browser the tab works the enter does not work

The problem is that it is needed in a mobile application, which has 4 tunimedit, when the enter or go key is pressed, the cursor jumps to the next tunimedit so that you do not have to select the field manually What can be done to change the jump automatically between tunimedit? Something similar to the setfocus of a desktop application tks gracias por su aportes al la solucion del problema

Hello for mobile I need to use the enter as a tab, someone has an example? Thank you

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

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

+1

+1

tks

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

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;

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

+1 What is TPL? Thank you

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;

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;