[Lazarus-es] Resumen de Lazarus-es, Vol 34, Envío 4
Nippur Lagash
nippur_mdp en yahoo.com.ar
Jue Jul 8 18:00:46 CEST 2010
Hola Paola, tanto tiempo!!!
procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if (key = VK_ESCAPE) then begin
> Key := 0;
> close;
> end;
> end;
Esto está bien, pero en delphi lo meto en el evento onKeyPress
Saludos,
Fernando
MDQ
________________________________
De: "lazarus-es-request en lists.lazarus.freepascal.org"
<lazarus-es-request en lists.lazarus.freepascal.org>
Para: lazarus-es en lists.lazarus.freepascal.org
Enviado: miércoles, 7 de julio, 2010 13:58:07
Asunto: Resumen de Lazarus-es, Vol 34, Envío 4
Envíe los mensajes para la lista Lazarus-es a
lazarus-es en lists.lazarus.freepascal.org
Para subscribirse o anular su subscripción a través de la WEB
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
O por correo electrónico, enviando un mensaje con el texto "help" en
el asunto (subject) o en el cuerpo a:
lazarus-es-request en lists.lazarus.freepascal.org
Puede contactar con el responsable de la lista escribiendo a:
lazarus-es-owner en lists.lazarus.freepascal.org
Si responde a algún contenido de este mensaje, por favor, edite la
linea del asunto (subject) para que el texto sea mas especifico que:
"Re: Contents of Lazarus-es digest...". Además, por favor, incluya en
la respuesta sólo aquellas partes del mensaje a las que está
respondiendo.
Asuntos del día:
1. Re: iconos correspondientes a bk* (christian Ortiz)
2. Re: iconos correspondientes a bk* (Paola Bruccoleri)
3. Re: iconos correspondientes a bk* (José Mejuto)
4. Re: ruidito (Paola Bruccoleri)
5. Re: ruidito (José Antonio Cuello)
6. mac y Tprocess (christian Ortiz)
7. Re: iconos correspondientes a bk* (Paola Bruccoleri)
8. Re: iconos correspondientes a bk* (José Mejuto)
9. Re: ruidito (Maxi)
----------------------------------------------------------------------
Message: 1
Date: Wed, 7 Jul 2010 08:50:45 -0500
From: christian Ortiz <xortix en gmail.com>
Subject: Re: [Lazarus-es] iconos correspondientes a bk*
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID:
<AANLkTikyWTatI8QHFgBHEyP_iU-mJxKMYdX_IbmDixBj en mail.gmail.com>
Content-Type: text/plain; charset="iso-8859-1"
mejor usa la propiedad glyph
El 7 de julio de 2010 04:11, José Mejuto <joshyfun en gmail.com> escribió:
> Hello Paola,
>
> Wednesday, July 7, 2010, 12:20:27 AM, you wrote:
>
> PB> se pueden cambiar los iconitos que están relacionados a los TBitBtn?, o
> PB> sea cuando elijo bkCancel, etc...
> PB> muchas gracias
> PB> chauuuuuuuuu
>
> En todas las compilaciones cambiando el recurso correspondiente de
> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons
>
> Si lo quieres hacer botón por botón, simplemente asignale un picture
> a cada uno de los botones, pero el gráfico no cambia en función del
> bkCancel, bkOK, ...
>
> --
> Best regards,
> José
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
--
Christian
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/099d229a/attachment-0001.html>
------------------------------
Message: 2
Date: Wed, 07 Jul 2010 11:22:52 -0300
From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
Subject: Re: [Lazarus-es] iconos correspondientes a bk*
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <4C348DBC.1060003 en adinet.com.uy>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
José Mejuto escribió:
> Hello Paola,
>
> Wednesday, July 7, 2010, 12:20:27 AM, you wrote:
>
> PB> se pueden cambiar los iconitos que están relacionados a los TBitBtn?, o
> PB> sea cuando elijo bkCancel, etc...
> PB> muchas gracias
> PB> chauuuuuuuuu
>
> En todas las compilaciones cambiando el recurso correspondiente de
> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons
>
Hola José y Cristian..
gracias por sus sugerencias...
no tengo esa carpeta.. ayer estuve buscando por todo c:\lazarus la
imagencita de cerrar y no la encontré.. :(
> Si lo quieres hacer botón por botón, simplemente asignale un picture
> a cada uno de los botones, pero el gráfico no cambia en función del
> bkCancel, bkOK, ...
>
mi idea era de cambiar algún ícono para todas las aplicaciones, por ej
el bkClose, que es esa cruz negra bien fea.. así me da menos trabajo....
chauuuuuuuuuuuu
------------------------------
Message: 3
Date: Wed, 7 Jul 2010 17:30:13 +0200
From: José Mejuto <joshyfun en gmail.com>
Subject: Re: [Lazarus-es] iconos correspondientes a bk*
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <839401399.20100707173013 en gmail.com>
Content-Type: text/plain; charset=ISO-8859-1
Hello Paola,
Wednesday, July 7, 2010, 4:22:52 PM, you wrote:
>> En todas las compilaciones cambiando el recurso correspondiente de
>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons
PB> Hola José y Cristian..
PB> gracias por sus sugerencias...
PB> no tengo esa carpeta.. ayer estuve buscando por todo c:\lazarus la
PB> imagencita de cerrar y no la encontré.. :(
Uy perdón era:
Lazarus\lcl\images\buttons :) Perdón.
--
Best regards,
José
------------------------------
Message: 4
Date: Wed, 07 Jul 2010 12:31:26 -0300
From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
Subject: Re: [Lazarus-es] ruidito
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <4C349DCE.1040301 en adinet.com.uy>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Hola José..
> El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No
> hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas
> creo que no funciona en ninguna plataforma, de todos modos puedes
> probar a poner:
>
> procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if (key = VK_ESCAPE) then begin
> Key := 0;
> close;
> end;
> end;
>
>
si, ese clin lo hace cuando pasás por algunos controles, como los
combos, rx, etc... otros no.
No me funcionó ese tip que me distes.. lo sigue haciendo igual..
Así que esto por ej de pasar con enter los controles no funciona en linux?
Es indispensable para sistemas de gestión, donde se factura sin parar!!!
chauuuuuuuuuu
------------------------------
Message: 5
Date: Wed, 07 Jul 2010 17:42:13 +0200
From: José Antonio Cuello <josea en artextrading.com>
Subject: Re: [Lazarus-es] ruidito
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <1278517333.7913.17.camel en ubuntu.artextrading.com>
Content-Type: text/plain; charset="UTF-8"
Hola, creo que si lo tratas en el keypress en vez del key down puedes
anular la pulsación con key := #0 ya que en el keydown la tecla ya ha
sido pulsada y se lanzan los eventos de teclado igualmente.
Bueno no se si me he explicado correctamente, pero creo que para que
haya un keydown debe haber keypress pero no al reves.
Yo controlo la pulsación del enter y el escape así y no me da problema.
procedure TBaseForm.FormKeyPress(Sender: TObject; var Key: char);
begin
if assigned( Screen.ActiveControl ) then
begin
if (Key = #13) then
begin
if Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;
if Screen.ActiveControl.InheritsFrom(TWinControl) and not
Screen.ActiveControl.InheritsFrom(TCustomMemo) then
begin
Key := #0;
repeat
SelectNext(Screen.ActiveControl, True, True);
until (Screen.ActiveControl = nil) or
(not (Screen.ActiveControl.InheritsFrom(TCustomPage) or
Screen.ActiveControl.InheritsFrom(TCustomNotebook)));
end;
end;
end
else
if (Key = #13) then
begin
Key := #0;
SelectNext(nil, True, True);
end;
end;
Espero que te sirva
El mié, 07-07-2010 a las 12:31 -0300, Paola Bruccoleri escribió:
> Hola José..
> > El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No
> > hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas
> > creo que no funciona en ninguna plataforma, de todos modos puedes
> > probar a poner:
> >
> > procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
> > Shift: TShiftState);
> > begin
> > if (key = VK_ESCAPE) then begin
> > Key := 0;
> > close;
> > end;
> > end;
> >
> >
> si, ese clin lo hace cuando pasás por algunos controles, como los
> combos, rx, etc... otros no.
> No me funcionó ese tip que me distes.. lo sigue haciendo igual..
>
> Así que esto por ej de pasar con enter los controles no funciona en linux?
> Es indispensable para sistemas de gestión, donde se factura sin parar!!!
> chauuuuuuuuuu
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
________________________________________________________________________
ARTEX TRADING S.A.
José Antonio Cuello Principal
------------------------------
Message: 6
Date: Wed, 7 Jul 2010 10:45:56 -0500
From: christian Ortiz <xortix en gmail.com>
Subject: [Lazarus-es] mac y Tprocess
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID:
<AANLkTimVFSP-pYBYMMVsvWdw76_RGm1aI14WLJcr9K9a en mail.gmail.com>
Content-Type: text/plain; charset="iso-8859-1"
Hola a todos,
alguno de ustedes ha logrado usar Tprocess o TprocessUTF8 en Leopard/
SnowLeopard para ejecutar una aplicacion externa? En Windows y Linux me
funciona de maravilla pero en mac :(.
--
Christian
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/64f67de8/attachment-0001.html>
------------------------------
Message: 7
Date: Wed, 07 Jul 2010 13:00:05 -0300
From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
Subject: Re: [Lazarus-es] iconos correspondientes a bk*
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <4C34A485.6050103 en adinet.com.uy>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
José Mejuto escribió:
> Hello Paola,
>
> Wednesday, July 7, 2010, 4:22:52 PM, you wrote:
>
>
>>> En todas las compilaciones cambiando el recurso correspondiente de
>>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons
>>>
> PB> Hola José y Cristian..
> PB> gracias por sus sugerencias...
> PB> no tengo esa carpeta.. ayer estuve buscando por todo c:\lazarus la
> PB> imagencita de cerrar y no la encontré.. :(
>
> Uy perdón era:
>
> Lazarus\lcl\images\buttons :) Perdón.
>
Hola José...
estás perdonado :)!!
pero hay algo que no me cierra y no entiendo... ¿de dónde sale esa cruz
negra cuando elijo en el TBitBtn, propiedad kind = bkClose.?
Se supone que toma el botón btn_close.png de la carpeta que tu me
indicas, que tiene como dibujito con una puertita marrón.
Creo recordar que antes, en algún build de lazarus, me aparecía esa
puerta, y ahora aparece esa cruz...
chauuuuuuuuuuuu
------------------------------
Message: 8
Date: Wed, 7 Jul 2010 18:33:43 +0200
From: José Mejuto <joshyfun en gmail.com>
Subject: Re: [Lazarus-es] iconos correspondientes a bk*
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID: <1149554226.20100707183343 en gmail.com>
Content-Type: text/plain; charset=ISO-8859-1
Hello Paola,
Wednesday, July 7, 2010, 6:00:05 PM, you wrote:
PB> estás perdonado :)!!
PB> pero hay algo que no me cierra y no entiendo... ¿de dónde sale esa cruz
PB> negra cuando elijo en el TBitBtn, propiedad kind = bkClose.?
PB> Se supone que toma el botón btn_close.png de la carpeta que tu me
PB> indicas, que tiene como dibujito con una puertita marrón.
PB> Creo recordar que antes, en algún build de lazarus, me aparecía esa
PB> puerta, y ahora aparece esa cruz...
A mi en bkClose me sale eso, una puerta. Si es una cruz negra es
posible que por el motivo que fuera no te compilara una imagen para
ese botón, quizá un problema con el SVN, no se. El caso es que a mi me
sale la puerta :-? Aunque mi SVN es un poco "viejo" como 2 meses.
Prueba a recompilar el IDE al completo, usando las opciones de "Clean
+ Rebuild".
--
Best regards,
José
------------------------------
Message: 9
Date: Wed, 7 Jul 2010 13:57:40 -0300
From: Maxi <maximiliano.duarte en gmail.com>
Subject: Re: [Lazarus-es] ruidito
To: Spanish version of Lazarus List
<lazarus-es en lists.lazarus.freepascal.org>
Message-ID:
<AANLkTikDSAaKOkjwXmGHAmCgqkUFoTMjFoe1M7VUNVRi en mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
El 7 de julio de 2010 12:42, José Antonio Cuello
<josea en artextrading.com>escribió:
> Hola, creo que si lo tratas en el keypress en vez del key down puedes
> anular la pulsación con key := #0 ya que en el keydown la tecla ya ha
> sido pulsada y se lanzan los eventos de teclado igualmente.
>
> Bueno no se si me he explicado correctamente, pero creo que para que
> haya un keydown debe haber keypress pero no al reves.
>
> Yo controlo la pulsación del enter y el escape así y no me da problema.
>
> procedure TBaseForm.FormKeyPress(Sender: TObject; var Key: char);
> begin
> if assigned( Screen.ActiveControl ) then
> begin
> if (Key = #13) then
> begin
> if Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;
>
> if Screen.ActiveControl.InheritsFrom(TWinControl) and not
> Screen.ActiveControl.InheritsFrom(TCustomMemo) then
> begin
> Key := #0;
> repeat
> SelectNext(Screen.ActiveControl, True, True);
> until (Screen.ActiveControl = nil) or
> (not (Screen.ActiveControl.InheritsFrom(TCustomPage) or
> Screen.ActiveControl.InheritsFrom(TCustomNotebook)));
> end;
> end;
> end
> else
> if (Key = #13) then
> begin
> Key := #0;
> SelectNext(nil, True, True);
> end;
> end;
>
> Espero que te sirva
>
> El mié, 07-07-2010 a las 12:31 -0300, Paola Bruccoleri escribió:
> > Hola José..
> > > El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No
> > > hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas
> > > creo que no funciona en ninguna plataforma, de todos modos puedes
> > > probar a poner:
> > >
> > > procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
> > > Shift: TShiftState);
> > > begin
> > > if (key = VK_ESCAPE) then begin
> > > Key := 0;
> > > close;
> > > end;
> > > end;
> > >
> > >
> > si, ese clin lo hace cuando pasás por algunos controles, como los
> > combos, rx, etc... otros no.
> > No me funcionó ese tip que me distes.. lo sigue haciendo igual..
> >
> > Así que esto por ej de pasar con enter los controles no funciona en
> linux?
> > Es indispensable para sistemas de gestión, donde se factura sin parar!!!
> > chauuuuuuuuuu
> >
> >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> ________________________________________________________________________
>
> ARTEX TRADING S.A.
> José Antonio Cuello Principal
>
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
Se soluciona asignadno #0 o 0 a la key segun que evento llames, para que el
evento heredado no siga su curso.
--
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504
http://miexperiencialinux.blogspot.com/
El que pregunta aprende, y el que contesta aprende a responder.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/bf947104/attachment.html>
------------------------------
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Fin de Resumen de Lazarus-es, Vol 34, Envío 4
*********************************************
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100708/0b0c15b6/attachment-0002.html>
More information about the Lazarus-es
mailing list