From hfiandor en ceniai.inf.cu Sat Jun 3 19:23:36 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Sat, 3 Jun 2017 13:23:36 -0400 Subject: [Lazarus-es] quitar setfocus Message-ID: Colegas: Hace algún tiempo un colega me enseñó como quitar el SetFocus que aparece en un botón sobre un form, pero parece que perdí su email. Tengo un botón que en el Form.show toma el foco. Cuando oprimo, hace algo, y ahí es donde yo quiero que no muestre que tiene foco. Agradezco la ayuda. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From alfonsoariaslemas en gmail.com Sat Jun 3 21:22:19 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Sat, 3 Jun 2017 18:22:19 -0100 Subject: [Lazarus-es] quitar setfocus In-Reply-To: References: Message-ID: <000901d2dc9e$b9121840$2b3648c0$@gmail.com> Podrias usar TSpeedButton . De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] Em nome de hfiandor via Lazarus-es Enviada: 3 de junho de 2017 16:24 Para: lazarus-es en lists.lazarus-ide.org Cc: hfiandor Assunto: [Lazarus-es] quitar setfocus Colegas: Hace algún tiempo un colega me enseñó como quitar el SetFocus que aparece en un botón sobre un form, pero parece que perdí su email. Tengo un botón que en el Form.show toma el foco. Cuando oprimo, hace algo, y ahí es donde yo quiero que no muestre que tiene foco. Agradezco la ayuda. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Tue Jun 6 01:10:46 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Mon, 5 Jun 2017 19:10:46 -0400 Subject: [Lazarus-es] unfree blocks Message-ID: Estimados colegas: Estoy haciendo una aplicación nueva y habilité la opción para conocer como andan los unfree blocks en el Heap. Me dice que tengo 7 unfree blocks y me da sus direcciones en forma para mi no comprensible. Agradezco cualquier ayuda para saber que tengo que hacer free para que quede limpio. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From maximiliano.duarte en gmail.com Thu Jun 8 17:16:33 2017 From: maximiliano.duarte en gmail.com (Maxi) Date: Thu, 8 Jun 2017 12:16:33 -0300 Subject: [Lazarus-es] quitar setfocus In-Reply-To: <000901d2dc9e$b9121840$2b3648c0$@gmail.com> References: <000901d2dc9e$b9121840$2b3648c0$@gmail.com> Message-ID: la propiedad default=false hace que el enter no presione el boton. Foco tienen todos los controles. El 3 de junio de 2017, 16:22, Alfonso Arias Lemas via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Podrias usar TSpeedButton…. > > > > > > *De:* Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] *Em > nome de *hfiandor via Lazarus-es > *Enviada:* 3 de junho de 2017 16:24 > *Para:* lazarus-es en lists.lazarus-ide.org > *Cc:* hfiandor > *Assunto:* [Lazarus-es] quitar setfocus > > > > Colegas: > > > > Hace algún tiempo un colega me enseñó como quitar el SetFocus que aparece > en un botón sobre un form, pero parece que perdí su email. > > > > Tengo un botón que en el Form.show toma el foco. Cuando oprimo, hace algo, > y ahí es donde yo quiero que no muestre que tiene foco. > > > > Agradezco la ayuda. > > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Fri Jun 9 16:56:48 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Fri, 9 Jun 2017 10:56:48 -0400 Subject: [Lazarus-es] actualizar un form con datos importados Message-ID: Estimados colegas: Tengo una aplicación nueva, donde he puesto un PageControl con varios tabSheets. Cada tabsheet está asociado a una tabla distinta. En cada uno de ellos he puesto un botón para "Importar". El procedure correspondiente abre un fichero .csv donde hay información para cada campo de la tabla correspondiente. Esta operación parece que la hace bien. Tengo otro botón para "Ver informe", que hace un Reporte con los datos de la tabla. Parece que lo hace bien. Sin embargo: En cada tabsheet tengo una barra de navegacion asociada a la tabla correspondiente. Despues de Importar, y ver que la tabla tiene la información, al moverme con Last de la barra de Navegacion, veo que no ha incluido en el Form lo que se Importó. He dado mil vueltas y no lo logro. Qué hice: Abro un Mensaje de confirmación preguntando "Debe Salir para incorporar lo Importado. Desea ....", y al oprimir "Si" se cierra el Form, va para la unit "Salir" (se cierra la aplicación) y el operario debe comenzar de nuevo, y entonces aparece lo que se había Importado y todo correcto. Si alguien conoce una rutina mejor que esta, que funciona pero me parece un poco troglodita, le voy a agradecer que me enseñe. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From fredyg1965 en gmail.com Fri Jun 9 17:08:35 2017 From: fredyg1965 en gmail.com (Fredy Gonzales) Date: Fri, 9 Jun 2017 10:08:35 -0500 Subject: [Lazarus-es] actualizar un form con datos importados In-Reply-To: References: Message-ID: Disculpa pero por lo que entiendo, dentro del tabsheet poner un form? El 9/6/2017 09:56, "hfiandor via Lazarus-es" < lazarus-es en lists.lazarus-ide.org> escribió: > Estimados colegas: > > Tengo una aplicación nueva, donde he puesto un PageControl con varios > tabSheets. Cada tabsheet está asociado a una tabla distinta. > > En cada uno de ellos he puesto un botón para "Importar". > > El procedure correspondiente abre un fichero .csv donde hay información > para cada campo de la tabla correspondiente. > > Esta operación parece que la hace bien. > > Tengo otro botón para "Ver informe", que hace un Reporte con los datos de > la tabla. > > Parece que lo hace bien. > > Sin embargo: > > En cada tabsheet tengo una barra de navegacion asociada a la tabla > correspondiente. > > Despues de Importar, y ver que la tabla tiene la información, > > al moverme con Last de la barra de Navegacion, veo que no ha incluido en > el Form lo que se Importó. > > He dado mil vueltas y no lo logro. > > Qué hice: > > Abro un Mensaje de confirmación preguntando "Debe Salir para incorporar lo > Importado. Desea ....", y al oprimir "Si" > > se cierra el Form, va para la unit "Salir" (se cierra la aplicación) y el > operario debe comenzar de nuevo, > > y entonces aparece lo que se había Importado y todo correcto. > > > > Si alguien conoce una rutina mejor que esta, que funciona pero me parece > un poco troglodita, le voy a agradecer que me enseñe. > > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From nattcho en gmail.com Sat Jun 10 00:18:58 2017 From: nattcho en gmail.com (Ignacio Flores) Date: Fri, 9 Jun 2017 17:18:58 -0500 Subject: [Lazarus-es] Web Service Client Message-ID: <00fa01d2e16e$64960090$2dc201b0$@gmail.com> Hola, Alguien ha utilizado Lazarus para web services?, que componentes? Quisiera ver si alguien ya hizo algo para sincronizar una db con prestahop o vtiger. Saludos y gracias e antemano. From mmgomez en gmail.com Fri Jun 16 22:11:00 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Fri, 16 Jun 2017 17:11:00 -0300 Subject: [Lazarus-es] actualizar un form con datos importados In-Reply-To: References: Message-ID: Estimado Hector Yo te sugeriría que en tu rutina de importación pongas tabla.BeginUpdate; {importacion de datos} tabla.EndUpdate; con eso logras que los cambios sucedan de forma "desconectada" de los controles visuales. Como segunda alternativa, no te estará faltando un transaction.Commit al final? Recuerda que SQLdb crea transacciones automáticas, las pidas o no. (eso Delphi no lo hacía así) 2017-06-09 11:56 GMT-03:00 hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > Estimados colegas: > > Tengo una aplicación nueva, donde he puesto un PageControl con varios > tabSheets. Cada tabsheet está asociado a una tabla distinta. > > En cada uno de ellos he puesto un botón para "Importar". > > El procedure correspondiente abre un fichero .csv donde hay información > para cada campo de la tabla correspondiente. > > Esta operación parece que la hace bien. > > Tengo otro botón para "Ver informe", que hace un Reporte con los datos de > la tabla. > > Parece que lo hace bien. > > Sin embargo: > > En cada tabsheet tengo una barra de navegacion asociada a la tabla > correspondiente. > > Despues de Importar, y ver que la tabla tiene la información, > > al moverme con Last de la barra de Navegacion, veo que no ha incluido en > el Form lo que se Importó. > > He dado mil vueltas y no lo logro. > > Qué hice: > > Abro un Mensaje de confirmación preguntando "Debe Salir para incorporar lo > Importado. Desea ....", y al oprimir "Si" > > se cierra el Form, va para la unit "Salir" (se cierra la aplicación) y el > operario debe comenzar de nuevo, > > y entonces aparece lo que se había Importado y todo correcto. > > > > Si alguien conoce una rutina mejor que esta, que funciona pero me parece > un poco troglodita, le voy a agradecer que me enseñe. > > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Fri Jun 16 22:14:33 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Fri, 16 Jun 2017 17:14:33 -0300 Subject: [Lazarus-es] Web Service Client In-Reply-To: <00fa01d2e16e$64960090$2dc201b0$@gmail.com> References: <00fa01d2e16e$64960090$2dc201b0$@gmail.com> Message-ID: 2017-06-09 19:18 GMT-03:00 Ignacio Flores via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > Hola, > Alguien ha utilizado Lazarus para web services?, que componentes? > Quisiera ver si alguien ya hizo algo para sincronizar una db con prestahop > o vtiger. > Saludos y gracias e antemano. > ​Hay una herramienta que escribe código Lazarus a partir de un archivo (o URL) WSDL Luego solo debes utilizar las clases generadas. http://wiki.freepascal.org/Web_Service_Toolkit -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From alfonsoariaslemas en gmail.com Wed Jun 21 12:11:56 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Wed, 21 Jun 2017 09:11:56 -0100 Subject: [Lazarus-es] =?iso-8859-1?q?_Abrir_una_URL_=28pagina_de_interner?= =?iso-8859-1?q?=29_dentro_de_un_formul=E1rio=2E?= Message-ID: <000001d2ea76$d1a074c0$74e15e40$@gmail.com> Buenos días Fórum. ¿Existe algún componente o un ejemplo en la Web que me muestre como poder abrir una página web/sitio dentro de un formulario? He intentado con algunos componentes mas consigo. Saludos, Alfonso ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Thu Jun 22 01:30:33 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Wed, 21 Jun 2017 19:30:33 -0400 Subject: [Lazarus-es] try...except Message-ID: Estimados listeros: Tengo en un procedure lo siguiente: try if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false; fdm.tProSerNeg1.FileName:=camino_BD + '\Clasificadores.db'; if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true; Log('ProSerNeg1 está activa.'); except Log('Error en activar ProSerNeg1.'); On E :Exception do begin ShowMessage(E.Message); end; end; Deseo conocer cuál es el error. Cuando trato de compilar, me dice que “On not found..” o algo parecido. Leí una página web sobre Try except y no me dice mucho más que esto. Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal el error handling. Les agradecería alguna ayuda para aprender y salir del apuro. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From iv.mesa.prg en gmail.com Thu Jun 22 07:44:27 2017 From: iv.mesa.prg en gmail.com (=?UTF-8?B?SXbDoW4g?=) Date: Thu, 22 Jun 2017 07:44:27 +0200 Subject: [Lazarus-es] try...except In-Reply-To: References: Message-ID: Hola Héctor Creo que entre el except y el on... No puedes meter nada. Abrazos. Pd tengo tarea pendiente contigo El 22 jun. 2017 1:30, "hfiandor via Lazarus-es" < lazarus-es en lists.lazarus-ide.org> escribió: > Estimados listeros: > > > > Tengo en un procedure lo siguiente: > > try > > if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false; > > fdm.tProSerNeg1.FileName:=camino_BD + '\Clasificadores.db'; > > if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true; > > Log('ProSerNeg1 está activa.'); > > except > > Log('Error en activar ProSerNeg1.'); > > On E :Exception do > > begin ShowMessage(E.Message); end; > > end; > > > > Deseo conocer cuál es el error. > > > > Cuando trato de compilar, me dice que “On not found..” o algo parecido. > > > > Leí una página web sobre Try…except y no me dice mucho más que esto. > > > > Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal > el error handling. > > > > Les agradecería alguna ayuda para aprender y salir del apuro. > > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jcuello en artextrading.com Thu Jun 22 07:51:59 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Thu, 22 Jun 2017 07:51:59 +0200 (CEST) Subject: [Lazarus-es] try...except In-Reply-To: References: Message-ID: <1540639491.2991.1498110719241.JavaMail.zimbra@artextrading.com> Prueba con try except on E: Exception do begin Log('Error en activar ProSerNeg1.'); ShowMessage(E.Message); end; end; De: "Spanish version of Lazarus List" Para: "Spanish version of Lazarus List" CC: "hfiandor" Enviados: Jueves, 22 de Junio 2017 1:30:33 Asunto: [Lazarus-es] try...except Estimados listeros: Tengo en un procedure lo siguiente: try if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false; fdm.tProSerNeg1.FileName:=camino_BD + '\Clasificadores.db'; if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true; Log('ProSerNeg1 está activa.'); except Log('Error en activar ProSerNeg1.'); On E :Exception do begin ShowMessage(E.Message); end; end; Deseo conocer cuál es el error. Cuando trato de compilar, me dice que “On not found..” o algo parecido. Leí una página web sobre Try…except y no me dice mucho más que esto. Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal el error handling. Les agradecería alguna ayuda para aprender y salir del apuro. Saludos Ing. Héctor F. Fiandor Rosario _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Thu Jun 22 07:53:50 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Thu, 22 Jun 2017 00:53:50 -0500 Subject: [Lazarus-es] try...except In-Reply-To: References: Message-ID: En Wed, 21 Jun 2017 18:30:33 -0500, hfiandor via Lazarus-es escribió: > > Estimados listeros: > > > Tengo en un procedure lo siguiente: > > try > > if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false; > > fdm.tProSerNeg1.FileName:=camino_BD + '\Clasificadores.db'; > > if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true; > > Log('ProSerNeg1 está activa.'); > > except > > Log('Error en activar ProSerNeg1.'); > > On E :Exception do > > begin ShowMessage(E.Message); end; > > end; > > > Deseo conocer cuál es el error. > > > Cuando trato de compilar, me dice que “On not found..” o algo parecido. > > > Leí una página web sobre Try…except y no me dice mucho más que esto. > > > Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal > el error handling. > > > Les agradecería alguna ayuda para aprender y salir del apuro. > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > Hola Héctor, primero que nada recibe un cordial saludo. Según la sintaxis declarada en esta página: https://www.freepascal.org/docs-html/ref/refse113.html lo que va entre un except ... end; puede ser solamente una de tres cosas: 1. Nada (... que puede incluir, claro esta, comentarios o líneas en blanco) 2. Una lista de instrucciones que no sean del tipo On E:Exception do ... ó 3. Una lista de instrucciones del tipo On E:Exception do ... Pero no puedes tener una lista de instrucciones mezclando los del tipo 2 y 3 que es justamente lo que has hecho en tu ejemplo y por eso el compilador se queja. Para solucionarlo en lugar de: except Log('Error en activar ProSerNeg1.'); On E :Exception do begin ShowMessage(E.Message); end; end; Intenta esto: except On E :Exception do begin Log('Error en activar ProSerNeg1.'); ShowMessage(E.Message); end; end; saludos. Jesus Reyes A. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Thu Jun 22 15:04:23 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Thu, 22 Jun 2017 08:04:23 -0500 Subject: [Lazarus-es] try...except In-Reply-To: References: Message-ID: Estimado Reyes: Ante t.odo, le devuelvo mis saludos y mis mejores deseos para usted y su familia. Como siempre, su respuesta es una lección. Ahora mismo voy a cambiar las instrucciones. Un millón de gracias a todos. Saludos Hfiandor ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From gaston.dalloglio en gmail.com Thu Jun 22 14:03:31 2017 From: gaston.dalloglio en gmail.com (=?UTF-8?Q?Gast=C3=B3n_Dall=27_Oglio?=) Date: Thu, 22 Jun 2017 09:03:31 -0300 Subject: [Lazarus-es] try...except In-Reply-To: References: Message-ID: Buen día a todos. Muy interesate Jesus la página a la que apuntas. Por lo que veo en la gramática, existiría una forma de mezclar instrucciones del tipo 3 y luego 2, que seria colocando primero los handlers de los tipos de excepciones, y al final un "else" con instrucciones, que se ejecutarían si el tipo de la excepción no coincidio con ninguno de los handlers anteriores. No conocía esa alternativa, que parece ser muy útil. Saludos, que tengan buen día. El 22 de junio de 2017, 10:04, hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Estimado Reyes: > > > > Ante t.odo, le devuelvo mis saludos y mis mejores deseos para usted y su > familia. > > > > Como siempre, su respuesta es una lección. Ahora mismo voy a cambiar las > instrucciones. > > > > Un millón de gracias a todos. > > > > Saludos > > Hfiandor > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Thu Jun 22 17:01:23 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 22 Jun 2017 11:01:23 -0400 Subject: [Lazarus-es] Como visualizar las existencia en un grid Message-ID: Llevo varios días tratando de visualizar las existencias en un grid y por más que doy para atrás y para delante no doy pie con bola. Alguien ha logrado hacer esto utilizando un MenDataset? Como podría lograrlo? Aquí les paso un pequeño ejemplo de lo que quiero hacer. Quiero que al moverme por el grid y llegue a la columna de la cantidad me sume a las existencias la cantidad y cuando salga de la columna me reste la cantidad. El grid es editable, ósea debe permitir agregar datos y cambiarle los valores de la algunas columnas, dentro de ellas la de la cantidad. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, memds, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, StdCtrls, db, Grids; type { TForm1 } TForm1 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; Edit1: TEdit; MemDataset1: TMemDataset; procedure DBGrid1SelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl); procedure FormCreate(Sender: TObject); procedure MemDataset1BeforeScroll(DataSet: TDataSet); private { private declarations } icol: longint; public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin DataSource1.DataSet:=MemDataset1; DBGrid1.DataSource:=DataSource1; MemDataset1.FieldDefs.Add('codigo', ftString, 12); MemDataset1.FieldDefs.Add('cod', ftString, 4); MemDataset1.FieldDefs.Add('elemusd', ftString, 7); MemDataset1.FieldDefs.Add('elemmn', ftString, 7); MemDataset1.FieldDefs.Add('cantidad', ftFloat); MemDataset1.FieldDefs.Add('saldo2', ftFloat); MemDataset1.FieldDefs.Add('saldo1', ftFloat); MemDataset1.FieldDefs.Add('exist', ftFloat); MemDataset1.Open; DBGrid1.Columns.Items[0].Title.Caption := 'Código'; DBGrid1.Columns.Items[0].Width:=115; DBGrid1.Columns.Items[0].ReadOnly:=true; DBGrid1.Columns.Items[1].Title.Caption := 'Cod'; DBGrid1.Columns.Items[1].Title.Alignment:=taCenter; DBGrid1.Columns.Items[1].Alignment:=taCenter; DBGrid1.Columns.Items[1].Width:=58; DBGrid1.Columns.Items[1].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[2].Title.Caption := 'Elem CUC'; DBGrid1.Columns.Items[2].Title.Alignment:=taCenter; DBGrid1.Columns.Items[2].Alignment:=taCenter; DBGrid1.Columns.Items[2].Width:=72; DBGrid1.Columns.Items[2].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[3].Title.Caption := 'Elem CUP'; DBGrid1.Columns.Items[3].Title.Alignment:=taCenter; DBGrid1.Columns.Items[3].Alignment:=taCenter; DBGrid1.Columns.Items[3].Width:=72; DBGrid1.Columns.Items[3].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[4].Title.Caption := 'Cantidad'; DBGrid1.Columns.Items[4].Title.Alignment:=taCenter; DBGrid1.Columns.Items[4].Alignment:=taRightJustify; DBGrid1.Columns.Items[4].Width:=90; DBGrid1.Columns.Items[4].DisplayFormat:='###0.000'; DBGrid1.Columns.Items[5].Title.Caption := 'Valor CUC'; DBGrid1.Columns.Items[5].Title.Alignment:=taCenter; DBGrid1.Columns.Items[5].Alignment:=taRightJustify; DBGrid1.Columns.Items[5].Width:=90; DBGrid1.Columns.Items[5].DisplayFormat:='###0.00'; DBGrid1.Columns.Items[6].Title.Caption := 'Valor CUP'; DBGrid1.Columns.Items[6].Title.Alignment:=taCenter; DBGrid1.Columns.Items[6].Alignment:=taRightJustify; DBGrid1.Columns.Items[6].Width:=90; DBGrid1.Columns.Items[6].DisplayFormat:='###0.00'; DBGrid1.Columns.Items[7].Title.Caption := 'Existencia'; DBGrid1.Columns.Items[7].Title.Alignment:=taCenter; DBGrid1.Columns.Items[7].Alignment:=taRightJustify; DBGrid1.Columns.Items[7].Width:=85; DBGrid1.Columns.Items[7].DisplayFormat:='###0.000'; MemDataset1.Append; MemDataset1.FieldByName('codigo').AsString:='100.100.0001'; MemDataset1.FieldByName('cod').AsString:='801'; MemDataset1.FieldByName('elemusd').AsString:='2013'; MemDataset1.FieldByName('elemmn').AsString:='2014'; MemDataset1.FieldByName('cantidad').AsFloat:=1.000; MemDataset1.FieldByName('saldo1').AsFloat:=12.5; MemDataset1.FieldByName('saldo2').AsFloat:=10.3; MemDataset1.FieldByName('exist').AsFloat:=4; MemDataset1.UpdateRecord; MemDataset1.Post; MemDataset1.Append; MemDataset1.FieldByName('codigo').AsString:='100.100.0002'; MemDataset1.FieldByName('cod').AsString:='801'; MemDataset1.FieldByName('elemusd').AsString:='2013'; MemDataset1.FieldByName('elemmn').AsString:='2014'; MemDataset1.FieldByName('cantidad').AsFloat:=2.000; MemDataset1.FieldByName('saldo1').AsFloat:=18.5; MemDataset1.FieldByName('saldo2').AsFloat:=6.3; MemDataset1.FieldByName('exist').AsFloat:=8; MemDataset1.UpdateRecord; MemDataset1.Post; icol:=0; end; procedure TForm1.MemDataset1BeforeScroll(DataSet: TDataSet); begin if (icol = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end; end; procedure TForm1.DBGrid1SelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl); begin if (Column.Index = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat + DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end else if (icol = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end; icol := Column.Index; end; end. Saludos -- ISMAEL Devuan User : http://distrowatch.com/table.php?distribution=devuan ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Thu Jun 22 17:01:23 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 22 Jun 2017 11:01:23 -0400 Subject: [Lazarus-es] Como visualizar las existencia en un grid Message-ID: Llevo varios días tratando de visualizar las existencias en un grid y por más que doy para atrás y para delante no doy pie con bola. Alguien ha logrado hacer esto utilizando un MenDataset? Como podría lograrlo? Aquí les paso un pequeño ejemplo de lo que quiero hacer. Quiero que al moverme por el grid y llegue a la columna de la cantidad me sume a las existencias la cantidad y cuando salga de la columna me reste la cantidad. El grid es editable, ósea debe permitir agregar datos y cambiarle los valores de la algunas columnas, dentro de ellas la de la cantidad. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, memds, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, StdCtrls, db, Grids; type { TForm1 } TForm1 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; Edit1: TEdit; MemDataset1: TMemDataset; procedure DBGrid1SelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl); procedure FormCreate(Sender: TObject); procedure MemDataset1BeforeScroll(DataSet: TDataSet); private { private declarations } icol: longint; public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin DataSource1.DataSet:=MemDataset1; DBGrid1.DataSource:=DataSource1; MemDataset1.FieldDefs.Add('codigo', ftString, 12); MemDataset1.FieldDefs.Add('cod', ftString, 4); MemDataset1.FieldDefs.Add('elemusd', ftString, 7); MemDataset1.FieldDefs.Add('elemmn', ftString, 7); MemDataset1.FieldDefs.Add('cantidad', ftFloat); MemDataset1.FieldDefs.Add('saldo2', ftFloat); MemDataset1.FieldDefs.Add('saldo1', ftFloat); MemDataset1.FieldDefs.Add('exist', ftFloat); MemDataset1.Open; DBGrid1.Columns.Items[0].Title.Caption := 'Código'; DBGrid1.Columns.Items[0].Width:=115; DBGrid1.Columns.Items[0].ReadOnly:=true; DBGrid1.Columns.Items[1].Title.Caption := 'Cod'; DBGrid1.Columns.Items[1].Title.Alignment:=taCenter; DBGrid1.Columns.Items[1].Alignment:=taCenter; DBGrid1.Columns.Items[1].Width:=58; DBGrid1.Columns.Items[1].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[2].Title.Caption := 'Elem CUC'; DBGrid1.Columns.Items[2].Title.Alignment:=taCenter; DBGrid1.Columns.Items[2].Alignment:=taCenter; DBGrid1.Columns.Items[2].Width:=72; DBGrid1.Columns.Items[2].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[3].Title.Caption := 'Elem CUP'; DBGrid1.Columns.Items[3].Title.Alignment:=taCenter; DBGrid1.Columns.Items[3].Alignment:=taCenter; DBGrid1.Columns.Items[3].Width:=72; DBGrid1.Columns.Items[3].ButtonStyle:=cbsEllipsis; DBGrid1.Columns.Items[4].Title.Caption := 'Cantidad'; DBGrid1.Columns.Items[4].Title.Alignment:=taCenter; DBGrid1.Columns.Items[4].Alignment:=taRightJustify; DBGrid1.Columns.Items[4].Width:=90; DBGrid1.Columns.Items[4].DisplayFormat:='###0.000'; DBGrid1.Columns.Items[5].Title.Caption := 'Valor CUC'; DBGrid1.Columns.Items[5].Title.Alignment:=taCenter; DBGrid1.Columns.Items[5].Alignment:=taRightJustify; DBGrid1.Columns.Items[5].Width:=90; DBGrid1.Columns.Items[5].DisplayFormat:='###0.00'; DBGrid1.Columns.Items[6].Title.Caption := 'Valor CUP'; DBGrid1.Columns.Items[6].Title.Alignment:=taCenter; DBGrid1.Columns.Items[6].Alignment:=taRightJustify; DBGrid1.Columns.Items[6].Width:=90; DBGrid1.Columns.Items[6].DisplayFormat:='###0.00'; DBGrid1.Columns.Items[7].Title.Caption := 'Existencia'; DBGrid1.Columns.Items[7].Title.Alignment:=taCenter; DBGrid1.Columns.Items[7].Alignment:=taRightJustify; DBGrid1.Columns.Items[7].Width:=85; DBGrid1.Columns.Items[7].DisplayFormat:='###0.000'; MemDataset1.Append; MemDataset1.FieldByName('codigo').AsString:='100.100.0001'; MemDataset1.FieldByName('cod').AsString:='801'; MemDataset1.FieldByName('elemusd').AsString:='2013'; MemDataset1.FieldByName('elemmn').AsString:='2014'; MemDataset1.FieldByName('cantidad').AsFloat:=1.000; MemDataset1.FieldByName('saldo1').AsFloat:=12.5; MemDataset1.FieldByName('saldo2').AsFloat:=10.3; MemDataset1.FieldByName('exist').AsFloat:=4; MemDataset1.UpdateRecord; MemDataset1.Post; MemDataset1.Append; MemDataset1.FieldByName('codigo').AsString:='100.100.0002'; MemDataset1.FieldByName('cod').AsString:='801'; MemDataset1.FieldByName('elemusd').AsString:='2013'; MemDataset1.FieldByName('elemmn').AsString:='2014'; MemDataset1.FieldByName('cantidad').AsFloat:=2.000; MemDataset1.FieldByName('saldo1').AsFloat:=18.5; MemDataset1.FieldByName('saldo2').AsFloat:=6.3; MemDataset1.FieldByName('exist').AsFloat:=8; MemDataset1.UpdateRecord; MemDataset1.Post; icol:=0; end; procedure TForm1.MemDataset1BeforeScroll(DataSet: TDataSet); begin if (icol = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end; end; procedure TForm1.DBGrid1SelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl); begin if (Column.Index = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat + DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end else if (icol = 4) then begin if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:=DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; end; icol := Column.Index; end; end. Saludos -- ISMAEL Devuan User : http://distrowatch.com/table.php?distribution=devuan ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Fri Jun 23 17:50:26 2017 From: jesusrmx en gmail.com (Jesus R.) Date: Fri, 23 Jun 2017 10:50:26 -0500 Subject: [Lazarus-es] Como visualizar las existencia en un grid In-Reply-To: References: Message-ID: Me parece que tu ejemplo hace eso, cual es el problema? El 22 de junio de 2017, 10:01, Ismael L. Donis Garcia via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Llevo varios días tratando de visualizar las existencias en un grid y por > más que doy para atrás y para delante no doy pie con bola. > > Alguien ha logrado hacer esto utilizando un MenDataset? > Como podría lograrlo? > > Aquí les paso un pequeño ejemplo de lo que quiero hacer. > > Quiero que al moverme por el grid y llegue a la columna de la cantidad > me sume a las existencias la cantidad y cuando salga de la columna me reste > la cantidad. El grid es editable, ósea debe permitir agregar datos y > cambiarle los valores de la algunas columnas, dentro de ellas la de la > cantidad. > > unit Unit1; > > {$mode objfpc}{$H+} > > interface > > uses > Classes, SysUtils, memds, FileUtil, Forms, Controls, Graphics, Dialogs, > DBGrids, StdCtrls, db, Grids; > > > type > > { TForm1 } > > TForm1 = class(TForm) > DataSource1: TDataSource; > DBGrid1: TDBGrid; > Edit1: TEdit; > MemDataset1: TMemDataset; > procedure DBGrid1SelectEditor(Sender: TObject; Column: TColumn; > var Editor: TWinControl); > procedure FormCreate(Sender: TObject); > procedure MemDataset1BeforeScroll(DataSet: TDataSet); > private > { private declarations } > icol: longint; > public > { public declarations } > end; > > var > Form1: TForm1; > > implementation > > {$R *.lfm} > > { TForm1 } > > procedure TForm1.FormCreate(Sender: TObject); > begin > DataSource1.DataSet:=MemDataset1; > DBGrid1.DataSource:=DataSource1; > MemDataset1.FieldDefs.Add('codigo', ftString, 12); > MemDataset1.FieldDefs.Add('cod', ftString, 4); > MemDataset1.FieldDefs.Add('elemusd', ftString, 7); > MemDataset1.FieldDefs.Add('elemmn', ftString, 7); > MemDataset1.FieldDefs.Add('cantidad', ftFloat); > MemDataset1.FieldDefs.Add('saldo2', ftFloat); > MemDataset1.FieldDefs.Add('saldo1', ftFloat); > MemDataset1.FieldDefs.Add('exist', ftFloat); > MemDataset1.Open; > DBGrid1.Columns.Items[0].Title.Caption := 'Código'; > DBGrid1.Columns.Items[0].Width:=115; > DBGrid1.Columns.Items[0].ReadOnly:=true; > DBGrid1.Columns.Items[1].Title.Caption := 'Cod'; > DBGrid1.Columns.Items[1].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[1].Alignment:=taCenter; > DBGrid1.Columns.Items[1].Width:=58; > DBGrid1.Columns.Items[1].ButtonStyle:=cbsEllipsis; > DBGrid1.Columns.Items[2].Title.Caption := 'Elem CUC'; > DBGrid1.Columns.Items[2].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[2].Alignment:=taCenter; > DBGrid1.Columns.Items[2].Width:=72; > DBGrid1.Columns.Items[2].ButtonStyle:=cbsEllipsis; > DBGrid1.Columns.Items[3].Title.Caption := 'Elem CUP'; > DBGrid1.Columns.Items[3].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[3].Alignment:=taCenter; > DBGrid1.Columns.Items[3].Width:=72; > DBGrid1.Columns.Items[3].ButtonStyle:=cbsEllipsis; > DBGrid1.Columns.Items[4].Title.Caption := 'Cantidad'; > DBGrid1.Columns.Items[4].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[4].Alignment:=taRightJustify; > DBGrid1.Columns.Items[4].Width:=90; > DBGrid1.Columns.Items[4].DisplayFormat:='###0.000'; > DBGrid1.Columns.Items[5].Title.Caption := 'Valor CUC'; > DBGrid1.Columns.Items[5].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[5].Alignment:=taRightJustify; > DBGrid1.Columns.Items[5].Width:=90; > DBGrid1.Columns.Items[5].DisplayFormat:='###0.00'; > DBGrid1.Columns.Items[6].Title.Caption := 'Valor CUP'; > DBGrid1.Columns.Items[6].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[6].Alignment:=taRightJustify; > DBGrid1.Columns.Items[6].Width:=90; > DBGrid1.Columns.Items[6].DisplayFormat:='###0.00'; > DBGrid1.Columns.Items[7].Title.Caption := 'Existencia'; > DBGrid1.Columns.Items[7].Title.Alignment:=taCenter; > DBGrid1.Columns.Items[7].Alignment:=taRightJustify; > DBGrid1.Columns.Items[7].Width:=85; > DBGrid1.Columns.Items[7].DisplayFormat:='###0.000'; > > MemDataset1.Append; > MemDataset1.FieldByName('codigo').AsString:='100.100.0001'; > MemDataset1.FieldByName('cod').AsString:='801'; > MemDataset1.FieldByName('elemusd').AsString:='2013'; > MemDataset1.FieldByName('elemmn').AsString:='2014'; > MemDataset1.FieldByName('cantidad').AsFloat:=1.000; > MemDataset1.FieldByName('saldo1').AsFloat:=12.5; > MemDataset1.FieldByName('saldo2').AsFloat:=10.3; > MemDataset1.FieldByName('exist').AsFloat:=4; > MemDataset1.UpdateRecord; > MemDataset1.Post; > MemDataset1.Append; > MemDataset1.FieldByName('codigo').AsString:='100.100.0002'; > MemDataset1.FieldByName('cod').AsString:='801'; > MemDataset1.FieldByName('elemusd').AsString:='2013'; > MemDataset1.FieldByName('elemmn').AsString:='2014'; > MemDataset1.FieldByName('cantidad').AsFloat:=2.000; > MemDataset1.FieldByName('saldo1').AsFloat:=18.5; > MemDataset1.FieldByName('saldo2').AsFloat:=6.3; > MemDataset1.FieldByName('exist').AsFloat:=8; > MemDataset1.UpdateRecord; > MemDataset1.Post; > > icol:=0; > end; > > procedure TForm1.MemDataset1BeforeScroll(DataSet: TDataSet); > begin > if (icol = 4) then begin > if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then > DBGrid1.DataSource.DataSet.Edit; > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:= > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - > DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; > end; > end; > > procedure TForm1.DBGrid1SelectEditor(Sender: TObject; Column: TColumn; > var Editor: TWinControl); > begin > if (Column.Index = 4) then begin > if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then > DBGrid1.DataSource.DataSet.Edit; > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:= > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat + > DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; > end else if (icol = 4) then begin > if not (DBGrid1.DataSource.DataSet.State in dsEditModes) then > DBGrid1.DataSource.DataSet.Edit; > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat:= > DBGrid1.DataSource.DataSet.FieldByName('exist').AsFloat - > DBGrid1.DataSource.DataSet.FieldByName('cantidad').AsFloat; > end; > icol := Column.Index; > end; > > end. > > Saludos > -- > ISMAEL > Devuan User : http://distrowatch.com/table.php?distribution=devuan > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Jun 23 18:20:58 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 23 Jun 2017 12:20:58 -0400 Subject: [Lazarus-es] test Message-ID: <828DC5D6A420434E82D9D17D1002988D@natio.co.cu> Test no contestar -- Ismael Devuan User : http://distrowatch.com/table.php?distribution=devuan ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Jun 23 18:21:58 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 23 Jun 2017 12:21:58 -0400 Subject: [Lazarus-es] test Message-ID: <3B729636516C4AEB9A71FCB212336ACB@natio.co.cu> Test no contestar -- Ismael Devuan User : http://distrowatch.com/table.php?distribution=devuan ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From fredyg1965 en gmail.com Fri Jun 23 21:11:07 2017 From: fredyg1965 en gmail.com (Fredy Gonzales) Date: Fri, 23 Jun 2017 14:11:07 -0500 Subject: [Lazarus-es] =?utf-8?q?Men=C3=BA_principal?= In-Reply-To: References: Message-ID: Amigos, Hace tiempo que hice un menú vertical con un manejo de paneles y form. Esto incluye un login para acceder, a ver si alguien le sirve que avise, quizás poco a poco le podemos ir agregando cosas que nos sirva para un futuro. Saludos. Ya en otro mail mando los pantallazos. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Wed Jun 28 17:38:56 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Wed, 28 Jun 2017 12:38:56 -0300 Subject: [Lazarus-es] =?utf-8?q?Abrir_una_URL_=28pagina_de_interner=29_den?= =?utf-8?q?tro_de_un_formul=C3=A1rio=2E?= In-Reply-To: <000001d2ea76$d1a074c0$74e15e40$@gmail.com> References: <000001d2ea76$d1a074c0$74e15e40$@gmail.com> Message-ID: No creo que haya una solución cross-platform para eso, sobre todo teniendo en cuenta que los navegadores avanzan día a día y no solo muestran html sino que manejan javascript y css. Si lo que buscas es sólo para windows, puedes importar un control activex de Internet Explorer y pegarlo en el formulario (no recuerdo como se hacía, pero en la wiki de Lazarus está seguro) 2017-06-21 7:11 GMT-03:00 Alfonso Arias Lemas via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > Buenos días Fórum. > > ¿Existe algún componente o un ejemplo en la Web que me muestre como poder > abrir una página web/sitio dentro de un formulario? > > He intentado con algunos componentes mas consigo. > > Saludos, > > Alfonso > > > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From alfonsoariaslemas en gmail.com Wed Jun 28 20:07:46 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Wed, 28 Jun 2017 17:07:46 -0100 Subject: [Lazarus-es] =?utf-8?q?Abrir_una_URL_=28pagina_de_interner=29_den?= =?utf-8?q?tro_de_un_formul=C3=A1rio=2E?= In-Reply-To: References: <000001d2ea76$d1a074c0$74e15e40$@gmail.com> Message-ID: <003c01d2f039$7420e280$5c62a780$@gmail.com> Gracias Martin. La plataforma que utilizo es Windows, entretanto me has dado una idea con el Internet Explores. Yo comencé hace relativamente poco tiempo con Lazarus, antes trabajaba con Visual Foxpro y utilizaba el ActivX de Internet Explore para esta función. Saludos. De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] Em nome de Martin Gomez via Lazarus-es Enviada: 28 de junho de 2017 14:39 Para: Spanish version of Lazarus List Cc: Martin Gomez Assunto: Re: [Lazarus-es] Abrir una URL (pagina de interner) dentro de un formulário. No creo que haya una solución cross-platform para eso, sobre todo teniendo en cuenta que los navegadores avanzan día a día y no solo muestran html sino que manejan javascript y css. Si lo que buscas es sólo para windows, puedes importar un control activex de Internet Explorer y pegarlo en el formulario (no recuerdo como se hacía, pero en la wiki de Lazarus está seguro) 2017-06-21 7:11 GMT-03:00 Alfonso Arias Lemas via Lazarus-es : Buenos días Fórum. ¿Existe algún componente o un ejemplo en la Web que me muestre como poder abrir una página web/sitio dentro de un formulario? He intentado con algunos componentes mas consigo. Saludos, Alfonso _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ Linus Torvalds ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Thu Jun 29 16:59:32 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Thu, 29 Jun 2017 11:59:32 -0300 Subject: [Lazarus-es] =?utf-8?q?Abrir_una_URL_=28pagina_de_interner=29_den?= =?utf-8?q?tro_de_un_formul=C3=A1rio=2E?= In-Reply-To: <003c01d2f039$7420e280$5c62a780$@gmail.com> References: <000001d2ea76$d1a074c0$74e15e40$@gmail.com> <003c01d2f039$7420e280$5c62a780$@gmail.com> Message-ID: Alfonso, en la wiki de Lazarus hay una lista de distintos browser para pegar en tus formularios http://wiki.freepascal.org/Webbrowser La alternativa que comentamos es LazActiveX. A mi particularmente me llama la atención GeckoPort (firefox) y fpCEF3 (chrome), pero hace unos años que no desarrollo en Lazarus, así que no he hecho pruebas con ninguno de ellos. 2017-06-28 15:07 GMT-03:00 Alfonso Arias Lemas via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > Gracias Martin. > > La plataforma que utilizo es Windows, entretanto me has dado una idea con > el Internet Explores. Yo comencé hace relativamente poco tiempo con > Lazarus, antes trabajaba con Visual Foxpro y utilizaba el ActivX de > Internet Explore para esta función. > > Saludos. > > > > > > *De:* Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] *Em > nome de *Martin Gomez via Lazarus-es > *Enviada:* 28 de junho de 2017 14:39 > *Para:* Spanish version of Lazarus List > *Cc:* Martin Gomez > *Assunto:* Re: [Lazarus-es] Abrir una URL (pagina de interner) dentro de > un formulário. > > > > No creo que haya una solución cross-platform para eso, sobre todo teniendo > en cuenta que los navegadores avanzan día a día y no solo muestran html > sino que manejan javascript y css. > > > > Si lo que buscas es sólo para windows, puedes importar un control activex > de Internet Explorer y pegarlo en el formulario (no recuerdo como se hacía, > pero en la wiki de Lazarus está seguro) > > > > 2017-06-21 7:11 GMT-03:00 Alfonso Arias Lemas via Lazarus-es < > lazarus-es en lists.lazarus-ide.org>: > > Buenos días Fórum. > > ¿Existe algún componente o un ejemplo en la Web que me muestre como poder > abrir una página web/sitio dentro de un formulario? > > He intentado con algunos componentes mas consigo. > > Saludos, > > Alfonso > > > > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > > > > > -- > > ​ > > Most good programmers do programming not because they expect to get paid > or get adulation by the public, but because it is fun to program. > > ​ ​ > > *Linus Torvalds* > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Fri Jun 30 19:04:18 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Fri, 30 Jun 2017 13:04:18 -0400 Subject: [Lazarus-es] =?iso-8859-1?q?desmarcar_foco_a_alg=FAn_componente?= Message-ID: Estimados listeros: Hace mucho tiempo, un amable listero me enseñó el comando que “quitaba” el foco al algún componente sobre una pantalla. Desdichadamente no recuerdo su nombre y parece que perdí dicha información. Ahora la necesito, porque realmente se ve feo que un componente que tuvo foco, hizo lo le correspondía, y al terminar, conserve el foco. Les agradecería que me enviaran el comando y prometo que no lo voy a perder de nuevo. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: