From hfiandor en ceniai.inf.cu Mon Jan 16 00:37:46 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Sun, 15 Jan 2017 18:37:46 -0500 Subject: [Lazarus-es] cambiar color de un edit Message-ID: Estimados listeros: Ante todo pido perdón por esta pregunta. Tengo en un form varios editbox, que les doy color cuando se activan. Necesito retornar la propiedad color a :=clWindow; cuando pincho con el ratón en otro editbox que no estaba con foco. No sé cómo poner todos los edit de la form a :=clWindow antes de darle color al recién pinchado. Anticipándole las gracias por su ayuda, Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From adearmas en gmail.com Mon Jan 16 01:26:57 2017 From: adearmas en gmail.com (Adrian De Armas) Date: Sun, 15 Jan 2017 21:26:57 -0300 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: Message-ID: Hola el siguiente procedimiento pinta todos los edits con clWindow menos el control que tiene el foco (si es un edit) y lo pinta de azul. Creo entender que es lo que necesitas. Saludos *procedure TForm1.PintarControl;* *var* * i: integer;* *begin* * for i := 0 to ComponentCount-1 do* * begin* * if Components[i] is TEdit then* * begin* * if TEdit(Components[i]).Focused then* * TEdit(Components[i]).Color:= clBlue* * else* * TEdit(Components[i]).Color:= clWindow ;* * end;* * end;* *end; * El 15 de enero de 2017, 20:37, hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Estimados listeros: > > > > Ante todo pido perdón por esta pregunta. > > Tengo en un form varios editbox, que les doy color cuando se activan. > > Necesito retornar la propiedad color a :=clWindow; cuando pincho con el > ratón en otro editbox que no estaba con foco. > > No sé cómo poner todos los edit de la form a :=clWindow antes de darle > color al recién pinchado. > > Anticipándole las gracias por su 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 > > ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en citricos.co.cu Mon Jan 16 14:47:03 2017 From: slibre en citricos.co.cu (Ismael L. Donis Garcia) Date: Mon, 16 Jan 2017 08:47:03 -0500 Subject: [Lazarus-es] cambiar color de un edit References: Message-ID: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> O podría poner en cada control: (Edit1=nombre de los tedit) procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Color:= clBlue end; procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Color:= clWindow end; Saludos ======== | ISMAEL | ======== ----- Original Message ----- From: Adrian De Armas via Lazarus-es To: Spanish version of Lazarus List Cc: Adrian De Armas Sent: Sunday, January 15, 2017 7:26 PM Subject: Re: [Lazarus-es] cambiar color de un edit Hola el siguiente procedimiento pinta todos los edits con clWindow menos el control que tiene el foco (si es un edit) y lo pinta de azul. Creo entender que es lo que necesitas. Saludos procedure TForm1.PintarControl; var i: integer; begin for i := 0 to ComponentCount-1 do begin if Components[i] is TEdit then begin if TEdit(Components[i]).Focused then TEdit(Components[i]).Color:= clBlue else TEdit(Components[i]).Color:= clWindow ; end; end; end; El 15 de enero de 2017, 20:37, hfiandor via Lazarus-es escribió: Estimados listeros: Ante todo pido perdón por esta pregunta. Tengo en un form varios editbox, que les doy color cuando se activan. Necesito retornar la propiedad color a :=clWindow; cuando pincho con el ratón en otro editbox que no estaba con foco. No sé cómo poner todos los edit de la form a :=clWindow antes de darle color al recién pinchado. Anticipándole las gracias por su 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 ------------------------------------------------------------------------------ _______________________________________________ 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 hfiandor en ceniai.inf.cu Mon Jan 16 17:38:40 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Mon, 16 Jan 2017 11:38:40 -0500 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Message-ID: Estimado Ismael: Mi problema es que tengo un form con varios edit para indicar rangos DESDE y HASTA. Cuando el form hace Show yo selecciono la primera casilla y mi lío está cuando quiero activar otra casilla. Lo puedo hacer con el ratón pinchando la casilla y le doy color Yellow para indicar que está activa, Pero no sé cómo quitar el color Yellow de la primera que se pintó cuando hizo Show. Tuve la rutina para quitar el foco a todos los componentes del form, pero la he perdido y quisiera probar con ella. Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From UDIAZ60 en hotmail.com Mon Jan 16 18:05:37 2017 From: UDIAZ60 en hotmail.com (=?iso-8859-1?Q?Ulises_D=EDaz?=) Date: Mon, 16 Jan 2017 17:05:37 +0000 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu>, Message-ID: Hola Puedes usar el evento OnExit para asignarle el color blanco, en ese evento llamas un procedimiento que haga ese trabajo. Por ejemplo, porcedimiento para cambiar color: procedure FColorDefecto(Control: TObject); var begin if (Control is TEdit) then begin TEdit(Control).Color := clWhite; end; end; //Procedimiento para el control activo procedure FColorActivo(Control: TObject); var begin if (Control is TEdit) then begin TEdit(Control).Color := clGreen; end; end; Ahora usando los eventos OnEnter y ONExit asignamos los colores. procedure TForm1.Edit2Enter(Sender: TObject); begin FColorActivo(Sender); end; procedure TForm1.Edit2Exit(Sender: TObject); begin FColorDefecto(Sender); end; O se pueden usar los eventos directamente: procedure TForm1.Edit2Enter(Sender: TObject); begin (Sender as tedit).Color := clGreen; // o edit2.color := clGreen; end; procedure TForm1.Edit2Exit(Sender: TObject); begin (Sender as tedit).Color := clWhite; end; La desventaja de este método es que si hay muchos controles es dispendioso usar todos esos eventos, además por cada control nuevo que se adicione toca modificar los eventos. Espero que esta u otra alternativa que han presentado los compañeros sea utilidad para usted. Saludos desde Colombia ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From joshyfun en gmail.com Mon Jan 16 18:27:27 2017 From: joshyfun en gmail.com (=?UTF-8?Q?Jos=c3=a9_Mejuto?=) Date: Mon, 16 Jan 2017 18:27:27 +0100 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Message-ID: El 16/01/2017 a las 18:05, Ulises Díaz via Lazarus-es escribió: > Hola [...] > La desventaja de este método es que si hay muchos controles es > dispendioso usar todos esos eventos, además por cada control nuevo que > se adicione toca modificar los eventos. > Espero que esta u otra alternativa que han presentado los compañeros sea > utilidad para usted. > Hola, frmXXX = class(TForm) [...] protected function SetFocusedControl(Control: TWinControl): Boolean; override; [...] end; function frmXXX.SetFocusedControl(Control: TWinControl): Boolean; var j: integer; c: TComponent; begin Result:=inherited SetFocusedControl(Control); if Result then begin for j := 0 to Pred(Self.ComponentCount) do begin c:=Self.Components[j]; if c is TEdit then begin if c=Control then begin TEdit(c).Color:=clYellow; end else begin TEdit(c).Color:=clWindow; end; end; end; end; end; -- From iv.mesa.prg en gmail.com Mon Jan 16 18:54:44 2017 From: iv.mesa.prg en gmail.com (=?UTF-8?Q?Iv=c3=a1n_Mesa?=) Date: Mon, 16 Jan 2017 18:54:44 +0100 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: Message-ID: Saludos Héctor y compañía. Otra implementeación es: procedure Tfrom1.TextEditEnter (Sender : object); begin (sender as Tedit).Color := clBlue; end; procedure TForm1.TextEditExit(Sender : object); begin (sender as TEdit).Color := clWindow; end; Entonces asocias el evento Enter y Exit de todos los TEdit del formulario a cada uno de los procedimientos de arriba. OnEnter a TForm1.TextEditEnter y OnExit a TForm1.TextEditExit; Imagino que funcionará y te ahorrará código. Abrazos. Iván. El 16/01/2017 a las 0:37, hfiandor via Lazarus-es escribió: > > Estimados listeros: > > Ante todo pido perdón por esta pregunta. > > Tengo en un form varios editbox, que les doy color cuando se activan. > > Necesito retornar la propiedad color a :=clWindow; cuando pincho con > el ratón en otro editbox que no estaba con foco. > > No sé cómo poner todos los edit de la form a :=clWindow antes de darle > color al recién pinchado. > > Anticipándole las gracias por su 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 ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en citricos.co.cu Mon Jan 16 18:21:43 2017 From: slibre en citricos.co.cu (Ismael L. Donis Garcia) Date: Mon, 16 Jan 2017 12:21:43 -0500 Subject: [Lazarus-es] cambiar color de un edit References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Message-ID: Como te dije antes a cada componente le programas los 2 eventos. Cuando coge el foco: procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Color:= clYellow end; Y cuando pierde el foco: procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Color:= clWindow end; Esto lo tienes que hacer para todos los componentes que quieres ponerle el color personalizado. En el ejemplo que te puse Edit1 es el nombre de la caja de texto. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: hfiandor via Lazarus-es To: 'Spanish version of Lazarus List' Cc: hfiandor Sent: Monday, January 16, 2017 11:38 AM Subject: Re: [Lazarus-es] cambiar color de un edit Estimado Ismael: Mi problema es que tengo un form con varios edit para indicar rangos DESDE y HASTA. Cuando el form hace Show yo selecciono la primera casilla y mi lío está cuando quiero activar otra casilla. Lo puedo hacer con el ratón pinchando la casilla y le doy color Yellow para indicar que está activa, Pero no sé cómo quitar el color Yellow de la primera que se pintó cuando hizo Show. Tuve la rutina para quitar el foco a todos los componentes del form, pero la he perdido y quisiera probar con ella. 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 iv.mesa.prg en gmail.com Mon Jan 16 19:27:10 2017 From: iv.mesa.prg en gmail.com (=?UTF-8?Q?Iv=c3=a1n_Mesa?=) Date: Mon, 16 Jan 2017 19:27:10 +0100 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Message-ID: <744c1903-d134-66b8-a7f7-ccdfacb74ef6@gmail.com> Mira Héctor, te paso el código de una unit completita. Te creas un form, le pones dos tEdit, y en el form haces doble click y en la unit pegas esto: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; procedure FormCreate(Sender: TObject); procedure EditEnter(Sender:TObject); procedure EditExit(Sender:TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} procedure Tform1.EditEnter(Sender : TObject); begin (Sender as TEdit).Color := clBlue; end; procedure Tform1.EditExit(Sender : TObject); begin (Sender as TEdit).Color := clWindow; end; procedure TForm1.FormCreate(Sender: TObject); var idx : integer; edt : TEdit; begin for idx := 0 to Self.ControlCount-1 do begin if Self.Controls[idx] is TEdit then begin edt := (Self.Controls[idx] as TEdit); edt.OnEnter := @EditEnter; edt.OnExit := @EditExit; end; end; end; end. Abrazos. El 16/01/2017 a las 17:38, hfiandor via Lazarus-es escribió: > > Estimado Ismael: > > Mi problema es que tengo un form con varios edit para indicar rangos > DESDE y HASTA. > > Cuando el form hace Show yo selecciono la primera casilla y mi lío > está cuando quiero activar otra casilla. Lo puedo hacer con el ratón > pinchando la casilla y le doy color Yellow para indicar que está activa, > > Pero no sé cómo quitar el color Yellow de la primera que se pintó > cuando hizo Show. > > Tuve la rutina para quitar el foco a todos los componentes del form, > pero la he perdido y quisiera probar con ella. > > 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 Tue Jan 17 09:00:32 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Tue, 17 Jan 2017 09:00:32 +0100 (CET) Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: Message-ID: <465472535.929904.1484640032922.JavaMail.zimbra@artextrading.com> Hola, siento la tardanza pero me pilló algo liado. Te paso la manera en que realizo estas labores en un formulario base del cual luego heredo. Este formulario a demás de controlar el pintado de los controles realiza labores de validación y obligatoriedad pero creo que la clave la tendrás en como se crea y destruye el formulario. Espero pueda servirte. Un saludo constructor TBaseForm.Create(AOwner: TComponent); begin inherited Create(AOwner); wRequiredObjects := TRequiredObjects.Create; // change event OnActiveControlChange for control paint color of active control wOldOnActiveControlChange := Screen.OnActiveControlChange; Screen.OnActiveControlChange := @NewActiveControlChange; // change event OnHint for capture hint of active control wOldOnHint := Application.OnHint; Application.OnHint := @NewHint; end; destructor TBaseForm.Destroy; begin if assigned( wOldOnActiveControlChange ) then Screen.OnActiveControlChange := wOldOnActiveControlChange else Screen.OnActiveControlChange := nil; if assigned( wOldOnHint ) then Application.OnHint := wOldOnHint else Application.OnHint := nil; if assigned( wRequiredObjects ) then FreeAndNil( wRequiredObjects ); inherited Destroy; end; procedure TBaseForm.NewActiveControlChange(Sender: TObject); var vPropInfo: PPropInfo; function Sub_GetColor(Control: TControl): TColor; begin Result := 0; vPropInfo := GetPropInfo(Control.ClassInfo, 'Color'); if vPropInfo <> nil then Result := GetOrdProp(Control, vPropInfo); end; procedure Sub_SetColor(Control: TControl; Color: TColor); begin vPropInfo := GetPropInfo(Control.ClassInfo, 'Color'); if vPropInfo <> nil then SetOrdProp(Control, vPropInfo, Color); end; function Sub_ControlColor(Control: TControl): Boolean; begin Result := assigned(Control) and (Control.InheritsFrom(TCustomForm) = False) and (Control.InheritsFrom(TCustomGrid) = False) and (Control.InheritsFrom(TCustomPanel) = False) and (Control.InheritsFrom(TCustomTreeView) = False) and (Control.InheritsFrom(TCustomListBox) = False); end; begin // Restore old color to old control (focused control had changed) if Sub_ControlColor(wLastControlFocus) then Sub_SetColor(wLastControlFocus, wLastColorFocus); // assign new focused control wLastControlFocus := Screen.ActiveControl; // assign focused color to new focused control if Sub_ControlColor(wLastControlFocus) then begin wLastColorFocus := Sub_GetColor(wLastControlFocus); // save original color Sub_SetColor(wLastControlFocus, $00FEDCC7); // assign focused color to focused control if assigned( StatusBar ) and (StatusBar.Panels.Count > 0) then StatusBar.Panels[ stpanel_Hint ].Text := wLastControlFocus.Hint; // assign Hint to panel hint end; end; De: "hfiandor via Lazarus-es" Para: lazarus-es en lists.lazarus-ide.org CC: "hfiandor" Enviados: Lunes, 16 de Enero 2017 0:37:46 Asunto: [Lazarus-es] cambiar color de un edit Estimados listeros: Ante todo pido perdón por esta pregunta. Tengo en un form varios editbox, que les doy color cuando se activan. Necesito retornar la propiedad color a :=clWindow; cuando pincho con el ratón en otro editbox que no estaba con foco. No sé cómo poner todos los edit de la form a :=clWindow antes de darle color al recién pinchado. Anticipándole las gracias por su 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 ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From hfiandor en ceniai.inf.cu Tue Jan 17 11:34:37 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Tue, 17 Jan 2017 05:34:37 -0500 Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Amigos listeros: Ante todo, mil gracias por todo lo que me han sugerido, que he guardado para estudiarlo con más detalle después. Finalmente probé con esta solución, que parece que funciona: Hice un procedure que declaro como { private declarations } así: procedure TfNotasAux.quitarcolor; begin for i := 0 to self.ComponentCount-1 do begin if self.Components[i] is TEdit then begin if TEdit(Components[i]).Focused then TEdit(Components[i]).Color:= clYellow else TEdit(Components[i]).Color:= clWindow ; end; end; end; En el cuerpo del programa para cada edit que tengo disponible para activar le hago un evento OnClick así: procedure TfNotasAux.eGrupoDesdeClick(Sender: TObject); begin quitarcolor; end; y parece que esto funciona. Cada día que aprendo algo nuevo me doy cuenta de que no sé nada. Saludos Ing. Héctor F. Fiandor Rosario De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] En nombre de Ismael L. Donis Garcia via Lazarus-es Enviado el: lunes, 16 de enero de 2017 12:22 p. m. Para: Spanish version of Lazarus List CC: Ismael L. Donis Garcia Asunto: Re: [Lazarus-es] cambiar color de un edit Como te dije antes a cada componente le programas los 2 eventos. Cuando coge el foco: procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Color:= clYellow end; Y cuando pierde el foco: procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Color:= clWindow end; Esto lo tienes que hacer para todos los componentes que quieres ponerle el color personalizado. En el ejemplo que te puse Edit1 es el nombre de la caja de texto. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: hfiandor via Lazarus-es To: 'Spanish version of Lazarus List' Cc: hfiandor Sent: Monday, January 16, 2017 11:38 AM Subject: Re: [Lazarus-es] cambiar color de un edit Estimado Ismael: Mi problema es que tengo un form con varios edit para indicar rangos DESDE y HASTA. Cuando el form hace Show yo selecciono la primera casilla y mi lío está cuando quiero activar otra casilla. Lo puedo hacer con el ratón pinchando la casilla y le doy color Yellow para indicar que está activa, Pero no sé cómo quitar el color Yellow de la primera que se pintó cuando hizo Show. Tuve la rutina para quitar el foco a todos los componentes del form, pero la he perdido y quisiera probar con ella. 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 Tue Jan 17 11:37:46 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Tue, 17 Jan 2017 11:37:46 +0100 (CET) Subject: [Lazarus-es] cambiar color de un edit In-Reply-To: References: <6B9FA97D178A4FF4B1046166B516B51D@natio.co.cu> Message-ID: <164754967.937419.1484649466871.JavaMail.zimbra@artextrading.com> El problema es que si asignas el procedimiento al OnClick cuando el usuario use el teclado (Enter o Tab) no te funcionará. Para este caso, mejor usar el evento OnEnter como sugería el compañero. Por otro, con esta solución cada vez que cambia el foco "rastreas" todos los objetos pintando clWindow en objetos TEdit que ya tienen ese color. Y también tengo dudas de como se comportará si sobre el formulario tienes Paneles, GroupBox, o componentes con distintas páginas y los TEdits están contenidos dentro. Un saludo De: "hfiandor via Lazarus-es" Para: "Spanish version of Lazarus List" CC: "hfiandor" Enviados: Martes, 17 de Enero 2017 11:34:37 Asunto: Re: [Lazarus-es] cambiar color de un edit Amigos listeros: Ante todo, mil gracias por todo lo que me han sugerido, que he guardado para estudiarlo con más detalle después. Finalmente probé con esta solución, que parece que funciona: Hice un procedure que declaro como { private declarations } así: procedure TfNotasAux.quitarcolor; begin for i := 0 to self.ComponentCount-1 do begin if self.Components[i] is TEdit then begin if TEdit(Components[i]).Focused then TEdit(Components[i]).Color:= clYellow else TEdit(Components[i]).Color:= clWindow ; end; end; end; En el cuerpo del programa para cada edit que tengo disponible para activar le hago un evento OnClick así: procedure TfNotasAux.eGrupoDesdeClick(Sender: TObject); begin quitarcolor; end; y parece que esto funciona. Cada día que aprendo algo nuevo me doy cuenta de que no sé nada. Saludos Ing. Héctor F. Fiandor Rosario De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] En nombre de Ismael L. Donis Garcia via Lazarus-es Enviado el: lunes, 16 de enero de 2017 12:22 p. m. Para: Spanish version of Lazarus List CC: Ismael L. Donis Garcia Asunto: Re: [Lazarus-es] cambiar color de un edit Como te dije antes a cada componente le programas los 2 eventos. Cuando coge el foco: procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Color:= clYellow end; Y cuando pierde el foco: procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Color:= clWindow end; Esto lo tienes que hacer para todos los componentes que quieres ponerle el color personalizado. En el ejemplo que te puse Edit1 es el nombre de la caja de texto. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: hfiandor via Lazarus-es To: 'Spanish version of Lazarus List' Cc: hfiandor Sent: Monday, January 16, 2017 11:38 AM Subject: Re: [Lazarus-es] cambiar color de un edit Estimado Ismael: Mi problema es que tengo un form con varios edit para indicar rangos DESDE y HASTA. Cuando el form hace Show yo selecciono la primera casilla y mi lío está cuando quiero activar otra casilla. Lo puedo hacer con el ratón pinchando la casilla y le doy color Yellow para indicar que está activa, Pero no sé cómo quitar el color Yellow de la primera que se pintó cuando hizo Show. Tuve la rutina para quitar el foco a todos los componentes del form, pero la he perdido y quisiera probar con ella. 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 _______________________________________________ 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 hfiandor en ceniai.inf.cu Tue Jan 17 18:31:06 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Tue, 17 Jan 2017 12:31:06 -0500 Subject: [Lazarus-es] definicion de un campo UNIQUE Message-ID: Estimados listeros> Yo creo las tablas sqlite en una unidad DataModulo como sigue> with fdm.tAlumnos do begin FileName := camino_BD + '\Clasificadores.db'; PrimaryKey := 'IdAlumnos'; if not TableExists('Alumnos') then begin FieldDefs.Clear; FieldDefs.Add('IdAlumnos', ftInteger); FieldDefs.Add('CI', ftString, 11, NOT NULL); FieldDefs.Add('control', ftString, 10, NOT NULL ); FieldDefs.Add('primerapellido', ftString, 50); FieldDefs.Add('segundoapellido', ftString, 50); FieldDefs.Add('nombre', ftString, 50); FieldDefs.Add('direccion', ftString, 80); FieldDefs.Add('telefono', ftString, 30); FieldDefs.Add('email', ftString, 50); FieldDefs.Add('fechaingreso', ftString, 8); FieldDefs.Add('grado', ftString, 10); FieldDefs.Add('grupo', ftString, 10); CreateTable; end else begin end; AutoIncrementKey := True; end; y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. Como se hace eso? Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: Esto se puede hacer en el DataModulo? Anticipándole las gracias, Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Tue Jan 17 19:17:37 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Tue, 17 Jan 2017 12:17:37 -0600 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= Message-ID: Que tal estimados compañeros, reciban un cordial saludo. Me ha dicho un pajarito que ha habido cierta inquietud con respecto de un lugar en nuestro idioma, a parte de la lista de correos, a cerca donde compartir conocimiento, dudas e inquietudes de nuestro entorno y lenguaje de programación favoritos, les informo que hemos creado un nuevo espacio en el foro de Lazarus donde son todos bienvenidos. Esperamos que les sea de utilidad, !Que lo disfruten!. Jesus Reyes A. From hfiandor en ceniai.inf.cu Wed Jan 18 01:41:55 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Tue, 17 Jan 2017 19:41:55 -0500 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= In-Reply-To: References: Message-ID: Estimado Jesús Reyes: La idea me parece perfecta, pero lo que no encontré es si el acceso a dicho foro es por email o por internet. Tampoco encontré la dirección del email o el URL para visitar el sitio. No sé si es que tengo corta la vista (la juventud acumulada) o que no estaba. Saludos Ing. Héctor F. Fiandor Rosario From jcuello en artextrading.com Wed Jan 18 08:26:16 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Wed, 18 Jan 2017 08:26:16 +0100 (CET) Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: References: Message-ID: <2091982844.945002.1484724376466.JavaMail.zimbra@artextrading.com> Creo que te sería más sencillo montar una SQL y ejecutarla directamente con un TQuery Algo así, voy de memoria ... myQry := TQuery.Create(); myQry.SQL.Text := 'CREATE TABLE ......' myQry.Exec De: "hfiandor via Lazarus-es" Para: lazarus-es en lists.lazarus-ide.org CC: "hfiandor" Enviados: Martes, 17 de Enero 2017 18:31:06 Asunto: [Lazarus-es] definicion de un campo UNIQUE Estimados listeros> Yo creo las tablas sqlite en una unidad DataModulo como sigue> with fdm.tAlumnos do begin FileName := camino_BD + '\Clasificadores.db'; PrimaryKey := 'IdAlumnos'; if not TableExists('Alumnos') then begin FieldDefs.Clear; FieldDefs.Add('IdAlumnos', ftInteger); FieldDefs.Add('CI', ftString, 11, NOT NULL); FieldDefs.Add('control', ftString, 10, NOT NULL ); FieldDefs.Add('primerapellido', ftString, 50); FieldDefs.Add('segundoapellido', ftString, 50); FieldDefs.Add('nombre', ftString, 50); FieldDefs.Add('direccion', ftString, 80); FieldDefs.Add('telefono', ftString, 30); FieldDefs.Add('email', ftString, 50); FieldDefs.Add('fechaingreso', ftString, 8); FieldDefs.Add('grado', ftString, 10); FieldDefs.Add('grupo', ftString, 10); CreateTable; end else begin end; AutoIncrementKey := True; end; y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. Como se hace eso? Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: Esto se puede hacer en el DataModulo? Anticipándole las gracias, 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 servinformat en enpa.minag.cu Wed Jan 18 15:12:36 2017 From: servinformat en enpa.minag.cu (Pedro Pablo Oviedo Vera) Date: Wed, 18 Jan 2017 09:12:36 -0500 Subject: [Lazarus-es] =?iso-8859-1?q?Resumen_de_Lazarus-es=2C_Vol_112=2C_E?= =?iso-8859-1?q?nv=EDo_6?= In-Reply-To: References: Message-ID: <1484748756.2313.3.camel@enpa.minag.cu> buen dia, debes leer aca http://wiki.freepascal.org/sqlite  -- MSc. Ing. Pedro Pablo Oviedo Vera Dirección Técnica y Desarrollo Empresa de Proyectos e Ingeniería del Ministerio de la Agricultura.ENPA. Boyeros y Conill, Piso 10 Edif MINAG Telef. 884 7649 From jesusrmx en gmail.com Thu Jan 19 21:45:53 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Thu, 19 Jan 2017 14:45:53 -0600 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= In-Reply-To: References: Message-ID: Hola Héctor, que gusto saludarte. La dirección es básicamente la del sitio de Lazarus ( http://www.lazarus-ide.org/ ) y luego el enlace FORUM que aparece en la parte superior. Después es cosa de desplazarse hacia abajo hasta encontrar "Other Languages" y de ahí "Spanish". Jesus Reyes A. On Tue, 17 Jan 2017 18:41:55 -0600, hfiandor via Lazarus-es wrote: > Estimado Jesús Reyes: > > La idea me parece perfecta, pero lo que no encontré es si el acceso a > dicho foro es por email o por internet. Tampoco encontré la dirección > del email o el URL para visitar el sitio. > > No sé si es que tengo corta la vista (la juventud acumulada) o que no > estaba. > > 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 -- Using Opera's mail client: http://www.opera.com/mail/ From alfonsoariaslemas en gmail.com Thu Jan 19 23:06:43 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Thu, 19 Jan 2017 21:06:43 -0100 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= In-Reply-To: References: Message-ID: <005001d272a0$5320fb90$f962f2b0$@gmail.com> Optimo Jesus.... -----Mensagem original----- De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] Em nome de Jesus Reyes A. via Lazarus-es Enviada: 19 de janeiro de 2017 19:46 Para: Spanish version of Lazarus List Cc: Jesus Reyes A. Assunto: Re: [Lazarus-es] Nuevo foro en Español. Hola Héctor, que gusto saludarte. La dirección es básicamente la del sitio de Lazarus ( http://www.lazarus-ide.org/ ) y luego el enlace FORUM que aparece en la parte superior. Después es cosa de desplazarse hacia abajo hasta encontrar "Other Languages" y de ahí "Spanish". Jesus Reyes A. On Tue, 17 Jan 2017 18:41:55 -0600, hfiandor via Lazarus-es wrote: > Estimado Jesús Reyes: > > La idea me parece perfecta, pero lo que no encontré es si el acceso a > dicho foro es por email o por internet. Tampoco encontré la dirección > del email o el URL para visitar el sitio. > > No sé si es que tengo corta la vista (la juventud acumulada) o que no > estaba. > > 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 -- Using Opera's mail client: http://www.opera.com/mail/ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es From alfonsoariaslemas en gmail.com Thu Jan 19 23:08:58 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Thu, 19 Jan 2017 21:08:58 -0100 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= In-Reply-To: References: Message-ID: <005101d272a0$a3507aa0$e9f16fe0$@gmail.com> Hola Jesus, y no hay forma que automáticamente como sucede con los fórum de google lo mande al Email??? Tiene que ser obligatoriamente en la web??? Saludos -----Mensagem original----- De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] Em nome de Jesus Reyes A. via Lazarus-es Enviada: 19 de janeiro de 2017 19:46 Para: Spanish version of Lazarus List Cc: Jesus Reyes A. Assunto: Re: [Lazarus-es] Nuevo foro en Español. Hola Héctor, que gusto saludarte. La dirección es básicamente la del sitio de Lazarus ( http://www.lazarus-ide.org/ ) y luego el enlace FORUM que aparece en la parte superior. Después es cosa de desplazarse hacia abajo hasta encontrar "Other Languages" y de ahí "Spanish". Jesus Reyes A. On Tue, 17 Jan 2017 18:41:55 -0600, hfiandor via Lazarus-es wrote: > Estimado Jesús Reyes: > > La idea me parece perfecta, pero lo que no encontré es si el acceso a > dicho foro es por email o por internet. Tampoco encontré la dirección > del email o el URL para visitar el sitio. > > No sé si es que tengo corta la vista (la juventud acumulada) o que no > estaba. > > 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 -- Using Opera's mail client: http://www.opera.com/mail/ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es From jesusrmx en gmail.com Fri Jan 20 18:59:58 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Fri, 20 Jan 2017 11:59:58 -0600 Subject: [Lazarus-es] =?utf-8?q?Nuevo_foro_en_Espa=C3=B1ol=2E?= In-Reply-To: <005101d272a0$a3507aa0$e9f16fe0$@gmail.com> References: <005101d272a0$a3507aa0$e9f16fe0$@gmail.com> Message-ID: On Thu, 19 Jan 2017 16:08:58 -0600, Alfonso Arias Lemas via Lazarus-es wrote: > Hola Jesus, y no hay forma que automáticamente como sucede con los fórum > de google lo mande al Email??? Tiene que ser obligatoriamente en la > web??? > Saludos > Al parecer, en las opciones del perfil, en la sección correspondiente a notificaciones (como usuario registrado del forum) se puede habilitar la entrega de mensajes en el forum via email, también al parecer, presionado el botón "notify" que se encuentra en cada mensaje o foro se pueden obtener notificaciones de esos mensajes o foros habría que pobar.... Jesus Reyes A. From maximiliano.duarte en gmail.com Sat Jan 21 18:55:37 2017 From: maximiliano.duarte en gmail.com (Maximiliano Duarte) Date: Sat, 21 Jan 2017 14:55:37 -0300 Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: References: Message-ID: <5883a099.0b04370a.cbb67.aa0b@mx.google.com> Debes crear un indice con clave única en la tabla. Y al intentar guardar va a saltar una excepción. Sino puedes verificar con una consulta antes de guardar. -----Mensaje original----- De: "hfiandor via Lazarus-es" Enviado el: ‎17/‎01/‎2017 14:28 Para: "lazarus-es en lists.lazarus-ide.org" CC: "hfiandor" Asunto: [Lazarus-es] definicion de un campo UNIQUE Estimados listeros> Yo creo las tablas sqlite en una unidad DataModulo como sigue> with fdm.tAlumnos do begin FileName := camino_BD + '\Clasificadores.db'; PrimaryKey := 'IdAlumnos'; if not TableExists('Alumnos') then begin FieldDefs.Clear; FieldDefs.Add('IdAlumnos', ftInteger); FieldDefs.Add('CI', ftString, 11, NOT NULL); FieldDefs.Add('control', ftString, 10, NOT NULL ); FieldDefs.Add('primerapellido', ftString, 50); FieldDefs.Add('segundoapellido', ftString, 50); FieldDefs.Add('nombre', ftString, 50); FieldDefs.Add('direccion', ftString, 80); FieldDefs.Add('telefono', ftString, 30); FieldDefs.Add('email', ftString, 50); FieldDefs.Add('fechaingreso', ftString, 8); FieldDefs.Add('grado', ftString, 10); FieldDefs.Add('grupo', ftString, 10); CreateTable; end else begin end; AutoIncrementKey := True; end; y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. Como se hace eso? Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: Esto se puede hacer en el DataModulo? Anticipándole las gracias, Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From r.bidegain en gmail.com Sun Jan 22 02:21:31 2017 From: r.bidegain en gmail.com (Rafael Bidegain) Date: Sat, 21 Jan 2017 22:21:31 -0300 Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: References: Message-ID: Hola Hector un gusto leerte siempre El 17 de enero de 2017, 14:31, hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Estimados listeros> > > Yo creo las tablas sqlite en una unidad DataModulo como sigue> > > > > ... > > y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. > > > > Como se hace eso? > creo que lo que estás buscando es lo siguiente FieldDefs.Add('control', ftString, 10, NOT NULL UNIQUE); > > Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: > Esto se puede hacer en el DataModulo? > E DataModulo es una unit como cualquier otra, deberías crear la tabla en el evento indicado (onCreate) haciendo un manejo apropiado de los errores. - si existe y está abierta - si existe y está cerrada - si no existe - si tenés acceso de escritura al path destino etc etc obviamente tenés que asegurarte que el DataModulo se cree antes que el formulario que usa la tabla > > Anticipándole las gracias, > Un abrazo. > > > Saludos > > Ing. Héctor F. Fiandor Rosario > > -- Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA! ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jcuello en artextrading.com Mon Jan 23 08:30:36 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Mon, 23 Jan 2017 08:30:36 +0100 (CET) Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: References: Message-ID: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> Hola, para crear tablas, y es una opinión totalmente subjetiva, mejor ejecutar el SQL que es el lenguaje de administración del motor de la base de datos. De hecho cualquier componente estoy convencido que es lo que al final realizará. De hecho para crearla si no existe: CREATE TABLE IF NOT EXISTS myTabla ( .... ) Además del control de existencia puedes controlar las constraints que se crean, incluso darle nombre por si necesitas operar sobre ellas, por ejemplo que quieras capturar los errores para personalizar los mensajes al usuario. Para SQLite tienes más información en http://www.sqlite.org/lang_createtable.html Un saludo De: "Rafael Bidegain via Lazarus-es" Para: "Spanish version of Lazarus List" CC: "Rafael Bidegain" Enviados: Domingo, 22 de Enero 2017 2:21:31 Asunto: Re: [Lazarus-es] definicion de un campo UNIQUE Hola Hector un gusto leerte siempre El 17 de enero de 2017, 14:31, hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org > escribió: Estimados listeros> Yo creo las tablas sqlite en una unidad DataModulo como sigue> ... y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. Como se hace eso? creo que lo que estás buscando es lo siguiente FieldDefs.Add('control', ftString, 10, NOT NULL UNIQUE); BQ_BEGIN Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: Esto se puede hacer en el DataModulo? BQ_END E DataModulo es una unit como cualquier otra, deberías crear la tabla en el evento indicado (onCreate) haciendo un manejo apropiado de los errores. - si existe y está abierta - si existe y está cerrada - si no existe - si tenés acceso de escritura al path destino etc etc obviamente tenés que asegurarte que el DataModulo se cree antes que el formulario que usa la tabla BQ_BEGIN Anticipándole las gracias, BQ_END Un abrazo. BQ_BEGIN Saludos Ing. Héctor F. Fiandor Rosario BQ_END BQ_BEGIN BQ_END -- Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA! _______________________________________________ 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 r.bidegain en gmail.com Mon Jan 23 19:22:02 2017 From: r.bidegain en gmail.com (Rafael Bidegain) Date: Mon, 23 Jan 2017 15:22:02 -0300 Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> Message-ID: El 23 de enero de 2017, 4:30, Jose Antonio Cuello via Lazarus-es escribió: > > ... > Para SQLite tienes más información en > > http://www.sqlite.org/lang_createtable.html Hector, te puedo enviar la documentación por email. http://www.sqlite.org/download.html sqlite-doc-3160200.zip (5.27 MiB) Documentation as a bundle of static HTML files. (sha1: c3424040e2368dd78cf9aac801de8d8988549439) son 5 algo mas de 5 megas, si no lo podés recibir como está te la envío en varios archivos (decime el tamaño) saludos Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA! From hfiandor en ceniai.inf.cu Tue Jan 24 14:03:06 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Tue, 24 Jan 2017 08:03:06 -0500 Subject: [Lazarus-es] definicion de un campo UNIQUE In-Reply-To: References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> Estimado Rafael y José Antonio Cuello, muchas gracias. Ya tengo la documentación. La ví y aunque me asusta un poco, voy a ensayarla en la próxima aplicación, en lugar de usar la forma "clásica" que siempre utilizo. También tengo que usar declarar un campo UNIQUE, para evitar duplicidades. Voy a ensayarlos. Saludos Ing. Héctor F. Fiandor Rosario From jmjover en musgrave.es Thu Jan 26 13:38:28 2017 From: jmjover en musgrave.es (=?utf-8?B?Sm9zw6kgTWFudWVsIEpvdmVy?=) Date: Thu, 26 Jan 2017 12:38:28 +0000 Subject: [Lazarus-es] rx para lazarus In-Reply-To: References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> Message-ID: <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> Buenos dias: Estoy intentando instalar las RX para lazarus 1.6.2 en linux, pero no encuentro de donde bajarlas. ¿Alguien me puede enviar algun enlace? Las he conseguido para la version 1.5 pero al intentar instalarlas en la 1.6 dan errores y no se instalan Gracias Saludos J.M. From maximiliano.duarte en gmail.com Thu Jan 26 13:50:57 2017 From: maximiliano.duarte en gmail.com (Maxi) Date: Thu, 26 Jan 2017 09:50:57 -0300 Subject: [Lazarus-es] rx para lazarus In-Reply-To: <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> Message-ID: http://wiki.freepascal.org/RXfpc dejó de tener soporte hace mucho El 26 de enero de 2017, 9:38, José Manuel Jover via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Buenos dias: > > Estoy intentando instalar las RX para lazarus 1.6.2 en linux, pero > no encuentro de donde bajarlas. > > ¿Alguien me puede enviar algun enlace? > > Las he conseguido para la version 1.5 pero al intentar instalarlas en > la 1.6 dan errores y no se instalan > > Gracias > Saludos > J.M. > > _______________________________________________ > 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 jmjover en musgrave.es Thu Jan 26 15:15:59 2017 From: jmjover en musgrave.es (=?utf-8?B?Sm9zw6kgTWFudWVsIEpvdmVy?=) Date: Thu, 26 Jan 2017 14:15:59 +0000 Subject: [Lazarus-es] rx para lazarus In-Reply-To: References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> Message-ID: Buenas tardes: ¿Pero la ultima version de las rx se puede instalar en lazaruz 1.6.2? De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] En nombre de Maxi via Lazarus-es Enviado el: jueves, 26 de enero de 2017 13:51 Para: Spanish version of Lazarus List CC: Maxi Asunto: Re: [Lazarus-es] rx para lazarus http://wiki.freepascal.org/RXfpc dejó de tener soporte hace mucho El 26 de enero de 2017, 9:38, José Manuel Jover via Lazarus-es > escribió: Buenos dias: Estoy intentando instalar las RX para lazarus 1.6.2 en linux, pero no encuentro de donde bajarlas. ¿Alguien me puede enviar algun enlace? Las he conseguido para la version 1.5 pero al intentar instalarlas en la 1.6 dan errores y no se instalan Gracias Saludos J.M. _______________________________________________ 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 cer en racssprg.com.ar Thu Jan 26 15:48:57 2017 From: cer en racssprg.com.ar (Carlos Enrique Rodriguez) Date: Thu, 26 Jan 2017 11:48:57 -0300 Subject: [Lazarus-es] rx para lazarus In-Reply-To: References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> Message-ID: <3b17e187-d4f4-e84e-aa8b-babb16f06a37@racssprg.com.ar> El 26/01/2017 a las 11:15, José Manuel Jover via Lazarus-es escribió: > > Buenas tardes: > > ¿Pero la ultima version de las rx se puede instalar en lazaruz 1.6.2? > Hola, Yo las tengo andando sin problemas en mi Lazarus 1.6. No recuerdo si tuve que hacer algún cambio en el código la vez que las instalé (las uso desde hace mucho). No se para qué las necesitas, pero si el error está en algún componente en particular o propiedad que no necesitas para tu proyecto, podés quitársela y compilar Lazarus sin problema. Sino deberías ser un poco más específico con el error que te muestra para así ver por dónde está el problema. Saludos Carlos ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From a.ramos en esimat.com Thu Jan 26 16:02:30 2017 From: a.ramos en esimat.com (Alexis Ramos) Date: Thu, 26 Jan 2017 15:02:30 +0000 Subject: [Lazarus-es] rx para lazarus In-Reply-To: References: <91131362.968056.1485156636982.JavaMail.zimbra@artextrading.com> <069f9f7a2cb24ae49d0613b2e867267e@SRVCORREO.dominio.local> Message-ID: <1485442950.12553.21.camel@Studio> Buenas tardes En el repositorio de Lazarus-CCR se encuentra el paquete rxnew, cuya última modificación es de hoy mismo (aunque desconozco las diferencias con el que tú intentas instalar). Yo tengo instalada la versión 2.9.4 en Lazarus 1.7, por lo que no creo que tengas problemas si quieres instalarla en la 1.6.2 Saludos Alexis Ramos El jue, 26-01-2017 a las 14:15 +0000, José Manuel Jover via Lazarus-es escribió: > Buenas tardes: > > > > ¿Pero la ultima version de las rx se puede instalar en lazaruz > 1.6.2? > > > > > > > > > De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] En > nombre de Maxi via Lazarus-es > Enviado el: jueves, 26 de enero de 2017 13:51 > Para: Spanish version of Lazarus List > CC: Maxi > Asunto: Re: [Lazarus-es] rx para lazarus > > > > > > > http://wiki.freepascal.org/RXfpc > > > > dejó de tener soporte hace mucho > > > > > > > > > > El 26 de enero de 2017, 9:38, José Manuel Jover via Lazarus-es > escribió: > > Buenos dias: > > Estoy intentando instalar las RX para lazarus 1.6.2 en linux, > pero no encuentro de donde bajarlas. > > ¿Alguien me puede enviar algun enlace? > > Las he conseguido para la version 1.5 pero al intentar instalarlas > en la 1.6 dan errores y no se instalan > > Gracias > Saludos > J.M. > > _______________________________________________ > 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 > > > > _______________________________________________ > 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 hfiandor en ceniai.inf.cu Fri Jan 27 19:24:56 2017 From: hfiandor en ceniai.inf.cu (hfiandor) Date: Fri, 27 Jan 2017 13:24:56 -0500 Subject: [Lazarus-es] sobre Agregate function en Reporte Message-ID: Estimados listeros> Tengo un reporte como el que sigue> Y deseo que cuando termine de listar, escriba dos cosas supongo que en la banda “FootMasterData1”. Total de records mostrados Total de [notas]=5 (con esto, yo creo poder construir otras más o menos iguales). En el tutorial sobre Reportes que poseo, no viene muy clara la redacción exacta del comando. El reporte se confecciona a partir de un SQLQuery que tiene parámetros en el SELECT Saludos Ing. Héctor F. Fiandor Rosario ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: image001.jpg Type: image/jpeg Size: 7478 bytes Desc: no disponible URL: From maximiliano.duarte en gmail.com Fri Jan 27 20:59:09 2017 From: maximiliano.duarte en gmail.com (Maxi) Date: Fri, 27 Jan 2017 16:59:09 -0300 Subject: [Lazarus-es] sobre Agregate function en Reporte In-Reply-To: References: Message-ID: no hace falta, el reporte cuenta, debes poner un campo que haga la operacion. pasame el archivo y te lo agrego. El 27 de enero de 2017, 15:24, hfiandor via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Estimados listeros> > > > > Tengo un reporte como el que sigue> > > > > > > Y deseo que cuando termine de listar, escriba dos cosas supongo que en la > banda “FootMasterData1”. > > Total de records mostrados > > Total de [notas]=5 > > (con esto, yo creo poder construir otras más o menos iguales). > > > > En el tutorial sobre Reportes que poseo, no viene muy clara la redacción > exacta del comando. > > > > El reporte se confecciona a partir de un SQLQuery que tiene parámetros en > el SELECT > > > > 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: ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: image001.jpg Type: image/jpeg Size: 7478 bytes Desc: no disponible URL: